module Dodge.Item.Weapon.Shell (
    decTimMvVel,
) where

import Control.Lens
import Dodge.Data.World
import Geometry.Vector

decTimMvVel :: Proj -> World -> World
decTimMvVel pj =
    cWorld . lWorld . projectiles . ix pjid
        %~ ( (prjTimer -~ 1)
                . (prjPos %~ (+.+ vel))
                . (prjAcc %~ rotateV rot)
           )
  where
    rot = _prjSpin pj
    vel = _prjVel pj
    pjid = _prjID pj