input/bugs/score-dynamics.ly

   1 % dynamics should not collide with staff
   2 % dynamics (of two voices) should not collide with eachother
   3
   4 \header {
   5 texidoc="Template for part-combining orchestral scores";
   6 }
   7
   8
   9 End = { \skip 1*8; }
  10 violoncello = \notes\relative c'' {
  11   c1\ff d e \break
  12   c1\ff d e \break
  13
  14   \property Voice.crescendoText = #"cresc."
  15   \property Voice.crescendoSpanner = #'dashed-line
  16   g4\p\< r r r8 g(|
  17   )c,4 r r r8 c|
  18   [\!f8\sf(\>as f as][f g d)\!g]|
  19 }
  20
  21 contrabasso = \notes\relative c'' {
  22   c1\pp d e
  23   c2\pp c d1 e
  24
  25   \property Voice.crescendoText = #"cresc."
  26   \property Voice.crescendoSpanner = #'dashed-line
  27   g4\p\< r r r8 g(|
  28   )c,4 r r r8 c|
  29   [\!f8\sf(\>as f as][f g d)\!g]|
  30 }
  31
  32 flautiStaff =  \notes \context Staff = flauti <
  33  \context Voice=oneBassi \End
  34  \context Voice=twoBassi \End
  35   \context Voice=Flauti \partcombine Voice
  36     \context Thread=oneFlauti \violoncello
  37     \context Thread=twoFlauti \contrabasso
  38 >
  39
  40 staffCombineProperties = {
  41         \property Voice.devNullThread = #'unisolo
  42         \property Voice.soloADue = ##t
  43         \property Voice.soloText = #""
  44         \property Voice.soloIIText = #""
  45         % This is non-conventional, but currently it is
  46         % the only way to tell the difference.
  47         \property Voice.aDueText = #"\\`a2"
  48         \property Voice.splitInterval = #'(1 . 0)
  49         \property Voice.changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
  50 }
  51
  52 \score {
  53   <
  54   \flautiStaff
  55
  56   \context PianoStaff = bassi_group \notes <
  57     \context Staff=oneBassi \End
  58     \context Staff=twoBassi \End
  59
  60     \context Staff=oneBassi \partcombine Staff
  61       \context Voice=oneBassi { \staffCombineProperties \violoncello }
  62       \context Voice=twoBassi { \staffCombineProperties \contrabasso }
  63  >
  64
  65  >
  66   \paper {
  67     % \paperSixteen
  68     linewidth = 80 * \staffspace;
  69     textheight = 200 * \staffspace;
  70     \translator{
  71       \ThreadContext
  72       \consists "Rest_engraver";
  73     }
  74     \translator{
  75       \VoiceContext
  76       \remove "Rest_engraver";
  77
  78       % The staff combine (bassi part) needs a
  79       % thread_devnull_engraver here.
  80       % Instead of maintaining two separate hierarchies,
  81       % we switch add it, but switch it off immideately.
  82       % The staff combine parts switch it on.
  83       devNullThread = #'never
  84       \consists "Thread_devnull_engraver";
  85
  86       soloText = #"I."
  87       soloIIText = #"II."
  88       soloADue = ##f
  89     }
  90     \translator{
  91       \HaraKiriStaffContext
  92       \consists "Mark_engraver";
  93     }
  94     \translator {
  95       \OrchestralScoreContext
  96       skipBars = ##t
  97       % Hmm
  98       currentBarNumber = #218
  99       BarNumber \override #'padding = #3
 100       RestCollision \override #'maximum-rest-count = #1
 101       marginScriptHorizontalAlignment = #1
 102       TimeSignature \override #'style = #'C
 103     }
 104     \translator { \HaraKiriStaffContext }
 105   }
 106 }
 107