Documentation/ly-examples/orchestra.ly

   1 \version "2.19.46"
   2
   3 \header {
   4   tagline = ##f
   5   title = "Violent Dance For Orchestra"
   6   composer = "Hu Haipeng"
   7 %  arranger = "July 5, 2009"
   8
   9 %  poet = "  I'm writing this piece because I'm terribly frustrated, facing a task which will seriously stain my aesthetics and conviction to the true art. It consists of all kinds of devils, dancing and whirling violently, turning the world into an abyss of darkness. Although the main melodies are derived from folk music, these are only a beautiful skin, and the essence of this piece is violent and evil, full of my 10 years' pain and rage. It's a large volcano of my long repressed heart!"
  10 }
  11
  12 \paper{
  13   line-width = 158\mm
  14 }
  15
  16 %% text defs
  17 presto = \markup { \bold \italic "Presto" }
  18 div = \markup { \bold "Div." }
  19 nondiv = \markup { \bold "Non div." }
  20 unis = \markup { \bold "Unis." }
  21 piz = \markup { \bold "Pizz." }
  22 arc = \markup { \bold "Arco" }
  23 pizz = \set Staff.midiInstrument = "pizzicato strings"
  24 arco = \set Staff.midiInstrument = "string ensemble 1"
  25 pont = \markup { \bold \italic "Sul ponticello" }
  26 naturale = \markup { \bold \italic "Naturale" }
  27 moltocr = {
  28   \set crescendoText = \markup { \italic "Molto cresc." }
  29   \set crescendoSpanner = #'text
  30   \override DynamicTextSpanner.style = #'dotted-line
  31 }
  32 offCr = {
  33   \unset crescendoText
  34   \unset crescendoSpanner
  35   \revert DynamicTextSpanner.style
  36 }
  37
  38 %% Layout for piano dynamics
  39 \layout {
  40   \context {
  41     \Voice
  42     \override Glissando.breakable = ##t
  43     \override TextSpanner.breakable = ##t
  44     \override DynamicLineSpanner.breakable = ##t
  45     \override DynamicTextSpanner.breakable = ##t
  46     \override TrillSpanner.breakable = ##t
  47   }
  48 }
  49
  50 %% layout to create orchestra staff group
  51 %% with non-spanned barlines between two instrument groups
  52 \layout {
  53   \context {
  54     \StaffGroup
  55     \name Orchestra
  56     \remove "Span_bar_engraver"
  57   }
  58   \context {
  59     \Score
  60     \accepts Orchestra
  61   }
  62 }
  63
  64 %% Layout to produce SquareStaff context
  65 %% to group similar instruments in a staff group with thin square bracket
  66 \layout {
  67   \context {
  68     \StaffGroup
  69     \name SquareStaff
  70     systemStartDelimiter = #'SystemStartSquare
  71   }
  72   \context {
  73     \Orchestra
  74     \accepts SquareStaff
  75   }
  76   \context {
  77     \StaffGroup
  78     \accepts SquareStaff
  79   }
  80 }
  81
  82 %% Layout to produce MarkLine context
  83 %% to place rehearsal marks and texts above full score
  84 \layout {
  85   \context {
  86     \type "Engraver_group"
  87     \name "MarkLine"
  88     \consists "Axis_group_engraver"
  89     \consists "Mark_engraver"
  90     \consists "Metronome_mark_engraver"
  91     \consists "Script_engraver"
  92     \consists "Text_engraver"
  93     \consists "Text_spanner_engraver"
  94     \consists "Font_size_engraver"
  95     \override VerticalAxisGroup.staff-affinity = #DOWN
  96     \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #2
  97     \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing.padding = #5
  98     \override TextSpanner.breakable = ##t
  99   }
 100   \context {
 101     \Score
 102     \accepts "MarkLine"
 103   }
 104   \context {
 105     \Orchestra
 106     \accepts "MarkLine"
 107   }
 108   \context {
 109     \StaffGroup
 110     \accepts "MarkLine"
 111   }
 112 }
 113
 114 %% layout to produce a smaller markline
 115 %% put before 1st violin part
 116 \layout {
 117   \context {
 118     \MarkLine
 119     \name "SmallMarkLine"
 120     \override MetronomeMark.outside-staff-priority = #800
 121     \override RehearsalMark.outside-staff-priority = #1200
 122   }
 123   \context {
 124     \Score
 125     \accepts SmallMarkLine
 126   }
 127   \context {
 128     \Orchestra
 129     \accepts SmallMarkLine
 130   }
 131   \context {
 132     \StaffGroup
 133     \accepts SmallMarkLine
 134   }
 135 }
 136
 137 modern =
 138 #`(Staff ,(make-accidental-rule 'same-octave 0)
 139   ,(make-accidental-rule 'any-octave 0)
 140   ,(make-accidental-rule 'same-octave 1))
 141
 142 \layout {
 143   \context {
 144     \Score
 145     autoAccidentals = #modern
 146     autoCautionaries = #modern
 147   }
 148 }
 149
 150   marks = \relative c' {
 151     \set markFormatter = #format-mark-box-numbers
 152     \tempo \presto 4.=112
 153 \set Score.currentBarNumber = #11
 154     s2.*4 |
 155     s1*9/8 |
 156   }
 157
 158   piccolo = \relative c'''' {
 159     \clef treble \key ees \minor \time 6/8
 160     \transposition c''
 161     R2.
 162     ges,16(\mf\< ees c ees ges bes) c( bes ges bes c ees) |
 163     ges8-.->\!\ff \offCr r r r4 r8 | R2. |
 164     \time 9/8
 165     R1*9/8 |
 166   }
 167
 168   flutes = \relative {
 169     \clef treble \key ees \minor \time 6/8
 170     R2.
 171     <ges'' c,>16(\mf\< <ees bes> <c ges> <ees bes> <ges c,> <bes ees,>) <c ges>( <bes ees,> <ges c,> <bes ees,> <c ges> <ees bes>) |
 172     <ges c,>8-.->\!\ff \offCr r r r4 r8 | R2. |
 173     \time 9/8
 174     R1*9/8 |
 175   }
 176
 177   oboes = \relative {
 178     \clef treble \key ees \minor \time 6/8
 179     R2. |
 180     <ges' c,>4(\mf\< <bes ees,>8 <c ges>4 <ees bes>8) |
 181     <ges c,>-.->\!\ff \offCr r r r4 r8 | R2. |
 182     \time 9/8
 183     R1*9/8 |
 184   }
 185
 186   clarinets = \relative c' {
 187     \clef treble \key f \minor \time 6/8
 188     \transposition bes
 189     <aes' d,>4(\p\< <c f,>8) <d aes>4( <f c>8) |
 190     <aes d,>4( <c f,>8) <d aes>4( <f c>8) |
 191     <aes d,>-.->\!\ff \offCr r r r4 r8 | R2. |
 192     \time 9/8
 193     R1*9/8 |
 194   }
 195
 196   bassoons = \relative {
 197     \clef bass \key ees \minor \time 6/8
 198     <ees, bes'>4.\pp\< c'^"a2" |
 199     bes8-. bes-. bes-. ges-. ges-. ges-. |
 200     ees-.->\!\ff \offCr <ees bes'>4\pp ~ <ees bes'>4. ~ | <ees bes'>2. |
 201     \time 9/8
 202     ges4\p^"I" aes8 aes ees ges ges4 aes16( ges) |
 203   }
 204
 205   hornI = \relative c'' {
 206     \clef treble \key bes \minor \time 6/8
 207     \transposition f
 208     r4 r8 <f bes,>4.\p\< ~ |
 209     <f bes,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
 210     <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
 211     \time 9/8
 212     r4 r8 <b, g>2.\pp |
 213   }
 214
 215   hornII = \relative c'' {
 216     \clef treble \key bes \minor \time 6/8
 217     \transposition f
 218     \moltocr <des g,>2.\pp\< ~ |
 219     <des g,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
 220     <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
 221     \time 9/8
 222     <f, des>2.\pp <f des>4. ~ |
 223   }
 224
 225   trumpetI = \relative c''' {
 226     \clef treble \key f \minor \time 6/8
 227     \transposition bes
 228 R2. |
 229     r4 r8 <aes f>-.\f\< <aes f>-. <aes f>-. |
 230     <c aes>-.->\!\ff r r r4 r8 | R2. |
 231     \time 9/8
 232     R1*9/8 |
 233   }
 234
 235   trumpetII = \relative c'' {
 236     \clef treble \key f \minor \time 6/8
 237     \transposition bes
 238 R2. |
 239     r8 d-.\mf\< d-. d-. d-. d-. |
 240     d-.->\!\ff \offCr r r r4 r8 | R2. |
 241     \time 9/8
 242     R1*9/8 |
 243   }
 244
 245   trombones = \relative {
 246     \clef tenor \key ees \minor \time 6/8
 247     r4 r8 <ges c>4.\mp\< ~ |
 248     <ges c>8-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. |
 249     <ges c>-.->\!\ff \offCr r r r4 r8 | R2. |
 250     \time 9/8
 251     R1*9/8 |
 252   }
 253
 254   tuba = \relative {
 255     \clef bass \key ees \minor \time 6/8
 256     <ees, ees'>4.(\pp\< <c c'> |
 257     <bes bes'>8-.) <bes bes'>-. <bes bes'>-. <ges ges'>-. <ges ges'>-. <ges ges'>-. |
 258     <ees ees'>-.->\!\ff \offCr r r r4 r8 | R2. |
 259     \time 9/8
 260     R1*9/8 |
 261   }
 262
 263   timpani = \relative {
 264     \clef bass \key ees \minor \time 6/8
 265     ees8\< ees ees ees ees ees |
 266     bes bes bes bes bes bes |
 267     ees,->\!\f \offCr ees'\pp ees ees ees ees |
 268     ees ees ees ees ees ees |
 269     \time 9/8
 270     ees r r r4 r8 r4 r8 |
 271   }
 272
 273   trian = {
 274     \clef percussion \time 6/8
 275     R2.*4 |
 276     \time 9/8
 277     R1*9/8 |
 278   }
 279
 280   cym = {
 281     \clef percussion \time 6/8
 282     R2.*4 |
 283     \time 9/8
 284     R1*9/8 |
 285   }
 286
 287   tamt = {
 288     \clef percussion \time 6/8
 289 R2. |
 290     r4 r8 r c4\mf\<^"*" ~ |
 291     8\!\ff r r r4 r8 | R2. |
 292     \time 9/8
 293     R1*9/8 |
 294   }
 295
 296   tamb = {
 297     \clef percussion \time 6/8
 298     R2.*4 |
 299     \time 9/8
 300     R1*9/8 |
 301   }
 302
 303   snare = {
 304     \clef percussion \time 6/8
 305     R2.*4 |
 306     \time 9/8
 307     c8\pp 8 8 8 8 8 8 8 8 |
 308   }
 309
 310   bsdrum = {
 311     \clef percussion \time 6/8
 312     c2.:32\pp\< ~ | 2.: ~ |
 313     8\!\ff \offCr r r r4 r8 | R2. |
 314     \time 9/8
 315     2.:32\pp ~ 4.: |
 316   }
 317
 318   harprh = \relative c'' {
 319     \clef treble \key ees \minor \time 6/8
 320     \showStaffSwitch
 321     R2.*4_\markup { \harp-pedal #"--^|^^^^" } |
 322     \time 9/8
 323     R1*9/8 |
 324   }
 325
 326   harplh = \relative c {
 327     \clef bass \key ees \minor
 328     \showStaffSwitch
 329     R2.*4 |
 330     R1*9/8 |
 331   }
 332
 333   dynamics = {
 334     s2.*4 |
 335     s1*9/8 |
 336   }
 337
 338
 339   violinI = \relative {
 340     \clef treble \key ees \minor \time 6/8
 341     ges'16(\pp\< ees c ees ges bes) c( bes ges bes c ees) |
 342     ges( ees c ees ges bes) c( bes ges bes c ees) |
 343     ges8-.->\!\ff \offCr r r r4 r8 | R2. |
 344     \time 9/8
 345     R1*9/8 |
 346   }
 347
 348   violinII = \relative {
 349     \clef treble \key ees \minor \time 6/8
 350     c'16(\pp\< bes ges bes c ees) ges( ees c ees ges bes) |
 351     c( bes ges bes c ees) ges( ees c ees ges bes) |
 352     c8-.->\!\ff \offCr r r r4 r8 | R2. |
 353     \time 9/8
 354     r4 r8 \repeat tremolo 6 { c,,32->\pp^\pont e } r4 r8 |
 355   }
 356
 357   viola = \relative {
 358     \clef alto \key ees \minor \time 6/8
 359     <ees bes'>8-.\pp\< <ees bes'>-. <ees bes'>-. <ges c>-. <ges c>-. <ges c>-. |
 360     <bes ees>-. <bes ees>-. <bes ees>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 361     <ees bes'>-.->\!\ff \offCr r r r4 r8 | R2. |
 362     \time 9/8
 363     \repeat tremolo 12 { ges,32->^\pont bes } \repeat tremolo 6 {ges->( bes) } |
 364   }
 365
 366   cello = \relative {
 367     \clef bass \key ees \minor \time 6/8
 368     <c ges'>8-.\pp\< <c ges'>-. <c ges'>-. <bes ees>-. <bes ees>-. <bes ees>-. |
 369     <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 370     <bes ges'>8-.->\!\ff \offCr <c ges'>-.\pp <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 371     <c ges'>-. r r r4 r8 |
 372     \time 9/8
 373     \repeat tremolo 12 <c ges'>32(^\pont \repeat tremolo 12 <cis g'> \repeat tremolo 12 <c ges'>) |
 374   }
 375
 376   contrabass = \relative c {
 377     \clef bass \key ees \minor \time 6/8
 378     \transposition c
 379     <ees bes'>8-.\pp\< ees-. ees-. c-. c-. c-. |
 380     bes-. bes-. ges-. ges-. ges-. ges-. |
 381     ees-.->\!\ff \offCr <ees' bes'>-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 382     <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 383     \time 9/8
 384     <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 385   }
 386
 387   #(set-global-staff-size 10)
 388
 389   \score {
 390     \new Orchestra = "orchestra" <<
 391     \set Score.skipBars = ##f
 392     \new MarkLine { \marks }
 393       \new StaffGroup = "woodwind" <<
 394       \new SquareStaff = "picc fl" <<
 395         \new Staff = "piccolo" {
 396           \set Staff.instrumentName = "Piccolo"
 397           \set Staff.shortInstrumentName = "Picc."
 398         \piccolo
 399         }
 400         \new Staff = "flutes" {
 401           \set Staff.instrumentName = "Flutes I & II"
 402           \set Staff.shortInstrumentName = "Fl."
 403         \flutes
 404         }
 405       >>
 406       \new Staff = "oboes" {
 407         \set Staff.instrumentName = "Oboes I & II"
 408         \set Staff.shortInstrumentName = "Ob."
 409       \oboes
 410       }
 411       \new Staff = "clarinets" {
 412         \set Staff.instrumentName = \markup {
 413           \column { \line { "Clarinets I & II" }
 414             \line { "in B" \smaller \flat } } }
 415         \set Staff.shortInstrumentName = "Cl."
 416       \clarinets
 417       }
 418       \new Staff = "bassoons" {
 419         \set Staff.instrumentName = "Bassoons I & II"
 420         \set Staff.shortInstrumentName = "Bn."
 421       \bassoons
 422       }
 423     >>
 424     \new StaffGroup = "brass" <<
 425       \new SquareStaff = "horns" <<
 426         \new Staff = "hornsI" {
 427           \set Staff.instrumentName = \markup {
 428             \column { \line { "Horns I & II" }
 429               \line { "in F" } } }
 430           \set Staff.shortInstrumentName = "Hn. I & II"
 431         \hornI
 432         }
 433         \new Staff = "hornsII" {
 434           \set Staff.instrumentName = \markup {
 435             \column { \line { "Horns III & IV" }
 436               \line { "in F" } } }
 437           \set Staff.shortInstrumentName = "Hn. III & IV"
 438         \hornII
 439         }
 440       >>
 441       \new SquareStaff = "trumpets" <<
 442         \new Staff = "trumpetI" {
 443           \set Staff.instrumentName = \markup {
 444             \column { \line { "Trumpets I & II" }
 445             \line { "in B" \smaller \flat } } }
 446           \set Staff.shortInstrumentName = "Tp. I & II"
 447         \trumpetI
 448         }
 449         \new Staff = "trumpetII" {
 450           \set Staff.instrumentName = \markup {
 451             \column { \line { "Trumpet III" }
 452             \line { "in B" \smaller \flat } } }
 453           \set Staff.shortInstrumentName = "Tp. III"
 454         \trumpetII
 455         }
 456       >>
 457       \new SquareStaff = "trombones" <<
 458         \new Staff = "trombones 1 & 2" {
 459           \set Staff.instrumentName = "Trombones I & II"
 460           \set Staff.shortInstrumentName = "Tb. I & II"
 461         \trombones
 462         }
 463         \new Staff = "tuba" {
 464           \set Staff.instrumentName = "Bass trombone & Tuba"
 465           \set Staff.shortInstrumentName = "Btb. & Tu."
 466         \tuba
 467         }
 468       >>
 469     >>
 470     \new Staff = "timpani" {
 471       \set Staff.instrumentName = "Timpani in A, D & E"
 472       \set Staff.shortInstrumentName = "Tim."
 473     \timpani
 474     }
 475     \new GrandStaff = "drums" <<
 476       \new RhythmicStaff = "triangle" {
 477         \set RhythmicStaff.instrumentName = "Triangle"
 478         \set RhythmicStaff.shortInstrumentName = "Tri."
 479       \trian
 480       }
 481       \new RhythmicStaff = "cymbals" {
 482         \set RhythmicStaff.instrumentName = "Suspended cymbal"
 483         \set RhythmicStaff.shortInstrumentName = "Susp. cym."
 484       \cym
 485       }
 486       \new RhythmicStaff = "tamtam" {
 487         \set RhythmicStaff.instrumentName = "Tamtam"
 488         \set RhythmicStaff.shortInstrumentName = "Tamt."
 489       \tamt
 490       }
 491       \new RhythmicStaff = "tambourine" {
 492         \set RhythmicStaff.instrumentName = "Tambourine"
 493         \set RhythmicStaff.shortInstrumentName = "Tamb."
 494       \tamb
 495       }
 496       \new RhythmicStaff = "snare" {
 497         \set RhythmicStaff.instrumentName = "Snare drum"
 498         \set RhythmicStaff.shortInstrumentName = "Sn."
 499       \snare
 500       }
 501       \new RhythmicStaff = "bass drum" {
 502         \set RhythmicStaff.instrumentName = "Bass drum"
 503         \set RhythmicStaff.shortInstrumentName = "Bd."
 504       \bsdrum
 505       }
 506     >>
 507     \new PianoStaff = "harp" <<
 508       \set PianoStaff.instrumentName = "Harp"
 509       \set PianoStaff.shortInstrumentName = "Hrp."
 510       \set PianoStaff.connectArpeggios = ##t
 511       \new Staff = "rh" { \harprh }
 512       \new Dynamics { \dynamics }
 513       \new Staff = "lh" { \harplh }
 514     >>
 515     \new SmallMarkLine { \marks }
 516     \new StaffGroup = "strings" <<
 517       \new SquareStaff = "violins" <<
 518         \new Staff = "violin I" {
 519           \set Staff.instrumentName = "Violin I"
 520           \set Staff.shortInstrumentName = "Vn. I"
 521         \violinI
 522         }
 523         \new Staff = "violin II" {
 524           \set Staff.instrumentName = "Violin II"
 525           \set Staff.shortInstrumentName = "Vn. II"
 526         \violinII
 527         }
 528       >>
 529       \new Staff = "viola" {
 530         \set Staff.instrumentName = "Viola"
 531         \set Staff.shortInstrumentName = "Vl."
 532       \viola
 533       }
 534       \new SquareStaff = "Cello and Bass" <<
 535         \new Staff = "violoncello" {
 536           \set Staff.instrumentName = "Violoncello"
 537           \set Staff.shortInstrumentName = "Vc."
 538         \cello
 539         }
 540         \new Staff = "contrabass" {
 541           \set Staff.instrumentName = "Contrabass"
 542           \set Staff.shortInstrumentName = "Cb."
 543         \contrabass
 544         }
 545         >>
 546       >>
 547     >>
 548     \layout {
 549       \context {
 550         \Score
 551         \remove "Mark_engraver"
 552         \remove "Metronome_mark_engraver"
 553       }
 554       \context {
 555         \Staff \RemoveEmptyStaves
 556       }
 557     }
 558   }