Working (but slow) shadow shapes

2021-09-17 23:12:51 +01:00
parent 294e01479a
commit 6ac53c052c
16 changed files with 167 additions and 60 deletions
@@ -25,6 +25,7 @@ import Dodge.World.Trigger.Data
 import Dodge.Bounds
 import Data.Preload
 import Picture.Data
+import ShapePicture
 import Geometry.Data
 import Polyhedra.Data
 import Sound.Data
@@ -193,8 +194,7 @@ data Creature = Creature
    , _crOldDir         :: Float
    , _crMvDir          :: Float
    , _crID             :: Int
-    , _crPict           :: Creature -> World -> Picture
-    , _crSilhouette     :: Creature -> [Point3]
+    , _crPict           :: Creature -> World -> SPic
    , _crUpdate     
        :: Creature 
        -> World