Draw walls using vertex pulling

2025-11-10 19:05:54 +00:00
parent 1546caa6a3
commit 1f01147821
8 changed files with 68 additions and 8 deletions
@@ -32,7 +32,7 @@ import Data.Foldable
 import Data.Monoid

 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = [show $ length $ u ^. uvWorld . cWorld . lWorld . walls]
 --    [show $ foldMap (foldMap (Sum . length . (^. seObstacles))) 
 --    $ u ^. uvWorld . cWorld . incGraph]
    -- foldMap prettyShort $ u ^? uvWorld . cWorld . lWorld . machines . ix 0 . mcType . _McProxSensor