diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-07 03:49:17 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-04-07 03:49:17 -0400 |
| commit | 7936188b0ab13a1b0bd8b16e38d6fca1d8d20aa6 (patch) | |
| tree | 9930be304c35e7aada7501031b99cd742766c2f2 /Hello-glut.hs | |
| parent | 38e36f265d12c5a18dabc02248943ad43ee18caf (diff) | |
Fixed GLUT-based lambdacube example.
Diffstat (limited to 'Hello-glut.hs')
| -rw-r--r-- | Hello-glut.hs | 2 |
1 files changed, 1 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 |