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                       (* 7 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 = "Licensed under the Creative Commons Attribution-ShareAlike 4.0 License"
  77   tagline = \markup {
  78     \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7)
  79     \box\column {
  80       \fill-line { \line { \copyright } }
  81       \fill-line {
  82         \line {
  83           Sheet music from
  84           \with-url #"http://nicolas.sceaux.free.fr"
  85           \typewriter\smaller http://nicolas.sceaux.free.fr
  86           typeset using \with-url #"http://lilypond.org" LilyPond
  87           $(string-append "version " (lilypond-version))
  88           on \concat { \today . }
  89         }
  90       }
  91       \fill-line {
  92         \line {
  93           \italic Free to download, with the \italic freedom
  94           to distribute, modify and perform.
  95         }
  96       }
  97       \smaller\fill-line {
  98         \line {
  99           Licensed under the Creative Commons Attribution-ShareAlike 4.0 License,
 100           for details see: \hspace #-0.5
 101           \with-url #"http://creativecommons.org/licenses/by-sa/4.0"
 102           http://creativecommons.org/licenses/by-sa/4.0
 103         }
 104       }
 105     }
 106   }
 107 }
 108
 109
 110 \opusPartSpecs
 111 #`((tromba1 "Tromba I" ()
 112             (#:notes "trombe" #:tag-notes tromba1))
 113    (tromba2 "Tromba II" ()
 114             (#:notes "trombe" #:tag-notes tromba2))
 115    (corno1 "Corno I" ()
 116             (#:notes "corni" #:tag-notes corno1))
 117    (corno2 "Corno II" ()
 118             (#:notes "corni" #:tag-notes corno2))
 119    (flauto1 "Flauto I" ()
 120             (#:notes "flauti" #:tag-notes flauto1))
 121    (flauto2 "Flauto II" ()
 122             (#:notes "flauti" #:tag-notes flauto2))
 123    (oboe1 "Oboe I" ()
 124           (#:notes "oboi" #:tag-notes oboe1))
 125    (oboe2 "Oboe II" ()
 126           (#:notes "oboi" #:tag-notes oboe2))
 127    (clarinetto1 "Clarinetto I" ()
 128                 (#:notes "clarinetti" #:tag-notes clarinetto1))
 129    (clarinetto2 "Clarinetto II" ()
 130                 (#:notes "clarinetti" #:tag-notes clarinetto2))
 131    (fagotto1 "Fagotto I" ()
 132              (#:clef "bass" #:notes "bassi" #:tag-notes fagotto1))
 133    (fagotto2 "Fagotto II" ()
 134              (#:clef "bass" #:notes "bassi" #:tag-notes fagotto2))
 135
 136    (violino1 "Violono I" ()
 137              (#:notes "violini" #:tag-notes violino1))
 138    (violino2 "Violono II" ()
 139              (#:notes "violini" #:tag-notes violino2))
 140    (alto "Alto" () (#:notes "alto" #:clef "alto"))
 141    (basso "Basso, Contrabasso" ()
 142           (#:notes "bassi" #:clef "bass" #:tag-notes basso
 143            #:instrument , #{ \markup\center-column { Basso Contrabasso } #}))
 144
 145    (timpani "Timpani" ()
 146             (#:notes "timpani" #:clef "bass")))
 147
 148
 149 corniInstr = \with {
 150   instrumentName = "Corni"
 151   shortInstrumentName = "Cor."
 152 }
 153 trombeInstr = \with {
 154   instrumentName = "Trombe"
 155   shortInstrumentName = "Tr."
 156 }
 157 flautiInstr = \with {
 158   instrumentName = "Flauti"
 159   shortInstrumentName = "Fl."
 160 }
 161 oboiInstr = \with {
 162   instrumentName = "Oboi"
 163   shortInstrumentName = "Ob."
 164 }
 165 clarinettiInstr = \with {
 166   instrumentName = "Clarinetti"
 167   shortInstrumentName = "Cl."
 168 }
 169 fagottiInstr = \with {
 170   instrumentName = "Fagotti"
 171   shortInstrumentName = "Fg."
 172 }
 173
 174 violiniInstr = \with {
 175   instrumentName = "VViolini"
 176   shortInstrumentName = "Vn."
 177 }
 178 altoInstr = \with {
 179   instrumentName = "Alto"
 180   shortInstrumentName = "Vla."
 181 }
 182 violaInstr = \with {
 183   instrumentName = "Viola"
 184   shortInstrumentName = "Vla."
 185 }
 186 bassoInstr = \with {
 187   instrumentName = "Basso"
 188   shortInstrumentName = "B."
 189 }
 190 violoncelliInstr = \with {
 191   instrumentName = "Violoncelli"
 192   shortInstrumentName = "Vc."
 193 }
 194 cbInstr = \with {
 195   instrumentName = "Contrabasso"
 196   shortInstrumentName = "Cb."
 197 }
 198 bcbInstr = \with {
 199   instrumentName = \markup\center-column {
 200     Basso Contrabasso
 201   }
 202   shortInstrumentName = \markup\center-column { B. Cb. }
 203 }
 204 vccbInstr = \with {
 205   instrumentName = \markup\center-column {
 206     Violoncelli Contrabasso
 207   }
 208   shortInstrumentName = \markup\center-column { Vc. Cb. }
 209 }
 210 timpaniInstr = \with {
 211   instrumentName = "Timpani"
 212   shortInstrumentName = "Timp."
 213 }
 214 choeurInstr = \with {
 215   instrumentName = \markup\smallCaps Chœur
 216   shortInstrumentName = \markup\smallCaps Ch.
 217 }
 218 camilleInstr = \with {
 219   instrumentName = \markup\smallCaps Camille
 220   shortInstrumentName = \markup\smallCaps Ca.
 221 }
 222 curiaceInstr = \with {
 223   instrumentName = \markup\smallCaps Curiace
 224   shortInstrumentName = \markup\smallCaps Cu.
 225 }
 226 vieilHoraceInstr = \with {
 227   instrumentName = \markup\center-column\smallCaps { Le vieil Horace }
 228   shortInstrumentName = \markup\smallCaps VH.
 229 }
 230 jeuneHoraceInstr = \with {
 231   instrumentName = \markup\center-column\smallCaps { Le jeune Horace }
 232   shortInstrumentName = \markup\smallCaps JH.
 233 }
 234 pretreInstr = \with {
 235   instrumentName = \markup\center-column\smallCaps { Le Grand Prêtre }
 236   shortInstrumentName = \markup\smallCaps GP.
 237 }
 238
 239 footnoteHere =
 240 #(define-music-function (parser this-location offset note)
 241      (number-pair? markup?)
 242    (set! location #f)
 243    (if (ly:get-option 'print-footnotes)
 244        #{ <>-\tweak footnote-music #(make-footnote-here-music offset note)
 245           ^\markup\transparent\box "1" #}
 246        (make-music 'Music 'void #t)))
 247
 248
 249 intermede =
 250 #(define-music-function (parser location title) (string?)
 251   (add-toc-item parser 'tocActMarkup title)
 252   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
 253   (*act-title* title)
 254   (add-odd-page-header-text
 255     parser
 256     (format #f "~a" (string-upper-case (*act-title*)))
 257     #f)
 258   (add-toplevel-markup parser
 259     (markup #:act (string-upper-case title)))
 260   (add-no-page-break parser)
 261   (make-music 'Music 'void #t))
 262
 263 annexe =
 264 #(define-music-function (parser location title) (string?)
 265   (add-page-break parser)
 266   (add-toc-item parser 'tocActMarkup title)
 267   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
 268   (*act-title* title)
 269   (add-odd-page-header-text
 270     parser
 271     (format #f "~a" (string-upper-case (*act-title*)))
 272     #f)
 273   (make-music 'Music 'void #t))