2 texidoc
="Template for part-combining orchestral scores";
6 % \include "mutopia/Coriolan/coriolan-paper.ly";
10 flautoI
= \notes\relative c'' {
15 \context Score
\outputproperty #(make-type-checker
'paper-column-interface
)
16 #'between-system-string
= #"\\eject"
24 a2 \property VoiceCombineThread
.soloADue
= ##f a
27 flautoII
= \notes\relative c'' {
36 a2 \property VoiceCombineThread
.soloADue
= ##f a
39 flautiStaff
= \notes \context VoiceCombineStaff
= flauti
<
40 \property VoiceCombineStaff
.midiInstrument
= #"flute"
41 \property VoiceCombineStaff
.instrument
= #"2 Flauti"
42 \property VoiceCombineStaff
.instr
= #"Fl."
44 \context VoiceCombineVoice
=one
\partcombine VoiceCombineVoice
45 \context VoiceCombineThread
=one
\flautoI
46 \context VoiceCombineThread
=two
\flautoII
49 legniGroup
= \context StaffGroup
= legni
_group
<
56 violinoI
= \notes\relative c'' {
68 violinoII
= \notes\relative c'' {
80 violinoIStaff
= \context Staff
= oneViolini
<
81 \property Staff
.midiInstrument
= #"violin"
82 \property Staff
.instrument
= #"Violino I"
83 \property Staff
.instr
= #"Vl. I"
85 { \skip 1*9;
\bar "|.";
}
88 violinoIIStaff
= \context Staff
= twoViolini
<
89 % MIDI hoort geeneens verschil tussen een
90 % eerste en tweede viool ;-)
91 \property Staff
.midiInstrument
= #"violin"
92 \property Staff
.instrument
= #"Violino II"
93 \property Staff
.instr
= #"Vl. II"
95 { \skip 1*9;
\bar "|.";
}
98 violaI
= \notes\transpose c, \violinoI
100 violaII
= \notes\transpose c, \violinoII
102 violeGroup
= \notes \context VoiceCombineStaff
= oneViole
<
103 \property VoiceCombineStaff
.midiInstrument
= #"viola"
104 \property VoiceCombineStaff
.instrument
= #"Viola"
105 \property VoiceCombineStaff
.instr
= #"Vla."
107 % Ugh, clef broken in 1.3.125
108 \property VoiceCombineStaff
.clefGlyph
= #"clefs-C"
109 \property VoiceCombineStaff
.clefPosition
= #0
111 { \skip 1*9;
\bar "|.";
}
113 \context VoiceCombineVoice
=oneViole
\partcombine VoiceCombineVoice
114 \context VoiceCombineThread
=oneViole
\violaI
115 \context VoiceCombineThread
=twoViole
\violaII
118 violoncello
= \notes\relative c {
119 c1\ff d e f c d e f c
122 contrabasso
= \notes\relative c {
135 bassiGroup
= \context PianoStaff
= bassi
_group
\notes <
136 \context StaffCombineStaff
=oneBassi
{
137 \property StaffCombineStaff
.midiInstrument
= #"cello"
138 %\property StaffCombineStaff.instrument = #"Violoncello\ne\nContrabasso"
139 \property StaffCombineStaff
.instrument
= #'(lines
"Violoncello" "e" "Contrabasso")
140 \property StaffCombineStaff
.instr
= #"Vc."
143 % Ugh, clef broken in 1.3.125
144 \property StaffCombineStaff
.clefGlyph
= #"clefs-F"
145 \property StaffCombineStaff
.clefPosition
= #2
151 \context StaffCombineStaff
=twoBassi
{
152 \property StaffCombineStaff
.midiInstrument
= #"contrabass"
153 \property StaffCombineStaff
.instrument
= #"Contrabasso"
154 \property StaffCombineStaff
.instr
= #"Cb."
157 % Ugh, clef broken in 1.3.125
158 \property StaffCombineStaff
.clefGlyph
= #"clefs-F"
159 \property StaffCombineStaff
.clefPosition
= #2
166 \context StaffCombineStaff
=oneBassi
\partcombine StaffCombineStaff
167 \context StaffCombineVoice
=oneBassi
\violoncello
168 \context StaffCombineVoice
=twoBassi
\contrabasso
172 violiniGroup
= \context GrandStaff
= violini
_group
<
177 archiGroup
= \context StaffGroup
= archi
_group
<
193 subtitle
= "Ouverture";
195 composer
= "Ludwig van Beethoven (1770-1827)";
197 copyright
= "public domain";
202 %textheight = 290.0\mm;
203 %linewidth = 195.0\mm;
204 textheight
= 285.0\mm;
205 linewidth
= 190.0\mm;
207 \translator{ \HaraKiriStaffContext }
209 % The Voice combine hierarchy
213 \name "VoiceCombineThread";
214 \consists "Rest_engraver";
218 \name "VoiceCombineVoice";
221 \remove "Rest_engraver";
222 \accepts "VoiceCombineThread";
225 \HaraKiriStaffContext
226 \consists "Mark_engraver";
227 \name "VoiceCombineStaff";
228 \accepts "VoiceCombineVoice";
232 % The Staff combine hierarchy
236 \name "StaffCombineThread";
240 \name "StaffCombineVoice";
241 \accepts "StaffCombineThread";
242 \consists "Thread_devnull_engraver";
245 \HaraKiriStaffContext
246 \name "StaffCombineStaff";
247 \accepts "StaffCombineVoice";
252 % This is non-conventional, but currently it is
253 % the only way to tell the difference.
255 splitInterval
= #'(1 . 0)
256 changeMoment
= #`
(,(make-moment
1 1) . ,(make-moment
1 1))
260 \accepts "VoiceCombineStaff";
261 \accepts "StaffCombineStaff";
263 \translator{ \HaraKiriStaffContext }
267 \OrchestralScoreContext
268 \accepts "VoiceCombineStaff";
269 \accepts "StaffCombineStaff";
272 markScriptPadding
= #4.0
274 BarNumber
\override #'padding
= #3
275 RestCollision
\override #'maximum-rest-count
= #1