Tweak clouds

2025-11-06 22:01:24 +00:00
parent 05c530eeb1
commit 7c62479f30
5 changed files with 48 additions and 37 deletions
@@ -44,7 +44,7 @@ pokeCloudLikeVerx ptr (V3 cx cy cz, V4 r g b a) nv i (dx, dy) =
    UV.imapM_ (pokeCloudFloat ptr (nv + i)) $
        UV.fromList [x, y, cz, 1, r, g, b, a, dx, dy, 0, 0]
  where
-    V2 x y = V2 cx cy - 20 *^ V2 dx dy
+    V2 x y = V2 cx cy + 20 *^ V2 dx dy

 clColor :: CloudType -> Color
 clColor = \case