X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=chopin-prelude-op28-no20.ly;fp=chopin-prelude-op28-no20.ly;h=e4db1428fd7e01ee63ec5206bfa025dae929d74f;hb=d4413d5e258a1387025e91e1b5a805cb7c7723e6;hp=0000000000000000000000000000000000000000;hpb=e763d513834a12aa56fa387de9a731a71f80dafd;p=music diff --git a/chopin-prelude-op28-no20.ly b/chopin-prelude-op28-no20.ly new file mode 100644 index 0000000..e4db142 --- /dev/null +++ b/chopin-prelude-op28-no20.ly @@ -0,0 +1,221 @@ +\version "2.16.0" + +\header { + enteredby = "Magnus Lewis-Smith" + maintainer = "Magnus Lewis-Smith" + maintainerEmail = "mlewissmith (at) users.sourceforge.net" + copyright = "Public Domain" + filename = "chopin.prelude.op28.no20.ly" + title = "Prelude" + subtitle = "'Funeral March'" + opus = "Op. 28, No. 20" + composer = "Frederic Chopin (1810-1849)" + style = "Classical" + source = "Edition Peters" + lastupdated = "20 Sep 2004" + + mutopiainstrument = "Piano" + mutopiatitle = "Prelude: Op. 28, No. 20" + mutopiacomposer = "ChopinFF" + mutopiaopus = "Op. 28" + mutopiastyle = "Romantic" + mutopiadate = "1838/39" + + footer = "Mutopia-2011/06/19-472" + 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 } } } } +} + + + % "PRELUDE Op28 No20" + % Frederic Chopin + % + % Please see "header.ly" for more information + +\include "english.ly" + +\paper { + %{ comment out for mutopiaproject } + %#(set-paper-size "letter") + %bottom-margin = 13 + %annotate-spacing = ##t + %indent = #0 + %ragged-right = ##t + %{ %} + page-count = 1 + #(layout-set-staff-size 20) + between-system-space = 5 + between-system-padding = 1 + ragged-bottom = ##t + ragged-last-bottom = ##f +} +\pointAndClickOff + + +shortStem = \once \override Stem #'length-fraction = #(magstep -4) + +barRest = { s1 } + + +playRH = \relative g { + \clef bass + \key c \minor + \time 4/4 + \tempo 4 = 42 + \set Score.tempoHideNote = ##t + % 1 - 4 + \once\override PhrasingSlur #'height-limit = #5 + \once\override TextScript #'extra-offset = #'( -4 . 1.5 ) + 4\(^\markup{\bold\large Largo} << { \shortStem 8. \shortStem 16 } \\ + { 4 } >> \) | + \once\override PhrasingSlur #'height-limit = #5 + 4\( << { \shortStem 8. \shortStem 16 } \\ + { 4 } >> 4\) | + \once\override PhrasingSlur #'height-limit = #4 + % \once\override PhrasingSlur #'attachment = #'(head . stem) + 4\( << { \shortStem g'8. \shortStem f16 } \\ + { 4 } >> 4 | + 4 + \clef treble + << { b'8. a16 } \\ + { 4 } >> 4\) | + + % 5 - 8 + 4\( << { 4 } \\ + \once\override NoteColumn #'force-hshift = #1.5 + { af'8. fs16 } >> 4 | + 4 8. 16 4 | + 4 << { \stemDown 4 } \\ + { \stemUp g'8. f16 } >> 4^\markup{\italic riten.} | + \clef bass + 4 << { \shortStem ef'8. \shortStem d16 } \\ + { 4 } >> 4\) | + + % 9 - 12 + \clef treble + \once\override TextScript #'extra-offset = #'(0 . 0.5) + 4^\markup{\italic "a tempo"}\( << { 4 } \\ + \once \override NoteColumn #'force-hshift = #1.5 + { af'8. fs16 } >> 4 | + 4 8. 16 4 | + 4 << { \stemDown 4^\markup{\italic riten.} } \\ + { \stemUp g'8. f16 } >> 4 | + \clef bass + 4 << { \shortStem ef'8. \shortStem d16 } \\ + { 4 } >> 4\) | + + %13 + \clef treble + 1->\fermata +} + +playDyn = { + % 1 - 4 + s4\ff s s s | + \barRest | + s4\< s s s | + s4 s s\! s | + % 5 - 8 + s4\p s s s | + \barRest | + \barRest | + \barRest | + % 9 - 12 + s4\pp s s s | + \barRest | + \crescTextCresc + \override DynamicLineSpanner #'staff-padding = #5 + s4 s s\< s | + s s s s\! | + + % 13 + \barRest | +} + +playLH = \relative c, { + \clef bass + \key c \minor + \time 4/4 + % 1 + 4\sustainOn + \sustainOff\sustainOn + \sustainOff\sustainOn + \sustainOff\sustainOn | + % 2 + \sustainOff\sustainOn + \override TextScript #'extra-offset = #'(0.5 . -0.5) + \sustainOff_\markup{\italic simile} + \revert TextScript #'extra-offset + + | + % 3 - 4 + | + | + + % 5 - 8 + \( | + | + | + \) | + + % 9 - 12 + \( | + | + | + \override Staff.PianoPedalBracket #'shorten-pair = #'(0 . -5.0) + \)\sustainOn | + + % 13 + 1->\sustainOff\fermata +} + + + +scoreAll = { + \new PianoStaff { + %JRA-commented line below + % \override PianoStaff.VerticalAlignment #'forced-distance = #13 % gap between staves -- default 12 + %JRA- + \set PianoStaff.midiInstrument = "acoustic grand" + %% \accidentalStyle "piano" + << + \context Staff = "rh" { + %% \override Staff.TextScript #'staff-padding = #2 + \override Staff.DynamicLineSpanner #'staff-padding = #3.5 % (forced-distance - 6) / 2 + %% \override Staff.Hairpin #'minimum-length = #3 + << + \playRH + \playDyn + >> + \bar "|." + } + \context Staff = "lh" { + \set Staff.pedalSustainStyle = #'bracket + %% \override Staff.PianoPedalBracket #'shorten-pair = #'(0 . -1.0) + \playLH + \bar "|." + } + >> + } +} + + +\score +{ + + { + \scoreAll + } + \layout {} + \midi { + %% Remove the dynamics from the midi output + \context { + \Voice + \remove "Dynamic_performer" + %\remove "Span_dynamic_performer" + } + } +} + + + +