3 composer = "Antonio Salieri"
4 poet = "Nicolas-François Guillard"
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))))
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)
25 #(set-global-staff-size
26 (cond ((not (symbol? (ly:get-option 'part))) 16)
29 %% Line/page breaking algorithm
30 %% optimal for lead sheets
31 %% page-turn for instruments and vocal parts
33 #(define page-breaking
34 (if (symbol? (ly:get-option 'part))
40 reference-incipit-width = #(* 1/2 mm)
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"
53 indent = #(if (symbol? (ly:get-option 'part))
56 short-indent = #(if (symbol? (ly:get-option 'part))
64 \Voice \override Script.avoid-slur = #'inside
69 maintainer = \markup {
71 \with-url #"http://www.lestalenslyriques.com" \line {
72 Les Talens Lyriques – Christophe Rousset,
74 \with-url #"http://www.cmbv.fr" CMBV
76 license = "Licensed under the Creative Commons Attribution-ShareAlike 4.0 License"
78 \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7)
80 \fill-line { \line { \copyright } }
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 . }
93 \italic Free to download, with the \italic freedom
94 to distribute, modify and perform.
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
111 #`((tromba1 "Tromba I" ()
112 (#:notes "trombe" #:tag-notes tromba1))
113 (tromba2 "Tromba II" ()
114 (#:notes "trombe" #:tag-notes tromba2))
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))
124 (#:notes "oboi" #:tag-notes oboe1))
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))
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 } #}))
145 (timpani "Timpani" ()
146 (#:notes "timpani" #:clef "bass")))
150 instrumentName = "Corni"
151 shortInstrumentName = "Cor."
153 trombeInstr = \with {
154 instrumentName = "Trombe"
155 shortInstrumentName = "Tr."
157 flautiInstr = \with {
158 instrumentName = "Flauti"
159 shortInstrumentName = "Fl."
162 instrumentName = "Oboi"
163 shortInstrumentName = "Ob."
165 clarinettiInstr = \with {
166 instrumentName = "Clarinetti"
167 shortInstrumentName = "Cl."
169 fagottiInstr = \with {
170 instrumentName = "Fagotti"
171 shortInstrumentName = "Fg."
174 violiniInstr = \with {
175 instrumentName = "VViolini"
176 shortInstrumentName = "Vn."
179 instrumentName = "Alto"
180 shortInstrumentName = "Vla."
183 instrumentName = "Viola"
184 shortInstrumentName = "Vla."
187 instrumentName = "Basso"
188 shortInstrumentName = "B."
190 violoncelliInstr = \with {
191 instrumentName = "Violoncelli"
192 shortInstrumentName = "Vc."
195 instrumentName = "Contrabasso"
196 shortInstrumentName = "Cb."
199 instrumentName = \markup\center-column {
202 shortInstrumentName = \markup\center-column { B. Cb. }
205 instrumentName = \markup\center-column {
206 Violoncelli Contrabasso
208 shortInstrumentName = \markup\center-column { Vc. Cb. }
210 timpaniInstr = \with {
211 instrumentName = "Timpani"
212 shortInstrumentName = "Timp."
214 choeurInstr = \with {
215 instrumentName = \markup\smallCaps Chœur
216 shortInstrumentName = \markup\smallCaps Ch.
218 camilleInstr = \with {
219 instrumentName = \markup\smallCaps Camille
220 shortInstrumentName = \markup\smallCaps Ca.
222 curiaceInstr = \with {
223 instrumentName = \markup\smallCaps Curiace
224 shortInstrumentName = \markup\smallCaps Cu.
226 vieilHoraceInstr = \with {
227 instrumentName = \markup\center-column\smallCaps { Le vieil Horace }
228 shortInstrumentName = \markup\smallCaps VH.
230 jeuneHoraceInstr = \with {
231 instrumentName = \markup\center-column\smallCaps { Le jeune Horace }
232 shortInstrumentName = \markup\smallCaps JH.
234 pretreInstr = \with {
235 instrumentName = \markup\center-column\smallCaps { Le Grand Prêtre }
236 shortInstrumentName = \markup\smallCaps GP.
240 #(define-music-function (parser this-location offset note)
241 (number-pair? markup?)
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)))
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)
254 (add-odd-page-header-text
256 (format #f "~a" (string-upper-case (*act-title*)))
258 (add-toplevel-markup parser
259 (markup #:act (string-upper-case title)))
260 (add-no-page-break parser)
261 (make-music 'Music 'void #t))
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)
269 (add-odd-page-header-text
271 (format #f "~a" (string-upper-case (*act-title*)))
273 (make-music 'Music 'void #t))