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"))