Add file, fix lamp doDamage space leak

2021-05-12 20:48:55 +02:00
parent ead87af3c1
commit 9b3fbba393
13 changed files with 165 additions and 226 deletions
@@ -45,7 +45,10 @@ customMouseCursor w =
    $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]

 testPic :: World -> [Picture]
-testPic w = [blank]
+testPic w = 
+    [ setDepth (-1) . translate 0 0.8
+        . scale 0.001 0.001 . text . show . length . IM.elems . IM.filter ( (== 3) . _crRad ) $ _creatures w
+    ]

 crDraw :: Creature -> Picture
 crDraw c = uncurry translate (_crPos c) $ rotate (_crDir c) (_crPict c c)