From 662567804d06a1f05a612a5b8cd3fc2812b7d471 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 1 Mar 2017 17:02:08 +0100
Subject: [PATCH] static turn rate

---
 src/InGame.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/InGame.hs b/src/InGame.hs
index a1befd2..3fdbad0 100644
--- a/src/InGame.hs
+++ b/src/InGame.hs
@@ -141,7 +141,7 @@ handleGameEvent menuload sec e = do
           when (SDL.keyboardEventKeyMotion dat == SDL.Pressed && not (wonlost ud)) $
             putAffection ud
               { ship = (ship ud)
-                { sRot = sRot (ship ud) + 270 * sec
+                { sRot = sRot (ship ud) + 5
                 }
               }
         SDL.KeycodeRight -> do
@@ -149,7 +149,7 @@ handleGameEvent menuload sec e = do
           when (SDL.keyboardEventKeyMotion dat == SDL.Pressed) $
             putAffection ud
               { ship = (ship ud)
-                { sRot = sRot (ship ud) - 270 * sec
+                { sRot = sRot (ship ud) - 5
                 }
               }
         SDL.KeycodeUp ->