Working cloud shadows (slow)

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -23,6 +23,7 @@ import Dodge.RandomHelp
 --import Dodge.Debug
 import Picture
 import Geometry
+import Geometry.Vector3D
 --import Geometry.Data
 import qualified IntMapHelp as IM
 
@@ -132,7 +133,7 @@ moveFlame rotd w pt
     reflV wall = (0.3 *.* reflectIn (uncurry (-.-) . swap $ _wlLine wall) vel )
         +.+ (0.2 *.* vel)
     smokeCol = fst $ randomR (0.2,0.5) (_randGen w)
-    smokeGen = makeFlamerSmokeAt smokeCol ep
+    smokeGen = makeFlamerSmokeAt smokeCol (addZ 20 ep)
 
 makeFlameletTimed 
     :: Point2       -- ^ Position
@@ -279,11 +280,12 @@ makeGasCloud pos vel w = w
     & randGen   .~ g
   where 
     theCloud = Cloud 
-        {  _clPos = pos
-        , _clVel = vel
+        {  _clPos = addZ 20 pos
+        , _clVel = addZ 0 vel
         , _clPict = \_ -> setLayer 2 . setDepth 30 $ color (withAlpha 0.05 col) 
                                           $ circleSolid 20
         , _clRad = 10
+        , _clAlt = 25
         , _clTimer = 400
         , _clType = GasCloud
         , _clEffect = cloudPoisonDamage
@@ -296,8 +298,8 @@ Attach poison cloud damage to creatures near cloud.
 cloudPoisonDamage :: Cloud -> World -> World
 cloudPoisonDamage c w = w & creatures %~ flip (foldr (IM.adjust doDam)) damagedCrs
   where 
-    damagedCrs = IM.keys $ IM.filter f $ creaturesNearPoint (_clPos c) w
-    f cr = dist (_crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
+    damagedCrs = IM.keys $ IM.filter f $ creaturesNearPoint (stripZ $ _clPos c) w
+    f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
     doDam cr = cr & crState . crDamage %~ (:) (PoisonDam 1)
 makeTeslaArcAt :: Point2 -> Float -> Particle
 makeTeslaArcAt pos dir = LinearParticle