input/bugs/clef-staff.ly

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