Working cloud shadows (slow)

src/Dodge/Item/Weapon.hs

@@ -30,6 +30,7 @@ import Dodge.Item.Weapon.Grenade
 import Dodge.Item.Attachment.Data
 import Dodge.Item.Attachment
 import Geometry
+import Geometry.Vector3D
 import Picture
 import qualified IntMapHelp as IM
 
@@ -940,7 +941,7 @@ moveRemoteShell cid itid pj w
     hitWl    = fst <$> collideCircWalls' oldPos newPos 2 (wallsNearPoint newPos w)
     thingHit = hitCr <|> hitWl
     r1 = _randGen w & evalState (randInCirc 10)
-    smokeGen = makeSmokeCloudAt $ oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)
+    smokeGen = makeSmokeCloudAt $ addZ 20 $ oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)
     doExplosion = explodeRemoteRocket itid i
 
 explodeRemoteRocket 

src/Dodge/Item/Weapon/Launcher.hs

@@ -17,6 +17,7 @@ import Dodge.WorldEvent.SpawnParticle
 import Dodge.WorldEvent.Cloud
 import Dodge.RandomHelp
 import Geometry
+import Geometry.Vector3D
 import Picture
 import qualified IntMapHelp as IM
 import Padding
@@ -117,7 +118,7 @@ doThrust pj w = w
     (frict,g)  = randomR (0.6,0.9) $ _randGen w
     (sparkD,_) = randomR (-0.2,0.2) $ _randGen w
     r1 = randInCirc 10 & evalState $ _randGen w
-    smokeGen = makeSmokeCloudAt (oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos))
+    smokeGen = makeSmokeCloudAt $ addZ 20 (oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos))
 
 flameLauncher :: Item
 flameLauncher = launcher & wpAmmo . amPayload .~ makeFlameExplosionAt

src/Dodge/Item/Weapon/TriggerType.hs

@@ -43,6 +43,7 @@ import Dodge.Item.Attachment.Data
 import Dodge.Item.Data
 import Dodge.Default
 import Geometry
+import Geometry.Vector3D
 
 import System.Random
 import Control.Lens
@@ -65,18 +66,18 @@ trigDoAlso
 trigDoAlso afterEff eff item cr = afterEff item cr . eff item cr
 
 withThinSmokeI :: ChainEffect
-withThinSmokeI eff item cr w = eff item cr $ foldl' (flip $ makeThinSmokeAt . (+.+ pos)) w ps
+withThinSmokeI eff item cr w = eff item cr $ foldl' (flip $ makeThinSmokeAt . (+.+.+ pos) . (* 8)) w ps
   where
     dir = _crDir cr
-    pos = _crPos cr +.+ (_crRad cr +0.5) *.* unitVectorAtAngle dir
-    ps = (replicateM 5 . randInCirc) 8 & evalState $ _randGen w
+    pos = addZ 0 $ _crPos cr +.+ (_crRad cr +0.5) *.* unitVectorAtAngle dir
+    ps = replicateM 5 randOnUnitSphere & evalState $ _randGen w
 
 withThickSmokeI :: ChainEffect
-withThickSmokeI eff item cr w = eff item cr $ foldl' (flip $ makeThickSmokeAt . (+.+ pos)) w ps
+withThickSmokeI eff item cr w = eff item cr $ foldl' (flip $ makeThickSmokeAt . (+.+.+ pos) . (*8)) w ps
   where
     dir = _crDir cr
-    pos = _crPos cr +.+ (_crRad cr + 15) *.* unitVectorAtAngle dir
-    ps = (replicateM 20 . randInCirc) 8 & evalState $ _randGen w
+    pos = addZ 0 $ _crPos cr +.+ (_crRad cr + 15) *.* unitVectorAtAngle dir
+    ps = replicateM 20 randOnUnitSphere & evalState $ _randGen w
 -- TODO  create a trigger that does different things on first and continued
 -- fire.