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

@ -128,10 +128,11 @@ data DrawType
-- | A single particle -- | A single particle
data Particle = Particle data Particle = Particle
{ particleLife :: Double -- ^ Time to live in seconds { particleLife :: Double -- ^ Time to live in seconds
, particlePosition :: (Double, Double) -- ^ Position of particle on canvas , particlePosition :: (Double, Double) -- ^ Position of particle on canvas
, particleRotation :: Double -- ^ Particle rotation , particleRotation :: Double -- ^ Particle rotation
, particleVelocity :: (Int, Int) -- ^ particle velocity as vector of pixels per second , particleVelocity :: (Int, Int) -- ^ particle velocity as vector of pixels per second
, particlePitchRate :: Double -- ^ Rotational velocity of particle
} deriving (Show, Eq) } deriving (Show, Eq)
data ParticleSystem = ParticleSystem data ParticleSystem = ParticleSystem