Assorted changes, cleanup menu selection text

src/Dodge/Render/ShapePicture.hs

@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
+import Dodge.ShortShow
 import Dodge.Config.Data
 import Dodge.Render.InfoBox
 import Dodge.Debug.Picture
@@ -51,11 +52,13 @@ extraPics cfig w = pictures (_decorations w)
     <> concatMapPic (dbArg _bmDraw) (_electronBeams $ _beams w)
     <> concatMapPic (dbArg _lsPict) (_lightSources w)
     <> testPic w
+    <> _debugPicture w
     <> concatMapPic clDraw (_clouds w      )
     <> concatMapPic ppDraw (_pressPlates w )
     <> soundPics cfig w
     <> viewBoundaries cfig w
     <> viewClipBounds cfig w
+    <> drawMousePosition cfig w
     <> drawPathing cfig w
     <> drawCrInfo cfig w
 
@@ -95,6 +98,19 @@ soundPic cfig w s = fixedSizePicClampArrow 50 50 thePic p cfig w
     theScale = 0.15 * f (_soundVolume s * 0.0001)
     f x = 1 - 0.5 * (1 - x)
 
+drawMousePosition :: Configuration -> World -> Picture
+drawMousePosition cfig w
+    | not $ _debug_mouse_position cfig = mempty
+    | otherwise
+        = setLayer FixedCoordLayer . winScale cfig
+            . uncurryV translate p
+            . scale 0.1 0.1
+            . text 
+            $ shortPoint2 mwp 
+  where
+    p = worldPosToScreen w mwp
+    mwp = mouseWorldPos w
+
 drawPathing :: Configuration -> World -> Picture
 drawPathing cfig w
     | _debug_pathing cfig 
@@ -111,9 +127,11 @@ crDisplayInfo cfig w cr
     | _crID cr == 0 = Nothing
     | crOnScreen = Just (_crPos cr, catMaybes
 --        [fmap show $ ap ^? crGoal
---        ,fmap show $ ap ^? crStrategy
-        [fmap show $ cr ^? crPos
-        ,fmap show $ cr ^? crOldPos
+        [fmap show $ cr ^? crHP
+        ,fmap show $ ap ^? crStrategy
+        ,fmap show $ cr ^? crPos
+        ,fmap show $ cr ^? crPerception . crAwakeLevel
+--        ,fmap show $ cr ^? crOldPos
         ,fmap show $ ap ^? crAction
         ,fmap show $ ap ^? crImpulse
         ]
@@ -126,7 +144,7 @@ crDisplayInfo cfig w cr
 drawCrInfo :: Configuration -> World -> Picture
 drawCrInfo cfig w
     | _debug_cr_status cfig = setLayer FixedCoordLayer 
-        $ renderInfoListsAt (2*hw - 200) 0 cfig w
+        $ renderInfoListsAt (2*hw - 400) 0 cfig w
         $ mapMaybe (crDisplayInfo cfig w) $ IM.elems $ _creatures w
     | otherwise = mempty
   where