Add horn part to Saint-Saens Romance Op.67.

SaintSaensRomanceOp67/defs.ily

@@ -0,0 +1,88 @@
+\version "2.15.19"
+
+#(define (make-dynamic-script-text-dyn-left text dyn)
+  (let ((dynamic (make-dynamic-script (markup #:normal-text #:italic text #:dynamic dyn))))
+    (ly:music-set-property! dynamic 'tweaks (acons 'X-offset -1.5 (ly:music-property dynamic 'tweaks)))
+    (ly:music-set-property! dynamic 'tweaks (acons 'self-alignment-X LEFT (ly:music-property dynamic 'tweaks)))
+    dynamic))
+
+semprePiuPP = #(make-dynamic-script-text-dyn-left "sempre più" "pp")
+
+pocoAPocoPiuAnimato = \markup{\italic "poco a poco più animato"}
+dolceEspress = \markup{\italic "dolce espress."}
+
+justDim = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "dim." 'tweaks '((dash-period . -1)))
+justCresc = #(make-music 'CrescendoEvent 'span-direction START 'span-type 'text 'span-text "cresc." 'tweaks '((dash-period . -1)))
+
+afterGraceFraction = #(cons 15 16)
+
+\layout
+{
+  \context
+  {
+    \Score
+    skipBars = ##t
+    extraNatural = ##f
+    \override PaperColumn #'keep-inside-line = ##t
+    \override NonMusicalPaperColumn #'keep-inside-line = ##t
+    autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)
+                               ,(make-accidental-rule 'any-octave 0)
+                               ,(make-accidental-rule 'same-octave 1))
+    markFormatter = #format-mark-numbers
+    \override Beam #'breakable = ##t
+    \override NoteCollision #'merge-differently-dotted = ##t
+    tempoHideNote = ##t
+  }
+}
+
+\midi
+{
+  \context
+  {
+    \Voice
+    \remove "Dynamic_performer"
+  }
+}
+
+\paper
+{
+  ragged-right = ##f
+  ragged-last = ##f
+  ragged-bottom = ##f
+  ragged-last-bottom = ##f
+
+  #(set-paper-size "letter")
+  %two-sided = ##t
+  %page-breaking = #ly:page-turn-breaking
+  scoreTitleMarkup = ##f
+  bookTitleMarkup = \markup
+  \column
+  {
+    \vspace #12
+    \fill-line { \fontsize #10 {\fromproperty #'header:title } }
+    \vspace #2
+    \fill-line { \fontsize #4 {\fromproperty #'header:composer } }
+    \vspace #2
+    \fill-line { \fontsize #2 {\fromproperty #'header:opus } }
+    \vspace #5
+    \fill-line { \fontsize #5 \rounded-box \pad-markup #1.0 {\fromproperty #'header:instrument } }
+  }
+
+  oddHeaderMarkup = \markup
+  \fill-line
+  {
+    ""
+    \on-the-fly #not-first-page \rounded-box \pad-markup #0.5 \fromproperty #'header:instrument
+    %\override #'(font-name . "Georgia")
+    \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
+  }
+
+  evenHeaderMarkup = \markup
+  \fill-line
+  {
+    %\override #'(font-name . "Georgia")
+    \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
+    \on-the-fly #not-first-page \rounded-box \pad-markup #0.5 \fromproperty #'header:instrument
+    ""
+  }
+}

SaintSaensRomanceOp67/header.ily

@@ -0,0 +1,22 @@
+\version "2.15.19"
+
+\header
+{
+  title = "Romance"
+  instrument = \instrument
+  composer = "Camille Saint-Saëns (1835-1921)"
+  opus = "Op.67"
+  maintainer = "Jay Anderson"
+  maintainerEmail = "horndude77@gmail.com"
+  lastupdated = "2011 November 24"
+  source = "Paris: J. Hamelle, n.d. (1885). Plate J. 2023 H."
+  #(define sourceUrl "http://imslp.org/wiki/Romance,_Op.67_(Saint-Sa%C3%ABns,_Camille)")
+  #(define openscoresUrl "https://github.com/horndude77/open-scores")
+  #(define lilypondUrl "http://www.lilypond.org/")
+  copyrightYears = "2011"
+  #(define licenseUrl "http://creativecommons.org/licenses/by-sa/3.0")
+  license = "Creative Commons Attribution-ShareAlike 3.0 License"
+
+  copyright = \markup { \rounded-box \pad-markup #0.5 \center-column { \line {Typeset by \maintainer using \with-url #lilypondUrl Lilypond. Copyright © \concat {\copyrightYears .}} \line {Licensed under the \with-url #licenseUrl \license} \line {Last Updated \concat {\lastupdated .}} } }
+  tagline = \markup { \rounded-box \pad-markup #0.5 \center-column { \line {Source Edition: \with-url #sourceUrl \source} \line {Lilypond source available at \concat {\with-url #openscoresUrl {\simple #openscoresUrl } .}} \line {To report mistakes or suggestions please write \concat {\maintainerEmail .}} } }
+}

SaintSaensRomanceOp67/horn.ily

@@ -0,0 +1,92 @@
+\relative c''
+{
+  \transposition e
+  R2.*7 |
+  e8.\(\p b16 c( g') fis c( f8) e\) |
+  d8.\( b16 c( e) d a( d8) dis\) |
+  e8.\(\< b16 c( g') fis\> c( f8) e\) s1*0\! |
+  d8.\( b16 c( e) d a( d8) c\) |
+  R2. |
+  \repeat unfold 2
+  {
+    d8~( \times 4/5 {d32 e f e d} cis16[-.) r32 cis]
+      c8~( \times 4/5 {c32 d ees d c} b16[-.) r32 b] |
+  }
+  \alternative
+  {
+    {
+      bes8( a aes) g~( \times 2/3 {g16 fis-.\< g-.} \times 2/3 {a-. b-. c-.)} s1*0\! |
+    }
+    {}
+  }
+  bes16[-.( bes-. r a-. r aes]-.) g8~( \times 2/3 {g16 fis-.\< g-.} \times 2/3 {a-.\justCresc b-. c-.)} |
+  a8.(\f b16 c b c d b8.\justDim b16) |
+  c2.\p |
+  a4.~\< a8( aes g) |
+  e'8.\(\justCresc b16 c( g') fis c( f8) e\) |
+  d8.\(\justDim b16 c( e) d a( d8) c\) s1*0\! |
+  R2.*4 |
+  g4 e8 g c e |
+  d4(\> c8) g\! r e' |
+  d4(\> c8) a\! r e' |
+  e4.\mf d8(\> c a) |
+  g8.\< g16( c g) g8(\> fis f) |
+  e4~(\! e16 ees d8) r r |
+  a'4 f8\< a d f |
+  e4(\f\> d8) a\! r f'16( e) |
+  e4(\sf\> d8) a r f' |
+  f4.(\f e8)\> d( c) |
+  c8.\p c16( f c) c8( b bes) |
+  a4~( a16 aes g8) r r |
+  e'8(\sf^\pocoAPocoPiuAnimato gis, c) b( a8. g16) |
+  b4~\> b16 a c8\! r r |
+  e8(\sf gis, c) c16( b) a8.(-> g16) |
+  b4-> a8~ a16 gis-> a-> gis-> a-> b-> |
+  b8(-> c4~)\< c16 b-> c-> b-> c-> cis-> |
+  d4.~\sf d8 c\> bes |
+  ces-.(\< des-. ees-.) f4( e8)\! |
+  d4.~\> d8 c bes |
+  ces-.(\< des-. ees-.) f4( e8)\! |
+  ees4.~\> ees8 d c |
+  des8-.( ees-. f-.) g4( f8) |
+  ees4.~\f ees8 d c |
+  f4.~\sf f8 ees des |
+  ges2.~\sf |
+  ges8 ges4~-> ges8 ges4~-> |
+  ges8 ees->\< ces-> ges-> ees-> ces-> |
+  g'4.\ff r |
+  g r |
+  g r |
+  R2.*6 |
+  e'8.\(\pp b16 c( g') fis c( f8) e\) |
+  d8.\( b16 c( e) d a( d8) dis\) |
+  e8.\(\< b16 c( g') fis\> c( f8) e\) s1*0\! |
+  d8.\( b16 c( e) d a( d8) c\) |
+  R2.*4 |
+  d8~(_\dolceEspress \times 4/5 {d32 e f e d} cis16[-.) r32 cis]
+    c8~( \times 4/5 {c32 d ees d c} b16[-.) r32 b] |
+  bes8( a aes) g~( \times 2/3 {g16 fis-.\< g-.} \times 2/3 {a-. b-. c-.)} s1*0\! |
+  d16 f~-> f \times 4/6 {e64( f g f e d} cis16[-.) r32 cis32]
+    c32(-. d-. ees16~-.) ees16 \times 4/6 {d64( ees f ees d c} b16[-.) r32 b] |
+  bes16(\< d cis a\> c aes) g8\! r r |
+  R2. |
+  e'8.\(\p b16 c( g') fis c( f8) e\) |
+  d8.\( b16 c( e) d a( d8) dis\) |
+  e8.\(\justCresc b16 c( g') fis c( f8) e\) |
+  d8.\(\pp b16 c( e) d a( d8) c\) |
+  R2. |
+  r4 d8~(\p d16 e \times 2/3 {f16\justCresc e d} \times 2/3 {e d c)} |
+  g'8\f d~( d32 e-. c-. e-.) d8 a~( a32 b-. g-. b-.) |
+  a16\p a8 a16( aes) a g4 r8 |
+  e8.\(\p b16 c( g') fis c( f8) e\) |
+  ees2. |
+  R2.*2 |
+  r4. g,\< |
+  aes4.~\> aes4 g8\! |
+  c,2.~ |
+  c~ |
+  c8.( g'16 c e g8 c d |
+  e4.\semprePiuPP f |
+  g c~) |
+  c r4 r8\fermata |
+}

SaintSaensRomanceOp67/horn.ly

@@ -0,0 +1,17 @@
+\version "2.15.19"
+
+\include "defs.ily"
+
+instrument = "Horn in E"
+\include "header.ily"
+
+\pageBreak \allowPageTurn
+
+\score
+{
+  \new Staff
+  <<
+    { \include "horn.ily" }
+    { \include "outline.ily" }
+  >>
+}

SaintSaensRomanceOp67/horn_f.ly

@@ -0,0 +1,17 @@
+\version "2.15.19"
+
+\include "defs.ily"
+
+instrument = "Horn in F"
+\include "header.ily"
+
+\pageBreak \allowPageTurn
+
+\score
+{
+  \new Staff
+  <<
+    \transpose f e { \include "horn.ily" }
+    { \include "outline.ily" }
+  >>
+}

SaintSaensRomanceOp67/outline.ily

@@ -0,0 +1,8 @@
+{
+  \tempo "Adagio"
+  \time 6/8
+  s2.*53 |
+
+  \tempo "Tempo I"
+  s2.*42 | \bar "|."
+}