Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -6,7 +6,7 @@ import Picture
 drawTargetLaser :: Laser -> Picture
 drawTargetLaser pt =
    setLayer BloomNoZWrite $
-        pictures
+        fold
            [ setDepth 19 . color (brightX 0 0.5 col) $ thickLine 5 (sp : ps)
            , setDepth 19.5 . color (brightX 5 1 col) $ thickLine 1 (sp : ps)
            ]