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

Tweak clouds + bloom

Browse Source
This commit is contained in:
justin
2025-06-24 16:55:08 +01:00
parent 35a3f005c4
commit 04e046ea82
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Bullet/Draw.hs
+2 -1
View File
@@ -8,7 +8,8 @@ import Picture
drawBul :: Bullet -> Picture drawBul :: Bullet -> Picture
drawBul pt = drawBul pt =
setLayer BloomNoZWrite --setLayer BloomNoZWrite
setLayer BloomLayer
. setDepth 20 . setDepth 20
. color (V4 200 200 200 2) . color (V4 200 200 200 2)
$ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt] $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]
src/Dodge/Update.hs
+2 -2
View File
@@ -746,7 +746,7 @@ updateCloud w c
& clTimer -~ 1 & clTimer -~ 1
) )
where where
newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.001 * vertVel) newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.01 * vertVel)
newVel2 = stripZ newVel newVel2 = stripZ newVel
vertVel = clAlt c - opz vertVel = clAlt c - opz
springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w) springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
@@ -757,7 +757,7 @@ updateCloud w c
hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
--finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl --finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
-- allowing clouds at/above height 75 causes graphical glitches 22.05.23 -- allowing clouds at/above height 75 causes graphical glitches 22.05.23
finalPos = addZ (min 90 npz) $ maybe newPos2 fst hitWl finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
finalVel = addZ nvz $ maybe newVel2 snd hitWl finalVel = addZ nvz $ maybe newVel2 snd hitWl
clClSpringVel :: Cloud -> Point3 -> Cloud -> Point3 clClSpringVel :: Cloud -> Point3 -> Cloud -> Point3