Tweak clouds + bloom

src/Dodge/Bullet/Draw.hs

@@ -8,7 +8,8 @@ import Picture
 
 drawBul :: Bullet -> Picture
 drawBul pt =
-    setLayer BloomNoZWrite
+    --setLayer BloomNoZWrite
+    setLayer BloomLayer
         . setDepth 20
         . color (V4 200 200 200 2)
         $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]

src/Dodge/Update.hs

@@ -746,7 +746,7 @@ updateCloud w c
                 & clTimer -~ 1
         )
   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
     vertVel = clAlt c - opz
     springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
@@ -757,7 +757,7 @@ updateCloud w c
     hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
     --finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
     -- 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
 
 clClSpringVel :: Cloud -> Point3 -> Cloud -> Point3