diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-30 00:04:53 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-04-30 00:04:53 -0400 |
| commit | 2052faa3ffb11490e41972d65df54ae0bbef8b9c (patch) | |
| tree | 6b987c5fd115af2b24c85bc2c373cda17948b4fd /MeshSketch.hs | |
| parent | c9c0db44f79c5ad13c0937d8e36fa828447f9585 (diff) | |
skybox shader code.
Diffstat (limited to 'MeshSketch.hs')
| -rw-r--r-- | MeshSketch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MeshSketch.hs b/MeshSketch.hs index 7f01d4d..70493bd 100644 --- a/MeshSketch.hs +++ b/MeshSketch.hs | |||
| @@ -160,7 +160,7 @@ deg30 = pi/6 | |||
| 160 | 160 | ||
| 161 | whirlingCamera :: State -> Animation | 161 | whirlingCamera :: State -> Animation |
| 162 | whirlingCamera st = Animation $ \_ t -> do | 162 | whirlingCamera st = Animation $ \_ t -> do |
| 163 | let tf = realToFrac (t/10.0) :: Float | 163 | let tf = realToFrac t :: Float |
| 164 | rot = rotMatrixZ (-tf) <> rotMatrixX (-tf) | 164 | rot = rotMatrixZ (-tf) <> rotMatrixX (-tf) |
| 165 | modifyIORef (stCamera st) $ \cam -> cam | 165 | modifyIORef (stCamera st) $ \cam -> cam |
| 166 | { camUp = rot #> fromList [0,1,0] | 166 | { camUp = rot #> fromList [0,1,0] |