Develop laser upgrade path slightly

src/Dodge/Creature/Picture.hs

@@ -79,16 +79,20 @@ creatureDisplayText cfig w cr
     . setDepth 50 
     . translate x y 
     . color white 
-    . rotate a 
+    . rotate (0.5 * pi)
+--    . rotate (argV v - 0.5 * pi)
     . scale theScale theScale 
-    . text 
-    $ clockCycle 50 (V.fromList [crDisplayAwake, crDisplayAlert]) w cr
+    . centerText 
+    $ clockCycle 25 (V.fromList 
+        [ crDisplayAwake
+        , crDisplayAlert
+        ]
+        ) w cr
   where
     campos = _cameraViewFrom w
     theScale = 0.15 / _cameraZoom w
     cpos = _crPos cr
     v = cpos -.- campos
-    a = argV v - 0.5 * pi
     (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v
 
 crDisplayAlert :: Creature -> String
@@ -106,12 +110,13 @@ crDisplayAlert cr
     g _ = False
 
 crDisplayAwake :: Creature -> String
-crDisplayAwake cr = case _crAwakeLevel (_crPerception cr) of
-    Comatose    -> "-"
-    Asleep      -> "Z"
-    Lethargic   -> "L"
-    Vigilant    -> "V"
-    Overstrung  -> "O"
+crDisplayAwake = show . _crAwakeLevel . _crPerception
+--crDisplayAwake cr = case _crAwakeLevel (_crPerception cr) of
+--    Comatose    -> "-"
+--    Asleep      -> "Z"
+--    Lethargic   -> "L"
+--    Vigilant    -> "V"
+--    Overstrung  -> "O"
 
 --damageMod :: Creature -> Picture -> Picture
 --damageMod cr pic = piercingMod $ bluntScale pic