Salieri/LesHoraces/common.ily

   1 \header {
   2   copyrightYear = "2014"
   3   composer = "Antonio Salieri"
   4   poet = "Nicolas-François Guillard"
   5 }
   6
   7 %% LilyPond options:
   8 %%  urtext  if true, then print urtext score
   9 %%  part    if a symbol, then print the separate part score
  10 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
  11 #(ly:set-option 'ancient-alteration #f)
  12 #(ly:set-option 'original-layout (eqv? #t (ly:get-option 'urtext)))
  13 #(ly:set-option 'non-incipit #t)
  14 #(ly:set-option 'apply-vertical-tweaks
  15                 (and (not (eqv? #t (ly:get-option 'urtext)))
  16                      (not (symbol? (ly:get-option 'part)))))
  17 #(ly:set-option 'print-footnotes (not (symbol? (ly:get-option 'part))))
  18
  19 %% use baroque style repeats
  20 #(ly:set-option 'baroque-repeats #f)
  21 #(ly:set-option 'forbid-key-modification #t)
  22 #(ly:set-option 'use-rehearsal-numbers #t)
  23
  24 %% Staff size
  25 #(set-global-staff-size
  26   (cond ((not (symbol? (ly:get-option 'part))) 16)
  27         (else 18)))
  28
  29 %% Line/page breaking algorithm
  30 %%  optimal   for lead sheets
  31 %%  page-turn for instruments and vocal parts
  32 \paper {
  33   #(define page-breaking
  34      (if (symbol? (ly:get-option 'part))
  35          ly:page-turn-breaking
  36          ly:optimal-breaking))
  37 }
  38
  39 \layout {
  40   reference-incipit-width = #(* 1/2 mm)
  41 }
  42
  43 \include "italiano.ly"
  44 \include "common/common.ily"
  45 \include "common/columns.ily"
  46 \include "common/alterations.ily"
  47 \include "common/toc-columns.ily"
  48 \include "common/livret.ily"
  49 \setOpus "Salieri/LesHoraces"
  50 \opusTitle "Les Horaces"
  51
  52 \layout {
  53   indent = #(if (symbol? (ly:get-option 'part))
  54                 smallindent
  55                 largeindent)
  56   short-indent = #(if (symbol? (ly:get-option 'part))
  57                       0
  58                       (* 8 mm))
  59   ragged-last = ##f
  60 }
  61
  62 \layout {
  63   \context {
  64     \Voice \override Script.avoid-slur = #'inside
  65   }
  66 }
  67
  68 \header {
  69   maintainer = \markup {
  70     Nicolas Sceaux,
  71     \with-url #"http://www.lestalenslyriques.com" \line {
  72       Les Talens Lyriques – Christophe Rousset,
  73     }
  74     \with-url #"http://www.cmbv.fr" CMBV
  75   }
  76   license = "Creative Commons Attribution-ShareAlike 4.0 License"
  77 }
  78
  79
  80 \opusPartSpecs
  81 #`((tromba1 "Tromba I" ()
  82             (#:notes "trombe" #:tag-notes tromba1))
  83    (tromba2 "Tromba II" ()
  84             (#:notes "trombe" #:tag-notes tromba2))
  85    (corno1 "Corno I" ()
  86             (#:notes "corni" #:tag-notes corno1))
  87    (corno2 "Corno II" ()
  88             (#:notes "corni" #:tag-notes corno2))
  89    (flauto1 "Flauto I" ()
  90             (#:notes "flauti" #:tag-notes flauto1))
  91    (flauto2 "Flauto II" ()
  92             (#:notes "flauti" #:tag-notes flauto2))
  93    (oboe1 "Oboe I" ()
  94           (#:notes "oboi" #:tag-notes oboe1))
  95    (oboe2 "Oboe II" ()
  96           (#:notes "oboi" #:tag-notes oboe2))
  97    (clarinetto1 "Clarinetto I" ()
  98                 (#:notes "clarinetti" #:tag-notes clarinetto1))
  99    (clarinetto2 "Clarinetto II" ()
 100                 (#:notes "clarinetti" #:tag-notes clarinetto2))
 101    (fagotto1 "Fagotto I" ()
 102              (#:clef "bass" #:notes "bassi" #:tag-notes fagotto1))
 103    (fagotto2 "Fagotto II" ()
 104              (#:clef "bass" #:notes "bassi" #:tag-notes fagotto2))
 105
 106    (violino1 "Violono I" ()
 107              (#:notes "violini" #:tag-notes violino1))
 108    (violino2 "Violono II" ()
 109              (#:notes "violini" #:tag-notes violino2))
 110    (alto "Alto" () (#:notes "alto" #:clef "alto"))
 111    (basso "Basso, Contrabasso" ()
 112           (#:notes "bassi" #:clef "bass" #:tag-notes basso
 113            #:instrument , #{ \markup\center-column { Basso Contrabasso } #}))
 114
 115    (timpani "Timpani" ()
 116             (#:notes "timpani" #:clef "bass")))
 117
 118
 119 corniInstr = \with {
 120   instrumentName = "Corni"
 121   shortInstrumentName = "Cor."
 122 }
 123 trombeInstr = \with {
 124   instrumentName = "Trombe"
 125   shortInstrumentName = "Tr."
 126 }
 127 flautiInstr = \with {
 128   instrumentName = "Flauti"
 129   shortInstrumentName = "Fl."
 130 }
 131 oboiInstr = \with {
 132   instrumentName = "Oboi"
 133   shortInstrumentName = "Ob."
 134 }
 135 clarinettiInstr = \with {
 136   instrumentName = "Clarinetti"
 137   shortInstrumentName = "Cl."
 138 }
 139 fagottiInstr = \with {
 140   instrumentName = "Fagotti"
 141   shortInstrumentName = "Fg."
 142 }
 143
 144 violiniInstr = \with {
 145   instrumentName = "VViolini"
 146   shortInstrumentName = "Vn."
 147 }
 148 altoInstr = \with {
 149   instrumentName = "Alto"
 150   shortInstrumentName = "Vla."
 151 }
 152 violaInstr = \with {
 153   instrumentName = "Viola"
 154   shortInstrumentName = "Vla."
 155 }
 156 bassoInstr = \with {
 157   instrumentName = "Basso"
 158   shortInstrumentName = "B."
 159 }
 160 violoncelliInstr = \with {
 161   instrumentName = "Violoncelli"
 162   shortInstrumentName = "Vc."
 163 }
 164 cbInstr = \with {
 165   instrumentName = "Contrabasso"
 166   shortInstrumentName = "Cb."
 167 }
 168 bcbInstr = \with {
 169   instrumentName = \markup\center-column {
 170     Basso Contrabasso
 171   }
 172   shortInstrumentName = \markup\center-column { B. Cb. }
 173 }
 174 vccbInstr = \with {
 175   instrumentName = \markup\center-column {
 176     Violoncelli Contrabasso
 177   }
 178   shortInstrumentName = \markup\center-column { Vc. Cb. }
 179 }
 180 timpaniInstr = \with {
 181   instrumentName = "Timpani"
 182   shortInstrumentName = "Timp."
 183 }
 184 choeurInstr = \with {
 185   instrumentName = \markup\smallCaps Chœur
 186   shortInstrumentName = \markup\smallCaps Ch.
 187 }
 188 camilleInstr = \with {
 189   instrumentName = \markup\smallCaps Camille
 190   shortInstrumentName = \markup\smallCaps Ca.
 191 }
 192 curiaceInstr = \with {
 193   instrumentName = \markup\smallCaps Curiace
 194   shortInstrumentName = \markup\smallCaps Cu.
 195 }
 196 vieilHoraceInstr = \with {
 197   instrumentName = \markup\center-column\smallCaps { Le vieil Horace }
 198   shortInstrumentName = \markup\smallCaps VH.
 199 }
 200 jeuneHoraceInstr = \with {
 201   instrumentName = \markup\center-column\smallCaps { Le jeune Horace }
 202   shortInstrumentName = \markup\smallCaps JH.
 203 }
 204 pretreInstr = \with {
 205   instrumentName = \markup\center-column\smallCaps { Le Grand Prêtre }
 206   shortInstrumentName = \markup\smallCaps GP.
 207 }
 208 valereInstr = \with {
 209   instrumentName = \markup\smallCaps Valere
 210   shortInstrumentName = \markup\smallCaps Va.
 211 }
 212
 213 footnoteHere =
 214 #(define-music-function (parser this-location offset note)
 215      (number-pair? markup?)
 216    (set! location #f)
 217    (if (ly:get-option 'print-footnotes)
 218        #{ <>-\tweak footnote-music #(make-footnote-here-music offset note)
 219           ^\markup\transparent\box "1" #}
 220        (make-music 'Music 'void #t)))
 221
 222
 223 intermede =
 224 #(define-music-function (parser location title) (string?)
 225   (add-toc-item parser 'tocActMarkup title)
 226   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
 227   (*act-title* title)
 228   (add-odd-page-header-text
 229     parser
 230     (format #f "~a" (string-upper-case (*act-title*)))
 231     #f)
 232   (add-toplevel-markup parser
 233     (markup #:act (string-upper-case title)))
 234   (add-no-page-break parser)
 235   (make-music 'Music 'void #t))
 236
 237 annexe =
 238 #(define-music-function (parser location title) (string?)
 239   (add-page-break parser)
 240   (add-toc-item parser 'tocActMarkup title)
 241   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
 242   (*act-title* title)
 243   (add-odd-page-header-text
 244     parser
 245     (format #f "~a" (string-upper-case (*act-title*)))
 246     #f)
 247   (make-music 'Music 'void #t))