added pitch rate for particles

This commit is contained in:
nek0 2016-12-20 04:15:48 +01:00
parent ab976b4af6
commit 954c70b31b
1 changed files with 5 additions and 4 deletions

View File

@ -128,10 +128,11 @@ data DrawType
-- | A single particle
data Particle = Particle
{ particleLife :: Double -- ^ Time to live in seconds
, particlePosition :: (Double, Double) -- ^ Position of particle on canvas
, particleRotation :: Double -- ^ Particle rotation
, particleVelocity :: (Int, Int) -- ^ particle velocity as vector of pixels per second
{ particleLife :: Double -- ^ Time to live in seconds
, 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