Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -11,7 +11,7 @@ drawBeam bd = case bd of
 basicDrawBeam :: Beam -> Picture
 basicDrawBeam bm =
    setLayer BloomNoZWrite $
-        pictures
+        fold
            [ setDepth 19 . color (brightX 0 0.5 col) $ thickLine 20 ps
            , setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
            ]