BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Global and local position

Browse source
This commit is contained in:
BirDt_ 2026-04-18 09:07:16 +08:00
parent 69dd991ab9
commit e7bfc01f7b
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
engine/components.scm
View file

@ -37,15 +37,20 @@
;; Generic accessors and mutators for position, rotation, scale, anchor, and parent
;; This allows us to abstract across different transform types - (position) will work for
;; screen-transform and 2D-transform, with type checking
(export position set-position! rotation set-rotation! scale set-scale!
anchor set-anchor! parent set-parent!)
(export global-position position set-position! rotation
set-rotation! scale set-scale! anchor set-anchor!
parent set-parent!)
(define (position component)
(define (global-position component)
(assert (record? component))
(if (null? (parent component))
((rtd-accessor (record-rtd component) 'position) component)
(v+ ((rtd-accessor (record-rtd component) 'position) component)
(position (parent component)))))
(global-position (parent component)))))
(define (position component)
(assert (record? component))
((rtd-accessor (record-rtd component) 'position) component))
(define (set-position! component position)
(assert (record? component))