Add missing dependencies, fix arc rendering

2021-08-28 16:22:21 +01:00
parent 4e97a1998c
commit c36654520d
9 changed files with 77 additions and 15 deletions
@@ -50,7 +50,7 @@ Shockwave picture.
 drawShockwave :: Particle -> Picture
 drawShockwave pt = pic 
  where
-    pic = setDepth 20 . uncurryV translate p 
+    pic = setDepth 20 . setLayer 1 . uncurryV translate p 
                          $ color (_btColor' pt) $ thickCircle rad thickness
    p    = _btPos' pt
    r    = _btRad' pt