module Music.Dynamics.Literal (
DynamicsL(..),
IsDynamics(..),
pppppp, ppppp, pppp, ppp, pp, _p,
mp, mf,
_f, ff, fff, ffff, fffff, ffffff,
sffz, sfz, fz, rfz, fp
) where
newtype DynamicsL = DynamicsL { getDynamicsL :: (Maybe Double, Maybe Double) }
deriving (Eq, Show, Ord)
class IsDynamics a where
fromDynamics :: DynamicsL -> a
instance IsDynamics DynamicsL where
fromDynamics = id
instance IsDynamics a => IsDynamics (Maybe a) where
fromDynamics = Just . fromDynamics
instance IsDynamics Double where
fromDynamics (DynamicsL (Just x, _)) = x
fromDynamics (DynamicsL (Nothing, _)) = error "IsDynamics Double: No dynamics"
pppppp, ppppp, pppp, ppp, pp, _p, mp, mf, _f, ff, fff, ffff, fffff, ffffff :: IsDynamics a => a
sffz, sfz, fz, rfz, fp :: IsDynamics a => a
pppppp = fromDynamics $ DynamicsL (Just $ 6.5, Nothing)
ppppp = fromDynamics $ DynamicsL (Just $ 5.5, Nothing)
pppp = fromDynamics $ DynamicsL (Just $ 4.5, Nothing)
ppp = fromDynamics $ DynamicsL (Just $ 3.5, Nothing)
pp = fromDynamics $ DynamicsL (Just $ 2.5, Nothing)
_p = fromDynamics $ DynamicsL (Just $ 1.5, Nothing)
mp = fromDynamics $ DynamicsL (Just $ 0.5, Nothing)
mf = fromDynamics $ DynamicsL (Just $ 0.5, Nothing)
_f = fromDynamics $ DynamicsL (Just $ 1.5, Nothing)
ff = fromDynamics $ DynamicsL (Just $ 2.5, Nothing)
fff = fromDynamics $ DynamicsL (Just $ 3.5, Nothing)
ffff = fromDynamics $ DynamicsL (Just $ 4.5, Nothing)
fffff = fromDynamics $ DynamicsL (Just $ 5.5, Nothing)
ffffff = fromDynamics $ DynamicsL (Just $ 6.5, Nothing)
sffz = error "Not supported yet"
sfz = error "Not supported yet"
fz = error "Not supported yet"
rfz = error "Not supported yet"
fp = error "Not supported yet"