summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-12-16 07:54:52 -0500
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-12-16 07:54:52 -0500
commit8aff881da8cf0449868c8d3594f6a2cb6184f7dd (patch)
tree724c871624b15382f94fc210de8545e769d727a6
parentd8bf901c7647d9e4e458801c20a429666dee209e (diff)
node-2d: Stop using deprecated reader syntax for 2D vectors.
-rw-r--r--starling/node-2d.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 1559a54..bb64d99 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -209,15 +209,15 @@
;;;
(define-class <node-2d> (<node>)
- (origin #:getter origin #:init-form #v(0.0 0.0) #:init-keyword #:origin)
- (position #:getter position #:init-form #v(0.0 0.0) #:init-keyword #:position)
+ (origin #:getter origin #:init-form (vec2 0.0 0.0) #:init-keyword #:origin)
+ (position #:getter position #:init-form (vec2 0.0 0.0) #:init-keyword #:position)
(rotation #:accessor rotation #:init-form 0.0 #:init-keyword #:rotation)
- (scale #:getter scale #:init-form #v(1.0 1.0) #:init-keyword #:scale)
- (skew #:getter skew #:init-form #v(0.0 0.0) #:init-keyword #:skew)
+ (scale #:getter scale #:init-form (vec2 1.0 1.0) #:init-keyword #:scale)
+ (skew #:getter skew #:init-form (vec2 0.0 0.0) #:init-keyword #:skew)
;; Some extra position vectors for defeating "temporal aliasing"
;; when rendering.
- (last-position #:getter last-position #:init-form #v(0.0 0.0))
- (render-position #:getter render-position #:init-form #v(0.0 0.0))
+ (last-position #:getter last-position #:init-form (vec2 0.0 0.0))
+ (render-position #:getter render-position #:init-form (vec2 0.0 0.0))
;; Lazily computed transformation matrices.
(local-matrix #:getter local-matrix #:init-form (make-identity-matrix4))
(world-matrix #:getter world-matrix #:init-form (make-identity-matrix4))