Permalink
Browse files

Update structure to simplified score. Fix some lyric hyphenations.

  • Loading branch information...
1 parent 851047b commit cbec764ae8c9ba03e4528e2985d78227abef7dae @horndude77 committed Dec 10, 2011
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-bassOne = \relative c'
+\relative c'
{
\clef bass
\key e \major
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-bassTwo = \relative c
+\relative c
{
\clef bass
\key e \major
@@ -1,4 +1,4 @@
-\version "2.13.42"
+\version "2.15.21"
justCresc = #(make-music 'CrescendoEvent 'span-direction START 'span-type 'text 'span-text "cresc." 'tweaks '((style . none)))
justDim = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "dim." 'tweaks '((style . none)))
@@ -7,27 +7,57 @@ ritard = \markup {\italic "ritard."}
unPocoRitard = \markup {\normal-text \italic "un poco ritard."}
aTempo = \markup {\normal-text \italic "a tempo"}
-outline =
-{
- \tempo "Andante con moto" 4=108
- \time 3/4
- \partial 4
- s4 |
- s2.*78 | \bar "||"
+afterGraceFraction = #(cons 15 16)
- \tempo "Allegro molto vivace" 4=144
- \time 4/4
- s1*68 |
- \tempo \unPocoRitard
- s1*18 |
- s2.
+% TODO: More sophosticated function
+#(define (number->roman num)
+ (cond
+ ((= num 1) "I")
+ ((= num 2) "II")
+ ((= num 3) "III")
+ ((= num 4) "IV")
+ (else "ERROR")))
- \tempo \aTempo
- s4 |
- s1*39 | \bar "|."
-}
+hornStaff = #(define-music-function (parser location part key use-outline is-part) (number? string? boolean? boolean?)
+ (let* ((roman (number->roman part))
+ (instrL (if is-part #f (string-append "Horn " roman " in " key)))
+ (instrS (if is-part #f (string-append "Hn." roman)))
+ (file (string-append "horn" (number->string part) ".ily"))
+ (outline (if use-outline #{ { \include "outline.ily" } #} #{ {} #} ))
+ (music (if (string=? "E" key)
+ #{ << { \include $file } $outline >> #}
+ #{ << \transpose f e { \include $file } $outline >> #})))
+ #{
+ \new Staff \with
+ {
+ midiInstrument = "french horn"
+ instrumentName = $instrL
+ shortInstrumentName = $instrS
+ }
+ $music
+ #}))
-afterGraceFraction = #(cons 15 16)
+voiceStaff = #(define-music-function (parser location type part) (string? number?)
+ (let* ((roman (number->roman part))
+ (instrL (string-append (if (string=? "tenor" type) "Tenor " "Bass ") roman))
+ (instrS (string-append (if (string=? "tenor" type) "Ten." "Bs.") roman))
+ (file (string-append type (number->string part) ".ily"))
+ (voice (string-append type roman)))
+ #{
+ \new Staff \with
+ {
+ %midiInstrument = "choir aahs"
+ midiInstrument = "church organ"
+ instrumentName = $instrL
+ shortInstrumentName = $instrS
+ }
+ \new Voice=$voice << { \include $file } { \include "vocal_dynamics.ily" } >>
+ #}))
+
+createLyrics = #(define-music-function (parser location voice) (string?)
+#{
+ \new Lyrics \lyricsto $voice { \include "lyrics.ily" }
+#})
\layout
{
@@ -1,4 +1,4 @@
-\version "2.13.41"
+\version "2.15.21"
\header
{
@@ -10,7 +10,7 @@
maintainer = "Jay Anderson"
maintainerEmail = "horndude77@gmail.com"
- lastupdated = "2011 December 3"
+ lastupdated = "2011 December 9"
source = "Leipzig: Breitkopf & Härtel, 1891. Plate F.S. 195"
#(define sourceUrl "http://imslp.org/wiki/Nachtgesang_im_Walde,_D.913_(Op.139_No.2)_(Schubert,_Franz)")
#(define openscoresUrl "https://github.com/horndude77/open-scores")
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-hornOne = \relative c''
+\relative c''
{
\transposition e
g4\f |
@@ -167,5 +165,5 @@ hornOne = \relative c''
R1 |
r2 e\< |
g c |
- << {e1\fermata} {s2..\f\> s8\!} >> |
+ e1\fermata\f\> s1*0\! |
}
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn1.ily"
-notes = \hornOne
instrument = "Horn I in E"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #1 "E" ##t ##t }
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn1.ily"
-notes = \transpose f e \hornOne
instrument = "Horn I in F"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #1 "F" ##t ##t }
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-hornTwo = \relative c''
+\relative c''
{
\transposition e
g4\f |
@@ -158,5 +156,5 @@ hornTwo = \relative c''
R1 |
r2 c\< |
e g |
- << {c1\fermata} {s2..\f\> s8\!} >> |
+ c1\fermata\f\> s1*0\! |
}
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn2.ily"
-notes = \hornTwo
instrument = "Horn II in E"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #2 "E" ##t ##t }
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn2.ily"
-notes = \transpose f e \hornTwo
instrument = "Horn II in F"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #2 "F" ##t ##t }
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-hornThree = \relative c'
+\relative c'
{
\transposition e
e4\f |
@@ -160,5 +158,5 @@ hornThree = \relative c'
R1 |
r2 \clef treble c'\< |
c g |
- << {g1\fermata} {s2..\f\> s8\!} >> |
+ g1\fermata\f\> s1*0\! |
}
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn3.ily"
-notes = \hornThree
instrument = "Horn III in E"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #3 "E" ##t ##t }
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn3.ily"
-notes = \transpose f e \hornThree
instrument = "Horn III in F"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #3 "F" ##t ##t }
@@ -1,6 +1,4 @@
-\version "2.13.42"
-
-hornFour = \relative c'
+\relative c'
{
\transposition e
c4\f |
@@ -190,5 +188,5 @@ hornFour = \relative c'
R1 |
r2 c'\< |
g e |
- << {c1\fermata} {s2..\f\> s8\!} >> |
+ c1\fermata\f\> s1*0\! |
}
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn4.ily"
-notes = \hornFour
instrument = "Horn IV in E"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #4 "E" ##t ##t }
@@ -1,9 +1,9 @@
-\version "2.13.43"
+\version "2.15.21"
\include "defs.ily"
-\include "horn4.ily"
-notes = \transpose f e \hornFour
instrument = "Horn IV in F"
-\include "part.ily"
+\include "header.ily"
+
+\score { \hornStaff #4 "F" ##t ##t }
@@ -1,39 +1,37 @@
-\version "2.13.42"
-
-words = \lyricmode
+\lyricmode
{
Sei uns stets ge -- grüsst, o Nacht!
a -- ber dop -- pelt hier im Wald,
- wo dein Aug' ver -- stohln -- er lacht,
+ wo dein Aug ver -- stohl -- ner lacht,
wo dein Fuss -- tritt lei -- ser hallt!
Auf der Zwei -- ge Laub -- po -- ka -- le
giess -- est du dein Sil -- ber aus;
hängst den Mond mit sei -- nem Strah -- le
- uns als Lamp’ in's Blätt -- er -- haus.
+ uns als Lamp’ ins Blät -- ter -- haus.
Säu -- seln -- de Lüft -- chen sind dei -- ne Re -- den,
- spinn -- en -- de Strah -- len sind dei -- ne Fä -- den,
- Säu -- seln -- de Lüft -- chen sind dei -- ne Re -- den,
- spinn -- en -- de Strah -- len sind dei -- ne Fä -- den,
- was nur dein Mund be -- schwich -- tig -- end traf, __
+ spin -- nen -- de Strah -- len sind dei -- ne Fä -- den,
+ säu -- seln -- de Lüft -- chen sind dei -- ne Re -- den,
+ spin -- nen -- de Strah -- len sind dei -- ne Fä -- den,
+ was nur dein Mund besch -- wich -- ti -- gend traf, __
sen -- ket das Aug’ und sin -- ket in Schlaf!
Säu -- seln -- de Lüft -- chen sind dei -- ne Re -- den,
- spinn -- en -- de Strah -- len sind dei -- ne Fä -- den,
+ spin -- nen -- de Strah -- len sind dei -- ne Fä -- den,
Säu -- seln -- de Lüft -- chen sind dei -- ne Re -- den,
- spinn -- en -- de Strah -- len sind dei -- ne Fä -- den,
- was nur dein Mund be -- schwich -- tig -- end traf, __
+ spin -- nen -- de Strah -- len sind dei -- ne Fä -- den,
+ was nur dein Mund besch -- wich -- ti -- gend traf, __
sen -- ket das Aug’ und sin -- ket in Schlaf,
sen -- ket das Aug’ und sin -- ket in Schlaf!
Und doch, es ist zum Schla -- fen zu schön,
- d'rum auf! Und weckt mit Hörn -- er -- ge -- tön,
- mit hell -- er -- er Klän -- ge Wel -- len -- schlag,
- was früh be -- täubt im Schlum -- mer lag.
+ drum auf! Und weckt mit r -- ner -- ge -- tön,
+ mit hel -- ler -- er Klän -- ge Wel -- len -- schlag,
+ was früh be -- täubt im Schlum -- mer lag,
auf! auf! auf!
Es regt in den Lau -- ben des Wal -- des sich schon,
- die Vög -- lein, sie glau -- ben, die Nacht sei ent -- floh'n,
+ die Vög -- lein, sie glau -- ben, die Nacht sei ent -- flohn,
die wan -- dern -- den Re -- he ver -- lie -- ren sich zag;
sie wäh -- nen, es ge -- he schon bald an den Tag,
die Wip -- fel des Wal -- des er -- brau -- sen mit Macht, __
@@ -42,19 +40,19 @@ words = \lyricmode
vom Quell her er -- schallt es, als wär’ er er -- wacht! __
Es regt in den Lau -- ben des Wal -- des sich schon,
- die Vög -- lein, sie glau -- ben, die Nacht sei ent -- floh'n,
+ die Vög -- lein, sie glau -- ben, die Nacht sei ent -- flohn,
die wan -- dern -- den Re -- he ver -- lie -- ren sich zag;
sie wäh -- nen, es ge -- he schon bald an den Tag,
die Wip -- fel des Wal -- des er -- brau -- sen mit Macht, __
vom Quell her er -- schallt es, als wär’ er er -- wacht! __
Die Wip -- fel des Wal -- des er -- brau -- sen mit Macht, __
vom Quell her er -- schallt es, als wär’ er er -- wacht! __
- Und ru -- fen wir im San -- ge: „Die Nacht ist im Wal -- de da -- heim!“
+ Und ru -- fen wir im San -- ge: „die Nacht ist im Wal -- de da -- heim!“
so ruft auch E -- cho lan -- ge: „Sie ist im Wald da -- heim!“
- D'rum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de, hol -- de Nacht,
+ Drum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de, hol -- de Nacht,
wo Al -- les, was dich schön uns malt, uns noch weit schö -- ner lacht.
wo Al -- les, was dich schön uns malt, uns noch weit schö -- ner lacht.
- d'rum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de Nacht!
- d'rum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de, hold -- de __ Nacht, __ o hol -- de Nacht! __
+ drum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de Nacht!
+ drum sei uns dop -- pelt hier im Wald ge -- grüsst, o hol -- de, hold -- de __ Nacht, __ o hol -- de Nacht! __
}
@@ -0,0 +1,18 @@
+{
+ \tempo "Andante con moto" 4=108
+ \time 3/4
+ \partial 4
+ s4 |
+ s2.*78 | \bar "||"
+
+ \tempo "Allegro molto vivace" 4=144
+ \time 4/4
+ s1*68 |
+ \tempo \unPocoRitard
+ s1*18 |
+ s2.
+
+ \tempo \aTempo
+ s4 |
+ s1*39 | \bar "|."
+}
@@ -1,11 +0,0 @@
-\version "2.13.43"
-
-\include "header.ily"
-
-\score
-{
- \new Staff
- {
- << \notes \outline >>
- }
-}
Oops, something went wrong.

0 comments on commit cbec764

Please sign in to comment.