input/no-notation/pc-direction.ly

   1 \version "1.7.6"
   2
   3 % move to regtest once it works?
   4
   5
   6 % still not workign ? --hwn.
   7
   8 \header {
   9 texidoc = "
  10 On their own staff, staffcombined voices should be stemboth (not up/down)
  11 while voicecombined threads should get their direction set (up/down)
  12
  13 "
  14 }
  15
  16
  17 End = { \skip 1*8 }
  18
  19 violaI = \notes\relative c'' {
  20   c c e4. e8
  21 }
  22 violaII = \notes\relative c'' {
  23   c4 b a a
  24 }
  25
  26
  27 violoncello = \notes\relative c' {
  28    c8 c c c    c8 c c c\break
  29    a1
  30 }
  31
  32 contrabasso = \notes\relative c {
  33    a4 a8 a   a8 a a a\break
  34    a1
  35 }
  36
  37 violeStaff = \notes \context Staff = viole <
  38  \context Voice=oneViole <
  39                 \property Staff.instrument = #"Viola"
  40                 \property Staff.instr = #"Vla."
  41
  42  \End
  43  >
  44  \context Voice=twoViole <
  45                 \property Staff.instrument = #"Viola II"
  46                 \property Staff.instr = #"Vla. II"
  47  \End
  48  >
  49   \context Voice=oneViole \partcombine Voice
  50     \context Thread=oneViole \violaI
  51     \context Thread=twoViole \violaII
  52 >
  53
  54 staffCombinePianoStaffProperties = {
  55         \property PianoStaff.devNullThread = #'()
  56         \property PianoStaff.soloADue = ##t
  57         \property PianoStaff.soloText = #""
  58         \property PianoStaff.soloIIText = #""
  59         % This is non-conventional, but currently it is
  60         % the only way to tell the difference.
  61         \property PianoStaff.aDueText = #"\\`a2"
  62         \property PianoStaff.splitInterval = #'(1 . 0)
  63         \property PianoStaff.changeMoment = #`(,(ly:make-moment 1 1) . ,(ly:make-moment 1 1))
  64         \property PianoStaff.noDirection = ##t
  65 }
  66
  67
  68 \score {
  69   <
  70   \context StaffGroup <
  71    \violeStaff
  72
  73   \context PianoStaff = bassi_group \notes <
  74     \staffCombinePianoStaffProperties
  75     \context Staff=oneBassi < \clef bass
  76                 \property Staff.instrument = #'(lines
  77                   "Violoncello" "    e" "Contrabasso")
  78
  79                 \property Staff.instr = #"Vc."
  80                 \End >
  81     \context Staff=twoBassi < \clef bass
  82                 \property Staff.instrument = #"Contrabasso"
  83                 \property Staff.instr = #"Cb."
  84
  85     \End >
  86
  87     \context Staff=oneBassi \partcombine Staff
  88       \context Voice=oneBassi { \violoncello }
  89       \context Voice=twoBassi { \contrabasso }
  90  >
  91 >
  92  >
  93   \paper {
  94     % \paperSixteen
  95     linewidth = 80 * \staffspace
  96     textheight = 200 * \staffspace
  97     \translator{
  98       \ThreadContext
  99       \consists "Rest_engraver"
 100
 101       % Set value for engraver at thread level,
 102       % to override the default that is set in ScoreContext
 103       % for added engraver at Voice level
 104       devNullThread = #'()
 105     }
 106     \translator{
 107       \VoiceContext
 108       \remove "Rest_engraver"
 109
 110       % The staff combine (bassi part) needs a
 111       % thread_devnull_engraver here.
 112       % Instead of maintaining two separate hierarchies,
 113       % we switch add it, but switch it off immideately.
 114       % The staff combine parts switch it on.
 115       % devNullThread = #'never
 116       \consists "Thread_devnull_engraver"
 117     }
 118     \translator{
 119       \HaraKiriStaffContext
 120       \consists "Mark_engraver"
 121     }
 122     \translator {
 123       \OrchestralScoreContext
 124       skipBars = ##t
 125       soloText = #"I."
 126       soloIIText = #"II."
 127       % By default, turn off the Thread_devnull_engraver
 128       % at Voice level
 129       devNullThread = #'never
 130
 131       % Hmm
 132       currentBarNumber = #218
 133       BarNumber \override #'padding = #3
 134       RestCollision \override #'maximum-rest-count = #1
 135       marginScriptHorizontalAlignment = #1
 136       TimeSignature \override #'style = #'C
 137     }
 138   }
 139 }
 140