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 @@ drawLinearShockwave :: LinearShockwave -> Picture
 drawLinearShockwave lw =
    setLayer BloomLayer $
        setDepth 20 $
-            pictures $
+            fold $
                theArc
                    ++ [ lineCol $ zip (reverse lps) $ map (`withAlpha` white) [0, 0.05 ..]
                       , lineCol $ zip (reverse rps) $ map (`withAlpha` white) [0, 0.05 ..]