input/bugs/pc-core.ly

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