diff options
-rw-r--r-- | Hello-glut.hs | 2 | ||||
-rwxr-xr-x | run.sh | 2 |
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 | |||
60 | "diffuseTexture" @= return textureData | 60 | "diffuseTexture" @= return textureData |
61 | "time" @= do | 61 | "time" @= do |
62 | -- Just t <- GLFW.getTime | 62 | -- Just t <- GLFW.getTime |
63 | Just t <- Just . (* (1000.0 :: Double)) . fromIntegral <$> GLUT.elapsedTime | 63 | Just t <- Just . (/ (1000.0 :: Double)) . fromIntegral <$> GLUT.elapsedTime |
64 | return (realToFrac t :: Float) | 64 | return (realToFrac t :: Float) |
65 | -- render | 65 | -- render |
66 | LambdaCubeGL.renderFrame renderer | 66 | LambdaCubeGL.renderFrame renderer |
@@ -0,0 +1,2 @@ | |||
1 | #!/bin/sh | ||
2 | MESA_GL_VERSION_OVERRIDE=3.3 MESA_GLSL_VERSION_OVERRIDE=330 ./GtkHello | ||