The first phrase of the flute part of "Stars and Stripes Forever."
> module Euterpea.Examples.SSF where
> import Euterpea
>
> legato = Legato (11/10)
> staccato = Staccato (5/10)
>
> ssfMelody = line (m1 ++ m2 ++ m3 ++ m4)
> m1 = [ trilln 2 5 (bf 6 en),
> Modify (Phrase [Art staccato]) (line [ef 7 en,
> ef 6 en,
> ef 7 en])]
>
> m2 = [Modify (Phrase [Art legato]) (line [bf 6 sn,
> c 7 sn,
> bf 6 sn,
> g 6 sn]),
> Modify (Phrase [Art staccato]) (line [ef 6 en,
> bf 5 en])]
>
> m3 = [Modify (Phrase [Art legato]) (line [ef 6 sn,
> f 6 sn,
> g 6 sn,
> af 6 sn]),
> Modify (Phrase [Art staccato]) (line [bf 6 en,
> ef 7 en])]
>
> m4 = [ trill 2 tn (bf 6 qn),
> bf 6 sn,
> denr]
>
> ssf = Modify (Instrument Flute) ssfMelody