input/test/part-combine-staff.ly

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