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