From 96ec54106be96b487559606a7d8ef99559e30dfb Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 4 Jul 2009 19:13:31 -0500
Subject: [PATCH] for the FPS classicists... skew matrix constructor

---
 basis/math/matrices/matrices.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 95a52d4655..b939162577 100644
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -77,6 +77,16 @@ IN: math.matrices
         { 0.0 0.0 -1.0 0.0 }
     } ;
 
+:: skew-matrix4 ( theta -- matrix )
+    theta tan :> zf
+
+    {
+        { 1.0 0.0 0.0 0.0 }
+        { 0.0 1.0 0.0 0.0 }
+        { 0.0 zf  1.0 0.0 }
+        { 0.0 0.0 0.0 1.0 }
+    } ;
+
 ! Matrix operations
 : mneg ( m -- m ) [ vneg ] map ;