Continue work on bullet drawing

2023-01-12 16:09:19 +00:00
parent d08b6c5727
commit 1c9923bb91
4 changed files with 38 additions and 10 deletions
@@ -106,7 +106,7 @@ makeFragBullets p w = w & cWorld . lWorld . instantBullets .++~ bus
    bus = zipWith f (take 10 as) (take 10 ss)
    as = randomRs (0, 2 * pi) $ _randGen w
    ss = randomRs (5, 15) $ _randGen w
-    f a s = defaultBullet & buVel .~ s *.* (unitVectorAtAngle a)
+    f a s = defaultBullet & buVel .~ s *.* unitVectorAtAngle a
        & buDrag .~ 0.8
        & buPos .~ p 
        & buOldPos .~ p