diff options
-rw-r--r-- | catbird/region.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/catbird/region.scm b/catbird/region.scm index b666811..f1cc306 100644 --- a/catbird/region.scm +++ b/catbird/region.scm @@ -66,9 +66,15 @@ (define-method (area-width (region <region>)) (rect-width (area region))) +(define-method (width (region <region>)) + (area-width region)) + (define-method (area-height (region <region>)) (rect-height (area region))) +(define-method (height (region <region>)) + (area-height region)) + (define (float->int x) (inexact->exact (round x))) |