Tweak display, scrolling of item values

2025-01-07 21:10:29 +00:00
parent b3cf10bd26
commit 5fa5bdf21e
18 changed files with 367 additions and 384 deletions
@@ -328,7 +328,7 @@ shineTargetLaser cr itmtree (p, q) w = fromMaybe (w & pointittarg . itTgPos .~ N
                . iaLoaded
                -~ x
            & cWorld . lWorld . lasers
-                .:~ LaserStart
+                .:~ Laser
                    { _lpPhaseV = 1
                    , _lpDir = _crDir cr + argV (Q.qToV2 q)
                    , _lpPos = pos