diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-09-10 17:57:11 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-09-10 17:57:11 -0400 |
| commit | febdf70a8e8f950767811d6a6aea8856ac167ff8 (patch) | |
| tree | 99310b1bab8f0ff7b23dd0955487a464840432be | |
| parent | 04777bec84e16aed9d04b529dd25283714d4c154 (diff) | |
node-2d: Export dirty! method.
* starling/node-2d.scm (dirty!): Convert to method and export it.
| -rw-r--r-- | starling/node-2d.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 205bf41..260f9b9 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -61,6 +61,7 @@ position rotation skew + dirty! pivot move-by move-to @@ -237,7 +238,7 @@ (world-matrix #:getter world-matrix #:init-form (make-identity-matrix4)) (dirty-matrix? #:accessor dirty-matrix? #:init-form #t)) -(define (dirty! node) +(define-method (dirty! (node <node-2d>)) (set! (dirty-matrix? node) #t)) (define-method (compute-matrices! (node <node-2d>)) |