input/bugs/pc-core.ly

   1 % on their own staff, voices should be stemboth (not up/down)
   2
   3 End = { \skip 1*8; }
   4
   5 violoncello = \notes\relative c' {
   6    c8 c c c    c8 c c c\break
   7 }
   8
   9 contrabasso = \notes\relative c {
  10    c4 c8 c    c8 c c c\break
  11 }
  12
  13 staffCombinePianoStaffProperties = {
  14         \property PianoStaff.devNullThread = #'()
  15         \property PianoStaff.soloADue = ##t
  16         \property PianoStaff.soloText = #""
  17         \property PianoStaff.soloIIText = #""
  18         % This is non-conventional, but currently it is
  19         % the only way to tell the difference.
  20         \property PianoStaff.aDueText = #"\\`a2"
  21         \property PianoStaff.splitInterval = #'(1 . 0)
  22         \property PianoStaff.changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
  23 }
  24
  25
  26 \score {
  27   <
  28   \context PianoStaff = bassi_group \notes <
  29     \staffCombinePianoStaffProperties
  30     \context Staff=oneBassi < \clef bass;
  31                 \property Staff.instrument = #'(lines
  32                   "Violoncello" "    e" "Contrabasso")
  33
  34                 \property Staff.instr = #"Vc."
  35                 \End >
  36     \context Staff=twoBassi < \clef bass;
  37                 \property Staff.instrument = #"Contrabasso"
  38                 \property Staff.instr = #"Cb."
  39
  40     \End >
  41
  42     \context Staff=oneBassi \partcombine Staff
  43       \context Voice=oneBassi { \violoncello }
  44       \context Voice=twoBassi { \contrabasso }
  45  >
  46 >
  47   \paper {
  48     % \paperSixteen
  49     linewidth = 80 * \staffspace;
  50     textheight = 200 * \staffspace;
  51     \translator{
  52       \ThreadContext
  53       \consists "Rest_engraver";
  54
  55       % Set value for engraver at thread level,
  56       % to override the default that is set in ScoreContext
  57       % for added engraver at Voice level
  58       devNullThread = #'()
  59     }
  60     \translator{
  61       \VoiceContext
  62       \remove "Rest_engraver";
  63
  64       % The staff combine (bassi part) needs a
  65       % thread_devnull_engraver here.
  66       % Instead of maintaining two separate hierarchies,
  67       % we switch add it, but switch it off immideately.
  68       % The staff combine parts switch it on.
  69       % devNullThread = #'never
  70       \consists "Thread_devnull_engraver";
  71     }
  72     \translator{
  73       \HaraKiriStaffContext
  74       \consists "Mark_engraver";
  75     }
  76     \translator {
  77       \OrchestralScoreContext
  78       skipBars = ##t
  79       soloText = #"I."
  80       soloIIText = #"II."
  81       % By default, turn off the Thread_devnull_engraver
  82       % at Voice level
  83       devNullThread = #'never
  84
  85       % Hmm
  86       currentBarNumber = #218
  87       BarNumber \override #'padding = #3
  88       RestCollision \override #'maximum-rest-count = #1
  89       marginScriptHorizontalAlignment = #1
  90       TimeSignature \override #'style = #'C
  91     }
  92   }
  93 }
  94