-- | Dynamic mark literals.
module Music.Typesetting.Literal.Dynamic where

import Music.Theory.Dynamic_Mark {- hmt -}

import Music.Typesetting.Literal
import Music.Typesetting.Model

niente,pppp,ppp,pp,p,mp,mf,f,ff,fff,ffff,fp,sfz :: N_Annotation
niente = dynamic_mark Niente
pppp = dynamic_mark PPPP
ppp = dynamic_mark PPP
pp = dynamic_mark PP
p = dynamic_mark P
mp = dynamic_mark MP
mf = dynamic_mark MF
f = dynamic_mark F
ff = dynamic_mark FF
fff = dynamic_mark FFF
ffff = dynamic_mark FFFF
fp = dynamic_mark FP
sfz = dynamic_mark SFZ

cresc,dim,end_hairpin :: N_Annotation
cresc = N_Direction (D_Hairpin Crescendo)
dim = N_Direction (D_Hairpin Diminuendo)
end_hairpin = N_Direction (D_Hairpin End_Hairpin)