X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mutopia%2FF.Schubert%2Fstandchen.ly;h=b18bcd53887c96c6899582ce9b8f1ce12b3079ff;hb=20091095d3ac112fa0d0c55c8e2b8092584be4b2;hp=51b3ba5798f0d5ec938a4ff277789e6748e27336;hpb=0cf97b5cdceecbba937f43ac827f4065aad5001e;p=lilypond.git diff --git a/mutopia/F.Schubert/standchen.ly b/mutopia/F.Schubert/standchen.ly index 51b3ba5798..b18bcd5388 100644 --- a/mutopia/F.Schubert/standchen.ly +++ b/mutopia/F.Schubert/standchen.ly @@ -1,25 +1,55 @@ -\header{ -filename = "standchen.ly"; -title = "St\\\"andchen"; -subtitle = "(Serenade)\\\\``Leise flehen meine Lieder''"; -opus = "D. 957 No. 4"; -date = "August 1828"; -composer = "Franz Schubert (1797-1828)"; -poet= "Text by Ludwig Rellstab (1799-1860)"; -enteredby = "JCN"; -copyright = "public domain"; + +% #(set! point-and-click line-column-location) + +instrument = "Piano" + +\header { + title = "Ständchen" + subtitle = "(Serenade)" + subsubtitle = "Leise flehen meine Lieder" + opus = "D. 957 No. 4" + date = "August 1828" + composer = "Franz Schubert (1797-1828)" + poet = "Text by Ludwig Rellstab (1799-1860)" + enteredby = "JCN" + copyright = "public domain" + % instrument = \instrument + + % mutopia headers. + mutopiatitle = "Standchen" + mutopiasubtitle = "Leise flehen meine Lieder" + mutopiacomposer = "Franz Schubert (1797-1828)" + mutopiapoet = "Ludwig Rellstab (1799-1860)" + mutopiaopus = "D957.4" + mutopiainstrument = \instrument + date = "1828/08" + style = "Romantic" + source = "Schubert-Lieder Edition Schott No. 608, (Not dated). + Jubilaeums-Ausgabe zum 100. Todestage (~1928)." + + copyright = "Public Domain" + maintainer = "Jan Nieuwenhuizen" + maintainerEmail = "janneke@gnu.org" + lastupdated = "2001/Apr/27" + mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\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 + + ".\\\\Unrestricted modification and redistribution is permitted + and encouraged---copy this music and share it.}" + tagline = \mutopiapublicdomain + footer = "Mutopia-2001/04/27-xx" } -%{ - Tested Features: multivoice accents lyrics chords piano music -multiple \paper{}s in one \score -Note: Original key F. -%} +\version "1.3.146" -\version "1.2.0"; +dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1 +dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction -vocalVerse = \notes\relative c''{ - \property Voice.dynamicDirection=1 +\include "paper16.ly" + +vocalVerse = \notes\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 } | @@ -34,21 +64,21 @@ vocalVerse = \notes\relative c''{ R2. | g8. b16 es4. d8 | c8. g16 es4. c8 | - \grace { as'16 bes } \times 2/3 { [ )as8( )g] as } c4. as8 | + \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 | g2. | - \grace { f16( g } \times 2/3 { [ )f8( )e] f } as4. f8 | + \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 | es!2. | g8. b16 es4. d8 | c8. g16 e4. c8 | - \grace { a'16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | + \grace { [ a'32( b ] } \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{ - \property Voice.dynamicDirection=1 +vocalThrough = \notes\relative c{ + \dynamicUp g''8. g16 b8. b16 d8. d16 | c4 b r | g4. b8 d8. c16 | @@ -57,80 +87,86 @@ vocalThrough = \notes\relative c{ a8. b16 c4-> a8 r | R2. | R2. | - \grace { a16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | + \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | g!2. | \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 | as2. | g | e2 r4 | } -lyricVerseOne = \lyrics{ - Lei- se fleh- en mei- ne Lie- der - Durch die Nacht zu dir; - In den stil- len Hain her- nie- der - Lieb- chen, komm zu mir! +lyricVerseOne = \lyrics{ + 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 - In des Mon- des Licht, - In des Mon- des Licht; + Fl\"us -- 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\"a -- ters feind -- lich Lau -- schen + f\"urch -- te, Hol -- de, nicht, + f\"urch -- te, Hol -- de, nicht. } -lyricVerseTwo = \lyrics{ - H\"orst die Nach- ti- gal- len schla- gen? - Ach! sie fleh- en dich, - Mit der T\"o- ne s\"u- "\ss en" Kla- gen - Fleh- en sie f\"ur mich. +lyricVerseTwo = \lyrics{ + H\"orst 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. - Sie- ver- "steh'n" des Bus- ens Seh- nen - Ken- nen Lieb- es- schmerz, - Ken- nen Lieb- es- schmerz. + 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 - Jed- es wei- che Herz, - Jed- es wei- che Herz. + r\"uh -- ren mit den Sil -- ber -- t\"o -- nen + jed -- es wei -- che Herz, + jed -- es wei -- che Herz. } -lyricThrough = \lyrics{ - La\ss auch dir die Brust be- we- gen - Lieb- chen, h\"o- re mich! - Be- bend harr' ich dir ent- ge- gen! +lyricThrough = \lyrics{ + La\ss auch dir die Brust be -- we -- gen + Lieb -- chen, h\"o -- 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\"uk -- ke mich! + komm, be -- gl\"uk -- ke mich, __ + be -- gl\"uk -- ke mich! } -trebleIntro = \notes\relative c{ +trebleIntro = \notes\relative c{ r8^"\bf M\\\"a\\ss ig"\pp | r8 | r8 | r8 | - \break } -trebleVerseOne = \notes\relative c{ +trebleVerseOne = \notes\relative c{ %5 r8 | r8 | r8 | r8 | <)f8 d> - \times 2/3 { < [ f( d> <)d b] > } | + % manual beam override bug + %\times 2/3 { < [f( d> <)d b] > } | + \times 2/3 < { [ f( es )d ] } { d c b } > | %10 | r8 | r8 | - r8 | - r8 - <{ es'( ) d4.() f8}{ c' | bes4. as8 } > - \times 2/3 { < [f( as> <)d f] > } | + r8 | + % manual beam override bug + % r8 < [ es g bes> + r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } > + <{ es'( ) d4.() f8}{ c' | bes4. as8 } > + % manual beam override bug + % \times 2/3 { < [f( as> <)d f] > } | + \times 2/3 < { [ f( es )d ] } { as g f } > | %16 | r8 | @@ -138,34 +174,35 @@ trebleVerseOne = \notes\relative c{ r8\pp | %20 r8 | - \grace { as'16( bes } \times 2/3 { [ )as8( g as] } c4.-> ) as8 | + \property Voice.Slur \override #'attachment = #'(stem . stem) + \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 | + \property Voice.Slur \revert #'attachment g2. | r8 | r8 | r8 | r8 | - \times 2/3 < - { [ f'8\f( e f] } - { f' e f } > + \times 2/3 < { [ f'8\f( e f] } { f' e f } > < {a4.- > )f8} { a'4. f8 } > | } -trebleEentje = \notes \relative c'{ - \context Voice=one \property Voice.verticalDirection = 0 - | - ( c> <)f16 )as> | +trebleEentje = \notes \relative c'{ + \stemBoth + r4 | + ( c> | + % urg: slurs with staccati are ugly | | | - | - | + | + | | %60 - | + r4 | } -trebleThrough = \notes \relative c'{ - \context Voice=one \property Voice.verticalDirection = 0 +trebleThrough = \notes \relative c'{ + \stemBoth | %61 R2. | @@ -174,33 +211,37 @@ trebleThrough = \notes \relative c'{ [ d,-> > c16] | %65 - < { d,2.\f a'2} { e2. ~ e2 } { b'2. c,2 }> r4 | + < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 | \context Staff < - { - \context Voice=one \property Voice.verticalDirection = 1 - a8. b16 c4-> () a8 r | - a8. b16 c4-> () a8 r | + \context Voice=one { + \voiceOne + %urg + %a8. b16 c4-> () a8 r | + a8. b16 c4^> () a8 r | + %a8. b16 c4-> () a8 r | + a8. b16 c4^> () a8 r | } - { - \context Voice=two \property Voice.verticalDirection = -1 + \context Voice=two { + \voiceTwo | | } > - \context Voice=one \property Voice.verticalDirection = 0 + % 4 bars copied from end verse1 r8 | %70 r8 | - \times 2/3 < { [ f'8\f( e f] } - { f' e f }> + \times 2/3 < { [ f'8\f( e f] } { f' e f } > < { a4.-> )f8 } { a'4. f8 } > | - r4 | - r4 | - \property Voice . textStyle = "italic" - r4 | + | + | + \property Voice . TextScript \override #'font-shape = #'italic + | + \property Voice . TextScript \revert #'font-shape + %75 - r4 | + | | % four copied from begin eentje @@ -208,14 +249,17 @@ trebleThrough = \notes \relative c'{ | | %80 - \property Voice . textStyle = "italic" + + \property Voice . TextScript \override #'font-shape = #'italic | + \property Voice . TextScript \revert #'font-shape + | | } -bassIntro = \notes\relative c{ - \property Voice.dynamicDirection=1 +bassIntro = \notes\relative c{ + \dynamicUp %1 r4 | r4 | @@ -223,9 +267,9 @@ bassIntro = \notes\relative c{ r4 | } -bassVerseOne = \notes\relative c{ -% \clef bass; - \property Voice.dynamicDirection=1 +bassVerseOne = \notes\relative c{ +% \clef bass + \dynamicUp %5 r4 | r4 | @@ -255,8 +299,8 @@ bassVerseOne = \notes\relative c{ c,8 [ ] | } -bassEentje = \notes\relative c{ - \property Voice.dynamicDirection=1 +bassEentje = \notes\relative c{ + \dynamicUp [ ] | c,8 [ ] | [ ] | @@ -267,14 +311,14 @@ bassEentje = \notes\relative c{ c,8 [ ] | } -bassThrough = \notes\relative c{ - \property Voice.dynamicDirection=1 +bassThrough = \notes\relative c{ + \dynamicUp %61 [ b-> d->> ] | [ b-> d->> ] | % copied [ b-> d->> ] | - [ b-> d->> ] | + [ b-> d->> ] | %65 [ e> ] | [ ] | @@ -294,55 +338,66 @@ bassThrough = \notes\relative c{ c,8 [ ] | c,8 [ ] | c,8 [ ] | - [ ] | + g,8 [ ] | %80 c,8 [ ] | c,8 [ ] | | } -global = \notes{ - \time 3/4; - \key es; - \skip 4 * 12; +global = \notes{ + \time 3/4 + \key es \major + \skip 1 * 3/4 * 4 + \break + \skip 1 * 3/4 * 25 \break - \skip 4 * 234; - \bar "|."; + \skip 1 * 3/4 * 6 + \break + \skip 1 * 3/4 * 41 + \break + \skip 1 * 3/4 * 6 + \bar "|." } allLyrics = \lyrics { + % 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 \lyricVerseOne \lyricVerseTwo \lyricThrough } -lyricStaff = \context Lyrics = lyric< +lyricStaff = \context Lyrics { \allLyrics -> +} -vocals = \notes{ - \clef treble; +vocals = \context Voice \notes { + \clef treble % certainly no auto-beaming for vocals - \property Voice.noAutoBeaming = "1" - \property Staff.automaticMelismata=1 + \property Voice.noAutoBeaming = ##t + \property Staff.automaticMelismata= ##t - \property Voice.dynamicDirection = \up - \skip 4 * 12; + \dynamicUp + % duh 1 != 3/4 + R1 * 3/4 * 4 \vocalVerse - \skip 4 * 24; + R1 * 3/4 * 8 \vocalVerse \vocalThrough + R1 * 3/4 * 6 } -vocalStaff = \context Staff = vocal< - \property Staff.instrument = "synth voice" +vocalStaff = \context Staff = vocal< + \property Staff.midiInstrument = "synth voice" \global \vocals > -treble = { - \clef treble; - \property Voice.beamAutoBegin=0 +treble = { + \clef treble + \property Voice.autoBeamSettings \override #'(begin * * * *) = #(make-moment 0 1) \trebleIntro \trebleVerseOne \trebleEentje @@ -350,13 +405,13 @@ treble = { \trebleThrough } -trebleStaff = \context Staff = treble< +trebleStaff = \context Staff = treble< + \property Staff.midiInstrument = "acoustic grand" \global \treble > - -bass = { - \clef bass; +bass = { + \clef bass \bassIntro \bassVerseOne \bassEentje @@ -364,12 +419,14 @@ bass = { \bassThrough } -bassStaff = \context Staff = bass< +bassStaff = \context Staff = bass< + \property Staff.midiInstrument = "acoustic grand" \global \bass > -grandStaff = \context PianoStaff < +grandStaff = \context PianoStaff < + \trebleStaff \bassStaff > @@ -390,16 +447,23 @@ grandStaff = \context PianoStaff < %} \addlyrics - %\context Staff=vocal \vocalStaff - %\context Lyrics=lyric \lyricStaff \vocalStaff \lyricStaff \grandStaff > - \paper { + \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; + \tempo 4 = 54 } }