Move line width to first argument

2022-02-10 11:31:55 +00:00
parent 700ab8d930
commit ede5a4e5d0
5 changed files with 12 additions and 12 deletions
@@ -8,4 +8,4 @@ drawBul :: Particle -> Picture
 drawBul pt = setLayer 1 
    . setDepth 20 
    . color (_ptColor pt) 
-    $ thickLine (take 3 $ _ptTrail pt) (_ptWidth pt)
+    $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)