From 5969fc30fda498220b8756441acd4ec64dbfe9f1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 2 May 2014 23:41:10 -0400
Subject: Add null-rect variable.

* 2d/rect.scm (null-rect): New variable.
---
 2d/rect.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/2d/rect.scm b/2d/rect.scm
index 718f69b..6d3594c 100644
--- a/2d/rect.scm
+++ b/2d/rect.scm
@@ -27,6 +27,7 @@
   #:use-module (2d vector2)
   #:export (<rect>
             make-rect
+            null-rect
             rect?
             rect-x
             rect-y
@@ -70,6 +71,8 @@
   (width rect-width)
   (height rect-height))
 
+(define null-rect (make-rect 0 0 0 0))
+
 (define (rect-right rect)
   (+ (rect-x rect) (rect-width rect)))
 
-- 
cgit v1.2.3