herald-0.1.0.1: src/Herald/Score/Dynamic.hs

-- | Dynamics as gains relative to 'mezzoForte', where voices start.
module Herald.Score.Dynamic
  ( Dynamic (..),
    pianissimo,
    piano,
    mezzoPiano,
    mezzoForte,
    forte,
    fortissimo,
  )
where

-- | A loudness.
newtype Dynamic = Dynamic {dynamicGain :: Double}
  deriving (Show, Eq, Ord)

-- | From /pp/ to /ff/.
pianissimo, piano, mezzoPiano, mezzoForte, forte, fortissimo :: Dynamic
pianissimo = Dynamic 0.35
piano = Dynamic 0.5
mezzoPiano = Dynamic 0.7
mezzoForte = Dynamic 1
forte = Dynamic 1.4
fortissimo = Dynamic 2