diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-05-02 23:41:10 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-05-02 23:41:10 -0400 |
| commit | 5969fc30fda498220b8756441acd4ec64dbfe9f1 (patch) | |
| tree | 592f9bda3ba846c4bc53436dd30cbde80c6f4aae | |
| parent | 422766edb6369154ecb83b63b90b67decb7b878e (diff) | |
Add null-rect variable.
* 2d/rect.scm (null-rect): New variable.
| -rw-r--r-- | 2d/rect.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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))) |