summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird/node-2d.scm24
1 files changed, 24 insertions, 0 deletions
diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index a6a70bd..eb39b6b 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -60,7 +60,13 @@
expire-local-matrix
follow-bezier-path
local-bounding-box
+ local-height
local-matrix
+ local-origin-x
+ local-origin-y
+ local-width
+ local-x
+ local-y
move-by
move-to
on-child-resize
@@ -405,6 +411,24 @@
(define-method (default-height (node <node-2d>)) 0.0)
+(define-method (local-x (node <node-2d>))
+ (rect-x (local-bounding-box node)))
+
+(define-method (local-y (node <node-2d>))
+ (rect-y (local-bounding-box node)))
+
+(define-method (local-width (node <node-2d>))
+ (rect-width (local-bounding-box node)))
+
+(define-method (local-height (node <node-2d>))
+ (rect-height (local-bounding-box node)))
+
+(define-method (local-origin-x (node <node-2d>))
+ (matrix4-transform-x (local-matrix node) 0.0 0.0))
+
+(define-method (local-origin-y (node <node-2d>))
+ (matrix4-transform-y (local-matrix node) 0.0 0.0))
+
(define-method (on-child-resize node child)
#t)