diff --git a/src/Affection/Types.hs b/src/Affection/Types.hs index 93cd960..c03c124 100644 --- a/src/Affection/Types.hs +++ b/src/Affection/Types.hs @@ -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