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
@@ -31,8 +31,8 @@ drawSwitchWire col1 col2 bt
    | otherwise = flick (negate (pi/4))
  where
    flick a = noPic ( mconcat
-        [ colorSH col1 . translateSHz 10 . upperBox Small Typical 10 $ reverse $ rectNSWE (-2) (-5) (-10) 10
-        , colorSH col2 . translateSH (V3 0 (-2) 15) . rotateSH a . upperBox Small Typical 2 . reverse 
+        [ colorSH col1 . translateSHz 10 . upperBox Small Typical 10 $ rectNSWE (-2) (-5) (-10) 10
+        , colorSH col2 . translateSH (V3 0 (-2) 15) . rotateSH a . upperBox Small Typical 2
            $ rectNSWE 10 0 (-2) 2
        ]   
        )