Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -32,7 +32,7 @@ equipItemSPic et _ = case et of
    FRONTARMOUR ->
        ( mempty
        , setDepth 20 $
-            pictures
+            fold
                [ color yellow $ thickArc 0 (pi / 2) 10 5
                , color yellow $ thickArc (3 * pi / 2) (2 * pi) 10 5
                ]
@@ -498,7 +498,7 @@ detectorColor dt = case dt of
 keyPic :: Picture
 keyPic =
    color green $
-        pictures
+        fold
            [ translate (-4) 0 $ thickCircle 4 2
            , thickLine 2 $ map toV2 [(0, 0), (8, 0), (8, -4)]
            , thickLine 2 $ map toV2 [(4, 0), (4, -4)]