diff options
| -rw-r--r-- | chickadee/math/matrix.scm | 7 |
1 files changed, 7 insertions, 0 deletions
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 |