X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FF.Schubert%2Fstandchen.ly;h=10797cd6d926c3b69e7f18d7ee0d53be227a8bcc;hb=38d7d319eabc906e82fb42002678c6d42a23b6f7;hp=b61b62ffae1a0ca36dda08398a574f75bc1c6391;hpb=1aeb5031376f96ee3407989e7696e5c106d27ee0;p=lilypond.git diff --git a/input/mutopia/F.Schubert/standchen.ly b/input/mutopia/F.Schubert/standchen.ly index b61b62ffae..10797cd6d9 100644 --- a/input/mutopia/F.Schubert/standchen.ly +++ b/input/mutopia/F.Schubert/standchen.ly @@ -1,11 +1,9 @@ #(ly:set-option 'old-relative) -% #(ly:set-point-and-click 'line-column) - instrument = "Piano" \header { - title = "Ständchen" + title = "Ständchen" subtitle = "(Serenade)" subsubtitle = "Leise flehen meine Lieder" opus = "D. 957 No. 4" @@ -32,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 + @@ -42,14 +40,11 @@ instrument = "Piano" footer = "Mutopia-2001/04/27-xx" } -\version "2.1.19" - -dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1 -dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction +\version "2.12.0" #(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 | @@ -66,31 +61,31 @@ vocalVerse = \notes\relative c''{ g8. b16 es4. d8 | c8. g16 es4. c8 | \grace { - \property Voice.Stem \override #'stroke-style = #"grace" + \override Stem #'stroke-style = #"grace" as'32[( bes ] - \property Voice.Stem \revert #'stroke-style } + \revert Stem #'stroke-style } \times 2/3 { as8[)( g)] as } c4. as8 | g2. | \grace { - \property Voice.Stem \override #'stroke-style = #"grace" + \override Stem #'stroke-style = #"grace" f32[( g ] - \property Voice.Stem \revert #'stroke-style } + \revert Stem #'stroke-style } \times 2/3 { f8[)( e)] f } as4. f8 | es!2. | g8. b16 es4. d8 | c8. g16 e4. c8 | \grace { - \property Voice.Stem \override #'stroke-style = #"grace" + \override Stem #'stroke-style = #"grace" a'32[( b ] - \property Voice.Stem \revert #'stroke-style } + \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 | c!2. | } -vocalThrough = \notes\relative c{ +vocalThrough = \relative c{ \dynamicUp g''8. g16 b8. b16 d8. d16 | c4 b r | @@ -101,9 +96,9 @@ vocalThrough = \notes\relative c{ R2. | R2. | \grace { - \property Voice.Stem \override #'stroke-style = #"grace" + \override Stem #'stroke-style = #"grace" a32[( b ] - \property Voice.Stem \revert #'stroke-style } + \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 | @@ -115,54 +110,54 @@ 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üs -- 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ä -- ters feind -- lich Lau -- schen - fürch -- te, Hol -- de, nicht, - fürch -- 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örst 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ö -- ne sü -- "\ss en" Kla -- gen - fle -- hen sie für 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üh -- ren mit den Sil -- ber -- tö -- 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ö -- re mich! + Lieb -- chen, hö -- re mich! be -- bend harr' ich dir ent -- ge -- gen! - komm, be -- glük -- ke mich! - komm, be -- glük -- ke mich, __ - be -- glük -- 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äßig"\pp -. -. -. -. -. | +trebleIntro = \relative c{ + r8^"\bf Mäßig"\pp -. -. -. -. -. | r8 -. -. -. -. -. | r8 -. -. -. -. -. | r8 -. -. -. -. -. | } -trebleVerseOne = \notes\relative c{ +trebleVerseOne = \relative c{ %5 r8 | r8 | @@ -193,14 +188,12 @@ trebleVerseOne = \notes\relative c{ r8\pp | %20 r8 | - \property Voice.Slur \override #'attachment = #'(stem . stem) \grace { - \property Voice.Stem \override #'stroke-style = #"grace" + \override Stem #'stroke-style = #"grace" as'32[( bes ] - \property Voice.Stem \revert #'stroke-style } + \revert Stem #'stroke-style } \times 2/3 { as8[)( g as] } c4.-> as8) | - \property Voice.Slur \revert #'attachment g2. | r8 | r8 | @@ -210,8 +203,8 @@ trebleVerseOne = \notes\relative c{ 4.-> 8) | } -trebleEentje = \notes \relative c' \context Voice { - \stemBoth +trebleEentje = \relative c' \context Voice { + \stemNeutral 2 r4 | 2\(\mf 8.(-> 16)\) | % urg: slurs with staccati are ugly @@ -225,8 +218,8 @@ trebleEentje = \notes \relative c' \context Voice { 2 r4 | } -trebleThrough = \notes \relative c'{ - \stemBoth +trebleThrough = \relative c'{ + \stemNeutral 2. | %61 R2. | @@ -256,9 +249,9 @@ trebleThrough = \notes \relative c'{ 4.-> 8) 2. | 2. | - \property Voice . TextScript \override #'font-shape = #'italic + \override TextScript #'font-shape = #'italic 2._"decresc." - \property Voice . TextScript \revert #'font-shape + \revert TextScript #'font-shape %75 2. | @@ -270,15 +263,15 @@ trebleThrough = \notes \relative c'{ 4. 8(-. -. )-. | %80 - \property Voice . TextScript \override #'font-shape = #'italic + \override TextScript #'font-shape = #'italic 2._"dim." - \property Voice . TextScript \revert #'font-shape + \revert TextScript #'font-shape 2. | 2.\fermata | } -bassIntro = \notes\relative c{ +bassIntro = \relative c{ \dynamicUp %1 2 r4 | @@ -287,7 +280,7 @@ bassIntro = \notes\relative c{ 2 r4 | } -bassVerseOne = \notes\relative c{ +bassVerseOne = \relative c{ % \clef bass \dynamicUp %5 @@ -319,7 +312,7 @@ bassVerseOne = \notes\relative c{ c,8 [ ] | } -bassEentje = \notes\relative c{ +bassEentje = \relative c{ \dynamicUp 8 [ ] | c,8 [ ] | @@ -331,7 +324,7 @@ bassEentje = \notes\relative c{ c,8 [ ] | } -bassThrough = \notes\relative c{ +bassThrough = \relative c{ \dynamicUp %61 8^"cresc." [ -> ] | @@ -365,7 +358,7 @@ bassThrough = \notes\relative c{ 2._\fermata | } -global = \notes{ +global = { \time 3/4 \key es \major \skip 1 * 3/4 * 4 @@ -380,15 +373,15 @@ global = \notes{ \bar "|." } -allLyrics = { +allLyrics = { % maybe should be bigger by default, in grob-description.scm ? - \lyricsto "leise" \new LyricsVoice { + \lyricsto "leise" \new Lyrics { \lyricVerseOne \lyricVerseTwo \lyricThrough } } -vocals = \context Voice = leise \notes { +vocals = \new Voice = "leise" { \clef treble % certainly no auto-beaming for vocals \autoBeamOff @@ -403,20 +396,22 @@ vocals = \context Voice = leise \notes { R1 * 3/4 * 6 } -trebleStaff = \context Staff = treble<< - \property Staff.midiInstrument = "acoustic grand" +trebleStaff = \new Staff = "treble"<< + \set Staff.midiInstrument = "acoustic grand" \global - {\clef treble - \property Voice.autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1) - \trebleIntro - \trebleVerseOne - \trebleEentje - \trebleVerseOne - \trebleThrough } + { + \clef treble + + \trebleIntro + \trebleVerseOne + \trebleEentje + \trebleVerseOne + \trebleThrough + } >> -bassStaff = \context Staff = bass<< - \property Staff.midiInstrument = "acoustic grand" +bassStaff = \new Staff = "bass"<< + \set Staff.midiInstrument = "acoustic grand" \global \clef bass {\bassIntro @@ -430,7 +425,7 @@ bassStaff = \context Staff = bass<< \score{ << \new Staff << - \property Staff.midiInstrument = "synth voice" + \set Staff.midiInstrument = "synth voice" %% insert \transpose if necessary, depending on voice range. \global \vocals @@ -441,20 +436,26 @@ bassStaff = \context Staff = bass<< \bassStaff >> >> - \paper { + \layout { % Use % textheight = 280.\mm - % linewidth = 190.\mm + % line-width = 190.\mm % to get this on 3 pages of a4. % Mandatory Mutopia settings yield 4 pages :( textheight = 270.0\mm - linewidth = 180.0\mm + line-width = 180.0\mm - \translator { \RemoveEmptyStaffContext } + \context { \RemoveEmptyStaffContext } } - \midi{ - \tempo 4 = 54 + + \midi { + \context { + \Score + tempoWholesPerMinute = #(ly:make-moment 54 4) + } } + + }