Cleanup launcher code

2022-03-01 20:16:41 +00:00
parent 910542a96a
commit a2ffeaa852
2 changed files with 73 additions and 137 deletions
@@ -1,7 +1,6 @@
 module Dodge.Item.Weapon.Shell
    ( decTimMvVel
-    )
-    where
+    ) where
 import Dodge.Data
 import Geometry.Vector

@@ -16,14 +15,3 @@ decTimMvVel pj = props . ix pjid %~
    rot = _pjSpin pj
    vel = _pjVel pj
    pjid = _pjID pj
-
--pjAutoSpin :: Projectile -> World -> World
--pjAutoSpin pj = projectiles . ix pjid %~
--    ( (pjDir -~ 1) 
--    . (pjPos   %~ (+.+ vel) )
--    . (pjAcc   %~ rotateV rot )
--    )
--  where
--    rot = _pjSpin pj
--    vel = _pjVel pj
--    pjid = _pjID pj