Add clef-key.ily by Nicolas Sceaux to display old clefs
[orchestrallily.git] / oly_settings_instruments.ily
blobb7456750513aa0472d310233b58a6e0c10f3864a
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)
13      (clefPosition . -2)
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)
23      (clefPosition . -2)
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")
32      (middleCPosition . 2)
33      (clefPosition . 2)
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)
43      (clefPosition . -2)
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)
53      (clefPosition . -2)
54      (instrumentCueName . "Ob.")
55      (midiInstrument . "oboe"))