%{ Transcribed by Benjamin Bloomfield September 6, 2004 Corrected some minor errors, and fixed the pagination on October 9, 2005 Fixed the margins on November 19, 2005 %} \version "2.6.3" % necessary for upgrading to future LilyPond versions. \include "english.ly" \header { title = "EL CAPITAN." subtitle = "MARCH." composer = "JOHN PHILIP SOUSA." mutopiatitle = "El Capitan" mutopiacomposer = "SousaJP" mutopiainstrument = "Piano" date = "1895" source = "The John Church Company" style = "Classical" maintainer = "Benjamin Bloomfield" maintainerEmail = "bhb123@gmail.com" license = "Public Domain" lastupdated = "2005/November/19" footer = "Mutopia-2005/11/20-600" copyright = \markup { \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7) \box \center-align { \small \line { Sheet music from \with-url #"http://www.MutopiaProject.org" \line { \teeny www. \hspace #-1.0 MutopiaProject \hspace #-1.0 \teeny .org \hspace #0.5 } • \hspace #0.5 \italic Free to download, with the \italic freedom to distribute, modify and perform. } \line { \small \line { Typeset using \with-url #"http://www.LilyPond.org" \line { \teeny www. \hspace #-1.0 LilyPond \hspace #-1.0 \teeny .org } by \maintainer \hspace #-1.0 . \hspace #0.5 Reference: \footer } } \line { \teeny \line { This sheet music has been placed in the public domain by the typesetter, for details see: \hspace #-0.5 \with-url #"http://creativecommons.org/licenses/publicdomain" http://creativecommons.org/licenses/publicdomain } } } } } \paper { betweensystempadding = #0.25 raggedlastbottom=##f } upper = \relative c'' { \clef treble \key c \major \time 6/8 % introduction 8-. -. -. 4^^ 8 | 4-^ 8 4-^ 8 | 8 4 8 | 4 r8 4^^ g,8 \break % first theme \repeat volta 2 { 8^^ r8 r d4. | e8[ r c] e[ r e] | ^^[ r c,] e[ d c] | [ r ] [ r f] | ^^ r r e4. | \break f=''8[ r d] f[ r f] | ^^[ r f] d[ c b] | [ r e] e4 e8 | ^^\arpeggio r r c,=''4.( | b4. a) | \break 8^^\arpeggio r r c,4.( | b4. a) | 8\arpeggio r r <<{\stemDown e4.( | d4. c | \stemUp b4.\override Voice.Stem #'thickness = #3.0 a) } \\ \stemDown {s4.*3 d,4\rest g8 c,4\rest fsharp8} >> | \stemNeutral g4. ~ g4 g8 } % end first theme (upper) \pageBreak % second theme (upper) 4.^^ ^^ | ^^ ^^ | 2. ~ 4 e8^. e^.[ d^. c^.] | b_.[ r g] b[ r g] \break \noPageBreak b4 f'8^. f^.[ e^. d^.] | e^.[ r c^.] e^.[ r c^.] | e4. ^^ | ^^ ^^ | ^^ ^^ \break \noPageBreak 2. ~ 4 c,,8 c[ d ds] | e^^[ r c] e[ r c] | r r 4. | c8[ g_. g_.] g_.[ g_. g_.] | \stemDown g[ ^. ^.] ^.[ ] \stemNeutral \break \noPageBreak 4.^^ ^^ | ^^ ^^ | 2. ~ 4 e8^. e^.[ d^. c^.] | b[ r g] b_.[ r g] \break \noPageBreak b4 f'8^. f^.[ e^. d] | e^.[ r c^.] e^.[ r c^.] | e4. ^^ | ^^ ^^ | ^^ ^^ \break \noPageBreak 2. ~ 4 c,,8 c[ d ds] | e^^[ r c] e[ r c] | r r 4. | c8[ g g] g[ g ] | 4 r8 4 c8 \bar "||" % end second theme (upper) \pageBreak % begin third theme (upper) \override Staff.TimeSignature #'style = #'() \key f \major \time 2/4 8.[ 16] 8.[ 16] | 8[ ] | 16^([ gs' a8]) r ^^ | 4. a8 | 16[^( a bf8]) r ^^ \break \noPageBreak 4.^^ 8 | 16[( b c8]) r8 ^^ | 4.( 8) | 8.^> 16[ 8. 16] | 8[ ] \break \noPageBreak 16[( gs' a8]) r8 ^^ | 4.^^ 8 | 16[( b' c8)] r8 c | << {\stemUp b16[( a b8]) } \\ \stemDown f4 >> \stemNeutral r8 | r \acciaccatura b'8 c4^> | \acciaccatura b,8 c4^> ^> \break \noPageBreak 8.^>[ 16] 8.[ 16] | 8[ ] | 16^([ gs' a8]) r ^^ | << { \stemDown 4.^^ \stemUp a8 } \\ { \stemDown s8 16[ ] 8[ f] } >> | \stemNeutral 16[^( a bf8]) r ^^ << { \stemDown 4.^^ \stemUp bf8 } \\ { \stemDown s8 16[ ] 8[ g] } >> \stemNeutral \break \noPageBreak 16[( b c8]) r8 ^^ | 4.( 8) | 8.^> 16[ 8. 16] | 8[ ] 16[^( gs' a8]) r8 ^^ | << { \stemDown 4.^^ \stemUp a8 } \\ { \stemDown s8 16[ ] 8[ f]} >> \stemNeutral \break \noPageBreak 16[^( as b8]) r8 | 4 | 2 | 16([ a' f a] f[ a f a]) | e([ a e a] e[ a e a]) \pageBreak % begin fourth page ^([ a' f a] f[ a f a] | e[ a f a] e[ a f a] | e[ a f a] e[ a f a] | 4) 4 ~ 4 4 | 2^^ \break 4^^ ^^ | 8^^[ ^^] 4^^ | r8 ^^[ ^^ ^^] | 2^^ | 4^^ 4^^ | 8^^[ ^^] 4^^ \break r8 c'[ c] | 2^^ | 4^^ ^^ | 8^^[ ^^] 4^^ | r8 [ ] | << \stemUp {df'2 ~ \break df8} \\ \stemDown {df,8[ 16 ] 8[ ] \break b8\rest} >> 8^.[ ^. ^.] | 8[ 16 ] 8[ ] | 8[ ^> ^> ^>] | 2^^ | 4^^ ^^ | 8^^[ ^^] 4^^ \break r8 [ ] | 2^^ | 4^^ 4^^ | 8^^[ ^^] 4^^ r8 c'[ c] | 2^^ | 4^^ ^^ \break 8^^[ ^^] 4^^ | r8 ^^[ ^^ ^^] | << \stemUp {df'2 ~ df8 s4.} \\ \stemDown {df,8[ 16 ] 8[ ] | df'8[ ^. ^.]} >> | << \stemUp { 2( | \stemDown 8^>)} \\ \stemDown { r8 [ ] | s8 } >> r8 r4 \bar "|." } lower = \relative c { \clef bass \key c \major \time 6/8 % introduction 8-. -. -. 4 8 | 4^^ 8 4^^ 8 | 8 4 8 | 4 r8 4^^ r8 \break \noPageBreak % first theme \repeat volta 2 { c,=8[ r ] g,[ r ] | c,=[ r ] g,[ r ] | c,=[ r ] g,[ r ] | d=[ r ] g,[ r ] | d=[ r ] g,[ r ] | \break \noPageBreak d=[ r ] g,[ r ] | d=[ r ] g,[ r ] | c=[ r ] g,[ r ] | a,[ r ] [ r ] | [ r ] [ r ] | \break \noPageBreak % merge the noteheads \override Staff.NoteCollision #'merge-differently-dotted = ##t a,8[ r ] [ r ] | 8[ r ] [ r ] | a[ r e'] << \stemUp {c4. | \stemDown b a | d, e} \\ \stemDown {c'8[ r ] | \stemUp b[ a\rest ] a[ a\rest ] | d,[ f\rest ] e,[ f\rest ]} >> | \stemNeutral 8[ f\rest ] 4 r8 } % end first theme (lower) % second theme (lower) 8[ r ] d,-^[ r ] | c-^[ r ] a,-^[ r ] | e,[ r ] [ r ] | [ r ] [ r ] | d[r ] g,[ r ] \break \noPageBreak d8[ r ] g,[ r ] | c[ r ] g,[ r ] | c[ r ] g,[ r ] | [ r ] d,[ r ] | c[ r ] a,[ r ] \break \noPageBreak f,[ r ] [ r ] | f[ r ] 4. | 8[ r ] [ r ] | [ r ] [ r ] | r r r4 8 | 4 8 8_> r r \break \noPageBreak 8[ r ] d,-^[ r ] | c[ r ] a,[ r ] | e,[ r ] [ r ] | [ r ] [ r ] | d[ r ] g,[ r ] \break \noPageBreak d[ r ] g,[ r ] | c[ r ] g,[ r ] | c[ r ] g,[ r ] | [ r ] d,[ r ] | c[r ] a,[ r ] \break \noPageBreak f,[r ] [ r ] | f[r ] 4. | 8[ r ] [ r ] | [r ] [ r ] | r r r4 8 | 4 r8 4 r8 % end second theme (lower) \break % begin third theme (lower) \override Staff.TimeSignature #'style = #'() \key f \major \time 2/4 f8[ ] c,[ ] | f[ ] c,[ ] | f[ ] c,[ ] | f[ ] c,[ ] | g[ ] c,[ ] \break \noPageBreak g[ ] c,[ ] | f[ ] c,[ ] | f[ ] 4-> | f,8->[ ] c,[ ] | f->[ ] c,[ ] \break \noPageBreak f[ ] c,[ ] | f[ ] c,[ ] | g,[ ] g,[ ] | g,[ ] g,[ ] | r \acciaccatura b' c4-> | \acciaccatura b,8 c4-> -> \break \noPageBreak f8^>[ ] c,[ ] | f^>[ ] c,[ ] | f^>[ ] c,[ ] | f[ ] c,[ ] | g[ ] c,[ ] g[ ] c,[ ] | \break \noPageBreak f[ ] c,[ ] | f[ ] 4-> | f,8->[ ] c,[ ] | f[ ] c,[ ] f[ ] c,[ ] | f[ ] c,[ ] | \break \noPageBreak e[ ] e[ ] | e[ ] e[ ] | a,[ ] | [ ] | [ ] % end third page (lower) \break % begin fourth page (lower) [ ] | [ ] | [ ] | 4 4 ~ 4 4 | \stemDown 8[ ] c,[ ] \stemNeutral \break \noPageBreak f[ ] c,[ ] | f[ ] c,[ ] | f[ ] c,[ ] | [ ] c,[ ] | g[ ] c,[ ] | f[ ] c,[ ] \break \noPageBreak 2 | f8->[ ] c,[ ] | f->[ ] c,[ ] | f->[ ] c,[ ] | f[ ] c,[ ] | bf,[ ] bf,[ ] \break \noPageBreak c[ ] c,[ ] | [ ] | r r4 | 8[ ] c,[ ] f[ ] c,[ ] | f[ ] c,[ ] | \break \noPageBreak f[ ] c,[ ] | g[ ] c,[ ] | g[ ] c,[ ] | f[ ] c,[ ] 2-> | 8[ c, ] | f[ ] c,[ ] \break \noPageBreak f[ ] c,[ ] f[ ] c,[ ] bf,[ ] bf,[ ] | c[ ] c,[ ] | ->[ ] | -> r r4 \bar "|." } dynamics = { % introduction s2.*4 % first theme (first line) s4.\f s4.\p s2.*3 s4.\f s\p % (skip second line) s2.*5 % (skip third line) s2.*6 % second theme (and page) s2.\f\< | s4. s4.\! | s2.*3 s2.*2 | s4. s4.\f\< | s4. s4 s8\! | s2. s2. | s8 s4\f s4\< s8\! s2.*4 s4.\f s4.\< s4. s8 s4\! s2.*3 s2.*2 s4. s4.\f\< s4. s4.\! s2. s2. s4. s4\f\< s8\! s2.*4 % end second theme % start third theme s2\p | s2 | s16 s16\< s8 s4\! | s2*2 s2*2 | s8\< s8\! s8\> s8\! | s2*2 s2*3 | s2\< | s2\! | s2 s2\p | s2*5 s4. s8\< | s8\! s4\> s8\! | s2*4 s2*2 | s4.\< s8\! | s2*2 % begin fourth page s2*4 s4\< s4\! s8\f \once \override TextScript #'extra-offset = #'( -1 . -1.5 ) s4.^\markup { \italic \fontsize #0 grandioso } s2*6 s2*6 s2*2 s4.\< s8\! s16 s1*7/16\fff s2*2 s2*7 s2*6 } pedal = { % skip to 13th measure s2.*12 s4.\sustainDown s4.\sustainUp } #(set-global-staff-size 18.75) \score { \context PianoStaff << \context Staff=upper \upper \context Dynamics=dynamics \dynamics \context Staff=lower << \clef bass \lower >> \context Dynamics=pedal \pedal >> \layout { betweensystemspace = 1\mm \context { \type "Engraver_group_engraver" \name Dynamics \alias Voice % So that \cresc works, for example. \consists "Output_property_engraver" minimumVerticalExtent = #'(-1 . 1) pedalSustainStrings = #'("Ped." "*Ped." "*") pedalUnaCordaStrings = #'("una corda" "" "tre corde") \consists "Piano_pedal_engraver" \consists "Script_engraver" \consists "Dynamic_engraver" \consists "Text_engraver" \override TextScript #'font-size = #2 \override TextScript #'font-shape = #'italic \override DynamicText #'extra-offset = #'(0 . 2.5) \override Hairpin #'extra-offset = #'(0 . 2.5) \consists "Skip_event_swallow_translator" \consists "Axis_group_engraver" } \context { \PianoStaff \accepts Dynamics \override VerticalAlignment #'forced-distance = #5.25 } } } \score { \context PianoStaff << \set Staff.minimumVerticalExtent = #'(-1 . 1) \context Staff=upper << \set Staff.minimumVerticalExtent = #'(-1 . 1) \upper \dynamics >> \context Staff=lower << \set Staff.minimumVerticalExtent = #'(-1 . 1) \lower \dynamics >> \context Dynamics=pedal \pedal >> \midi { \tempo 4=180 \context { \type "Performer_group_performer" \name Dynamics \consists "Piano_pedal_performer" } \context { \PianoStaff \accepts Dynamics } } }