1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 %%%%% Defaults for instrument names, short names, cue names, etc.
4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7 \addInstrumentDefinition #"clarinetti"
8 #`((instrumentTransposition . ,(ly:make-pitch 0 5 0))
9 (shortInstrumentName . "Cl.")
10 (instrumentName . "Clarinetti in A")
11 (clefGlyph . "clefs.G")
12 (middleCPosition . -6)
14 (instrumentCueName . "Cl. (in A)")
15 (midiInstrument . "clarinet"))
17 \addInstrumentDefinition #"clarinetto1"
18 #`((instrumentTransposition . ,(ly:make-pitch 0 5 0))
19 (shortInstrumentName . "Cl.I")
20 (instrumentName . "Clarinetto I in A")
21 (clefGlyph . "clefs.G")
22 (middleCPosition . -6)
24 (instrumentCueName . "Cl. (in A)")
25 (midiInstrument . "clarinet"))
27 \addInstrumentDefinition #"fagotti"
28 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
29 (shortInstrumentName . "Fg.")
30 (instrumentName . "Fagotti")
31 (clefGlyph . "clefs.F")
34 (instrumentCueName . "Fg.")
35 (midiInstrument . "bassoon"))
37 \addInstrumentDefinition #"oboe1"
38 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
39 (shortInstrumentName . "Ob.I")
40 (instrumentName . "Oboe I")
41 (clefGlyph . "clefs.G")
42 (middleCPosition . -6)
44 (instrumentCueName . "Ob.I")
45 (midiInstrument . "oboe"))
47 \addInstrumentDefinition #"oboi"
48 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
49 (shortInstrumentName . "Ob.")
50 (instrumentName . "Oboi")
51 (clefGlyph . "clefs.G")
52 (middleCPosition . -6)
54 (instrumentCueName . "Ob.")
55 (midiInstrument . "oboe"))
57 %%% Clef definitions, either old-style (using the Breitkopf style) or new style
58 FlClef = \clef "treble"
61 ObClef = \clef "treble"
64 ClIClef = \clef "treble"
66 FagClef = \clef "bass"
69 CFagClef = \clef "bass"
70 CorClef = \clef "treble"
73 TrbClef = \clef "tenor"
76 TrbIIIClef = \clef "bass"
77 TbeIClef = \clef "treble"
78 TbeIIClef = \clef "treble"
79 TimClef = \clef "bass"
80 VClef = \clef "treble"
86 VcBClef = \clef "bass"
89 SClef = \clef "treble"
90 AClef = \clef "treble"
91 TClef = \clef "treble_8"
93 SingstimmeClef = \clef "treble"
98 OIClef = \clef "treble"
99 OIIClef = \clef "bass"
100 OIaClef = \clef "treble"
101 OIIaClef = \clef "bass"
102 OIbClef = \clef "treble"
103 OIIbClef = \clef "bass"
104 BCClef = \clef "bass"
105 PfeIClef = \clef "treble"
106 PfeIIClef = \clef "bass"
110 FlInstrumentName = "Flauti"
111 FlIInstrumentName = "Flauto I"
112 FlIIInstrumentName = "Flauto II"
113 ObInstrumentName = "Oboi"
114 ObIInstrumentName = "Oboe I"
115 ObIIInstrumentName = "Oboe II"
116 ClInstrumentName = "Clarinetti"
117 ClIInstrumentName = "Clarinetto I"
118 ClIIInstrumentName = "Clarinetto II"
119 FagInstrumentName = "Fagotti"
120 FagIInstrumentName = "Fagotto I"
121 FagIIInstrumentName = "Fagotto II"
122 CFagInstrumentName = "Contrafagotto"
123 CorInstrumentName = "Corni"
124 CorIInstrumentName = "Corno I"
125 CorIIInstrumentName = "Corno II"
126 TrbInstrumentName = "Tromboni"
127 TrbIInstrumentName = "Trombone I"
128 TrbIIInstrumentName = "Trombone II"
129 TrbIIIInstrumentName = "Trombone III"
130 TbeInstrumentName = "Trombe"
131 TbeIInstrumentName = "Tromba I"
132 TbeIIInstrumentName = "Tromba II"
133 TimInstrumentName = "Timpani"
134 VIInstrumentName = "Violino I"
135 VIIInstrumentName = "Violino II"
136 VaInstrumentName = "Viola"
137 VaIInstrumentName = "Viola I"
138 VaIIInstrumentName = "Viola II"
139 VcBInstrumentName = \markup {\column { "Cello e" "Contrabbasso"}}
140 VcInstrumentName ="Violoncello"
141 CbInstrumentName ="Basso"
142 ChInstrumentName = "Coro"
143 SingstimmeInstrumentName = "Singstimme"
144 SInstrumentName = "Soprano"
145 AInstrumentName = "Alto"
146 TInstrumentName = "Tenore"
147 BInstrumentName = "Basso"
148 SSoloInstrumentName = "Soprano Solo"
149 TSoloInstrumentName = "Tenore Solo"
150 BSoloInstrumentName = "Basso Solo"
151 ASoloInstrumentName = "Alto Solo"
152 OInstrumentName = "Organo"
153 BCInstrumentName = "Basso Continuo"
154 OrganInstrumentName = "Organo"
155 ContinuoInstrumentName = \OrganInstrumentName
156 PfeInstrumentName = "Pianoforte"
158 ChInstrumentTitle = "Coro"
160 OriginalScoreTitle = "Originalpartitur"
161 FullScoreTitle = "Partitur / FullScore"
162 LongScoreTitle = "Partitur / FullScore"
163 OrganScoreTitle = "Orgelauszug / Organ score"
164 VocalScoreTitle = "Klavierauszug / Vocal score"
165 ParticellTitle = "Vokalparticell / Vocal particell"
166 ChoralScoreTitle = "Chorstimmen / Choir voices"
167 SoloChoralScoreTitle = "Chorstimmen mit Soli / Choir voices with solo parts"
168 SoloScoreTitle = "Solostimmen / Solo parts"
171 FlShortInstrumentName = "Fl."
172 FlIShortInstrumentName = "Fl. I"
173 FlIIShortInstrumentName = "Fl. II"
174 ObShortInstrumentName = "Ob."
175 ObIShortInstrumentName = "Ob. I"
176 ObIIShortInstrumentName = "Ob. II"
177 ClShortInstrumentName = "Cl."
178 ClIShortInstrumentName = "Cl.I"
179 ClIIShortInstrumentName = "Cl.II"
180 FagShortInstrumentName = "Fag."
181 FagIShortInstrumentName = "Fag. I"
182 FagIIShortInstrumentName = "Fag. II"
183 CFagShortInstrumentName = "Cfag."
184 CorShortInstrumentName = "Cor."
185 CorIShortInstrumentName = "Cor.I"
186 CorIIShortInstrumentName = "Cor.II"
187 TrbShortInstrumentName = "Tr."
188 TrbIShortInstrumentName = "Tr. I"
189 TrbIIShortInstrumentName = "Tr. II"
190 TrbIIIShortInstrumentName = "Tr. III"
191 TbeShortInstrumentName = "Tbe."
192 TbeIShortInstrumentName = "Tbe.I"
193 TbeIIShortInstrumentName = "Tbe.II"
194 TimShortInstrumentName = "Tim."
195 VIShortInstrumentName = "V.I"
196 VIIShortInstrumentName = "V.II"
197 VaShortInstrumentName = "Va."
198 VaIShortInstrumentName = "Va.I"
199 VaIIShortInstrumentName = "Va.II"
200 VcBShortInstrumentName = \markup{\column{"Vc." "e B."}}
201 VcShortInstrumentName = "Vc."
202 CbShortInstrumentName = "B."
203 ChShortInstrumentName = "C."
204 SShortInstrumentName = "S."
205 % SShortInstrumentName = ##f
206 AShortInstrumentName = "A."
207 TShortInstrumentName = "T."
208 BShortInstrumentName = "B."
209 SSoloShortInstrumentName = "S.Solo"
210 ASoloShortInstrumentName = "A.Solo"
211 TSoloShortInstrumentName = "T.Solo"
212 BSoloShortInstrumentName = "B.Solo"
213 OShortInstrumentName = "Org."
214 OrganShortInstrumentName = "Org."
215 BCShortInstrumentName = "B.C."
216 ContinuoShortInstrumentName = \OrganShortInstrumentName
252 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 %%%%% SCORE NUMBERS FOR PUBLISHING
255 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 #(define-markup-command (scoreNumber layout props nr) (markup?)
261 (interpret-markup layout props (markup (format "~a-~a" scorenumber nr)))
264 OriginalScoreNumber = "0"
265 FullScoreNumber = "1"
266 LongScoreNumber = "1a"
267 VocalScoreNumber = "2"
268 OrganScoreNumber = "2"
269 ParticellNumber = "3"
271 ChoralScoreNumber = "10"
277 SingstimmeNumber = "15"
278 SoloScoreNumber = "15"
285 OrganNumber = \ONumber
287 ContinuoNumber = \BCNumber
289 InstrumentsNumber = "25"
327 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 %%%%% SCORE NUMBERS FOR PUBLISHING
330 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 FlMidiInstrument = "flute"
334 FlIMidiInstrument = "flute"
335 FlIIMidiInstrument = "flute"
336 ObMidiInstrument = "oboe"
337 ObIMidiInstrument = "oboe"
338 ObIIMidiInstrument = "oboe"
339 ClMidiInstrument = "clarinet"
340 ClIMidiInstrument = "clarinet"
341 ClIIMidiInstrument = "clarinet"
342 FagMidiInstrument = "bassoon"
343 FagIMidiInstrument = "bassoon"
344 FagIIMidiInstrument = "bassoon"
345 CFagMidiInstrument = "bassoon"
346 CorMidiInstrument = "french horn"
347 CorIMidiInstrument = "french horn"
348 CorIIMidiInstrument = "french horn"
349 TrbMidiInstrument = "trombone"
350 TrbIMidiInstrument = "trombone"
351 TrbIIMidiInstrument = "trombone"
352 TrbIIIMidiInstrument = "trombone"
353 TbeMidiInstrument = "trumpet"
354 TbeIMidiInstrument = "trumpet"
355 TbeIIMidiInstrument = "trumpet"
356 TimMidiInstrument = "timpani"
357 VIMidiInstrument = "violin"
358 VIIMidiInstrument = "violin"
359 VaMidiInstrument = "viola"
360 VaIMidiInstrument = "viola"
361 VaIIMidiInstrument = "viola"
362 VcBMidiInstrument = "cello"
363 VcMidiInstrument ="cello"
364 CbMidiInstrument ="contrabass"
366 % ChMidiInstrument = "choir aahs"
367 % SMidiInstrument = "synth voice"
368 % AMidiInstrument = "choir aahs"
369 % TMidiInstrument = "voice oohs"
370 % BMidiInstrument = "synth voice"
371 %{SMidiInstrument = "voice aahs"
372 AMidiInstrument = \SMidiInstrument
373 TMidiInstrument = "voice oohs"
374 BMidiInstrument = "voice oohs"
375 SMidiInstrument = "synth voice"
376 AMidiInstrument = "choir aahs"
377 TMidiInstrument = "voice oohs"
378 BMidiInstrument = "synth voice"
379 SSoloMidiInstrument = "synth voice"
380 TSoloMidiInstrument = "synth voice"
381 BSoloMidiInstrument = "synth voice"
382 ASoloMidiInstrument = "synth voice"%}
383 OMidiInstrument = "church organ"