input/test/part-combine-staff.ly

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