Cleanup, start to add creature silhouettes

2021-09-02 11:06:04 +01:00
parent 02193add68
commit 9d2f42dbc9
16 changed files with 142 additions and 94 deletions
@@ -161,6 +161,7 @@ data Creature = Creature
    , _crMvDir          :: Float
    , _crID             :: Int
    , _crPict           :: Creature -> World -> Picture
+    , _crSilhouette     :: Creature -> [Point3]
    , _crUpdate     
        :: Creature 
        -> World