Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -7,7 +7,7 @@ import Picture
 drawTeslaArc :: TeslaArc -> Picture
 drawTeslaArc pt =
    setLayer BloomNoZWrite $
-        pictures
+        fold
            [ setDepth 20.5 $ color (brightX 2 1 $ _taColor pt) $ thickLine 3 ps
            , setDepth 20 $ color (V4 0 0 0 0.5) $ thickLine 10 ps
            ]