input/bugs/RondoAllaTurca.ly

   1 \include "paper20.ly"
   2 \version "1.4.7"
   3 \header {
   4   title = "Rondo Alla Turca"
   5   subtitle = "Turkish March"
   6   composer = "W. A. Mozart"
   7   piece = "\\quad \\quad \\quad \\quad \\quad Allegretto"
   8   mutopiatitle = "Rondo Alla Turca"
   9   mutopiacomposer = "W. A. Mozart (1756-1791)"
  10   mutopiainstrument = "Piano"
  11   style = "classical"
  12   copyright = "Public Domain"
  13   maintainer = "Rune Zedeler"
  14   maintainerEmail = "rz@daimi.au.dk"
  15   lastupdated = "2001/sep/15"
  16   tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small \\\\This music is part of the Mutopia project, \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset and placed in the public domain by " + \maintainer + " (" + \maintainerEmail + ").\\\\Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}"
  17 }
  18
  19 volta = "volta"
  20
  21 \include "deutsch.ly";
  22
  23 #(define (remove-scripts music)
  24   (let* ((es (ly-get-mus-property music 'elements))
  25          (e (ly-get-mus-property music 'element))
  26          (body (ly-get-mus-property music 'body))
  27          (alts (ly-get-mus-property music 'alternatives)))
  28
  29     (if (pair? es)
  30         (begin
  31          (ly-set-mus-property
  32           music 'elements
  33           (map (lambda (x) (remove-scripts x)) es))
  34          (let recurse ((elts (ly-get-mus-property music 'elements)))
  35            (if (and (pair? elts) (pair? (cdr elts)))
  36              (let ((name (ly-music-name (cadr elts))))
  37                (if (or (equal? name "Articulation_req") (equal? name "Text_script_req"))
  38                  (begin
  39                    (set-cdr! elts (cddr elts))
  40                    (recurse elts))
  41                  (recurse (cdr elts))))))))
  42
  43     (if (music? alts)
  44         (ly-set-mus-property
  45          music 'alternatives
  46          (remove-scripts alts)))
  47
  48     (if (music? body)
  49         (ly-set-mus-property
  50          music 'body
  51          (remove-scripts body)))
  52
  53     (if (music? e)
  54         (ly-set-mus-property
  55          music 'element
  56          (remove-scripts e)))
  57     music))
  58
  59 righta = \notes \transpose c''' {
  60   \scriptUp
  61   \property Staff.Fingering \override #'direction = #1
  62     \partial 4 h,16-4-\p( a, gis, a,-1 | )c8-3 r d16-4( c h, c-1 | )e8-3 r f16-4( e dis e-1 | h-4 a gis a h a gis a | )c'4-\accent
  63     a8-.-3 c'-.-5 | \grace {[g!32( )a]} h8-.-5-\sfz <fis-2 a-.-4> <e g-.> <fis a-.> | \grace {[g32( )a]} h8-.-\sfz <fis-2 a-.> <e g-.> <fis a-.> | \grace {[g32( )a]} h8-.-\sfz <fis-2 a-.> <e g-.> <dis fis-.> e4--
  64 }
  65 rightaa = \notes \transpose c''' {
  66     \partial 4 h,16-4-\p( a, gis, a,-1 | )c8-3 r d16-4( c h, c-1 | )e8-3 r f16-4( e dis e-1 | h-4 a gis a h \< a gis a | \! )c'4-\accent
  67     a8-.-3 h-. | c'-.-\accent \> h-. a-.-1 \! gis-.-2 a-. e-. f-.-4 d-.-2 | c4-- h,8.-2-\trill( a,32 h, | )a,4--
  68 }
  69
  70 rightb = \notes \transpose c''' {
  71   [<c8-1-\mp e-3-.> <d! f!-.>] | <e-3 g-.-5> <e-1 g-.-3> a16-4( g f )e | \stemUp <d4-\accent-4 \context Voice = another {\stemDown \slurDown h,8-2()g, }> \stemBoth
  72   <c8-1 e-3-.> <d! f!-.> | <e-3 g-.-5> <e-1 g-.-4> a16-4( g f )e | <h,4-2-\accent d-4-->
  73   <a,8-1 c-3-.> <h, d> | <c-3 e-.-5> <c-1 e-.-3> f16-4( e d )c | \stemUp <h,4-\accent-4 \context Voice = another {\stemDown \slurDown gis,8-2()e,}> \stemBoth
  74   <a,8 c-.> <h, d> | <c e-.> <c-1 e-.> f16( e d )c | <gis,4-2-- h,-4-\accent>
  75 }
  76
  77 rightca = \notes \context Voice = voicea \relative c''' { a8-.-\f h-. | cis4-\accent a8-. h-. cis-.-\accent h-. a-. gis-. | fis-. gis-. a-. h-. gis-4( )e-.
  78 a8-. h-. | cis4-\accent a8-. h cis-.-\accent h-. a-. gis-. | fis-. h-. gis-. e-. a4
  79 }
  80 rightc = \notes < \apply #remove-scripts \rightca \transpose c \rightca >
  81 rightco = \notes \relative c''
  82 { \stemDown
  83   a16-\f( a' h, h' | cis,-\accent )cis' r8 a,16( a' h, h' cis, cis' h, h' a, a' gis, )gis' | fis,( fis' gis, gis' a, a' h, h' gis, gis' e, )e'
  84   a,16(   a' h, h' | cis,-\accent )cis' r8 a,16( a' h, h' cis, cis' h, h' a, a' gis, )gis' | fis,( fis' h, h' gis, gis' e, e'
  85 }
  86 rightcoa = \notes \context Voice < )a'4 a'' >
  87
  88 rightd = \notes \relative c''' {
  89   cis16-3-\p( d cis h a h a gis-3 fis-2 a gis fis | eis fis gis eis cis-2 dis eis cis-1 | fis-4 eis-1 fis gis a gis a-1 h | cis his cis his
  90   cis d cis )h | a( h a gis-3 fis a gis fis | e fis gis e cis-2 dis e cis | dis-3 e fis dis his-1 cis dis his | )cis4
  91 }
  92 righte = \notes \relative c''' {
  93   e,16-5(-\f d! cis h! | a h cis d-1 e fis gis a | )a-\accent-4( gis fis )e e-5( d cis h | )a-1( h cis d-1 e fis gis a ais8-\accent-3 )h-.-4
  94   e,16-5( d  cis h  | a h cis d-1 e fis gis a | )a-\accent-4( gis fis )e e-5( d cis h | cis-3 e a,-1 cis-4 h d gis,-2 h | )a4--
  95   cis'16-3-\p( d cis h a h a gis-3 fis-2 a gis fis | eis fis gis eis cis-2 dis eis )cis-1 | fis-4( \< eis-1 fis gis a gis a-1 \! h | cis his cis his
  96   cis his cis ais-2 | )d-4( \> cis d cis d cis d cis | d cis  h a gis-2 a h \! gis | a-\p h cis fis,-2 eis fis gis eis )fis4--
  97 }
  98
  99 strum = \notes \transpose c' { <
 100   \context Voice = strumUp {\stemUp cis'2-\arpeggio-\accent}
 101   \context Voice = strumDown {\stemDown < cis4-\arpeggio e a> }
 102 >
 103 \stemBoth
 104 }
 105
 106 rightf = \notes \transpose c''' {
 107   < {\stemUp cis'8. cis'16} \context Voice = another {\stemDown cis4} >
 108   \strum \strum d'16-4( )cis'-. h-. cis'-. d'( )cis'-. h-. cis' <d'2-\accent a fis>
 109   \repeat unfold 4 { \grace{d'8( } < )cis'8-. a e> } | < {\stemUp \slurUp h4.-3()e'8-. \stemBoth} \context Voice = another <gis2 e> >
 110   \strum \strum d'16-4( )cis'-. h-. cis'-. d'( )cis'-. h-. cis' <d'2-\accent a fis> \grace{d'8( } < )cis'2-. a e>
 111   \repeat unfold 4 { \grace{cis'8( } < )h8-. gis e> }
 112
 113   a4-\p-- \grace {[e32()a]} cis'8.-.-4 cis'16 \repeat unfold 2 { \grace {[e32()a]} cis'2-\accent } |
 114   d'16-4( )cis'-. h-. cis'-. d'( )cis'-. h-. cis' | d'2-\accent | \repeat unfold 4 { \grace{d'8( } ) cis'8-. } h4.-2()e'8-.
 115   <\strum s2-\f> \strum d'16-4( )cis'-. h-. cis'-. d'( )cis'-. h-. cis' <d'2-\accent a fis> \grace{d'8( } < )cis'2-. a e>
 116   \repeat unfold 4 { \grace{cis'8( } < )h8-. gis e> }
 117   <a,4. cis e a--> <cis8 cis'-.> <a,4. a--> <e8 e'-.> <a,4. a--> <cis8 cis'-.> <a, a-.> <cis8 cis'-.> <a, a-.> <e8 e'-.> <a,4 a-.>
 118   <a,4-. cis e a-.( > <) a,4-. cis e a-. > r4
 119 }
 120
 121
 122 lefta = \notes {
 123   \partial 4 r4 | a8-5( <)c' e'-.> <c' e'-.> <c' e'-.> | a8( <)c' e'-.> <c' e'-.> <c' e'-.> | a8-. <c' e'-.> a8-. <c' e'-.> | a8( <)c' e'-.> <c' e'-.> <c' e'-.> |
 124   e-. <h e'-.> <h e'-.> <h e'-.> | e-. <h e'-.> <h e'-.> <h e'-.> | e-. <h e'-.> h, h | e4--
 125 }
 126 leftaa = \notes { \partial 4
 127   r4 | a8-5( <)c' e'-.> <c' e'-.> <c' e'-.> | a8( <)c' e'-.> <c' e'-.> <c' e'-.> | a8-. <c' e'-.> a8-. <c' e'-.> | f8( <)a dis'-.> <a dis'-.> <a dis'-.> |
 128   e-. <a-. e'>  d!-. <f-. h> c-. <e-. a> d-. <f-. h> <e-. a> <e-. a> <e-. gis> <e-. gis> <a,4 a-->
 129 }
 130 leftb = \notes { \partial 4
 131   \repeat unfold 2 {r4 | c8-. c'-. e-. e'-. | g4 }
 132   \repeat unfold 2 {r4 | a,8-. a-. c-. c'-. | e4 }
 133 }
 134
 135 stra = \notes { \grace {[a,32( cis )e]} a8-. a-. }
 136 strd = \notes { \grace {[d,32( fis, )a,]} d8-. d-. }
 137 strdis = \notes { \grace {[dis,32( fis, )a,]} dis8-. dis-. }
 138 stre = \notes { \grace {[e,32( gis, )h,]} e8-. e-. }
 139 stral = \notes { \stra a8-. a-. }
 140 strdl = \notes { \strd d8-. d-. }
 141 strel = \notes { \stre e8-. e-. }
 142
 143 leftc = \notes { \partial 4
 144   r4 \stral \stral \strd \strdis \strel \stral \stral \strd \stre
 145 }
 146
 147 leftd = \notes \relative c { \partial 4
 148   r4 | fis8-5( <)a cis-.> <a cis-.> <a cis-.> |
 149   gis8-4( <)h cis-.> <h cis-.> <h cis-.> |
 150   fis8( <)a cis-.> <a cis-.> <a cis-.> |
 151   eis8( <)gis cis-.> <gis cis-.> <gis cis-.> |
 152   fis8( <)a cis-.> <a cis-.> <a cis-.> |
 153   gis8( <)cis e-.> <cis e-.> <cis e-.> |
 154   gis8( <)dis' fis-.> <dis fis-.> <dis fis-.> |
 155   <cis4 e-->
 156 }
 157
 158 lefte = \notes \relative c' { \partial 4
 159   r4 | a8( <)cis e-.> <cis e-.> <cis e-.> |
 160   h-. <d e-.> gis,-. <d' e-.> |
 161   a8( <)cis e-.> <cis e-.> <cis e-.> |
 162   e,8( <)gis d'-.> <gis d'-.> <gis d'-.> |
 163   a8( <)cis e-.> <cis e-.> <cis e-.> |
 164   h-. <d e-.> gis,-. <d' e-.> |
 165   a-. fis-. d-. e-. a,-. a'-. r4 |
 166
 167   fis8( <)a cis-.> <a cis-.> <a cis-.> |
 168   gis8( <)h cis-.> <h cis-.> <h cis-.> |
 169   fis8( <)a cis-.> <a cis-.> <a cis-.> |
 170   cis,( <)gis' cis-.> <g cis-.> <fis cis'-.> |
 171   h,8( <)fis' h-.> <fis h-.> <fis h-.> |
 172   h,8( <)gis'! h-.> <gis h-.> <gis h-.> |
 173   cis,-. <fis a-.> cis-. <gis' h-.> <fis4 a-->
 174 }
 175
 176 leftf = \notes {
 177   a8-. a8-. \stral \stral \stral \strdl \stral \strel \stral \stral \stral \strdl \stral \strel
 178   a16( e' cis' e' a e' cis' )e' \repeat unfold 6 { a16 e' cis' e' } \repeat unfold 2 { a16 fis' d' fis' } \repeat unfold 2 { a16 e' cis' e' } \repeat unfold 2 { e16 e' gis e' }
 179   \stral \stral \stral \strdl \stral \strel \stral \stral \stral \stra \stra a,4-. <a, cis e a-. ( > < )a, cis e a-. > r4
 180 }
 181
 182 global = \notes {\time 2/4 }
 183
 184 right = \notes {
 185       \global \clef G \repeat \volta 2 \righta \repeat \volta 2 {\rightb \rightaa } \key a \major \repeat \volta 2 \rightc
 186       \repeat \volta 2 \rightd \repeat \volta 2 \righte \repeat \volta 2 \rightc
 187        \key a \minor \repeat \volta 2 \righta \repeat \volta 2 {\rightb \rightaa } \key a \major \repeat \volta 2 \rightco \alternative { \rightcoa {\partial 4 \rightcoa } }
 188        \rightf \bar "|."
 189 }
 190
 191 left = \notes {
 192       \global \clef F \repeat \volta 2  \lefta \repeat \volta 2 { \leftb  \leftaa } \key a \major \repeat \volta 2 { \leftc a,4 }
 193       \repeat \volta 2 \leftd \repeat \volta 2 \lefte \repeat \volta 2 { \leftc a,4 }
 194       \key a \minor \repeat \volta 2  \lefta \repeat \volta 2 { \leftb  \leftaa } \key a \major \repeat \volta 2 \leftc \alternative { a,4 {\partial 2 \stra} }
 195       \leftf \bar "|."
 196 }
 197
 198
 199 \score { \notes
 200   \context GrandStaff <
 201     \property GrandStaff.connectArpeggios = ##t
 202     \context Staff = up {
 203       \right
 204     }
 205     \context Staff = down {
 206       \property Staff.VoltaBracket = \turnOff
 207       \left
 208     }
 209   >
 210   \paper {
 211     \translator {
 212       \GraceContext
 213       Slur \override #'direction = #-1
 214     }
 215     \translator {
 216       \ScoreContext
 217       SpacingSpanner \override #'arithmetic-basicspace = #1.8
 218       GraceAlignment \override #'horizontal-space = #-0.4
 219       PaperColumn \override #'before-grace-spacing-factor = #1.0
 220
 221     }
 222     interscoreline = 6.0 \pt
 223
 224   }
 225 }