Cleanup

src/Dodge/Item/Weapon.hs

@@ -798,11 +798,6 @@ moveRemoteBomb itid time pID w
     updatePicture = 
         set (props . ix pID . prDraw)
             (\_ -> (,) mempty $ onLayer PtLayer $ uncurryV translate newPos $ remoteBombPic time)
-        . lowLightDirected 
-            (withAlpha 0.1 red) 
-            newPos 
-            (50 *.* unitVectorAtAngle (negate $ degToRad (10 * fromIntegral time)))
-            [-0.2,-0.15,-0.1,-0.05,0,0.05,0.1,0.15,0.2]
 
 
 setRemoteBombScope :: Int -> Prop -> World -> World

src/Dodge/Item/Weapon/Laser.hs

@@ -25,7 +25,7 @@ import qualified Data.Sequence as Seq
 --import qualified Data.IntMap.Strict as IM
 
 aLaser :: Creature -> World -> World
-aLaser cr w = over particles (makeLaserAt phaseV pos dir : ) w
+aLaser cr = particles %~ (makeLaserAt phaseV pos dir : )
   where 
     pos = _crPos cr +.+ ((_crRad cr +3) *.* unitVectorAtAngle dir) 
     dir = _crDir cr