justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak lasers

Browse Source
This commit is contained in:
justin
2026-03-26 16:17:34 +00:00
parent 80ef7ec909
commit 9081bdc97f
7 changed files with 127 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+2 -2
View File
@@ -702,7 +702,7 @@ updatePulseLaser pz = case pz ^. pzTimer of
where
f w =
dodam thHit w
& cWorld . lWorld . flares <>~ drawLaser cyan (sp : ps)
& cWorld . lWorld . flares <>~ drawPulseLaser (sp : ps)
where
(thHit, ps) = reflectPulseLaserAlong phasev sp xp w
dodam thit = case thit of
@@ -721,7 +721,7 @@ updatePulseLaser pz = case pz ^. pzTimer of
sp = _pzPos pz
dir = _pzDir pz
xp = sp +.+ 800 *.* unitVectorAtAngle dir
g w = w & cWorld . lWorld . flares <>~ drawLaser cyan (sp : ps)
g w = w & cWorld . lWorld . flares <>~ drawPulseLaser (sp : ps)
where
(_, ps) = reflectPulseLaserAlong phasev sp xp w