input/test/part-combine-moments.ly

   1 \version "1.7.19"
   2 % TODO: this example has a ton of text for very little output.
   3 % Is it all needed?  -gp
   4 % should this go to regression or be delete'd?   -gp
   5 \header{ texidoc="@cindex Part Combine Moments
   6 When you combine two voices with the same notes, you should
   7 only have one stem. "
   8 }
   9
  10 \score{
  11         \context PianoStaff <
  12                 \context StaffCombineStaff=one \skip 1*2
  13                 \context StaffCombineStaff=two \skip 1*2
  14                 \context StaffCombineStaff=one \partcombine StaffCombineStaff
  15                         \context StaffCombineVoice=one \notes\relative c''
  16                                 {
  17                                         c4 d e f\break
  18                                         c2 e4 f\break
  19                                 }
  20                         \context StaffCombineVoice=two \notes\relative c''
  21                                 {
  22                                         c4 d e f
  23                                         c2 e2
  24                                 }
  25                 >
  26         \paper {
  27                 raggedright= ##t
  28                 textheight = 295.0\mm
  29                 linewidth = 180.0\mm
  30
  31                 \translator{ \RemoveEmptyStaffContext }
  32                 %
  33                 % The Voice combine hierarchy
  34                 %
  35                 \translator{
  36                         \ThreadContext
  37                         \name "VoiceCombineThread"
  38                         \consists "Rest_engraver"
  39                 }
  40                 \translator{
  41                         \VoiceContext
  42                         \name "VoiceCombineVoice"
  43                         soloText = #"I."
  44                         soloIIText = #"II."
  45                         \remove "Rest_engraver"
  46                         \accepts "VoiceCombineThread"
  47                 }
  48                 \translator{
  49                         \RemoveEmptyStaffContext
  50                         \consists "Mark_engraver"
  51                         \name "VoiceCombineStaff"
  52                         \accepts "VoiceCombineVoice"
  53                 }
  54
  55                 %
  56                 % The Staff combine hierarchy
  57                 %
  58                 \translator{
  59                         \ThreadContext
  60                         \name "StaffCombineThread"
  61                 }
  62                 \translator{
  63                         \VoiceContext
  64                         \name "StaffCombineVoice"
  65                         \accepts "StaffCombineThread"
  66                         \consists "Thread_devnull_engraver"
  67                 }
  68                 \translator {
  69                         \RemoveEmptyStaffContext
  70                         \name "StaffCombineStaff"
  71                         \accepts "StaffCombineVoice"
  72
  73                         soloADue = ##t
  74                         soloText = #""
  75                         soloIIText = #""
  76                         aDueText = #""
  77                         splitInterval = #'(1 . 0)
  78                         changeMoment = #`(,(ly:make-moment 1 1) . ,(ly:make-moment 1 1))
  79
  80                 }
  81                 \translator {
  82                         \StaffGroupContext
  83                         \accepts "VoiceCombineStaff"
  84                         \accepts "StaffCombineStaff"
  85                 }
  86                 \translator{ \RemoveEmptyStaffContext }
  87
  88                 \translator {
  89                         \ScoreContext
  90                         \accepts "VoiceCombineStaff"
  91                         \accepts "StaffCombineStaff"
  92                         skipBars = ##t
  93
  94                         %%FIXME barScriptPadding = #2.0 % dimension \pt
  95                         RehearsalMark \override #'padding = #4
  96                         BarNumber \override #'padding = #3
  97                         %% URG: this changes dynamics too
  98                         %%textStyle = #"italic"
  99                         TimeSignature \override #'style = #'C
 100                         RestCollision \set #'maximum-rest-count = #1
 101                 }
 102         }
 103 }
 104 %% new-chords-done %%