4 texidoc="Template for part-combining orchestral scores"
8 % \include "mutopia/Coriolan/coriolan-paper.ly"
10 #(define text-flat '((font-relative-size . -2 ) (music "accidentals--1")))
12 End = { \skip 1*9 \bar "|." }
14 flautoI = \notes\relative c'' {
19 \context Score \outputproperty #(make-type-checker 'paper-column-interface)
20 #'between-system-string = #"\\eject"
28 a2 \property VoiceCombineThread.soloADue = ##f a
31 flautoII = \notes\relative c'' {
40 a2 \property VoiceCombineThread.soloADue = ##f a
43 flautiStaff = \notes \context VoiceCombineStaff = flauti <
44 \property VoiceCombineStaff.midiInstrument = #"flute"
45 % \property VoiceCombineStaff.instrument = #"2 Flauti"
46 % \property VoiceCombineStaff.instr = #"Fl."
48 \property VoiceCombineStaff.instrument = #`((kern . 0.5) (lines
49 "2 Clarinetti" (rows "(B" ,text-flat ")")))
51 \property VoiceCombineStaff.instr = #`((kern . 0.5) (lines
52 "Cl." (rows "(B" ,text-flat ")")))
55 \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
56 \context VoiceCombineThread=one \flautoI
57 \context VoiceCombineThread=two \flautoII
60 legniGroup = \context StaffGroup = legni_group <
67 violinoI = \notes\relative c'' {
79 violinoII = \notes\relative c'' {
91 violinoIStaff = \context Staff = oneViolini <
92 \property Staff.midiInstrument = #"violin"
93 \property Staff.instrument = #"Violino I"
94 \property Staff.instr = #"Vl. I"
99 violinoIIStaff = \context Staff = twoViolini <
100 % MIDI hoort geeneens verschil tussen een
101 % eerste en tweede viool -)
102 \property Staff.midiInstrument = #"violin"
103 \property Staff.instrument = #"Violino II"
104 \property Staff.instr = #"Vl. II"
109 violaI = \notes\transpose c, \violinoI
111 violaII = \notes\transpose c, \violinoII
113 violeGroup = \notes \context VoiceCombineStaff = oneViole <
114 \property VoiceCombineStaff.midiInstrument = #"viola"
115 \property VoiceCombineStaff.instrument = #"Viola"
116 \property VoiceCombineStaff.instr = #"Vla."
118 % Ugh, clef broken in 1.3.125
119 \property VoiceCombineStaff.clefGlyph = #"clefs-C"
120 \property VoiceCombineStaff.clefPosition = #0
124 \context VoiceCombineVoice=oneViole \partcombine VoiceCombineVoice
125 \context VoiceCombineThread=oneViole \violaI
126 \context VoiceCombineThread=twoViole \violaII
129 violoncello = \notes\relative c {
130 c1\ff d e f c d e f c
133 contrabasso = \notes\relative c {
146 bassiGroup = \context PianoStaff = bassi_group \notes <
147 \context StaffCombineStaff=oneBassi {
148 \property StaffCombineStaff.midiInstrument = #"cello"
151 \property StaffCombineStaff.instrument = #'((kern . 0.5)
152 (lines "Violoncello" (rows " e") (rows "Contrabasso")))
154 \property StaffCombineStaff.instr = #"Vc."
157 % Ugh, clef broken in 1.3.125
158 \property StaffCombineStaff.clefGlyph = #"clefs-F"
159 \property StaffCombineStaff.clefPosition = #2
164 \context StaffCombineStaff=twoBassi {
165 \property StaffCombineStaff.midiInstrument = #"contrabass"
166 \property StaffCombineStaff.instrument = #"Contrabasso"
167 \property StaffCombineStaff.instr = #"Cb."
170 % Ugh, clef broken in 1.3.125
171 \property StaffCombineStaff.clefGlyph = #"clefs-F"
172 \property StaffCombineStaff.clefPosition = #2
178 \context StaffCombineStaff=oneBassi \partcombine StaffCombineStaff
179 \context StaffCombineVoice=oneBassi \violoncello
180 \context StaffCombineVoice=twoBassi \contrabasso
184 violiniGroup = \context GrandStaff = violini_group <
189 archiGroup = \context StaffGroup = archi_group <
205 subtitle = "Ouverture"
207 composer = "Ludwig van Beethoven (1770-1827)"
209 copyright = "public domain"
214 %textheight = 290.0\mm
215 %linewidth = 195.0\mm
216 textheight = 285.0\mm
219 \translator{ \HaraKiriStaffContext }
221 % The Voice combine hierarchy
225 \name "VoiceCombineThread"
226 \consists "Rest_engraver"
230 \name "VoiceCombineVoice"
233 \remove "Rest_engraver"
234 \accepts "VoiceCombineThread"
237 \HaraKiriStaffContext
238 \consists "Mark_engraver"
239 \name "VoiceCombineStaff"
240 \accepts "VoiceCombineVoice"
244 % The Staff combine hierarchy
248 \name "StaffCombineThread"
252 \name "StaffCombineVoice"
253 \accepts "StaffCombineThread"
254 \consists "Thread_devnull_engraver"
257 \HaraKiriStaffContext
258 \name "StaffCombineStaff"
259 \accepts "StaffCombineVoice"
264 % This is non-conventional, but currently it is
265 % the only way to tell the difference.
267 splitInterval = #'(1 . 0)
268 changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
272 \accepts "VoiceCombineStaff"
273 \accepts "StaffCombineStaff"
275 \translator{ \HaraKiriStaffContext }
279 \OrchestralScoreContext
280 \accepts "VoiceCombineStaff"
281 \accepts "StaffCombineStaff"
282 TimeSignature \override #'style = #'C
284 BarNumber \override #'padding = #3
285 RestCollision \override #'maximum-rest-count = #1