Use strict tuples for SPics

2024-10-01 01:20:29 +01:00
parent a98ec80f59
commit 5a4f2711c8
17 changed files with 69 additions and 481 deletions
@@ -30,12 +30,12 @@ drawSwitchWire col1 col2 bt
    | _btState bt == BtOff = flick $ pi/4
    | otherwise = flick (negate (pi/4))
  where
-    flick a = ( mconcat
+    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 
            $ rectNSWE 10 0 (-2) 2
        ]   
-        , mempty)
+        )

 makeSwitchSPic
    :: ButtonDraw