Work on chase crit shape

2026-04-01 16:21:19 +01:00
parent 6d1cdcc9f3
commit c1bddbae20
4 changed files with 35 additions and 25 deletions
@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where

+import Dodge.Creature.Picture
 import Dodge.WallCreatureCollisions
 import Data.List ((\\))
 import ShortShow
@@ -34,7 +35,8 @@ import Data.Monoid
 import RandomHelp

 testStringInit :: Universe -> [String]
-testStringInit u = fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . ix 0 . crWallTouch . each
+testStringInit u = -- fmap show (u ^.. uvWorld . cWorld . lWorld . creatures . ix 0 . crWallTouch . each)
+     (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crStance . carriage)
 --    (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crStance . carriage . strideAmount)
 -- a    <> fromMaybe [] (do
 -- a    w1 <- u ^? uvWorld . cWorld . lWorld . walls . ix 18