From 954c70b31b3dd21361ac0f4b47a6eb2395cbca27 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 20 Dec 2016 04:15:48 +0100 Subject: [PATCH] added pitch rate for particles --- src/Affection/Types.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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