mainObj.hs: Slower animation, more straight-forward grid calculation.

1 files changed, 17 insertions, 1 deletions

diff --git a/InfinitePlane.hs b/InfinitePlane.hs
index 9dd3a59..f353932 100644
--- a/InfinitePlane.hs
+++ b/InfinitePlane.hs
@@ -32,6 +32,9 @@ xyplane_inf = Mesh
         ]
     }
 
+times1000 (V4 a b c d) = V4 (f a) (f b) (f c) d where f = (* 10000.0)
+
+
 -- | This represents the xy-plane as a large triangle.  This makes it easier
 -- to interpolate 3d world coordinates in the fragment.
 xyplane :: LambdaCubeGL.Mesh
@@ -45,5 +48,18 @@ xyplane = Mesh
         [ 0, 1, 2
         ]
     }
-    where times1000 (V4 a b c d) = V4 (f a) (f b) (f c) d where f = (* 10000.0)
+
+-- | This represents the xz-plane as a large triangle.  This makes it easier
+-- to interpolate 3d world coordinates in the fragment.
+xzplane :: LambdaCubeGL.Mesh
+xzplane = Mesh
+    { mAttributes = Map.singleton "position" $ A_V4F $ V.fromList $ map times1000
+        [ V4             0 0             1 1
+        , V4    (1/sqrt 2) 0 ((-1)/sqrt 2) 1
+        , V4 ((-1)/sqrt 2) 0 ((-1)/sqrt 2) 1
+        ]
+    , mPrimitive = P_TrianglesI $ V.fromList
+        [ 0, 1, 2
+        ]
+    }