Commit before attempting to unify hammers for used items

2022-07-07 07:24:42 +01:00
parent 0eb2fdc37e
commit 9159281f85
12 changed files with 85 additions and 56 deletions
@@ -8,4 +8,5 @@ drawBul :: Particle -> Picture
 drawBul pt = setLayer BloomNoZWrite
    . setDepth 20 
    . color (_ptColor pt) 
-    $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)
+    -- $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)
+    $ thickLine (_ptWidth pt) (take 2 $ _ptTrail pt)
@@ -73,6 +73,7 @@ colSparkRandDir randDir time col pos baseDir w = w
    dir = a + baseDir
    spark = BulletPt
        { _ptDraw = drawBul
+        --{ _ptDraw = const mempty
        , _ptUpdate = mvBullet
        , _btDrag   = 0.9
        , _ptVel = rotateV dir (V2 5 0)