Fixed GLUT-based lambdacube example.

2 files changed, 3 insertions, 1 deletions

diff --git a/Hello-glut.hs b/Hello-glut.hs
index 9ffa92c..f1d4ba7 100644
--- a/Hello-glut.hs
+++ b/Hello-glut.hs
@@ -60,7 +60,7 @@ main = do
                   "diffuseTexture" @= return textureData
                   "time" @= do
                               -- Just t <- GLFW.getTime
-                              Just t <- Just . (* (1000.0 :: Double)) . fromIntegral <$> GLUT.elapsedTime
+                              Just t <- Just . (/ (1000.0 :: Double)) . fromIntegral <$> GLUT.elapsedTime
                               return (realToFrac t :: Float)
                 -- render
                 LambdaCubeGL.renderFrame renderer
diff --git a/run.sh b/run.sh
new file mode 100755
index 0000000..0bbf53d
--- /dev/null
+++ b/run.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+MESA_GL_VERSION_OVERRIDE=3.3 MESA_GLSL_VERSION_OVERRIDE=330 ./GtkHello