Shamusworld >> Repos - music/blob - chopin-prelude-op28-no20.ly

   1 \version "2.16.0"
   2
   3 \header {
   4         enteredby =     "Magnus Lewis-Smith"
   5         maintainer =    "Magnus Lewis-Smith"
   6         maintainerEmail =       "mlewissmith (at) users.sourceforge.net"
   7         copyright =     "Public Domain"
   8         filename =      "chopin.prelude.op28.no20.ly"
   9         title =         "Prelude"
  10         subtitle = "'Funeral March'"
  11         opus =  "Op. 28, No. 20"
  12         composer =      "Frederic Chopin (1810-1849)"
  13         style = "Classical"
  14         source =        "Edition Peters"
  15         lastupdated =   "20 Sep 2004"
  16
  17         mutopiainstrument = "Piano"
  18         mutopiatitle =      "Prelude: Op. 28, No. 20"
  19         mutopiacomposer =   "ChopinFF"
  20         mutopiaopus =       "Op. 28"
  21         mutopiastyle =      "Romantic"
  22         mutopiadate =       "1838/39"
  23
  24  footer = "Mutopia-2011/06/19-472"
  25  tagline = \markup { \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7) \box \center-column { \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 } } } }
  26 }
  27
  28
  29                                 %                "PRELUDE Op28 No20"
  30                                 %                  Frederic Chopin
  31                                 %
  32                                 %    Please see "header.ly" for more information
  33
  34 \include "english.ly"
  35
  36 \paper {
  37   %{ comment out for mutopiaproject }
  38   %#(set-paper-size "letter")
  39   %bottom-margin = 13
  40   %annotate-spacing = ##t
  41   %indent = #0
  42   %ragged-right = ##t
  43   %{ %}
  44   page-count = 1
  45   #(layout-set-staff-size 20)
  46   between-system-space = 5
  47   between-system-padding = 1
  48   ragged-bottom = ##t
  49   ragged-last-bottom = ##f
  50 }
  51 \pointAndClickOff
  52
  53
  54 shortStem = \once \override Stem #'length-fraction = #(magstep -4)
  55
  56 barRest =  { s1 }
  57
  58
  59 playRH =  \relative g {
  60     \clef bass
  61     \key c \minor
  62     \time 4/4
  63     \tempo 4 = 42
  64     \set Score.tempoHideNote = ##t
  65                                % 1 - 4
  66     \once\override PhrasingSlur #'height-limit = #5
  67     \once\override TextScript #'extra-offset = #'( -4 . 1.5 )
  68     <g c ef g>4\(^\markup{\bold\large Largo} <af c ef af> << { \shortStem <ef' g>8. \shortStem <d f>16 } \\
  69                                                              { <g, b>4           } >> <ef g c ef>\) |
  70     \once\override PhrasingSlur #'height-limit = #5
  71     <ef af c ef>4\( <f af df f> << { \shortStem <c' ef>8. \shortStem <bf df>16 } \\
  72                                    { <df, ef g>4         } >> <c ef af c>4\) |
  73     \once\override PhrasingSlur #'height-limit = #4
  74    % \once\override PhrasingSlur #'attachment = #'(head . stem)
  75     <d f b d>4\( <e g bf c e> << { \shortStem g'8. \shortStem f16 } \\
  76                                   { <af, c>4 } >> <g c ef>4  |
  77     <fs c' d>4 <g b d g>
  78     \clef treble
  79     << { b'8. a16   } \\
  80        { <c, d fs>4 } >> <b d g>4\) |
  81
  82                                 % 5 - 8
  83     <ef g ef'>4\( <ef af ef'> << { <d d'>4    } \\
  84                                \once\override NoteColumn  #'force-hshift = #1.5
  85                                { af'8. fs16 } >> <d g d'>4 |
  86     <c g' c>4 <c d fs d'> <d g b>8. <c a'>16 <b d g>4 |
  87     <c g' c>4 <af c af'> << { \stemDown <g d'>4 } \\
  88                             { \stemUp g'8. f16  } >> <g, c ef>4^\markup{\italic riten.} |
  89     \clef bass
  90     <ef af c ef>4 <f af df f> << { \shortStem ef'8. \shortStem d16 } \\
  91                                  { <f, g b>4 } >> <ef g c>4\) |
  92
  93                                 % 9 - 12
  94     \clef treble
  95     \once\override TextScript #'extra-offset = #'(0 . 0.5)
  96     <ef' g ef'>4^\markup{\italic "a tempo"}\( <ef af ef'> << { <d d'>4    } \\
  97                                 \once \override NoteColumn  #'force-hshift = #1.5
  98                                 { af'8. fs16 } >> <d g d'>4 |
  99     <c g' c>4 <c d fs d'> <d g b>8. <c a'>16 <b d g>4 |
 100     <c g' c>4 <af c af'> << { \stemDown <g d'>4^\markup{\italic riten.} } \\
 101                             { \stemUp g'8. f16  } >> <g, c ef>4 |
 102     \clef bass
 103     <ef af c ef>4 <f af df f> << { \shortStem ef'8. \shortStem d16 } \\
 104                                  { <f, g b>4 } >> <ef g c>4\) |
 105
 106                                 %13
 107     \clef treble
 108     <c' ef g c>1->\fermata
 109 }
 110
 111 playDyn =  {
 112                                 % 1 - 4
 113     s4\ff s s s |
 114     \barRest |
 115     s4\< s s s |
 116     s4 s s\! s |
 117                                 % 5 - 8
 118     s4\p s s s |
 119     \barRest |
 120     \barRest |
 121     \barRest |
 122                                 % 9 - 12
 123     s4\pp s s s |
 124     \barRest |
 125     \crescTextCresc
 126     \override DynamicLineSpanner #'staff-padding = #5
 127     s4 s s\< s |
 128     s s s s\! |
 129
 130                                 % 13
 131     \barRest |
 132 }
 133
 134 playLH =  \relative c, {
 135     \clef bass
 136     \key c \minor
 137     \time 4/4
 138                                 % 1
 139     <c c'>4\sustainOn
 140     <f, f'>\sustainOff\sustainOn
 141     <g g'>\sustainOff\sustainOn
 142     <c g' c>\sustainOff\sustainOn  |
 143                                 % 2
 144     <af af'>\sustainOff\sustainOn
 145     \override TextScript #'extra-offset = #'(0.5 . -0.5)
 146     <df df,>\sustainOff_\markup{\italic simile}
 147     \revert TextScript #'extra-offset
 148     <ef ef,>
 149     <af af,> |
 150                                 % 3 - 4
 151     <g g,> <c, c,> <f f,> <c' c,> |
 152     <d, a' d> <g, g'> <d d'> <g g'> |
 153
 154                                 % 5 - 8
 155     <c c'>\( <c' c'> <b b'> <bf bf'>  |
 156     <a a'> <af af'> <g g'> <f f'>  |
 157     <ef ef'> <f f'> <b, b'> <c c'>  |
 158     <af af'> <df, df'> <g g'> <c, c'>\)  |
 159
 160                                 % 9 - 12
 161     <c' c'>\( <c' c'> <b b'> <bf bf'>  |
 162     <a a'> <af af'> <g g'> <f f'>  |
 163     <ef ef'> <f f'> <b, b'> <c c'>  |
 164     \override Staff.PianoPedalBracket #'shorten-pair = #'(0 . -5.0)
 165     <af af'> <df, df'> <g g'> <c, c'>\)\sustainOn  |
 166
 167                                 % 13
 168     <c'' g'>1->\sustainOff\fermata
 169 }
 170
 171
 172
 173 scoreAll =  {
 174     \new PianoStaff {
 175         %JRA-commented line below
 176         % \override PianoStaff.VerticalAlignment #'forced-distance = #13   % gap between staves -- default 12
 177         %JRA-
 178         \set PianoStaff.midiInstrument = "acoustic grand"
 179         %% \accidentalStyle "piano"
 180         <<
 181             \context Staff = "rh" {
 182                 %% \override Staff.TextScript #'staff-padding = #2
 183                 \override Staff.DynamicLineSpanner #'staff-padding = #3.5  % (forced-distance - 6) / 2
 184                 %% \override Staff.Hairpin #'minimum-length = #3
 185                 <<
 186                     \playRH
 187                     \playDyn
 188                 >>
 189                 \bar "|."
 190             }
 191             \context Staff = "lh" {
 192                 \set Staff.pedalSustainStyle = #'bracket
 193                 %% \override Staff.PianoPedalBracket  #'shorten-pair = #'(0 . -1.0)
 194                 \playLH
 195                 \bar "|."
 196             }
 197         >>
 198     }
 199 }
 200
 201
 202 \score
 203 {
 204
 205     {
 206         \scoreAll
 207     }
 208     \layout {}
 209     \midi {
 210         %% Remove the dynamics from the midi output
 211         \context {
 212             \Voice
 213             \remove "Dynamic_performer"
 214             %\remove "Span_dynamic_performer"
 215         }
 216     }
 217 }
 218
 219
 220
 221