cleanup MVP from editor examples

1 files changed, 6 insertions, 2 deletions

diff --git a/testdata/editor-examples/Cube.lc b/testdata/editor-examples/Cube.lc
index bdd218b8..7efaf32b 100644
--- a/testdata/editor-examples/Cube.lc
+++ b/testdata/editor-examples/Cube.lc
@@ -1,9 +1,13 @@
-makeFrame (projmat :: Mat 4 4 Float)
+makeFrame (time :: Float)
           (vertexstream :: PrimitiveStream Triangle ((Vec 4 Float)))
 
           = imageFrame (emptyDepthImage 1, emptyColorImage navy)
   `overlay` fragments
   where
+    projmat = perspective 0.1 100.0 (30 * pi / 180) 1.0
+          .*. lookat (V3 3.0 1.3 0.3) (V3 0.0 0.0 0.0) (V3 0.0 1.0 0.0)
+          .*. rotMatrixY (pi / 24.0 * time)
+
     fragments =
           vertexstream
         & mapPrimitives (\((x)) -> (scale 0.5 (projmat *. x), x))
@@ -11,6 +15,6 @@ makeFrame (projmat :: Mat 4 4 Float)
         & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
 
 main = renderFrame $
-   makeFrame (Uniform "MVP")
+   makeFrame (Uniform "Time")
              (fetch "stream4" (Attribute "position4"))