Cleanup

2022-06-08 22:34:29 +01:00
parent 970858e129
commit 4e4759fb1c
17 changed files with 77 additions and 112 deletions
@@ -17,7 +17,7 @@ drawCircleAtFor p t = drawCircleAtForCol p t white
 drawCircleAtForCol :: Point2 -> Int -> Color -> World -> World
 drawCircleAtForCol p t col w = w & props %~
    IM.insert k Projectile 
-        { _pjPos = p
+        { _prPos = p
        , _pjStartPos = p
        , _pjVel = V2 0 0
        , _prDraw = \_ -> (,) mempty $ setDepth 20 $ uncurryV translate p $ color col $ circleSolid 20
@@ -30,7 +30,7 @@ drawCircleAtForCol p t col w = w & props %~
 drawLineForCol :: [Point2] -> Int -> Color -> World -> World
 drawLineForCol ps t col w = w & props %~
    IM.insert k Projectile 
-        { _pjPos = head ps
+        { _prPos = head ps
        , _pjStartPos = head ps
        , _pjVel = V2 0 0
        , _prDraw = \_ -> (,) mempty $ setDepth 20 $ color col $ thickLine 5 ps