bigger map

2014-01-05 21:09:34 +01:00
parent 8622881a13
commit 61ed20c865
2 changed files with 30 additions and 23 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -256,7 +256,7 @@ run = do
          (x, y) <- liftIO $ GLFW.getCursorPos win
          let myrot = (x - sodx) / 2
              mxrot = (y - sody) / 2
-              newXAngle  = curb 0 (0.45*pi) newXAngle'
+              newXAngle  = curb (pi/12) (0.45*pi) newXAngle'
              newXAngle' = sodxa + mxrot/100
              newYAngle
                  | newYAngle' > pi    = newYAngle' - 2 * pi