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
@@ -19,9 +19,8 @@ drawSwitch col1 col2 bt
  where
    flick a = noPic
        ( mconcat
-            [ colorSH col1 . upperBox Small Typical 20 $ reverse $ rectNSWE (-2) (-5) (-10) 10
+            [ colorSH col1 . upperBox Small Typical 20 $ rectNSWE (-2) (-5) (-10) 10
            , colorSH col2 . translateSH (V3 0 (-2) 20) . rotateSH a . upperBox Small Typical 2 $
-                reverse $
                    rectNSWE 10 0 (-2) 2
            ]
        )
@@ -32,6 +31,6 @@ defaultDrawButton col bt = noPic
    )
  where
    buttonGeometry
-        | _btState bt == BtOff = reverse $ rectNSWE 10 (-1) (- width) width
-        | otherwise = reverse $ rectNSWE 2 (-1) (- width) width
+        | _btState bt == BtOff = rectNSWE 10 (-1) (- width) width
+        | otherwise = rectNSWE 2 (-1) (- width) width
    width = 8