X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FF.Schubert%2Fstandchen.ly;h=b22bbf878c9d8e4e3fadcd9cbe5465ad9a23d999;hb=def21b306e2b8fa2d5630fab0878e9922e197f0c;hp=1d510340ec55d3a4deb56981995edb41c1d37316;hpb=3f0c0f19dac072ad2ba39b254ef51962fc1c7353;p=lilypond.git diff --git a/input/mutopia/F.Schubert/standchen.ly b/input/mutopia/F.Schubert/standchen.ly index 1d510340ec..b22bbf878c 100644 --- a/input/mutopia/F.Schubert/standchen.ly +++ b/input/mutopia/F.Schubert/standchen.ly @@ -1,10 +1,9 @@ - -% #(ly:set-point-and-click 'line-column) +#(ly:set-option 'old-relative) instrument = "Piano" \header { - title = "Ständchen" + title = "Ständchen" subtitle = "(Serenade)" subsubtitle = "Leise flehen meine Lieder" opus = "D. 957 No. 4" @@ -31,7 +30,7 @@ instrument = "Piano" maintainer = "Jan Nieuwenhuizen" maintainerEmail = "janneke@gnu.org" lastupdated = "2001/Apr/27" - mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small + mutopiapublicdomain = "\\parbox[b]{\\paper-width}{\\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 + @@ -41,55 +40,68 @@ instrument = "Piano" footer = "Mutopia-2001/04/27-xx" } -\version "1.7.18" - -dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1 -dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction +\version "2.11.38" -\include "paper16.ly" +#(set-global-staff-size 16) -vocalVerse = \notes\relative c''{ +vocalVerse = \relative c''{ \dynamicUp - \times 2/3 { g8-[( as-)] g } c4. g8 | - \times 2/3 { f8-[( g-)] f } c'4 f,8 r | - g4.-> f8 \times 2/3 { f-[( es-)] d } | + \times 2/3 { g8[( as)] g } c4. g8 | + \times 2/3 { f8[( g)] f } c'4 f,8 r | + g4.-> f8 \times 2/3 { f[( es)] d } | es2 r4 | R2. | R2. | - \times 2/3 { g8-[( as-)] g } es'4. g,8 | - \times 2/3 { f8-[( g-)] f } d'4. c8 | - bes4. as8 \times 2/3 { as-[( g-)] f } | + \times 2/3 { g8[( as)] g } es'4. g,8 | + \times 2/3 { f8[( g)] f } d'4. c8 | + bes4. as8 \times 2/3 { as[( g)] f } | g2 r4 | R2. | R2. | g8. b16 es4. d8 | c8. g16 es4. c8 | - \grace { as'32-[( bes ] } \times 2/3 { as8-[-)( g-)] as } c4. as8 | + \grace { + \override Stem #'stroke-style = #"grace" + as'32[( bes ] + \revert Stem #'stroke-style } + \times 2/3 { as8[)( g)] as } c4. as8 | g2. | - \grace { f32-[( g ] } \times 2/3 { f8-[-)( e-)] f } as4. f8 | + \grace { + \override Stem #'stroke-style = #"grace" + f32[( g ] + \revert Stem #'stroke-style } + \times 2/3 { f8[)( e)] f } as4. f8 | es!2. | g8. b16 es4. d8 | c8. g16 e4. c8 | - \grace { a'32-[( b ] } \times 2/3 { a!8-[-)( gis-)] a } c4. a8 | + \grace { + \override Stem #'stroke-style = #"grace" + a'32[( b ] + \revert Stem #'stroke-style } + \times 2/3 { a!8[)( gis)] a } c4. a8 | g!2. | - \times 2/3 { d'8-[-\f( cis-)] d } f4. b,8 | + \times 2/3 { d'8[\f( cis)] d } f4. b,8 | c!2. | } -vocalThrough = \notes\relative c{ +vocalThrough = \relative c{ \dynamicUp g''8. g16 b8. b16 d8. d16 | c4 b r | g4. b8 d8. c16 | b2 r4 | - e4. d8 \times 2/3 { d-[( c-)] b } | + e4. d8 \times 2/3 { d[( c)] b } | a8. b16 c4-> a8 r | R2. | R2. | - \grace { a32-[( b ] } \times 2/3 { a!8-[-)( gis-)] a } c4. a8 | + \grace { + \override Stem #'stroke-style = #"grace" + a32[( b ] + \revert Stem #'stroke-style } + \times 2/3 { a!8[)( gis)] a } c4. a8 | g!2. | - \times 2/3 { d'8-[-\f( cis-)] d } f4. b,8 | + \times 2/3 { d'8[\f( cis)] d } f4. b,8 | c!2. ~ | % bug: slur on other staff fools lily into extending melisma c4 r c | @@ -98,253 +110,255 @@ vocalThrough = \notes\relative c{ e2 r4 | } -lyricVerseOne = \lyrics{ +lyricVerseOne = \lyricmode { Lei -- se fle -- hen mei -- ne Lie -- der durch die Nacht zu dir; in den stil -- len Hain her nie -- der, Lieb -- chen, komm zu mir! - Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen + Flüs -- ternd schlan -- ke Wip -- fel rau -- schen in des Mon -- des Licht, in des Mon -- des Licht; - des Ver -- r\"a -- ters feind -- lich Lau -- schen - f\"urch -- te, Hol -- de, nicht, - f\"urch -- te, Hol -- de, nicht. + des Ver -- rä -- ters feind -- lich Lau -- schen + fürch -- te, Hol -- de, nicht, + fürch -- te, Hol -- de, nicht. } -lyricVerseTwo = \lyrics{ - H\"orst die Nach -- ti -- gal -- len schla -- gen? +lyricVerseTwo = \lyricmode{ + Hörst die Nach -- ti -- gal -- len schla -- gen? ach! sie fle -- hen dich, - mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen - fle -- hen sie f\"ur mich. + mit der Tö -- ne sü -- "\ss en" Kla -- gen + fle -- hen sie für mich. Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen, ken -- nen Lieb -- es -- schmerz, ken -- nen Lieb -- es -- schmerz, - r\"uh -- ren mit den Sil -- ber -- t\"o -- nen + rüh -- ren mit den Sil -- ber -- tö -- nen jed -- es wei -- che Herz, jed -- es wei -- che Herz. } -lyricThrough = \lyrics{ +lyricThrough = \lyricmode{ La\ss auch dir die Brust be -- we -- gen - Lieb -- chen, h\"o -- re mich! + Lieb -- chen, hö -- re mich! be -- bend harr' ich dir ent -- ge -- gen! - komm, be -- gl\"uk -- ke mich! - komm, be -- gl\"uk -- ke mich, __ - be -- gl\"uk -- ke mich! + komm, be -- glük -- ke mich! + komm, be -- glük -- ke mich, __ + be -- glük -- ke mich! } -trebleIntro = \notes\relative c{ - r8^"\bf M\\\"a\\ss ig"-\pp <>-. <>-. <>-. <>-. <>-. | - r8 <>-. <>-. <>-. <>-. <>-. | - r8 <>-. <>-. <>-. <>-. <>-. | - r8 <>-. <>-. <>-. <>-. <>-. | +trebleIntro = \relative c{ + r8^"\bf Mäßig"\pp -. -. -. -. -. | + r8 -. -. -. -. -. | + r8 -. -. -. -. -. | + r8 -. -. -. -. -. | } -trebleVerseOne = \notes\relative c{ +trebleVerseOne = \relative c{ %5 - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - <>4.-( <>8-) - \times 2/3 { <>-(-[ <>-]-) <> } + r8 | + r8 | + r8 | + r8 | + 4.( 8) + \times 2/3 { ([ )] } %10 - <>2. | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | + 2. | + r8 | + r8 | + r8 | r8 - <>-[ - <> - <> - <>-] - <>-( - <>4.-(-) - <>8-) + [ + + + ] + ( + 4.() + 8) - \times 2/3 { <>-(-[ <> <>-)-] } + \times 2/3 { ([ )] } %16 - <>2. | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8-\pp <> <> <> <> <> | + 2. | + r8 | + r8 | + r8\pp | %20 - r8 <> <> <> <> <> | - \property Voice.Slur \override #'attachment = #'(stem . stem) - \grace { as'32-[( bes ] } - \times 2/3 { as8-[-)( g as] } c4.-> as8-) | - \property Voice.Slur \revert #'attachment + r8 | + \grace { + \override Stem #'stroke-style = #"grace" + as'32[( bes ] + \revert Stem #'stroke-style } + + \times 2/3 { as8[)( g as] } c4.-> as8) | g2. | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - r8 <> <> <> <> <> | - \times 2/3 { <>-\f-( <> <> } - <>4.-> <>8-) | + r8 | + r8 | + r8 | + r8 | + \times 2/3 { \f( } + 4.-> 8) | } -trebleEentje = \notes \relative c' \context Voice { - \stemBoth - <>2 r4 | - <>2-\(-\mf <>8.-(-> <>16-)-\) | +trebleEentje = \relative c' \context Voice { + \stemNeutral + 2 r4 | + 2\(\mf 8.(-> 16)\) | % urg: slurs with staccati are ugly - <>4. <>8-.-( <>-. <>-)-. | - <>4. <>8-.-( <>-. <>-)-. | - <>2 <>4-\pp | - <>2-\( <>8.-( <>16-)-\) | - <>4.-\( <>8-(-. <>-. <>-)-\)-. | - <>4. <>8-(-. <>-. <>-)-. | + 4. 8-.( -. )-. | + 4. 8-.( -. )-. | + 2 4\pp | + 2\( 8.( 16)\) | + 4.\( 8(-. -. )\)-. | + 4. 8(-. -. )-. | %60 - <>2 r4 | + 2 r4 | } -trebleThrough = \notes \relative c'{ - \stemBoth - <>2. | +trebleThrough = \relative c'{ + \stemNeutral + 2. | %61 R2. | - [<>8.-\< <>16 <>8. <>16-\>-\! <>8. <>16] | + 8.[\< 16 8. 16\>\! 8. 16] | %% score has double slur on chord. - <>4-( <>-) r-\! + 4( ) r\! - <>4. <>8 [<>8.-> c16] | + 4. 8 8.->[ c16] | %65 - <>2.-~-(-\f - <>2-) r4 - < - { a'8. b16 c4^> ( a8-) r | - a8. b16 c4^> ( a8-) r | + 2.~(\f + 2) r4 + << + { a'8. b16 c4^> ( a8) r | + a8. b16 c4^> ( a8) r | }\\{ - <>4 <>2 | - <>4 <>2 | - } > + 4 2 | + 4 2 | + } >> % 4 bars copied from end verse1 - r8 <> <> <> <> <> | + r8 | %70 - r8 <> <> <> <> <> | - \times 2/3 { <>8-( <> <> } + r8 | + \times 2/3 { 8( } - <>4.-> <>8-) - <>2. | - <>2. | - \property Voice . TextScript \override #'font-shape = #'italic - <>2._"decresc." - \property Voice . TextScript \revert #'font-shape + 4.-> 8) + 2. | + 2. | + \override TextScript #'font-shape = #'italic + 2._"decresc." + \revert TextScript #'font-shape %75 - <>2. | - <>2 <>4-\pp | + 2. | + 2 4\pp | % four copied from begin eentje - <>2-( <>8.-> <>16-) | - <>4. <>8-(-. <>-. <>-)-. | - <>4. <>8-(-. <>-. <>-)-. | + 2( 8.-> 16) | + 4. 8(-. -. )-. | + 4. 8(-. -. )-. | %80 - \property Voice . TextScript \override #'font-shape = #'italic - <>_"dim." - \property Voice . TextScript \revert #'font-shape + \override TextScript #'font-shape = #'italic + 2._"dim." + \revert TextScript #'font-shape - <>2. | - <>2.-\fermata | + 2. | + 2.\fermata | } -bassIntro = \notes\relative c{ +bassIntro = \relative c{ \dynamicUp %1 - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | } -bassVerseOne = \notes\relative c{ +bassVerseOne = \relative c{ % \clef bass \dynamicUp %5 - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>8 [<> <> <> <> <>] | + 2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | + 8 [ ] | %10 - <>8 [<> <> <> <> <>] | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>2 r4 | + 8 [ ] | + 2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | %15 - bes'8 [<> <> <> <> <>] | - es,8 [<> <> <> <> <>] | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>2 r4 | - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | + bes'8 [ ] | + es,8 [ ] | + 2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | + 8 [ ] | + 8 [ ] | + 2 r4 | + 2 r4 | + 2 r4 | + 2 r4 | + 8 [ ] | + c,8 [ ] | } -bassEentje = \notes\relative c{ +bassEentje = \relative c{ \dynamicUp - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | + 8 [ ] | + c,8 [ ] | + 8 [ ] | + c,8 [ ] | + 8 [ ] | + c,8 [ ] | + 8 [ ] | + c,8 [ ] | } -bassThrough = \notes\relative c{ +bassThrough = \relative c{ \dynamicUp %61 - <>8^"cresc." [<> <> <> <>-> <>] | - <>8 [<> <> <> <>-> <>] | + 8^"cresc." [ -> ] | + 8 [ -> ] | % copied - <>8 [<> <> <> <>-> <>] | - <>8 [<> <> <> <>-> <>] | + 8 [ -> ] | + 8 [ -> ] | %65 - <>8 [<>-\> <> <> <> <> -\!] | - <>8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | + 8 [\> \!] | + 8 [ ] | + 8 [ ] | + 8 [ ] | % 4 bars copied from end verse1 - <>2-\p r4 | + 2\p r4 | %70 - <>2 r4 | - <>8 [<> <> <> <> <>] | - c,8\> [<> << e g c>> -\! <> <> <>] | + 2 r4 | + 8 [ ] | + c,8\> [ < e g c> \! ] | - <>8 [<> <> <> <> <>] | - <>8 [<> <> <> <> <>] | + 8 [ ] | + 8 [ ] | %75 - <>8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - g,8 [<> <> <> <> <>] | + 8 [ ] | + c,8 [ ] | + c,8 [ ] | + c,8 [ ] | + g,8 [ ] | %80 - c,8 [<> <> <> <> <>] | - c,8 [<> <> <> <> <>] | - <>2._\fermata | + c,8 [ ] | + c,8 [ ] | + 2._\fermata | } -global = \notes{ +global = { \time 3/4 \key es \major \skip 1 * 3/4 * 4 @@ -359,24 +373,18 @@ global = \notes{ \bar "|." } -allLyrics = \lyrics { +allLyrics = { % maybe should be bigger by default, in grob-description.scm ? - \property Lyrics . LyricText \override #'font-relative-size = #1 - \property Lyrics . LyricHyphen \override #'maximum-length = #1.5 - \context LyricsVoice = "leise-1" { \lyricVerseOne - \lyricVerseTwo - \lyricThrough + \lyricsto "leise" \new Lyrics { + \lyricVerseOne + \lyricVerseTwo + \lyricThrough } } -lyricStaff = \context Lyrics { - \allLyrics -} - -vocals = \context Voice \notes { +vocals = \new Voice = "leise" { \clef treble % certainly no auto-beaming for vocals - \property Voice.autoBeaming = ##f - \property Staff.automaticMelismata= ##t + \autoBeamOff \dynamicUp % duh 1 != 3/4 @@ -388,82 +396,66 @@ vocals = \context Voice \notes { R1 * 3/4 * 6 } -vocalStaff = \context Staff = vocal< - \property Staff.midiInstrument = "synth voice" - \context Voice = "leise" < \global - \vocals > -> - -treble = { - \clef treble - \property Voice.autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1) - \trebleIntro - \trebleVerseOne - \trebleEentje - \trebleVerseOne - \trebleThrough -} +trebleStaff = \new Staff = "treble"<< + \set Staff.midiInstrument = "acoustic grand" + \global + { + \clef treble + + \trebleIntro + \trebleVerseOne + \trebleEentje + \trebleVerseOne + \trebleThrough + } +>> -trebleStaff = \context Staff = treble< - \property Staff.midiInstrument = "acoustic grand" +bassStaff = \new Staff = "bass"<< + \set Staff.midiInstrument = "acoustic grand" \global - \treble -> -bass = { \clef bass - \bassIntro + {\bassIntro \bassVerseOne \bassEentje \bassVerseOne - \bassThrough -} - -bassStaff = \context Staff = bass< - \property Staff.midiInstrument = "acoustic grand" - \global - \bass -> + \bassThrough} +>> -grandStaff = \context PianoStaff < - \trebleStaff - \bassStaff -> +\score{ + << + \new Staff << + \set Staff.midiInstrument = "synth voice" + %% insert \transpose if necessary, depending on voice range. + \global + \vocals + >> + \allLyrics + \context PianoStaff << + \trebleStaff + \bassStaff + >> + >> + \layout { + % Use + % textheight = 280.\mm + % line-width = 190.\mm + % to get this on 3 pages of a4. + + % Mandatory Mutopia settings yield 4 pages :( + textheight = 270.0\mm + line-width = 180.0\mm + \context { \RemoveEmptyStaffContext } + } + + \midi { + \context { + \Score + tempoWholesPerMinute = #(ly:make-moment 54 4) + } + } -\score{ - < - -%{ - Transpose as you like for your voice - Range untransposed is c' to f'' (for tenors and sopranos) - \transpose c' a gives a' to d'' (for basses, who sing an octave down) - - \addlyrics - \notes \transpose c' a \vocalStaff - \lyricStaff - \notes \transpose c' a \grandStaff -%} - - \addlyrics - \vocalStaff - \lyricStaff - \grandStaff - > - \paper { - % Use - % textheight = 280.\mm - % linewidth = 190.\mm - % to get this on 3 pages of a4. - - % Mandatory Mutopia settings yield 4 pages :-( - textheight = 270.0\mm - linewidth = 180.0\mm - \translator { \HaraKiriStaffContext } - } - \midi{ - \tempo 4 = 54 - } }