1 % dynamics should not collide with staff
2 % dynamics (of two voices) should not collide with eachother
5 texidoc
="Template for part-combining orchestral scores";
10 violoncello
= \notes\relative c'' {
14 \property Voice
.crescendoText
= #"cresc."
15 \property Voice
.crescendoSpanner
= #'dashed-line
18 [\!f8\sf(\>as f as][f g d)\!g]|
21 contrabasso
= \notes\relative c'' {
25 \property Voice
.crescendoText
= #"cresc."
26 \property Voice
.crescendoSpanner
= #'dashed-line
29 [\!f8\sf(\>as f as][f g d)\!g]|
32 flautiStaff
= \notes \context Staff
= flauti
<
33 \context Voice
=oneBassi
\End
34 \context Voice
=twoBassi
\End
35 \context Voice
=Flauti
\partcombine Voice
36 \context Thread
=oneFlauti
\violoncello
37 \context Thread
=twoFlauti
\contrabasso
40 staffCombineProperties
= {
41 \property Voice
.devNullThread
= #'unisolo
42 \property Voice
.soloADue
= ##t
43 \property Voice
.soloText
= #""
44 \property Voice
.soloIIText
= #""
45 % This is non-conventional, but currently it is
46 % the only way to tell the difference.
47 \property Voice
.aDueText
= #"\\`a2"
48 \property Voice
.splitInterval
= #'(1 . 0)
49 \property Voice
.changeMoment
= #`
(,(make-moment
1 1) . ,(make-moment
1 1))
56 \context PianoStaff
= bassi
_group
\notes <
57 \context Staff
=oneBassi
\End
58 \context Staff
=twoBassi
\End
60 \context Staff
=oneBassi
\partcombine Staff
61 \context Voice
=oneBassi
{ \staffCombineProperties \violoncello }
62 \context Voice
=twoBassi
{ \staffCombineProperties \contrabasso }
68 linewidth
= 80 * \staffspace;
69 textheight
= 200 * \staffspace;
72 \consists "Rest_engraver";
76 \remove "Rest_engraver";
78 % The staff combine (bassi part) needs a
79 % thread_devnull_engraver here.
80 % Instead of maintaining two separate hierarchies,
81 % we switch add it, but switch it off immideately.
82 % The staff combine parts switch it on.
83 devNullThread
= #'never
84 \consists "Thread_devnull_engraver";
92 \consists "Mark_engraver";
95 \OrchestralScoreContext
98 currentBarNumber
= #218
99 BarNumber
\override #'padding
= #3
100 RestCollision
\override #'maximum-rest-count
= #1
101 marginScriptHorizontalAlignment
= #1
102 TimeSignature
\override #'style
= #'C
104 \translator { \HaraKiriStaffContext }