Cleanup

2022-06-08 22:34:29 +01:00
parent 970858e129
commit 4e4759fb1c
17 changed files with 77 additions and 112 deletions
@@ -8,7 +8,7 @@ import Control.Lens
 decTimMvVel :: Prop -> World -> World
 decTimMvVel pj = props . ix pjid %~
    ( (pjTimer -~ 1) 
-    . (pjPos   %~ (+.+ vel) )
+    . (prPos   %~ (+.+ vel) )
    . (pjAcc   %~ rotateV rot )
    )
  where