Move toward data-ifying item SPics

2022-07-11 11:32:25 +01:00
parent 3447b9b0bb
commit 33d94bd05a
23 changed files with 332 additions and 331 deletions
@@ -71,15 +71,11 @@ mvLaser phasev sp dir w pt =
  where
    dam = _ptDamage pt
    xp = sp +.+ 800 *.* unitVectorAtAngle dir
--    thHit' = thingHit sp xp w
    (thHit, ps) = reflectLaserAlong phasev sp xp w

 drawLaser :: Particle -> Picture
--drawLaser pt = setLayer BloomNoZWrite $ pictures
-    --[ setDepth 19   . color (brightX 0 0.5 col) $ thickLine 20 ps
 drawLaser pt =
    setLayer BloomNoZWrite $ pictures
--    [ setDepth 19   . color (brightX 1 0.5 col) $ thickLine 20 ps
    [ setDepth 19.5 . color (brightX 10 1 col)  $ thickLine 3  ps
    ]
  where