added pitch rate for particles

This commit is contained in:
nek0 2016-12-20 04:15:48 +01:00
parent ab976b4af6
commit 954c70b31b

View file

@ -132,6 +132,7 @@ data Particle = Particle
, particlePosition :: (Double, Double) -- ^ Position of particle on canvas
, particleRotation :: Double -- ^ Particle rotation
, particleVelocity :: (Int, Int) -- ^ particle velocity as vector of pixels per second
, particlePitchRate :: Double -- ^ Rotational velocity of particle
} deriving (Show, Eq)
data ParticleSystem = ParticleSystem