diff options
| -rw-r--r-- | sly/math/rect.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/sly/math/rect.scm b/sly/math/rect.scm index 2d9d61a..856842b 100644 --- a/sly/math/rect.scm +++ b/sly/math/rect.scm @@ -95,7 +95,7 @@ (+ (rect-y rect) (rect-height rect))) (define (rect-position rect) - "Return the top-left corner of RECT as a vector." + "Return the bottom-left corner of RECT." (vector2 (rect-x rect) (rect-y rect))) @@ -161,16 +161,15 @@ its current center." (define rect-inflate (case-lambda - "Create a new rectangle by growing RECT by the given amount -without changing the center point. rect-inflate accepts a vector or x -and y coordinates as separate arguments." + "Create a new rectangle by growing RECT by the 2D vector SIZE (or +WIDTH and HEIGHT) without changing the center point." ((rect v) (%rect-inflate rect (vx v) (vy v))) ((rect x y) (%rect-inflate rect x y)))) (define (rect-union rect1 rect2) - "Return a rect that covers the area of RECT1 and RECT2." + "Create a new rectangle that covers the area of RECT1 and RECT2." (let ((x1 (min (rect-left rect1) (rect-left rect2))) (x2 (max (rect-right rect1) (rect-right rect2))) (y1 (min (rect-bottom rect1) (rect-bottom rect2))) @@ -178,8 +177,8 @@ and y coordinates as separate arguments." (make-rect x1 y1 (- x2 x1) (- y2 y1)))) (define (rect-clip rect1 rect2) - "Return the overlapping region of RECT1 and RECT2. If the rects do -not overlap, a rect of size 0 is returned." + "Create a new rectangle that is the overlapping region of RECT1 and +RECT2. If the rects do not overlap, a rect of size 0 is returned." (let ((x1 (max (rect-left rect1) (rect-left rect2))) (x2 (min (rect-right rect1) (rect-right rect2))) (y1 (max (rect-bottom rect1) (rect-bottom rect2))) @@ -214,7 +213,7 @@ not overlap, a rect of size 0 is returned." (define rect-contains? (case-lambda - "Return #t if the given point is within RECT." + "Return #t if the 2D vector V (or the coordinates X and Y) is within RECT." ((rect v) (%rect-contains? rect (vx v) (vy v))) ((rect x y) |