Dynamics.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

-------------------------------------------------------------------------------------
-- |
-- Copyright   : (c) Hans Hoglund 2012
--
-- License     : BSD-style
--
-- Maintainer  : hans@hanshoglund.se
-- Stability   : experimental
-- Portability : portable
--
-------------------------------------------------------------------------------------

module Music.MusicXml.Dynamics (

    Dynamics(..)

  ) where

import Music.Dynamics.Literal

data Dynamics 
    = PPPPPP 
    | PPPPP 
    | PPPP 
    | PPP 
    | PP 
    | P 
    | MP 
    | MF 
    | F 
    | FF 
    | FFF 
    | FFFF 
    | FFFFF 
    | FFFFFF
    | SF 
    | SFP 
    | SFPP
    | FP 
    | RF 
    | RFZ 
    | SFZ 
    | SFFZ 
    | FZ
    deriving (Eq, Ord, Show, Enum, Bounded)

instance IsDynamics Dynamics where
    fromDynamics (DynamicsL (Just x, Nothing)) = case x of
        (-6.5) -> PPPPPP
        (-5.5) -> PPPPP
        (-4.5) -> PPPP
        (-3.5) -> PPP
        (-2.5) -> PP
        (-1.5) -> P
        (-0.5) -> MP
        0.5    -> MF
        1.5    -> F
        2.5    -> FF
        3.5    -> FFF
        4.5    -> FFFF
        5.5    -> FFFFF
        6.5    -> FFFFFF
    fromDynamics _ = error "fromDynamics: Unsupported literal for MusicXml.Dynamics"