From 81f8add3c8e66e875d523344fd35b899676e943f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 13 Dec 2022 08:35:32 -0500 Subject: scene: Add width/height methods. --- catbird/scene.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/catbird/scene.scm b/catbird/scene.scm index 7f2542d..046a8dd 100644 --- a/catbird/scene.scm +++ b/catbird/scene.scm @@ -209,3 +209,9 @@ (define-method (resume (scene )) (for-each-child resume scene) (next-method)) + +(define-method (width (scene )) + (fold (lambda (r w) (max w (width r))) 0.0 (regions scene))) + +(define-method (height (scene )) + (fold (lambda (r h) (max h (height r))) 0.0 (regions scene))) -- cgit v1.2.3