Created
June 2, 2014 02:13
-
-
Save dominicus/8085e4d3e8692ca64d27 to your computer and use it in GitHub Desktop.
Shifted Notes due to Pedal
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
%%-------------------------------------------------------------------- | |
% The Mutopia Project | |
% LilyPond template for keyboard solo piece | |
%%-------------------------------------------------------------------- | |
\version "2.18.2" | |
#(set-default-paper-size "letter") | |
#(set-global-staff-size 20) | |
\paper { | |
top-margin = 8\mm %-minimum top-margin: 8mm | |
top-markup-spacing.basic-distance = #5 %-dist. from bottom of top margin to the first markup/title | |
markup-system-spacing.basic-distance = #6 %-dist. from header/title to first system | |
top-system-spacing.basic-distance = #12 %-dist. from top margin to system in pages with no titles | |
last-bottom-spacing.basic-distance = #11 %-pads music from copyright block | |
ragged-bottom = ##t | |
ragged-last-bottom = ##t | |
} | |
\header { | |
title = "Première Ballade." | |
composer = \markup "Fr.Chopin (1810-1849),Op.23" | |
poet = \markup \italic "à Mr. le Baron de Stockhausen." | |
date = "1836" | |
style = "Romantic" | |
source = "Klindworth; Bote & Bock,n.d.[1880]" % "Mikuli; Schirmer, 1894" | |
maintainer = "Javier Ruiz-Alma" | |
maintainerEmail = "javier (at) ruiz-alma.com" | |
license = "Creative Commons Attribution-ShareAlike 4.0" | |
mutopiatitle = "Première Ballade" | |
mutopiaopus = "Op.23" | |
mutopiacomposer = "ChopinFF" | |
mutopiainstrument = "Piano" | |
footer = "Mutopia-2001/01/01-0" | |
copyright = \markup { \override #'(baseline-skip . 0 ) \right-column { \sans \bold \with-url #"http://www.MutopiaProject.org" { \abs-fontsize #9 "Mutopia " \concat { \abs-fontsize #12 \with-color #white \char ##x01C0 \abs-fontsize #9 "Project " } } } \override #'(baseline-skip . 0 ) \center-column { \abs-fontsize #12 \with-color #grey \bold { \char ##x01C0 \char ##x01C0 } } \override #'(baseline-skip . 0 ) \column { \abs-fontsize #8 \sans \concat { " Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " \char ##x00A9 " " 2014 " by " \maintainer " " \char ##x2014 " " \footer } \concat { \concat { \abs-fontsize #8 \sans { " " \with-url #"http://creativecommons.org/licenses/by-sa/3.0/" "Creative Commons Attribution ShareAlike 4.0 (Unported) License " \char ##x2014 " free to distribute, modify, and perform" } } \abs-fontsize #13 \with-color #white \char ##x01C0 } } } | |
tagline = ##f | |
} | |
%--------Definitions for Chopin Ballade 1 | |
staffUp = \change Staff = "upper" | |
staffDown = \change Staff = "lower" | |
mBreak = { \break } | |
mNoBreak = { \noBreak } | |
global = { | |
\key g \minor | |
} | |
hideF = \tweak #'stencil ##f \f | |
hideP = \tweak #'stencil ##f \p | |
hideMF = \tweak #'stencil ##f \mf | |
tempoLargo = \tempo 4 = 55 | |
tempoMod = \tempo 4 = 75 | |
tempoAgitato = \tempo 4 = 80 | |
hideTempo = \set Score.tempoHideNote = ##t | |
lentoLegend = \markup \huge \right-align \bold \raise #1.5 "Lento." | |
moderatoLegend = \markup \center-align \huge \bold " Moderato." | |
fPesante = \markup \concat { \dynamic "f" \italic \larger " pesante" } | |
pDolce = \markup \concat { \dynamic "p" \italic \larger " dolce" } | |
dimTxt = \markup \italic \larger "dim." | |
espressTxt = \markup \italic \larger "espress." | |
tenutoTxt = \markup \italic \larger "tenuto" | |
pocoCresc = \markup \italic \larger "poco cresc." | |
aTempo = \markup \italic \larger "a tempo" | |
agitato = \markup \italic \larger "agitato" | |
crescTxt = \markup \italic \larger "cresc." | |
smorzTxt = \markup \italic "smorz." | |
sPiuMosso = \markup \italic \larger "sempre più mosso" | |
piuF = \markup \concat { \italic " più " \dynamic "f"} | |
menoMosso = \markup \override #'(baseline-skip . 1.7) \column { \larger \bold "Meno mosso." \italic "sotto voce" } | |
ritenSpanner = { | |
\override TextSpanner #'(bound-details left text) = \markup { \italic "ritenuto" } | |
\override TextSpanner #'(bound-details left-broken text) = ##f | |
\once \override TextSpanner #'bound-details #'right #'padding = #4.0 | |
\once \override TextSpanner #'bound-details #'right-broken #'padding = #0.5 | |
} | |
menoFSpanner = { | |
\override TextSpanner #'(bound-details left text) = \markup { \italic "poco a poco meno " \dynamic "f" } | |
\override TextSpanner #'(bound-details left-broken text) = ##f | |
} | |
piuPianoSpanner = { | |
\override TextSpanner #'(bound-details left text) = \markup { \italic "sempre più " \dynamic "p" } | |
\override TextSpanner #'(bound-details left-broken text) = ##f | |
} | |
calandoSpanner = { | |
\override TextSpanner #'(bound-details left text) = \markup { \italic "calando" } | |
\override TextSpanner #'(bound-details left-broken text) = ##f | |
} | |
piuDimSpanner = { | |
\override TextSpanner #'(bound-details left text) = \markup { \italic "più dimin. e riten." } | |
\override TextSpanner #'(bound-details left-broken text) = ##f | |
} | |
setRestDirDown = \override Rest #'direction = #down | |
setRestDirUp = \override Rest #'direction = #up | |
doubleSlursOn = \set doubleSlurs = ##t | |
doubleSlursOff = \set doubleSlurs = ##f | |
connectArpeggio = \set Staff.connectArpeggios = ##t | |
cadenzaSizeOn = { | |
\override NoteHead.font-size = #-4 | |
\override Accidental.font-size = #-4 | |
\override AccidentalCautionary.font-size = #-4 | |
\override Beam.beam-thickness = #0.28 | |
\once \override Beam.length-fraction = #0.65 | |
} | |
cadenzaSizeOff = { | |
\revert NoteHead.font-size | |
\revert Accidental.font-size | |
\revert AccidentalCautionary.font-size | |
\revert Beam.beam-thickness | |
} | |
subdivideBeamOn = { | |
\set subdivideBeams = ##t | |
\set baseMoment = #(ly:make-moment 1/4) | |
} | |
subdivideBeamOff = \set subdivideBeams = ##f | |
restDownOne = \once \override MultiMeasureRest.staff-position = #2 | |
alignBeamOne = \once \override Beam.positions = #'(-1.2 . -1.2) | |
moveNoteOne = \once \override NoteColumn #'force-hshift = #1.0 | |
moveNoteTwo = \once \override NoteColumn #'force-hshift = #1.5 | |
slashFlag = \once \override Flag.stroke-style = #"grace" | |
halfNotehead = { | |
\once \override NoteHead.stencil = #ly:text-interface::print | |
\once \override NoteHead.text = \markup \musicglyph #"noteheads.s2" | |
} | |
ignoreClashOnce = \once \override NoteColumn.ignore-collision = ##t | |
%---------Pavel's snippet from LSR to change clef at beginning of staff | |
% Append markup in the text property to the grob | |
#(define (append-markup grob old-stencil) | |
(ly:stencil-combine-at-edge | |
old-stencil X RIGHT (ly:text-interface::print grob))) | |
trebleToBass = { | |
\clef bass | |
% Fake staff clef appearance | |
\once \override Staff.Clef.glyph-name = #"clefs.G" | |
\once \override Staff.Clef.Y-offset = #-1 | |
% Append change clef to the time signature | |
\once \override Staff.TimeSignature.text = \markup { | |
\hspace #1.2 | |
\raise #1 | |
\musicglyph #"clefs.F_change" | |
} | |
\once \override Staff.TimeSignature.stencil = #(lambda (grob) | |
(append-markup grob (ly:time-signature::print grob))) | |
} | |
%------------Music | |
cadenzaOne = { | |
\stemDown \cadenzaSizeOn \alignBeamOne \subdivideBeamOn | |
\scaleDurations 2/3 { | |
ees16[ c a bes d c bes g f d ees e f fis a g f! ees] | |
} \cadenzaSizeOff \subdivideBeamOff | |
} | |
upperOne = \relative c { | |
\setRestDirUp | |
\time 4/4 \tempoLargo \hideTempo | |
\trebleToBass | |
\stemNeutral | |
c2-\hideF(\(_~^\lentoLegend c8 ees aes bes | % 1 | |
\clef treble | |
c8) aes_( ees' bes' c) aes( ees' bes' | % 2 | |
c8) g( bes aes g4 fis8)\) b,8\rest | % 3 | |
b8\rest fis'(^\(-\hideP g fis eis) fis( \times 2/3 { a g ees) } | % 4 | |
ees8. d16 \times 2/3 { f!8 ees d\) } d4 b\rest | % 5 | |
\stemNeutral b2\rest^\espressTxt c4.\( g8 | % 6 | |
bes1~ | % 7 | |
\time 6/4 \tempoMod | |
bes2.^\moderatoLegend b8\rest \stemDown \hideNotes c,8_~ | |
\unHideNotes \shiftOnn \moveNoteOne c2-\hideMF | % 8 | |
\stemUp g'2.\) d'( | % 9 | |
c2.) b8\rest \stemDown \hideNotes c,8\(_~ \unHideNotes | |
\moveNoteOne c2 | %10 | |
\stemUp g'2.\) e( | %11 | |
fis2.) b8\rest \stemDown \hideNotes c,8_~^( \unHideNotes | |
\moveNoteOne c2 | %12 | |
\stemUp g'2.) g'( | %13 | |
f2.) \stemDown ees,( | %14 | |
\stemUp cis'2. d)\( | %15 | |
c!2.\) b8\rest \stemDown \hideNotes c,8_~^( \unHideNotes | |
\moveNoteOne c2 | %16 | |
\stemUp g'2.) d'( | %17 | |
c2.) b8\rest \stemDown \hideNotes c,8_~^( \unHideNotes | |
\moveNoteOne c2 | %18 | |
\stemUp g'2.) e( | %19 | |
fis2.) b8\rest \stemDown \hideNotes c,8_~^\( \unHideNotes | |
\moveNoteOne c2 | %20 | |
\stemUp g'2. g' | %21 | |
g2.\)\( d | %22 | |
c2. g\)\( | %23 | |
g'2. d | %24 | |
c2. g | %25 | |
f2.\) d'~\( | %26 | |
d4 \slurDown \acciaccatura { d8 } c4 \slurNeutral b c d ees | %27 | |
ees2. d\) | %28 | |
d4\rest \acciaccatura { bes8 } a4\( gis a bes c | %29 | |
c2. bes | %30 | |
%--------------------------------------------ISSUE HERE: OBSCURED DOT! | |
\ritenSpanner a2.\startTextSpan a2~ a8 a | %31 | |
a2.\arpeggio ~ a2 a4->_~ | %32 | |
a16 bes a gis \stemDown a g'! e f f g'f e \cadenzaOne | %33 | |
\mBreak \stemNeutral | |
cis8\) b8\rest d2->\(~ d4 c g | %34 | |
bes2. fis | %35 | |
g4\)\stopTextSpan \stemUp bes'4^\aTempo s2 a4 s | %36 | |
s4 bes4 s2 aes4 s | %37 | |
s4 g s2 c,4 s | %38 | |
s4 ees s2 g,4^( <a fis> | %39 | |
<bes g>4)^\agitato <bes bes'>2 s4 <a a'>2 | %40 | |
s4 <bes bes'>2 s4 <aes aes'>2 | %41 | |
s4 <g'g,>2 s4 <c,c,>2 \slurUp | %42 | |
s4 <ees ees,>2 s4 <fis,fis,>2 ( | %43 | |
bes4-.) c,8(^\sPiuMosso bes a g g'4-.) c,8\( bes a g | %44 | |
f'!8_> c ees fis,\< c' ees fis_[ c' f! ees d c] | %45 | |
g'4-.\)-\hideF c,8( bes a g g'4-.) c,8\( bes a g | %46 | |
\stemDown | |
f'!8-> c ees fis, c' ees fis c' f! ees d c | %47 | |
<bes-\hideMF g'>4-.\) b,8\rest <g''c>( bes d, <fis bes> a d, <bes fis> a d,) | %48 | |
<g c>8( bes d <g c> bes d,<fis bes> a d,<bes fis> a d,) | %49 | |
<g c>8( bes d <g c> bes d,<fis, bes> a d,<bes fis>a d,) | %50 | |
<c'g>8( bes d <g c> bes d, <fis bes> a d,<bes fis> a d,)| %51 | |
<c'g>8( bes d <g c> bes d, <a'd,>g bes,<ees bes> d g,) | %52 | |
\stemNeutral | |
<c g>8( bes d, <a'd,> g bes, \clef bass <bes ees>d g, <g c!> bes d,)| %53 | |
\menoFSpanner | |
<c'g>8\startTextSpan\( bes d, <d'g,> c ees, <c'g> bes d, <d'g,> c ees,| %54 | |
<c'g> bes d, <d'g,> c ees, <c'g> bes d, <d'g,> c ees,\) | %55 | |
\clef treble | |
g8\(\< d'bes d g bes d-> g bes \ottava #1 d g d'\! | %56 | |
bes\> d g, d \ottava #0 bes g d bes g d bes\! c,\)_(\< | %57 | |
g'8)\!\>( d'\! bes d g d'bes d g, d bes d,)_(\< | %58 | |
fis8)\!\>( d'\! bes d fis d' bes d fis, d bes d,)_(\<\stopTextSpan | %59 | |
\piuPianoSpanner | |
g8)\!(\>\startTextSpan d'\! bes d g bes d g bes \ottava #1 d g d' | %60 | |
bes8 d g, d \ottava #0 bes g d bes g d bes d,)_(\<\stopTextSpan | %61 | |
\calandoSpanner | |
ges8)\!\>(\startTextSpan d'\!bes d ges d'bes d ges,d bes d,\<)_( | %62 | |
f8)\!\>( d'\! bes d f_\dimTxt d'bes d f,d bes c,)_(\stopTextSpan | %63 | |
f8)(^\smorzTxt c'a c f a c f a c \ottava #1 f a | %64 | |
f'4) \ottava #0 b,,,\rest b\rest b2\rest b4\rest | %65 | |
\restDownOne R1*6/4 | %66 | |
b2\rest b4\rest b\rest b\rest f->-\menoMosso~\( | %67 | |
f2.( g2) g4( | %68 | |
ees2.)\)~ ees4 ees'4.\( d8 | %69 | |
\stemUp c2.( d2) d4( | %70 | |
bes2.)\) \stemNeutral bes'2\(^\< bes4 | %71 | |
bes2->\! aes4 aes g fis | %72 | |
fis2 g\) aes4.( ees8 | %73 | |
g2 f) g4.\( d8 | %74 | |
f4 ees d \times 2/3 { c8[ d c] } b c d ees | %75 | |
f,2.\)(\( g2) g4( | %76 | |
ees2.)\)_~ ees4 ees'4.\( d8 | %77 | |
\stemUp c2.( d2) d4( | %78 | |
bes2.)\) \stemNeutral bes'2->\( bes4 | %79 | |
%-----------------------------------correction to source bar40: bes2->bes2. | |
bes2. c,2\) d4\( | %80 | |
\times 2/3 { ees8 f ees } d4 ees g\) g->(~ \times 2/3 { g8 f ees) } | %81 | |
ees2. b4\rest g8[( aes] \times 2/3 { bes d c} | %82 | |
bes2.)~ bes4 g8([ aes] \times 2/3 { bes d c) } | %83 | |
bes2.~ bes4 f8([ aes] \times 2/3 { bes d c) } | %84 | |
\bar "|." | |
} | |
upperTwo = \relative c' { | |
\time 4/4 | |
\repeat unfold 7 { s1 | } % 1-7 | |
\time 6/4 | |
\mergeDifferentlyHeadedOn | |
s2. s8 \stemUp c8-\hideP d fis bes a \stemDown | % 8 | |
b,4\rest <d bes>-.( <d bes>-.) b\rest <g'd>-.( <g d>-.) | % 9 | |
c,4\rest <g' ees>-.( <g ees>-.) s8 \stemUp c,8^> d fis bes a \stemDown | %10 | |
b,4\rest <d bes>-.( <d bes>-.) g,\rest <cis a g>-.( <cis a g>-.) | %11 | |
a4\rest <d a fis>-.( <d a fis>-.) s8 \stemUp c^> d fis bes a \stemDown | %12 | |
%------------ Schirmer, Breitkopf & Härtel, and Cortot: Bar13 5th and 6th beat:<des bes g> | |
b,4\rest <d bes>-.( <d bes>-.) g\rest <des'bes g>-.( <des bes g>-.) | %13 | |
g,4\rest <bes c>-.( <bes c>-.) \stemUp ees,8^>[ f a ees' d b16\rest cis] | %14 | |
e,4\rest \stemDown <a f ees>-.( <a f ees>-.) e\rest <bes' f d>-.( <bes f d>-.) | %15 | |
e,4\rest <g ees>-.( <g ees>-.) s8 c,^[^> d fis bes a] | %16 | |
a,4\rest <d bes>-.( <d bes>-.) c\rest <g'd>-.(<g d>-.) | %17 | |
c,4\rest <g'ees>-.(<g ees>-.) s8 c,^[ d fis bes a] | %18 | |
a,4\rest <d bes>-.(<d bes>-.) g,\rest <cis a g>-.(<cis a g>-.) | %19 | |
a4\rest <d a fis>-.( <d a fis>-.) s8 c^[ d fis bes a] | %20 | |
a,4\rest <f'!d b>4-.( <f d b>-.) g\rest <d'b g f>-.( <d b g f>-.) | %21 | |
a4\rest <ees'c g>-.( <ees c g>-.) e,\rest <g d>-.( <g d>-.) | %22 | |
c,4\rest <g'c,>-.( <g c,>-.) b,\rest <d bes>-.( <d bes>-.) | %23 | |
g4\rest <ees'c g>-.( <ees c g>-.) d,\rest <g d>-.( <g d>-.) | %24 | |
d4\rest <g c,>-.( <g c,>-.) a,\rest <cis bes>-.( <cis bes>-.) | %25 | |
a4\rest <d bes>-.( <d bes>-.) e\rest <bes'f d>-.( <bes f d>-.) | %26 | |
<a ees!>4_\tenutoTxt <a ees> <a ees> <a ees> <a ees> <a ees>| %27 | |
g\rest <bes ees,> <bes ees,> <bes d,> <bes d,> <bes d,> | %28 | |
<fis c> <fis c> <fis c> <fis c> <fis c> <fis c> | %29 | |
e\rest <g!c,> <g c,> <g bes,> <g bes,> <g bes,> | %30 | |
\moveNoteTwo <g ees> <g ees> <g ees> <fis d> <fis d> <fis d>| %31 | |
<e a,>4\arpeggio s1\< s4 | %32 | |
s2. s16\! s8.-\pocoCresc s2 | %33 | |
s1. | %34 | |
s1. \tieUp \slurUp | %35 | |
s4 bes'8\<( d\! f\> ees\!~ ees4) a,8\<( cis\! ees\> d\!~ | %36 | |
d4) bes8\<( d\! f\> ees\!~ ees4) aes,8\<( cis\! ees\> d\!~ | %37 | |
d4) g,8( b d c~ c4) c,8( gis' bes a~ | %38 | |
a4) ees8( b' d c~c4) ees,8\< d cis c | %39 | |
bes4_\f bes'8->( d f ees) b4\rest a8->( cis ees d) | %40 | |
b4\rest bes8->( d f ees) b4\rest aes8->( cis ees d) | %41 | |
b4\rest g8->( b d c) b4\rest c,8->( gis' bes a) | %42 | |
b4\rest ees,8->( b' d c) b4\rest fis,8-> cis' ees d | %43 | |
bes4-\hideF g-> s4 bes g-> s4 | %44 | |
s1. | %45 | |
bes'4 g-> s bes g-> s | %46 | |
\repeat unfold 3 { s1. | } | %47-49 | |
\repeat unfold 17 { s1. | } | %50-66 | |
s1 s4 \stemDown \ignoreClashOnce c,4_~ | %67 | |
c2._( d | %68 | |
ees2.) s | %69 | |
g2._( a | %70 | |
bes2.) s | %71 | |
\repeat unfold 4 { s1. | } \slurDown | %72-75 | |
c,!2.( d | %76 | |
ees2.) s | %77 | |
g2.( a | %78 | |
bes2.) s | %79 | |
} | |
upperTre = \relative c' { | |
\time 4/4 \mergeDifferentlyHeadedOn | |
\mergeDifferentlyDottedOn \stemDown | |
\repeat unfold 7 { s1 | } \time 6/4 % 1-7 | |
s1 \tweak Stem.transparent ##t d2-\hideP | % 8 | |
s1. | % 9 | |
s1 \tweak Stem.transparent ##t d2 | %10 | |
s1. | %11 | |
s1 \tweak Stem.transparent ##t d2 | %12 | |
s1. | %13 | |
s1 a'2 | %14 | |
s1. | %15 | |
s1 \tweak Stem.transparent ##t d,2 | %16 | |
s1. | %17 | |
s1 \tweak Stem.transparent ##t d2 | %18 | |
s1. | %19 | |
s1 \tweak Stem.transparent ##t d2 | %20 | |
} | |
upperQtr = \relative c' { | |
\time 4/4 | |
\repeat unfold 7 { s1 | } % 1-7 | |
\time 6/4 \mergeDifferentlyDottedOn \stemDown | |
s1 s8 fis4.-\hideP | % 8 | |
s1. | % 9 | |
s1 s8 fis4. | %10 | |
s1. | %11 | |
s1 s8 fis!4. | %12 | |
\repeat unfold 3 { s1. | } %13-15 | |
s1 s8 fis4. | %16 | |
s1. | %17 | |
s1 s8 fis4. | %18 | |
s1. | %19 | |
s1 s8 fis!4. | %20 | |
} | |
upperStaff = << | |
{ \upperOne } \\ | |
{ \upperTwo } \\ | |
{ \upperTre } \\ | |
{ \upperQtr } | |
>> | |
lowerOne = \relative c, { | |
\time 4/4 | |
\setRestDirDown | |
c2-\hideF\(_~ c8 ees aes bes | % 1 | |
c8 aes ees' bes' \clef treble c aes ees' bes'| % 2 | |
c8 g bes aes g4 fis8\) b8\rest | % 3 | |
b8\rest fis8_\(-\hideP g fis eis fis \times 2/3 { a g ees } | % 4 | |
ees8. d16 \times 2/3 { f!8 ees d\) } d4 \staffDown b'\rest | %5 | |
\clef bass | |
d,,2\rest <c' g ees>2(^> | % 6 | |
<ees g,d>1\arpeggio)\sustainOn | % 7 | |
\bar "||" \time 6/4 \stemNeutral | |
d,2.\rest\sustainOff d,4-. d'\rest d\rest | % 8 | |
d4\rest g,_._( g_.) d'\rest bes'-.( bes-.) | % 9 | |
d,4\rest <c'a>-.( <c a>-.) d,\rest d,_._( d_.)| %10 | |
d'4\rest g,_._( g_.) d'\rest a_._( a_.) | %11 | |
d4\rest d,_._( d_.) d'\rest d-.( d-.) | %12 | |
d4\rest g,_._( g_.) d'\rest e'-.( e-.) | %13 | |
d,4\rest f'-.( f-.) d,\rest f,_._( f_.) | %14 | |
d'4\rest bes_._( bes_.) d\rest bes'-.( bes-.) | %15 | |
d,4\rest a'^.^( a^.) d,\rest d,_._( d_.) | %16 | |
d'4\rest g,_._( g_.) d'\rest bes'-.( bes-.) | %17 | |
d,4\rest <c'a>-.( <c a>-.) d,\rest d,_._( d_.)| %18 | |
d'4\rest g,_._( g_.) d'\rest a_._( a_.) | %19 | |
d4\rest d,_._( d_.) d'\rest d-.( d-.) | %20 | |
d4\rest g-.( g-.) d\rest g,_._( g_.) | %21 | |
d'4\rest \stemUp c2 d4\rest d2 | %22 | |
d4\rest ees2 d4\rest d2 \stemDown | %23 | |
b8->( c d c g'4) cis,8->( d ees d g4) | %24 | |
d8->( ees f ees g4) \stemUp \grace { dis16->_([_\( e]) \slashFlag f8 } \stemDown \afterGrace e2.\trill { \stemUp dis16[ e]\) } | %25 | |
\stemDown f2.~_\( f4 \stemUp <e e,> <f f,> | %26 | |
<fis~ fis,_~>2. <fis fis,>4 <eis eis,> <fis fis,>\) | %27 | |
<g g,>1._\( | %28 | |
<d d,>1. | %29 | |
<ees ees,>1. | %30 | |
<c c,>2. <d d,> | %31 | |
<cis cis,>4\)\arpeggio \stemNeutral \doubleSlursOff <e' a, e>-.( <e a, e>-. <e a, e>-. <e a, e>-. <e a, e>-.) | %32 | |
<c,!c,!>4 <f'ees!a,f>-.( <f ees a,f>-. <f ees a,f>-. <f ees a,f>-. <f ees a,f>-.) | %33 | |
<bes,,bes,>4 <bes'f d> <d bes f> ees,,<c''g ees><ees c g> | %34 | |
d,,4_. g'2 d2._( | %35 | |
g,4_.) <bes'g>2 fis,4_. <a'fis>2 | %36 | |
g,4_. <bes'g>2 f,!4_. <b'aes f!>2 | %37 | |
ees,,4_. <ees'g>2 c,4_. ees'2 | %38 | |
d,4_. <d'c'>2 d,4_. a''( d,) | %39 | |
<g g,>4_. g2 <fis fis,>4_. fis2 | %40 | |
<g g,>4_. g2 <f! f,!>4_. f2 | %41 | |
<ees ees,>4_. ees2 <c c,>4_. \stemDown c2 | %42 | |
\stemNeutral | |
d,4_. <g'a,>( <fis c>) d,_. <ees'g,>( <d c>) | %43 | |
\stemDown | |
g,4 \stemUp <g g,>2_( <d'g,>4_.) \stemDown g, d'\rest | %44 | |
<ees c g>2._~ <ees c g>4 \stemUp <g g,> \stemNeutral <ees'ees,>| %45 | |
s4 <g,g,>2( <g d'>4-.) g d\rest | %46 | |
\clef treble | |
b''4\rest a2->(~ a4 <g g,> <ees'ees,> | %47 | |
\stemDown | |
<d g,>4-.) b\rest b\rest <a fis ees>_._\fz s2 | %48 | |
s4 d,2_( <a'fis ees>4_.)_\fz s2 | %49 | |
s2. \clef bass <ees,fis a>4_._> s2 | %50 | |
s4 d2_( <ees fis a>4_._>) s2 | %51 | |
g,2 d'4\rest \stemNeutral <cis cis,>_( <d d,>) d\rest | %52 | |
<g,g,>4( d') d\rest cis,_( d) d'\rest | %53 | |
<g,g,>4 d'\rest c,!( <g'g,>) d'\rest c,( | %54 | |
<g'g,>4) d'\rest c,( <g'g,>) d'\rest c,( | %55 | |
<g'g,>2.) d'4\rest <d'g>-.( <d g,>-. | %56 | |
<d g>2) d,4\rest d\rest d\rest d,_( | %57 | |
<g~ g,_~>2.) <g g,>2 d4_( | %58 | |
<fis~ fis,_~>2.) <fis fis,>2 d4_( | %59 | |
<g g,>2.) d'4\rest <d g>(-. <d g,>-. | %60 | |
<d g>2) d4\rest d\rest d\rest d,_( | %61 | |
<ges~ ges,_~>2.) <ges ges,>2 d4_( | %62 | |
f2.)(~ f2 g4 | %63 | |
a!2) d4\rest d\rest <c'f>(\( <c f,>-. | %64 | |
\piuDimSpanner | |
<c~ f_~>2.)\startTextSpan <c f>2 <c f,>4( | %65 | |
<c~ f_~>2.) <c f>2 <c f,>4( | %66 | |
<c f>2 <c f,>4 <c f> <c f,> \staffUp \hideNotes \stemDown | |
f)\)\stopTextSpan \unHideNotes \staffDown | %67 | |
\stemNeutral bes,,,4(_. bes' aes'f c'bes) | %68 | |
ees,,4( bes' ees g bes ees) | %69 | |
c( ees f, ees'g f) | %70 | |
bes,,( f' bes d f bes) | %71 | |
c,4( ees f, bes d aes') | %72 | |
bes,( d ees, aes c g') | %73 | |
aes,( c d,g b f') | %74 | |
g,( c c,f a! ees') | %75 | |
f,4( aes bes,aes'c bes) | %76 | |
ees,,4( bes'ees g bes ees) | %77 | |
c( ees f,ees'g f) | %78 | |
bes,,4( f'bes d f bes) | %79 | |
c,,,4 e''( bes \stemUp g e' bes) | %80 | |
f4 ees'!( a,) bes, \stemNeutral d'( aes) | %81 | |
\stemDown | |
ees,8( bes'g'ees bes'g ees'4) d,4\rest d\rest | %82 | |
ees,8( bes'g'ees bes'g ees'4) d,4\rest d\rest | %83 | |
ees,8( bes' aes'f bes aes d4) d,4\rest d\rest | %84 | |
} | |
lowerTwo = \relative c { | |
\time 4/4 | |
\repeat unfold 7 { s1 | } % 1-7 | |
\time 6/4 | |
\repeat unfold 14 { s1. | } %8-21 | |
\stemDown s4 c,-._(-\hideP g''-.) s d,-._( g'-.) | %22 | |
s4 ees,4-._( g'-.) s d,-._( g'-.) | %23 | |
\repeat unfold 11 { s1. | } | %24-34 | |
\stemUp \slurUp \tieUp | |
s4 <bes ees>(^\> <d bes>2 <cis bes>4 <c a>)\! | %35 | |
s4 f!( ees) s ees( d) | %36 | |
s4 f!( ees) s ees( d) | %37 | |
s4 d( c) s bes( a) | %38 | |
s4 g( fis) s2. | %39 | |
s4 f'( <ees bes>) s ees( <d a>) | %40 | |
s4 f( <ees bes>) s ees( <d b aes>) | %41 | |
s4 d( <c g>) s bes( <a ees>) | %42 | |
s1. | %43 | |
d,4 s2. ees8( d) s4 | %44 | |
a'4\rest a2^>^\(~ a4 s2 | %45 | |
\stemDown <d d,>4^.\) s2. \stemUp ees8( d) s4 | %46 | |
\clef treble \stemDown \tieDown | |
<ees c g>2.~ <ees c g>4 s2 \stemUp | %47 | |
s2. ees'4^>( d d, | %48 | |
g,-.) d'(^\< d'\! ees^> d d, | %49 | |
g,4) b'\rest \clef bass d,,( ees'd d, | %50 | |
g,4-.) d'(\< d'\! ees d d, | %51 | |
g,4)( <d'd'>) s1 | %52 | |
\repeat unfold 10 { s1. | } | %53-62 | |
\stemDown f,,1.~ | %63 | |
f2 s1 | %64 | |
s1. | %65 | |
s1. | %66 | |
s1 s4 d''\rest | %67 | |
\repeat unfold 12 { s1. | } | %68-79 | |
s2. g_( | %80 | |
f2. bes,4) s2 | %81 | |
} | |
breaks = { | |
\repeat unfold 3 { s1 \mNoBreak } s1 \mBreak % line 1 ( 1- 4) | |
\repeat unfold 3 { s1 \mNoBreak } | |
\repeat unfold 2 { s1. \mNoBreak } s1. \mBreak % line 2 ( 5-10) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 3 (11-15) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 4 (16-20) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 5 (21-25) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 6 (26-30) | |
\repeat unfold 2 { s1. \mNoBreak } s1. \mBreak % line 7 (31-33) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 8 (34-37) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 9 (38-41) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 10 (42-45) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 11 (46-49) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 12 (50-53) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 13 (54-57) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 14 (58-61) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 15 (62-66) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 16 (67-71) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 17 (72-75) | |
\repeat unfold 4 { s1. \mNoBreak } s1. \mBreak % line 18 (76-80) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 19 (81-84) | |
\repeat unfold 3 { s1. \mNoBreak } s1. \mBreak % line 20 (85-88) | |
} | |
lowerStaff = << | |
{ \lowerOne } \\ | |
{ \lowerTwo } \\ | |
{ \breaks } | |
>> | |
dynamics = { | |
s4-\fPesante s8 s8 s2 | % 1 | |
s4 s2-\dimTxt s4\> | % 2 | |
s2. s4\! | % 3 | |
s8 s8\p s2. | % 4 | |
s1 | % 5 | |
s4. s8\p s4. s8\< | % 6 | |
s2. s8 s8\! | % 7 | |
s2.\> s8\! s2-\pDolce s8 | % 8 | |
\repeat unfold 12 { s1. | } | % 9-20 | |
s4 s1\< s4 | %21 | |
s8\! s8\> s2 s2.\! | %22 | |
s2. s2.\< | %23 | |
s4\!\> s4\! s1 | %24 | |
s1.\< | %25 | |
s1.\!\p | %26 | |
s1.\< | %27 | |
s1\!\> s2\! | %28 | |
s1.\< | %29 | |
s2.\!\> s2.\! | %30 | |
s1\< s4 s16 s8.\! | %31 | |
s1.\pp | %32 | |
s1. | %33 | |
s1. | %34 | |
s1. | %35 | |
s1.\p | %36 | |
s1. | %37 | |
s4 s16 s16-\crescTxt s4. s2. | %38 | |
s1. | %39 | |
s1. | %40 | |
\repeat unfold 3 { s1. | } | %41-43 | |
s1.\f | %44 | |
s1. | %45 | |
s1.\f | %46 | |
s1. | %47 | |
s1.-\piuF | %48 | |
s1. | %49 | |
\repeat unfold 18 { s1. | } | %50-67 | |
s1.\pp | %68 | |
} | |
pedal = { | |
\repeat unfold 6 { s1 | } % 1-6 | |
s1 | % 7 | |
s2. s2\sustainOn s8 s8\sustainOff | % 8 | |
\repeat unfold 23 { s1. | } % 9-31 | |
s4\sustainOn s1 s4\sustainOff | %32 | |
s4\sustainOn s1 s8 s16. s32\sustainOff | %33 | |
s4\sustainOn s s\sustainOff s\sustainOn s s\sustainOff | %34 | |
s4\sustainOn s4. s4\sustainOff s8 s2 | %35 | |
s4..\sustainOn s4\sustainOff s16 s4..\sustainOn s4\sustainOff s16 | %36 | |
s4..\sustainOn s4\sustainOff s16 s4..\sustainOn s4\sustainOff s16 | %37 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %38 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %39 | |
s2\sustainOn s4\sustainOff s4..\sustainOn s4\sustainOff s16 | %40 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %41 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %42 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %43 | |
s1. | %44 | |
s2.\sustainOn s8 s8\sustainOff s2 | %45 | |
s1. | %46 | |
s2\sustainOn s4 s8 s8\sustainOff s2 | %47 | |
s1. | %48 | |
s2\sustainOn s8 s8\sustainOff s2. | %49 | |
s2\sustainOn s8 s32\sustainOff s16. s2. | %50 | |
s2\sustainOn s8. s16\sustainOff s2. | %51 | |
s2\sustainOn s1\sustainOff | %52 | |
s2\sustainOn s1\sustainOff | %53 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %54 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %55 | |
s1.\sustainOn | %56 | |
s1 s4 s4\sustainOff | %57 | |
s1\sustainOn s4 s4\sustainOff | %58 | |
s1\sustainOn s4 s4\sustainOff | %59 | |
s1.\sustainOn | %60 | |
s1 s4 s4\sustainOff | %61 | |
s1\sustainOn s4. s8\sustainOff | %62 | |
s1\sustainOn s4. s8\sustainOff | %63 | |
s1.\sustainOn | %64 | |
s1. | %65 | |
s1. | %66 | |
s1 s4 s4\sustainOff | %67 | |
s1\sustainOn s2\sustainOff | %68 | |
s1\sustainOn s4. s8\sustainOff | %69 | |
s1\sustainOn s2\sustainOff | %70 | |
s1\sustainOn s4 s4\sustainOff | %71 | |
s1\sustainOn s4 s4\sustainOff | %72 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %73 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %74 | |
s2\sustainOn s4\sustainOff s2\sustainOn s4\sustainOff | %75 | |
s1\sustainOn s2\sustainOff | %76 | |
s1\sustainOn s4 s4\sustainOff | %77 | |
s1\sustainOn s8. s16\sustainOff s4 | %78 | |
} | |
%-------Typeset music | |
\score { | |
%\removeWithTag #'played | |
\new PianoStaff << | |
\new Staff = "upper" \with { \consists "Span_arpeggio_engraver" } | |
{ \clef treble \global \connectArpeggio \upperStaff } | |
\new Dynamics = "dyns" { \dynamics } | |
\new Staff = "lower" { \clef bass \global \lowerStaff } | |
\new Dynamics = "ped" { \pedal } | |
>> | |
\layout{ | |
%{ \context { | |
\PianoStaff | |
\consists #Span_stem_engraver | |
}%} | |
} | |
} | |
%-------generate Midi | |
\score { | |
%\removeWithTag #'printed | |
\context PianoStaff << | |
\set PianoStaff.midiInstrument = "acoustic grand" | |
\new Staff = "upper" { \clef treble \global \upperStaff } | |
\new Dynamics = "dyns" { \dynamics } | |
\new Staff = "lower" { \clef bass \global \lowerStaff } | |
\new Dynamics = "ped" { \pedal } | |
>> | |
\midi { } | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment