Cleanup

2022-06-18 00:18:18 +01:00
parent a7c03671d3
commit 6a095d3de6
12 changed files with 49 additions and 36 deletions
@@ -73,7 +73,7 @@ optionValueOffset u mo = case _moString mo u of
    Right (s,_) -> length s

 darkenBackground :: Configuration -> Picture
-darkenBackground = color (withAlpha 0.5 black) . polygon . screenBox
+darkenBackground = color (withAlpha 0.5 black) . polygon . reverse . screenBox

 drawTitle :: Configuration -> String -> Picture
 drawTitle cfig = placeString (-hw + 30) (hh - 50) 0.4