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
@@ -19,6 +19,8 @@ import Dodge.SoundLogic.LoadSound
 import Dodge.Picture.Layer
 import Geometry
 import Picture
+import ShapePicture
+import Shape

 import Control.Lens
 import qualified Data.IntMap.Strict as IM
@@ -34,8 +36,7 @@ defaultCreature = Creature
    , _crOldDir = 0
    , _crMvDir  = 0
    , _crID     = 1
-    , _crPict   = \_ _ -> setLayer 0 $ onLayer CrLayer $ circleSolid 10
-    , _crSilhouette = const []
+    , _crPict   = \_ _ -> SPic (flatCirc 10) blank
    , _crUpdate = \cr _ -> (Endo id , Just cr)
    , _crRad    = 10
    , _crMass   = 10