2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4 %%%%% Defaults for instrument names, short names, cue names, etc.
5 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8 \addInstrumentDefinition #"clarinetti"
9 #`((instrumentTransposition . ,(ly:make-pitch 0 5 0))
10 (shortInstrumentName . "Cl.")
11 (instrumentName . "Clarinetti in A")
12 (clefGlyph . "clefs.G")
13 (middleCPosition . -6)
15 (instrumentCueName . "Cl. (in A)")
16 (midiInstrument . "clarinet"))
18 \addInstrumentDefinition #"clarinetto1"
19 #`((instrumentTransposition . ,(ly:make-pitch 0 5 0))
20 (shortInstrumentName . "Cl.I")
21 (instrumentName . "Clarinetto I in A")
22 (clefGlyph . "clefs.G")
23 (middleCPosition . -6)
25 (instrumentCueName . "Cl. (in A)")
26 (midiInstrument . "clarinet"))
28 \addInstrumentDefinition #"fagotti"
29 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
30 (shortInstrumentName . "Fg.")
31 (instrumentName . "Fagotti")
32 (clefGlyph . "clefs.F")
35 (instrumentCueName . "Fg.")
36 (midiInstrument . "bassoon"))
38 \addInstrumentDefinition #"oboe1"
39 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
40 (shortInstrumentName . "Ob.I")
41 (instrumentName . "Oboe I")
42 (clefGlyph . "clefs.G")
43 (middleCPosition . -6)
45 (instrumentCueName . "Ob.I")
46 (midiInstrument . "oboe"))
48 \addInstrumentDefinition #"oboi"
49 #`((instrumentTransposition . ,(ly:make-pitch -1 0 0))
50 (shortInstrumentName . "Ob.")
51 (instrumentName . "Oboi")
52 (clefGlyph . "clefs.G")
53 (middleCPosition . -6)
55 (instrumentCueName . "Ob.")
56 (midiInstrument . "oboe"))