Nachts (Josephine Lang)/score
Zur Navigation springen
Zur Suche springen
\version "2.20.0"
\language "deutsch"
#(use-modules (ice-9 regex))
\paper {
#(set-paper-size "b4")
#(include-special-characters)
system-system-spacing.basic-distance = #16
markup-system-spacing.basic-distance = 12
oddHeaderMarkup = ##f
evenHeaderMarkup = ##f
oddFooterMarkup =\markup \fill-line { \null \concat { "Quelle: Verlag Fr. Kistner, Leipzig 1844, Platte #1435" } \null }
evenFooterMarkup = \markup \fill-line { \null \concat { \char #169 " Public Domain" } \null }
ragged-right = ##f
ragged-last = ##f
ragged-bottom = ##f
ragged-last-bottom = ##f
top-margin = 15\mm
bottom-margin = #10
left-margin = 15\mm
right-margin = #left-margin
%page-breaking = #ly:minimal-breaking
%page-breaking = #ly:one-page-breaking
annotate-spacing = ##f
#(define fonts
(set-global-fonts
#:music "Ross"
#:brace "emmentaler"
#:roman "Century Schoolbook L"
#:sans "sans-serif"
#:typewriter "monospace"
))
}
\header {
title = \markup \override #'(font-name . "Edwardian Script ITC")
\fontsize #9 "Nachts"
subtitle = ""
opus = "Opus 12 Nr. 2"
composer = "Josephine Lang"
enteredby = "mc"
poet = "abgeschrieben von Monika M. C."
}
hps =
#(define-music-function (li re)
(number? number?)
#{
\once \override Hairpin.shorten-pair = #`(,li . ,re)
#}
)
\layout {
\context {
\PianoStaff
\consists #Span_stem_engraver
\remove Keep_alive_together_engraver
}
\context {
\Staff
\RemoveAllEmptyStaves
\remove "Dot_column_engraver"
}
\context {
\StaffGroup
\remove System_start_delimiter_engraver
}
\context {
\Voice
\consists "Dot_column_engraver"
\override TextScript.font-name = #"French Script MT"
\override TextScript.font-size = #6
}
\context {
\Score
\override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
\override BarNumber.layer = #-200
\override BarNumber.outside-staff-priority =#'()
\override BarNumber.padding = #1
\override BarNumber.font-size = #-1.9
\override BarNumber.font-series = #'bold
\override BarNumber.self-alignment-X = #0
}
\context {
\Lyrics
\override LyricHyphen.dash-period = #6
\override LyricHyphen.length = #1
\override LyricHyphen.thickness = #1
\override LyricHyphen.height = #1
\override LyricHyphen.minimum-distance = #3
}
}
dynamictext =
#(define-event-function (text) (markup?)
(if (string? text)
(let* ((underscores-replaced
(string-map
(lambda (x) (if (eq? x #\_) #\space x))
text))
(split-text (string-split underscores-replaced #\space))
(formatted (map
(lambda (word)
(if (string-match "^[mrzfps]*$" word)
(markup #:dynamic word)
(markup #:normal-text
#:override '(font-size . 6)
#:override '(font-name . "French Script MT") word)))
split-text)))
#{
#(make-dynamic-script (make-line-markup formatted))
#})
;; user provided a full-blown markup, so we don't mess with it:
#{
#(make-dynamic-script (markup #:normal-text text))
#}))
Alt =
\relative c' {
\key e \major
\time 6/8
R2. * 7
r4 r8 r4 h8
gis'4. fis
a gis4 gis8
fis4. e
h2.
r4 r8 e4.
fis( gis4) gis8
e4. r4 r8
R1*6/8
gis4. fis4 fis8
a4. gis
fis e4 e8
h2.
r4 r8 e4.
fis gis4 gis8
e2.~
e4. r4 r8
r4 r8 gis4.
h~ h4 gis8
ais2.
gis4. r4 r8
r4 r8 gis4.
h~ h4 dis,8
fis2.~
fis4. r4 dis8
dis4. h4 h8
fis'4( dis8) a'4( fis8)
cis'4.(~ cis4 a8)
fis4. r4 dis8
e4.( h4) h8
h4. h
h^\<( dis4)\> cis8\!
h4.~ h4 r8
r4 r8 r4 e8
gis4 h,8 e[( gis]) h
d4.~ d4 h8
e,4.~ e4 e8
e'2.~
e4 cis8 \autoBeamOff a gis fis
h2.\(
gis4.\) r4 h8
e2.(
dis4.) dis
dis2.
cis4.~ cis4 cis8
cis2.(
dis) e
gis~
gis4. fis->
e-> dis4 cis8
h4. e~
e gis,
h2.~_\markup \italic "dim."
h\( e,\)
R2. * 5
<<
{ \oneVoice R2. }
\\
{
%% Anzeige der letzten Zeile erzwingen!
\override NoteHead.transparent = ##t
\override Stem.transparent = ##t
e2
}
>>
R2.\fermataMarkup
}
dynalt = {
s2. * 26
s2.\p
s2. * 6
s2.\< s\! s
s\p s\pp
s\dynamictext "ritart."
s s2 s8 s\f
s2. s s
s\f s4 s8 s\> s s
s2.\p s s\p s s\p
s s\< s\! s
s\ff s s
s\< s\> s\<
\override Hairpin.to-barline = ##f
s\> s\!
}
dynpio = {
s2.\pp
s4.\<
\override Hairpin.to-barline = ##f
s\> s\! s
s2. s4. s\< s\! s
\override Hairpin.to-barline = ##t
s2.\> s\p
s s s s
s\< s\!
s4.\> s4 s8\< s4 s4\> s s\! s2
s2. * 5
\once \override Hairpin.shorten-pair = #'(0 . -2)
s2.\<
\once \override Hairpin.shorten-pair = #'(2 . 0)
s4.\> s4.
s2.\!
s s s
\once \override Hairpin.shorten-pair = #'(-1 . 0)
s\< s\!
s\p\<
\once \override Hairpin.shorten-pair = #'(0 . 2)
s\> s\p
s s4.
\once \override Hairpin.shorten-pair = #'(0 . 4)
s\> s4. s\!
s2.\pp
s2.
s\dynamictext "ritart."
s
s\ff s s s
s\ff
s4 s2\> s2.\p s2 s8 s8\pp
s2. s s s
s4
\once \override Hairpin.shorten-pair = #'(0 . 3)
s2\< s2 s4\!
\once \override DynamicText.self-alignment-X = #-1
s2.\dynamictext "cres."
s4 s8\ff s4.
s2. s s s
s4. s\< s2.\> s\!
s s s2 s4\p\<
s2. s\!
s2
s4\> s8 s\! s8\pp
}
struktur = {
\override Score.NonMusicalPaperColumn.page-break-permission = ##f
\override StaffGroup.VerticalAxisGroup.staff-staff-spacing.basic-distance = #20
\override PianoStaff.VerticalAxisGroup.staff-staff-spacing.basic-distance = #10
s2. * 34 \pageBreak
}
Text = \lyricmode {
\override LyricHyphen.dash-period = #4.5
\override LyricHyphen.length = #1.2
\override LyricHyphen.height = #0.27
Im Wal -- de weit auf der Hai -- de breit kein Hauch, kein Hauch!
Le -- ge Dich mü -- der Wan -- der -- er
auch jetzt un -- ter den Strauch! __
Ist al -- les Stil -- le! Ist al -- les Ruh! __
Be -- schlos -- sen in Frie -- dens Schran -- ken
ist al -- les Stil -- le, al -- les Ruh! __
Der Bach nur stür -- met im -- mer -- zu
und mei -- ner Lie -- be Ge -- dan -- ken,
und mei -- ner Lie -- be Ge -- dan -- ken,
mei -- ner Lie -- be Ge -- dan -- _ _ _ ken!
}
RechteHand =
\relative c'' {
\key e \major
\once \override Score.MetronomeMark.X-offset = #-4
\tempo \markup \caps "Allegro"
\override Slur.height-limit = #6
\shape #'((0 . 0) (1 . 0) (3 . 0) (5 . 0)) Slur
gis4.(^\markup \italic "molto legato" e
\change Staff=down <h, fis' a h >2.
\change Staff=up
gis''4. e
\change Staff=down
< h, fis' a h >2.)
\once \override Slur.details.max-slope = 0
\shape #'((0 . 4) (0 . 3) (0 . 0) (3 . 0)) Slur
< dis fis a h >4.( < e a cis >
\change Staff=up
\override TextScript.self-alignment-X = #0
\override TextScript.outside-staff-priority = ##f
\override TextScript.padding = #0
\once \override TextScript.extra-offset = #'(0 . -4.5)
dis'4.^\markup \italic "legato" e
< fis cis a > < gis dis h >)
e2.
< gis e >4. < h, dis fis >
< a h dis a' >\arpeggio < gis h e gis >
< a h dis fis > < gis h e >
\change Staff=down
< dis fis a h >4. < e a cis >
\change Staff=up
< fis a dis >4. < gis h e >
< a cis fis > < h dis gis>
e \change Staff=down
< cis, e a cis >4.
< cis fis a cis > < dis fis a h >
\change Staff=up
< e' gis >4. < h dis fis >4 < h dis fis >8
< a h dis a' > 4. < e' gis >
< dis fis > e
\change Staff=down
< dis, fis a h >4. < e a cis >
\change Staff=up
dis'4. e
< a, cis fis > < h dis gis >
e2. ~
e4. e
< gis, h e gis > <gis cis e gis >
< gis h dis gis > < gis h dis >
fisis'2.
gis
< e gis >4. < cis e gis >
< h dis gis > < h dis fis >
\change Staff=down
\shape #'((0 . 4) (0 . 3) (0 . 1) (-1 . 0)) Slur
< e,! fis ais cis >( < e fis ais cisis >
\change Staff=up
dis'2.) dis
< a h dis fis >4. < h dis fis a >
\once \override NoteColumn.force-hshift = #0.7
cis'2.^\f(
\once \override NoteColumn.force-hshift = #1.5
h4.) a
< e gis > < dis fis >
e \change Staff=down < h, fis' a h >^\<
< h e gis h >\>
< e g ais >
h'2.\!
\change Staff=up
< e gis >4.-^ < e gis >4.-^
< e gis >4.-^ < e gis >4.-^
< h d gis h > < d! e a d >
< d e h' d > q
< cis e h' cis > q
< cis e a cis > < a cis fis a >
fis' fisis
<<
{ \once \override NoteColumn.force-hshift = #1.2 gis2. }
\\
{ \voiceOne e4. }
>>
< e gis >4. < cis e gis >
< his dis gis > < his dis gis >
fis'2.
< ais, cis fis >4. < ais cis fis >4.
e'2.
e
e2.(
< e gis >4. q
e2.
\once \override NoteColumn.force-hshift = #2
fis2.)
\once \override NoteColumn.force-hshift = #1.4
gis2.
<gis, h e gis >4. <gis h e gis >4.
a'2.~ a
< e gis >4. e
\change Staff=down
< h, fis' a h >2.
\change Staff=up
gis''4. e
s2. s
dis4. e
< a, cis fis > 4. < h dis gis >^\fz
e2.\fermata \bar "|."
}
LinkeHandAkkord =
\relative c' {
\key e \major
\crossStaff {
< gis h >4. < e gis >
s2.
< gis h >4. < e gis >
s2. s2.
< fis a >4. < gis h >
s2.
< e gis >2.
< gis h >4. fis
s2. * 7
< gis h >4. fis4 fis8
s4. < gis h >
< a h > < gis h >
s2.
< fis a >4. < gis h >
s2.
< e gis > 4. < cis e a cis >
< e gis h > < e gis h >
s2.
s2.
< fisis ais dis >4. < fisis ais dis >
< gis h dis > < gis h dis >
< gis h > gis
gis fis
s2.
< dis fis h >4. < dis fis h >
< dis fis h > < dis fis h >
s2.
\change Staff=up
\voiceTwo
< dis' fis a >4. q
\once \override DotColumn.after-line-breaking =
#(lambda (grob)
(for-each
(lambda (grob) (ly:grob-translate-axis! grob 1.5 X))
(take (ly:grob-array->list (ly:grob-object grob 'dots)) 3)))
q < h dis fis >
\change Staff=down
\voiceOne
< gis h >4. < a h >
< gis h > s
s2.
\voiceTwo
<dis fis >4. <dis fis >4.
\voiceOne
< gis h > < gis h >
< gis h > < gis h >
s2. * 4
< a h dis >2.
<gis h >4. <gis h >4.
<gis h >4. gis
gis gis
< fis h dis > < fis h dis >
fis fis
< e a! cis > < e a cis >
< e a c > < e a c >
< e gis h > < e gis h >
< e gis > < e gis >
< e fis ais cis > < e fis ais cis >
\change Staff=up
\voiceTwo
< ais cis e > q
< gis h e > q
\change Staff=down
\voiceOne
s2.
< a! h dis >4. < a h dis >
< a h dis > < a h dis >
< gis h > < e gis >
s2.
< gis h >4. < e gis >
< h fis' a h >2.
< dis fis a h >4. < e a cis >
< fis a > < gis h >
s2.
< e gis >2.
}
}
LinkeHandBass =
\relative c, {
\key e \major
r4 e8 r4 e8
e4 e8 dis4 h8
r4 e8~ e4 e8~
e4 e8 dis4 h8~
h4 h'8~ h4 h,8~
h4 h'8~ h4 h,8~
h4 h'8~ h4 h,8~
h4 h8 < e e, >4.
r4 <h h' >8~ < h h' >4 <h h' >8~
< h h' >4 <h h' >8~ < h h' >4 <h h' >8
r4 h8~ h4 h'8
r4 h,8~ h4 h'8~
h4 h,8~ h4 h'8
r4 h,8~ h4 h'8
r4 e,8 r4 < a, a' >8
r4 < fis fis' >8 r4 < h h' >8
r4 h'8~ h4 h,8~
h4 h'8~ h4 h8~
h4 h8~ h4 h8~
h4 h,8~ h4 h'8~
h4 h,8~ h4 h'8
r4 <h, h' >8~ < h h' >4 <h h' >8
r4 e8~ e4 < a, a' >8~
<a a' >4 e'8~ e4 e'8
r4 < e, e' >8 r4 < cis cis' >8
r4 <gis gis' >8~ < gis gis' >4 <gis gis' >8~
< gis gis' >4 < dis' dis' >8 r4 < dis dis' >8
r4 gis8 r4 gis8
r4 <e e' >8 r4 <e e' >8
r4 <gis, gis' >8 r4 < h h' >8
r4 fis'8~ fis4 fis8
r4 < h, h' >8 r4 < h h' >8
r4 h8 r4 h'8
\oneVoice
r4 h,8~ h4 h'8
r4 <h, h' >8~ < h h' >4 <h h' >8~
< h h' >4 \voiceTwo <h h' >8~ < h e h' >4 <h gis' h >8
r4 h'8~ h4 h,8~
h4 h'8 r4 dis,8
r4 e8 r4 g8
r4 h8 r4 h8
r4 <e, h' e >8 r4 <e h' e >8
r4 <e h' e >8 r4 <e h' e >8
\oneVoice
r4 <e h' e >8 r4 <e a e' >8
r4 <e gis e' >8 r4 <e gis e' >8
r4 < a, a' >8 r4 < a a' >8
r4 < a e' a >8 r4 fis'8
\voiceTwo
r4 < h, h' >8 r4 < h h'>8
r4 e8 r4 < e e' >8
r4 < e e' >8 r4 < cis cis' >8
r4 gis'8 r4 gis8
r4 h,8 r4 dis8
r4 fis8 r4 fis8
r4 < a, a' >8 r4 < a a' >8
r4 a8 r4 a'8
r4 e8 r4 e8
r4 < cis gis' cis >8 r4 < cis gis' cis >8
r4 < fis cis' >8 r4 < fis cis' >8
\oneVoice
r4 < fis cis' >8 r4 < fis cis' >8
r4 < h, h' >8 r4 h8
r4 < h h' >8 r4 h'8
\voiceTwo
r4 h,8 r4 fis'8
r4 h8 r4 h,8
r4 e8~ e4 e8~
e4 e8 dis4 h8~
h4 e8~ e4 e8
e4 e8 dis4 h8~
h4 h'8~ h4 h,8~
h4 h'8~ h4 h,8~
h4 \voiceOne h'8~ h4 h,8_~
h4 h8 < e, e' >4.\fermata
}
\score {
\new StaffGroup
<<
\new Dynamics \dynalt
\new Staff = "Alt" \with { instrumentName = \markup \fontsize #2 #"Alt" }
\new Voice = "alt" \Alt
\new Lyrics \lyricsto "alt" \Text
\new PianoStaff
\with { instrumentName = \markup \fontsize #2 "Pianoforte" }
<<
\new Staff = "up"
<<
\new Voice
{ \voiceOne \RechteHand }
\context Voice { s2. * 6 \override Staff.BarNumber.stencil = ##f }
>>
\new Dynamics \dynpio
\new Staff = "down"
<<
\new Voice
{
\voiceOne \LinkeHandAkkord
}
\new Voice
{ \clef bass \voiceTwo \LinkeHandBass }
\new NullVoice \struktur
>>
>>
>>
}