Working cloud shadows (slow)

2021-09-01 12:20:01 +01:00
parent f3ea46d7d0
commit ecaa5c48d0
12 changed files with 90 additions and 51 deletions
@@ -126,10 +126,11 @@ data Corpse = Corpse
    , _cpRes :: Creature
    }
 data Cloud = Cloud
-    { _clPos :: Point2
-    , _clVel :: Point2
+    { _clPos :: Point3
+    , _clVel :: Point3
    , _clPict :: Cloud -> Picture
    , _clRad :: Float
+    , _clAlt :: Float
    , _clTimer :: Int
    , _clType :: CloudType
    , _clEffect :: Cloud -> World -> World