Make anti-clockwise what were clockwise shapes, cleanup flash module-ing

2024-10-04 00:59:08 +01:00
parent ac550bc6a4
commit 075429088b
18 changed files with 128 additions and 156 deletions
@@ -47,7 +47,8 @@ drawFlamelet pt =
                )
            . rotate (negate (rot - 0.1 * fromIntegral time))
            . scale s1 s1
-            $ polygon (rectNSWE siz2 (- siz2) (- siz2) siz2)
+            . polygon 
+            $ reverse (rectNSWE siz2 (- siz2) (- siz2) siz2)
    pi2 =
        setDepth (z + 25)
            . uncurryV translate ep
@@ -60,7 +61,8 @@ drawFlamelet pt =
                )
            . rotate (negate (rot + 0.2 * fromIntegral time))
            . scale s2 s2
-            $ polygon (rectNSWE siz2 (- siz2) (- siz2) siz2)
+            . polygon 
+            $ (rectNSWE siz2 (- siz2) (- siz2) siz2)
    pic =
        setDepth (z + 20)
            . uncurryV translate ep