Cleanup

2021-12-15 22:21:58 +00:00
parent 9dadea2c36
commit 9ead5b3979
11 changed files with 130 additions and 174 deletions
@@ -5,6 +5,7 @@ import Dodge.Data
 import Picture

 drawBul :: Particle -> Picture
-drawBul pt = setLayer 1 . setDepth 20 . color thecolor $ thickLine (take 3 $ _btTrail' pt) (_btWidth' pt)
-  where
-    thecolor = _btColor' pt
+drawBul pt = setLayer 1 
+    . setDepth 20 
+    . color (_ptColor pt) 
+    $ thickLine (take 3 $ _ptTrail pt) (_btWidth' pt)