input/test/part-combine-score.ly

   1 \header {
   2 texidoc="Template for part-combining orchestral scores";
   3 }
   4
   5 \include "paper16.ly";
   6 % \include "mutopia/Coriolan/coriolan-paper.ly";
   7
   8
   9
  10 flautoI = \notes\relative c'' {
  11   c4\pp d e f
  12   b,4 d c d
  13   r2 e4 f
  14   \break
  15  \context Score \outputproperty #(make-type-checker 'paper-column-interface)
  16  #'between-system-string = #"\\eject"
  17
  18   c4 d e f
  19   c4 r e f
  20   c4 r e f
  21   \break
  22   c4 r a r
  23   a a r a
  24   a2 \property VoiceCombineThread.soloADue = ##f a
  25 }
  26
  27 flautoII = \notes\relative c'' {
  28   g4\ff b d f
  29   r2 c4 d
  30   a c c d
  31   a4. b8 c4 d
  32   c r e r
  33   r2 s2
  34   a,4 r a r
  35   a r r a
  36   a2 \property VoiceCombineThread.soloADue = ##f a
  37 }
  38
  39 flautiStaff =  \notes \context VoiceCombineStaff = flauti <
  40   \property VoiceCombineStaff.midiInstrument = #"flute"
  41   \property VoiceCombineStaff.instrument = #"2 Flauti"
  42   \property VoiceCombineStaff.instr = #"Fl."
  43   %\global
  44   \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
  45     \context VoiceCombineThread=one \flautoI
  46     \context VoiceCombineThread=two \flautoII
  47 >
  48
  49 legniGroup =  \context StaffGroup = legni_group <
  50   \flautiStaff
  51   %\oboiStaff
  52   %\clarinettiStaff
  53   %\fagottiStaff
  54 >
  55
  56 violinoI = \notes\relative c'' {
  57   c4 d e f
  58   c d e f
  59   c d e f
  60   c d e f
  61   c d e f
  62   c d e f
  63   c4 d e f
  64   a8 a a a b b b b
  65   d1
  66 }
  67
  68 violinoII = \notes\relative c'' {
  69   c4 d e f
  70   c d e f
  71   c d e f
  72   c2 e2
  73   c4 d e f
  74   c2 e2
  75   c,4 d e f
  76   a8 a a a b b b b
  77   b1
  78 }
  79
  80 violinoIStaff =  \context Staff = oneViolini <
  81  \property Staff.midiInstrument = #"violin"
  82   \property Staff.instrument = #"Violino I"
  83   \property Staff.instr = #"Vl. I"
  84   \violinoI
  85   { \skip 1*9; \bar "|."; }
  86 >
  87
  88 violinoIIStaff =  \context Staff = twoViolini <
  89   % MIDI hoort geeneens verschil tussen een
  90   % eerste en tweede viool ;-)
  91   \property Staff.midiInstrument = #"violin"
  92   \property Staff.instrument = #"Violino II"
  93   \property Staff.instr = #"Vl. II"
  94   \violinoII
  95   { \skip 1*9; \bar "|."; }
  96 >
  97
  98 violaI = \notes\transpose c, \violinoI
  99
 100 violaII = \notes\transpose c, \violinoII
 101
 102 violeGroup =  \notes \context VoiceCombineStaff = oneViole <
 103   \property VoiceCombineStaff.midiInstrument = #"viola"
 104   \property VoiceCombineStaff.instrument = #"Viola"
 105   \property VoiceCombineStaff.instr = #"Vla."
 106   %\clef "alto";
 107   % Ugh, clef broken in 1.3.125
 108   \property VoiceCombineStaff.clefGlyph = #"clefs-C"
 109   \property VoiceCombineStaff.clefPosition = #0
 110   \key f \major;
 111   { \skip 1*9; \bar "|."; }
 112
 113   \context VoiceCombineVoice=oneViole \partcombine VoiceCombineVoice
 114     \context VoiceCombineThread=oneViole \violaI
 115     \context VoiceCombineThread=twoViole \violaII
 116 >
 117
 118 violoncello = \notes\relative c {
 119   c1\ff d e f c d e f c
 120 }
 121
 122 contrabasso = \notes\relative c {
 123   c1\pp
 124   d4 e d e
 125   e1
 126   f4 g f g
 127   c1
 128   d4 e d e
 129   e1
 130   f4 g f g
 131   c1
 132 }
 133
 134
 135 bassiGroup =  \context PianoStaff = bassi_group \notes <
 136   \context StaffCombineStaff=oneBassi {
 137     \property StaffCombineStaff.midiInstrument = #"cello"
 138     %\property StaffCombineStaff.instrument = #"Violoncello\ne\nContrabasso"
 139     \property StaffCombineStaff.instrument = #'(lines "Violoncello" "e" "Contrabasso")
 140     \property StaffCombineStaff.instr = #"Vc."
 141
 142     %\clef "bass";
 143     % Ugh, clef broken in 1.3.125
 144     \property StaffCombineStaff.clefGlyph = #"clefs-F"
 145     \property StaffCombineStaff.clefPosition = #2
 146
 147     \key es \major;
 148     \skip 1*9;
 149     \bar "|.";
 150   }
 151   \context StaffCombineStaff=twoBassi {
 152     \property StaffCombineStaff.midiInstrument = #"contrabass"
 153     \property StaffCombineStaff.instrument = #"Contrabasso"
 154     \property StaffCombineStaff.instr = #"Cb."
 155
 156     %\clef "bass";
 157     % Ugh, clef broken in 1.3.125
 158     \property StaffCombineStaff.clefGlyph = #"clefs-F"
 159     \property StaffCombineStaff.clefPosition = #2
 160
 161     \key as \major;
 162     \skip 1*9;
 163     \bar "|.";
 164   }
 165
 166   \context StaffCombineStaff=oneBassi \partcombine StaffCombineStaff
 167     \context StaffCombineVoice=oneBassi \violoncello
 168     \context StaffCombineVoice=twoBassi \contrabasso
 169 >
 170
 171
 172 violiniGroup =  \context GrandStaff = violini_group <
 173   \violinoIStaff
 174   \violinoIIStaff
 175 >
 176
 177 archiGroup =  \context StaffGroup = archi_group <
 178   \violiniGroup
 179   \violeGroup
 180   \bassiGroup
 181 >
 182
 183
 184 \score{
 185   <
 186     \legniGroup
 187     %\ottoniGroup
 188     %\timpaniGroup
 189     \archiGroup
 190   >
 191   \header {
 192     title = "Coriolan";
 193     subtitle = "Ouverture";
 194     opus = "Opus 62";
 195     composer = "Ludwig van Beethoven (1770-1827)";
 196     enteredby = "JCN";
 197     copyright = "public domain";
 198   }
 199   \paper{
 200     \paperSixteen
 201
 202     %textheight = 290.0\mm;
 203     %linewidth = 195.0\mm;
 204     textheight = 285.0\mm;
 205     linewidth = 190.0\mm;
 206
 207     \translator{ \HaraKiriStaffContext }
 208     %
 209     % The Voice combine hierarchy
 210     %
 211     \translator{
 212       \ThreadContext
 213       \name "VoiceCombineThread";
 214       \consists "Rest_engraver";
 215     }
 216     \translator{
 217       \VoiceContext
 218       \name "VoiceCombineVoice";
 219       soloText = #"I."
 220       soloIIText = #"II."
 221       \remove "Rest_engraver";
 222       \accepts "VoiceCombineThread";
 223     }
 224     \translator{
 225       \HaraKiriStaffContext
 226       \consists "Mark_engraver";
 227       \name "VoiceCombineStaff";
 228       \accepts "VoiceCombineVoice";
 229     }
 230
 231     %
 232     % The Staff combine hierarchy
 233     %
 234     \translator{
 235       \ThreadContext
 236       \name "StaffCombineThread";
 237     }
 238     \translator{
 239       \VoiceContext
 240       \name "StaffCombineVoice";
 241       \accepts "StaffCombineThread";
 242       \consists "Thread_devnull_engraver";
 243     }
 244     \translator {
 245       \HaraKiriStaffContext
 246       \name "StaffCombineStaff";
 247       \accepts "StaffCombineVoice";
 248
 249       soloADue = ##t
 250       soloText = #""
 251       soloIIText = #""
 252       % This is non-conventional, but currently it is
 253       % the only way to tell the difference.
 254       aDueText = #"\\`a2"
 255       splitInterval = #'(1 . 0)
 256       changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
 257     }
 258     \translator {
 259       \StaffGroupContext
 260       \accepts "VoiceCombineStaff";
 261       \accepts "StaffCombineStaff";
 262     }
 263     \translator{ \HaraKiriStaffContext }
 264
 265     \translator {
 266       %\ScoreContext
 267       \OrchestralScoreContext
 268       \accepts "VoiceCombineStaff";
 269       \accepts "StaffCombineStaff";
 270       skipBars = ##t
 271
 272       markScriptPadding = #4.0
 273
 274       BarNumber \override #'padding = #3
 275       RestCollision \override #'maximum-rest-count = #1
 276     }
 277   }
 278 }