Tweak walk cycle parameters

src/Dodge/Render/Picture.hs

@@ -45,12 +45,10 @@ customMouseCursor w =
     $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]
 
 testPic :: World -> [Picture]
-testPic _ = []
---testPic w = 
---    [ setDepth (-1) . translate 0 0.8
---        . scale 0.001 0.001 . text . show . length . IM.elems 
---        . IM.filter ( (== 3) . _crRad ) $ _creatures w
---    ]
+testPic w = 
+    [ setDepth (-1) . translate 0 0.8
+        . scale 0.001 0.001 . text . show $ _cameraRot w
+    ]
 
 crDraw :: World -> Creature -> Picture
 crDraw w c = (_crPict c c w)