diff options
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] |