From 9daf9fc933a22359bb546e51029282ae215256f3 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 5 Jan 2018 14:49:27 -0500 Subject: math: matrix: Allow translation by rect as if it were a vector. * chickadee/math/matrix.scm (matrix4-translate!): Add rect support. --- chickadee/math/matrix.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/chickadee/math/matrix.scm b/chickadee/math/matrix.scm index b257069..af206f4 100644 --- a/chickadee/math/matrix.scm +++ b/chickadee/math/matrix.scm @@ -25,6 +25,7 @@ #:use-module (system foreign) #:use-module (chickadee math) #:use-module (chickadee math quaternion) + #:use-module (chickadee math rect) #:use-module (chickadee math vector) #:export (make-matrix4 make-null-matrix4 @@ -304,6 +305,12 @@ clipping plane NEAR and FAR." 0.0 1.0 0.0 0.0 0.0 0.0 1.0 0.0 (vec2-x v) (vec2-y v) 0.0 1.0)) + ((rect? v) + (init-matrix4 matrix + 1.0 0.0 0.0 0.0 + 0.0 1.0 0.0 0.0 + 0.0 0.0 1.0 0.0 + (rect-x v) (rect-y v) 0.0 1.0)) ((vec3? v) (init-matrix4 matrix 1.0 0.0 0.0 0.0 -- cgit v1.2.3