From 3946134e5d9e153461abe219ebc5b0721aaeb7e7 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 13 Dec 2022 08:35:24 -0500 Subject: region: Add width/height methods. --- catbird/region.scm | 6 ++++++ 1 file changed, 6 insertions(+) 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 )) (rect-width (area region))) +(define-method (width (region )) + (area-width region)) + (define-method (area-height (region )) (rect-height (area region))) +(define-method (height (region )) + (area-height region)) + (define (float->int x) (inexact->exact (round x))) -- cgit v1.2.3