+#(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;
+ 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";
- maintainer_email = "janneke@gnu.org";
- lastupdated = "2001/Mar/26";
- mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small
+ 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/26"
+ mutopiapublicdomain = "\\parbox{\\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/03/26-xx";
+ and encouraged---copy this music and share it.}"
+ tagline = \mutopiapublicdomain
+ footer = "Mutopia-2001/04/26-xx"
}
-\version "1.3.141";
+\version "1.3.146"
dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1
dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction
R2. |
g8. b16 es4. d8 |
c8. g16 es4. c8 |
- % CHECK
- % \grace { as'16 bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
- \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. |
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 |
}
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!
+ 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.
+ 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!
+ 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{
r8 <as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.> |
r8 <as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.> |
r8 <g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.> |
- \break
}
trebleVerseOne = \notes\relative c{
r8 <f g b> <g b d> <f g b> <g b d> <f g b> |
r8 <es g c> <g c es> <es g c> <g c es> <es g c> |
<g''4.( b,> <)f8 d>
- \times 2/3 { < [ f( d> <es c> <)d b] > } |
+ % manual beam override bug
+ %\times 2/3 { < [f( d> <es c> <)d b] > } |
+ \times 2/3 < { [ f( es )d ] } { d c b } > |
%10
<c2. es> |
r8 <g, c> <c es> <g c> <c es> <g c> |
r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
- r8 <f as bes> <as bes d> <f g bes> <as bes d> <f g bes> |
- r8 <es g bes> <g bes es> <es g bes> <g bes es>
- <{ es'( ) d4.() f8}{ c' | bes4. as8 } >
- \times 2/3 { < [f( as> <es g> <)d f] > } |
+ r8 <f as bes> <as bes d> <f g bes> <as bes d> <f as bes> |
+ % manual beam override bug
+ % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] >
+ 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> <es g> <)d f] > } |
+ \times 2/3 < { [ f( es )d ] } { as g f } > |
%16
<es2. g> |
r8 <f, g> <g b> <f g> <g b> <f g> |
r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
%20
r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
- \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 <f, g> <g b> <f g> <g b> <f g> |
r8 <e g> <g c> <e g> <g c> <e g> |
r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
- \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'{
\stemBoth
- <e2 e'> <e4 g>|
- <f2\mf as!(> <as8.->( c> <)f16 )as> |
+ <e2 e'> r4 |
+ <f2\mf as!\(> <as8.->( c> <f16 \))as> |
+ % urg: slurs with staccati are ugly
<e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
<e2 g> <e4\pp g> |
- <f2 a(> <a8. c> <f16 )a> |
- <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+ <f2 a\(> <a8.( c> <f16 \))a> |
+ <e4.\( g> <e8-.( g-.> <e-. g-.> <e-. \))g-.> |
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
%60
- <e2. g> |
+ <e2 g> r4 |
}
trebleThrough = \notes \relative c'{
<g4. g'> <b8 b'> [<d'8.-> 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 {
\voiceOne
- a8. b16 c4-> () a8 r |
- a8. b16 c4-> () a8 r |
+ %urg
+ %a8. b16 c4-> () a8 r |
+ a8. b16 c4^> () a8 r |
+ %a8. b16 c4-> () a8 r |
+ a8. b16 c4^> () a8 r |
}
\context Voice=two {
\voiceTwo
r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
%70
r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
- \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 } > |
- <e2 e'> r4 |
- <es!2 es'! > r4 |
- \property Voice . TextItem \override #'font-style = #'italic
- <d2_"decresc." d'> r4 |
- \property Voice . TextItem \revert #'font-style
+ <e2. e'> |
+ <es!2. es'! > |
+ \property Voice . TextScript \override #'font-shape = #'italic
+ <d2._"decresc." d'> |
+ \property Voice . TextScript \revert #'font-shape
%75
- <b2 b'> r4 |
+ <b2. b'> |
<c2 c'> <e4\pp g> |
% four copied from begin eentje
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
%80
- \property Voice . TextItem \override #'font-style = #'italic
+ \property Voice . TextScript \override #'font-shape = #'italic
<e2._"dim." g> |
- \property Voice . TextItem \revert #'font-style
+ \property Voice . TextScript \revert #'font-shape
<g,2. e' g> |
<g2.-\fermata e' g> |
}
bassVerseOne = \notes\relative c{
-% \clef bass;
+% \clef bass
\dynamicUp
%5
<c,2 c'> r4 |
<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
% copied
<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
- <g,8 g'> [<g' d' e> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
+ <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
%65
<gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
<a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
c,8 [<c' e> <e g> <c e> <e g> <c e>] |
c,8 [<c' f> <f as> <c f> <f as> <c f>] |
c,8 [<c' e> <e g> <c e> <e g> <c e>] |
- <g,8 g'> [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+ g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
%80
c,8 [<c' e> <e g> <c e> <e g> <c e>] |
c,8 [<c' g> <e c> <c g> <e c> <c g>] |
}
global = \notes{
- \time 3/4;
- \key es \major;
- \skip 4 * 12;
+ \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 {
+allLyrics = \lyrics {
+ % maybe should be bigger by default, in grob-description.scm ?
+ \property Lyrics . LyricText \override #'font-relative-size = #1
\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 = ##t
\property Staff.automaticMelismata= ##t
\dynamicUp
- \skip 4 * 12;
+ % 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"
+ \property Staff.midiInstrument = "synth voice"
\global
\vocals
>
treble = {
- \clef treble;
+ \clef treble
\property Voice.autoBeamSettings \override #'(begin * * * *) = #(make-moment 0 1)
\trebleIntro
\trebleVerseOne
}
trebleStaff = \context Staff = treble<
+ \property Staff.midiInstrument = "acoustic grand"
\global
\treble
>
-
bass = {
- \clef bass;
+ \clef bass
\bassIntro
\bassVerseOne
\bassEentje
}
bassStaff = \context Staff = bass<
+ \property Staff.midiInstrument = "acoustic grand"
\global
\bass
>
grandStaff = \context PianoStaff <
+
\trebleStaff
\bassStaff
>
%}
\addlyrics
- %\context Staff=vocal \vocalStaff
- %\context Lyrics=lyric \lyricStaff
\vocalStaff
\lyricStaff
\grandStaff
>
- \paper {
- \translator { \HaraKiriStaffContext }
+ \paper {
+ % arg, if it weren't for the mutopia margins, this would
+ % fit on three a4 pages, like the original
+ % Mandatory Mutopia settings:
+ textheight = 270.0\mm
+ linewidth = 180.0\mm
+
+ \translator {
+ \HaraKiriStaffContext
+ }
}
\midi{
- \tempo 4 = 54;
+ \tempo 4 = 54
}
}
projects / lilypond.git / blobdiff