Work on gibs and chasms

src/Dodge/TestString.hs

@@ -1,6 +1,8 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import ShortShow
+import Geometry
 import qualified SDL
 import Linear
 import Dodge.ListDisplayParams
@@ -26,7 +28,12 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 
 testStringInit :: Universe -> [String]
-testStringInit u = map show (M.elems $ u ^. uvWorld . input . pressedKeys)
+testStringInit u = map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
+  where
+    g db = (pz,z,norm v)
+      where
+        v@(V3 _ _ z) = db ^. dbVel
+        (V3 _ _ pz) = db ^. dbPos
         --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
 --  where
 --    idp = invDisplayParams $ u ^. uvWorld