]> git.donarmstrong.com Git - lilypond.git/blob - input/test/part-combine-staff.ly
Further development.
[lilypond.git] / input / test / part-combine-staff.ly
1
2 \version "2.1.7"
3 \header { texidoc = "@cindex Part Combine Staff
4 You can combine parts on two staffs, as well as two voices. "
5 }
6
7 \score{
8         \context PianoStaff <<
9                 \context StaffCombineStaff=one \skip 1*7
10                 \context StaffCombineStaff=two \skip 1*7
11                 \context StaffCombineStaff=one \partcombine StaffCombineStaff
12                         \context StaffCombineVoice=one \notes\relative c''
13                                 {
14                                         c4 d e f\break
15                                         c d e f\break
16                                         c d e f
17                                         c4 d e f\break
18                                         a8 a a a b b b b
19                                         a,4 a a a\break
20                                         c2 e4 f\break
21                                 }
22                         \context StaffCombineVoice=two \notes\relative c''
23                                 {
24                                         c2 e2
25                                         c4 d e f
26                                         c2 e2
27                                         c,4 d e f
28                                         a8 a a a b b b b
29                                         a4 a a a
30                                         c2 e2
31                                 }
32                 >>
33         \paper {
34                 textheight = 295.0\mm
35                 linewidth = 180.0\mm
36
37                 \translator{ \RemoveEmptyStaffContext }
38                 %
39                 % The Voice combine hierarchy
40                 %
41                 \translator{
42                         \ThreadContext
43                         \name "VoiceCombineThread"
44                         \consists "Rest_engraver"
45                 }
46                 \translator{
47                         \VoiceContext
48                         \name "VoiceCombineVoice"
49                         soloText = #"I."
50                         soloIIText = #"II."
51                         \remove "Rest_engraver"
52                         \accepts "VoiceCombineThread"
53                 }
54                 \translator{
55                         \RemoveEmptyStaffContext
56                         \consists "Mark_engraver"
57                         \name "VoiceCombineStaff"
58                         \accepts "VoiceCombineVoice"
59                 }
60
61                 %
62                 % The Staff combine hierarchy
63                 %
64                 \translator{
65                         \ThreadContext
66                         \name "StaffCombineThread"
67                 }
68                 \translator{
69                         \VoiceContext
70                         \name "StaffCombineVoice"
71                         \accepts "StaffCombineThread"
72                         \consists "Thread_devnull_engraver"
73                 }
74                 \translator {
75                         \RemoveEmptyStaffContext
76                         \name "StaffCombineStaff"
77                         \accepts "StaffCombineVoice"
78
79                         soloADue = ##t
80                         soloText = #""
81                         soloIIText = #""
82                         aDueText = #""
83                         splitInterval = #'(1 . 0)
84                         changeMoment = #`(,(ly:make-moment 1 1) . ,(ly:make-moment 1 1))
85
86                 }
87                 \translator {
88                         \StaffGroupContext
89                         \accepts "VoiceCombineStaff"
90                         \accepts "StaffCombineStaff"
91                 }
92                 \translator{ \RemoveEmptyStaffContext }
93
94                 \translator {
95                         \ScoreContext
96                         \accepts "VoiceCombineStaff"
97                         \accepts "StaffCombineStaff"
98                         skipBars = ##t 
99
100                         %%% FIXME barScriptPadding = #2.0 % dimension \pt
101                         RehearsalMark \override #'padding = #4
102                         BarNumber \override #'padding = #3
103                         
104                         %% URG: this changes dynamics too
105                         %%textStyle = #"italic"
106                         TimeSignature \override #'style = #'C
107
108                         RestCollision \set #'maximum-rest-count = #1
109
110                 }
111         }
112 }
113