Move radar blips into own grouping, work on data-ifying particles

2022-07-10 12:38:32 +01:00
parent ce5b596d4f
commit 23022d85a1
10 changed files with 290 additions and 32 deletions
@@ -198,12 +198,14 @@ targetLaserUpdate _ cr w t
    (mp, ps) = reflectLaserAlong 0.2 sp ep w
    sp = _crPos cr +.+ 15 *.* unitVectorAtAngle (_crDir cr)
    ep = sp +.+ 5000 *.* normalizeV (mouseWorldPos w -.- sp)
-    addLaserPic = instantParticles .:~ Particle
+    addLaserPic = instantParticles .:~ PtTargetLaser
        { _ptDraw = const $ setLayer BloomNoZWrite $ pictures
            [ setDepth 19   . color (brightX 0 0.5 col) $ thickLine 5 (sp:ps)
            , setDepth 19.5 . color (brightX 5 1 col)  $ thickLine 1  (sp:ps)
            ]
        , _ptUpdate = ptSimpleTime 1
+        , _ptPoints = (sp:ps)
+        , _ptColor = col
        }
    --wpammo = _itConsumption it
 --    reloadFrac