Add aggressive light culling

2022-06-17 18:24:24 +01:00
parent 55341f7caf
commit cbfb417d21
26 changed files with 114 additions and 47 deletions
@@ -209,8 +209,8 @@ defaultDrawButton col bt =
    )
  where
    buttonGeometry
-        | _btState bt == BtOff = rectNSEW 10 (-1) width (-width) 
-        | otherwise = rectNSEW 2 (-1) width (-width)
+        | _btState bt == BtOff = reverse $ rectNSWE 10 (-1) (-width) width
+        | otherwise = reverse $ rectNSWE 2 (-1) (-width) width
    width = 8
 defaultTerminal :: Terminal
 defaultTerminal = Terminal