input/test/part-combine-staff.ly

   1 \score{
   2         \context PianoStaff <
   3                 \context StaffCombineStaff=one \skip 1*7;
   4                 \context StaffCombineStaff=two \skip 1*7;
   5                 \context StaffCombineStaff=one \partcombine StaffCombineStaff
   6                         \context StaffCombineVoice=one \notes\relative c''
   7                                 {
   8                                         c4 d e f\break
   9                                         c d e f\break
  10                                         c d e f
  11                                         c4 d e f\break
  12                                         a8 a a a b b b b
  13                                         a,4 a a a\break
  14                                         c2 e4 f\break
  15                                 }
  16                         \context StaffCombineVoice=two \notes\relative c''
  17                                 {
  18                                         c2 e2
  19                                         c4 d e f
  20                                         c2 e2
  21                                         c,4 d e f
  22                                         a8 a a a b b b b
  23                                         a4 a a a
  24                                         c2 e2
  25                                 }
  26                 >
  27         \paper {
  28
  29                 textheight = 295.0\mm;
  30                 linewidth = 180.0\mm;
  31
  32                 \translator{ \HaraKiriStaffContext }
  33                 %
  34                 % The Voice combine hierarchy
  35                 %
  36                 \translator{
  37                         \ThreadContext
  38                         \name "VoiceCombineThread";
  39                         \consists "Rest_engraver";
  40                 }
  41                 \translator{
  42                         \VoiceContext
  43                         \name "VoiceCombineVoice";
  44                         soloText = #"I."
  45                         soloIIText = #"II."
  46                         \remove "Rest_engraver";
  47                         \accepts "VoiceCombineThread";
  48                 }
  49                 \translator{
  50                         \HaraKiriStaffContext
  51                         \consists "Mark_engraver";
  52                         \name "VoiceCombineStaff";
  53                         \accepts "VoiceCombineVoice";
  54                 }
  55
  56                 %
  57                 % The Staff combine hierarchy
  58                 %
  59                 \translator{
  60                         \ThreadContext
  61                         \name "StaffCombineThread";
  62                 }
  63                 \translator{
  64                         \VoiceContext
  65                         \name "StaffCombineVoice";
  66                         \accepts "StaffCombineThread";
  67                         \consists "Thread_devnull_engraver";
  68                 }
  69                 \translator {
  70                         \HaraKiriStaffContext
  71                         \name "StaffCombineStaff";
  72                         \accepts "StaffCombineVoice";
  73
  74                         soloADue = ##t
  75                         soloText = #""
  76                         soloIIText = #""
  77                         aDueText = #""
  78                         splitInterval = #'(1 . 0)
  79                         changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
  80
  81                 }
  82                 \translator {
  83                         \StaffGroupContext
  84                         \accepts "VoiceCombineStaff";
  85                         \accepts "StaffCombineStaff";
  86                 }
  87                 \translator{ \HaraKiriStaffContext }
  88
  89                 \translator {
  90                         \ScoreContext
  91                         \accepts "VoiceCombineStaff";
  92                         \accepts "StaffCombineStaff";
  93                         skipBars = ##t
  94
  95                         barScriptPadding = #2.0 % dimension \pt
  96                         markScriptPadding = #4.0
  97
  98                         %% urg: in pt?
  99                         barNumberScriptPadding = #15
 100                         %% URG: this changes dynamics too
 101                         %%textStyle = #"italic"
 102                         timeSignatureStyle = #"C"
 103                         maximumRestCount = #1
 104                 }
 105         }
 106 }