module Music.Typesetting.Literal.Dynamic where
import Music.Theory.Dynamic_Mark
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)