Tweak movement

src/Dodge/Render/Picture.hs

@@ -9,6 +9,8 @@ import Dodge.Render.MenuScreen
 import Geometry
 import Picture
 
+--import Dodge.Creature.YourControl
+
 import Control.Lens
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
@@ -47,7 +49,7 @@ customMouseCursor w =
 testPic :: World -> [Picture]
 testPic w = 
     [ setDepth (-1) . translate 0 0.8
-        . scale 0.001 0.001 . text . show $ _cameraRot w
+        . scale 0.001 0.001 . text . show $ _crMvDir $ you w
     ]
 
 crDraw :: World -> Creature -> Picture