Documentation/ly-examples/orchestra.ly

   1 \version "2.19.0"
   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 "Output_property_engraver"
  89     \consists "Axis_group_engraver"
  90     \consists "Mark_engraver"
  91     \consists "Metronome_mark_engraver"
  92     \consists "Script_engraver"
  93     \consists "Text_engraver"
  94     \consists "Text_spanner_engraver"
  95     \consists "Font_size_engraver"
  96     \override VerticalAxisGroup.staff-affinity = #DOWN
  97     \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #2
  98     \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing.padding = #5
  99     \override TextSpanner.breakable = ##t
 100   }
 101   \context {
 102     \Score
 103     \accepts "MarkLine"
 104   }
 105   \context {
 106     \Orchestra
 107     \accepts "MarkLine"
 108   }
 109   \context {
 110     \StaffGroup
 111     \accepts "MarkLine"
 112   }
 113 }
 114
 115 %% layout to produce a smaller markline
 116 %% put before 1st violin part
 117 \layout {
 118   \context {
 119     \MarkLine
 120     \name "SmallMarkLine"
 121     \override MetronomeMark.outside-staff-priority = #800
 122     \override RehearsalMark.outside-staff-priority = #1200
 123   }
 124   \context {
 125     \Score
 126     \accepts SmallMarkLine
 127   }
 128   \context {
 129     \Orchestra
 130     \accepts SmallMarkLine
 131   }
 132   \context {
 133     \StaffGroup
 134     \accepts SmallMarkLine
 135   }
 136 }
 137
 138 modern =
 139 #`(Staff ,(make-accidental-rule 'same-octave 0)
 140   ,(make-accidental-rule 'any-octave 0)
 141   ,(make-accidental-rule 'same-octave 1))
 142
 143 \layout {
 144   \context {
 145     \Score
 146     autoAccidentals = #modern
 147     autoCautionaries = #modern
 148   }
 149 }
 150
 151   marks = \relative c' {
 152     \set markFormatter = #format-mark-box-numbers
 153     \tempo \presto 4.=112
 154 \set Score.currentBarNumber = #11
 155     s2.*4 |
 156     s1*9/8 |
 157   }
 158
 159   piccolo = \relative c'''' {
 160     \clef treble \key ees \minor \time 6/8
 161     \transposition c''
 162     R2.
 163     ges,16(\mf\< ees c ees ges bes) c( bes ges bes c ees) |
 164     ges8-.->\!\ff \offCr r r r4 r8 | R2. |
 165     \time 9/8
 166     R1*9/8 |
 167   }
 168
 169   flutes = \relative c'''' {
 170     \clef treble \key ees \minor \time 6/8
 171     R2.
 172     <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>) |
 173     <ges c,>8-.->\!\ff \offCr r r r4 r8 | R2. |
 174     \time 9/8
 175     R1*9/8 |
 176   }
 177
 178   oboes = \relative c''' {
 179     \clef treble \key ees \minor \time 6/8
 180     R2. |
 181     <ges, c,>4(\mf\< <bes ees,>8 <c ges>4 <ees bes>8) |
 182     <ges c,>-.->\!\ff \offCr r r r4 r8 | R2. |
 183     \time 9/8
 184     R1*9/8 |
 185   }
 186
 187   clarinets = \relative c' {
 188     \clef treble \key f \minor \time 6/8
 189     \transposition bes
 190     <aes' d,>4(\p\< <c f,>8) <d aes>4( <f c>8) |
 191     <aes d,>4( <c f,>8) <d aes>4( <f c>8) |
 192     <aes d,>-.->\!\ff \offCr r r r4 r8 | R2. |
 193     \time 9/8
 194     R1*9/8 |
 195   }
 196
 197   bassoons = \relative c, {
 198     \clef bass \key ees \minor \time 6/8
 199     <ees bes'>4.\pp\< c'^"a2" |
 200     bes8-. bes-. bes-. ges-. ges-. ges-. |
 201     ees-.->\!\ff \offCr <ees bes'>4\pp ~ <ees bes'>4. ~ | <ees bes'>2. |
 202     \time 9/8
 203     ges4\p^"I" aes8 aes ees ges ges4 aes16( ges) |
 204   }
 205
 206   hornI = \relative c'' {
 207     \clef treble \key bes \minor \time 6/8
 208     \transposition f
 209     r4 r8 <f bes,>4.\p\< ~ |
 210     <f bes,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
 211     <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
 212     \time 9/8
 213     r4 r8 <b, g>2.\pp |
 214   }
 215
 216   hornII = \relative c'' {
 217     \clef treble \key bes \minor \time 6/8
 218     \transposition f
 219     \moltocr <des g,>2.\pp\< ~ |
 220     <des g,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
 221     <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
 222     \time 9/8
 223     <f, des>2.\pp <f des>4. ~ |
 224   }
 225
 226   trumpetI = \relative c''' {
 227     \clef treble \key f \minor \time 6/8
 228     \transposition bes
 229 R2. |
 230     r4 r8 <aes f>-.\f\< <aes f>-. <aes f>-. |
 231     <c aes>-.->\!\ff r r r4 r8 | R2. |
 232     \time 9/8
 233     R1*9/8 |
 234   }
 235
 236   trumpetII = \relative c'' {
 237     \clef treble \key f \minor \time 6/8
 238     \transposition bes
 239 R2. |
 240     r8 d-.\mf\< d-. d-. d-. d-. |
 241     d-.->\!\ff \offCr r r r4 r8 | R2. |
 242     \time 9/8
 243     R1*9/8 |
 244   }
 245
 246   trombones = \relative c' {
 247     \clef tenor \key ees \minor \time 6/8
 248     r4 r8 <ges c>4.\mp\< ~ |
 249     <ges c>8-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. |
 250     <ges c>-.->\!\ff \offCr r r r4 r8 | R2. |
 251     \time 9/8
 252     R1*9/8 |
 253   }
 254
 255   tuba = \relative c,, {
 256     \clef bass \key ees \minor \time 6/8
 257     <ees' ees'>4.(\pp\< <c c'> |
 258     <bes bes'>8-.) <bes bes'>-. <bes bes'>-. <ges ges'>-. <ges ges'>-. <ges ges'>-. |
 259     <ees ees'>-.->\!\ff \offCr r r r4 r8 | R2. |
 260     \time 9/8
 261     R1*9/8 |
 262   }
 263
 264   timpani = \relative c {
 265     \clef bass \key ees \minor \time 6/8
 266     ees8\< ees ees ees ees ees |
 267     bes bes bes bes bes bes |
 268     ees,->\!\f \offCr ees'\pp ees ees ees ees |
 269     ees ees ees ees ees ees |
 270     \time 9/8
 271     ees r r r4 r8 r4 r8 |
 272   }
 273
 274   trian = {
 275     \clef percussion \time 6/8
 276     R2.*4 |
 277     \time 9/8
 278     R1*9/8 |
 279   }
 280
 281   cym = {
 282     \clef percussion \time 6/8
 283     R2.*4 |
 284     \time 9/8
 285     R1*9/8 |
 286   }
 287
 288   tamt = {
 289     \clef percussion \time 6/8
 290 R2. |
 291     r4 r8 r c4\mf\<^"*" ~ |
 292     8\!\ff r r r4 r8 | R2. |
 293     \time 9/8
 294     R1*9/8 |
 295   }
 296
 297   tamb = {
 298     \clef percussion \time 6/8
 299     R2.*4 |
 300     \time 9/8
 301     R1*9/8 |
 302   }
 303
 304   snare = {
 305     \clef percussion \time 6/8
 306     R2.*4 |
 307     \time 9/8
 308     c8\pp 8 8 8 8 8 8 8 8 |
 309   }
 310
 311   bsdrum = {
 312     \clef percussion \time 6/8
 313     c2.:32\pp\< ~ | 2.: ~ |
 314     8\!\ff \offCr r r r4 r8 | R2. |
 315     \time 9/8
 316     2.:32\pp ~ 4.: |
 317   }
 318
 319   harprh = \relative c'' {
 320     \clef treble \key ees \minor \time 6/8
 321     \showStaffSwitch
 322     R2.*4_\markup { \harp-pedal #"--^|^^^^" } |
 323     \time 9/8
 324     R1*9/8 |
 325   }
 326
 327   harplh = \relative c {
 328     \clef bass \key ees \minor
 329     \showStaffSwitch
 330     R2.*4 |
 331     R1*9/8 |
 332   }
 333
 334   dynamics = {
 335     s2.*4 |
 336     s1*9/8 |
 337   }
 338
 339
 340   violinI = \relative c'''' {
 341     \clef treble \key ees \minor \time 6/8
 342     ges,,16(\pp\< ees c ees ges bes) c( bes ges bes c ees) |
 343     ges( ees c ees ges bes) c( bes ges bes c ees) |
 344     ges8-.->\!\ff \offCr r r r4 r8 | R2. |
 345     \time 9/8
 346     R1*9/8 |
 347   }
 348
 349   violinII = \relative c''' {
 350     \clef treble \key ees \minor \time 6/8
 351     c,,16(\pp\< bes ges bes c ees) ges( ees c ees ges bes) |
 352     c( bes ges bes c ees) ges( ees c ees ges bes) |
 353     c8-.->\!\ff \offCr r r r4 r8 | R2. |
 354     \time 9/8
 355     r4 r8 \repeat tremolo 6 { c,,32->\pp^\pont e } r4 r8 |
 356   }
 357
 358   viola = \relative c {
 359     \clef alto \key ees \minor \time 6/8
 360     <ees bes'>8-.\pp\< <ees bes'>-. <ees bes'>-. <ges c>-. <ges c>-. <ges c>-. |
 361     <bes ees>-. <bes ees>-. <bes ees>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 362     <ees bes'>-.->\!\ff \offCr r r r4 r8 | R2. |
 363     \time 9/8
 364     \repeat tremolo 12 { ges,32->^\pont bes } \repeat tremolo 6 {ges->( bes) } |
 365   }
 366
 367   cello = \relative c {
 368     \clef bass \key ees \minor \time 6/8
 369     <c ges'>8-.\pp\< <c ges'>-. <c ges'>-. <bes ees>-. <bes ees>-. <bes ees>-. |
 370     <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 371     <bes ges'>8-.->\!\ff \offCr <c ges'>-.\pp <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
 372     <c ges'>-. r r r4 r8 |
 373     \time 9/8
 374     \repeat tremolo 12 <c ges'>32(^\pont \repeat tremolo 12 <cis g'> \repeat tremolo 12 <c ges'>) |
 375   }
 376
 377   contrabass = \relative c {
 378     \clef bass \key ees \minor \time 6/8
 379     \transposition c
 380     <ees bes'>8-.\pp\< ees-. ees-. c-. c-. c-. |
 381     bes-. bes-. ges-. ges-. ges-. ges-. |
 382     ees-.->\!\ff \offCr <ees' bes'>-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 383     <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 384     \time 9/8
 385     <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
 386   }
 387
 388   #(set-global-staff-size 10)
 389
 390   \score {
 391     \new Orchestra = "orchestra" <<
 392     \set Score.skipBars = ##f
 393     \new MarkLine { \marks }
 394       \new StaffGroup = "woodwind" <<
 395       \new SquareStaff = "picc fl" <<
 396         \new Staff = "piccolo" {
 397           \set Staff.instrumentName = "Piccolo"
 398           \set Staff.shortInstrumentName = "Picc."
 399         \piccolo
 400         }
 401         \new Staff = "flutes" {
 402           \set Staff.instrumentName = "Flutes I & II"
 403           \set Staff.shortInstrumentName = "Fl."
 404         \flutes
 405         }
 406       >>
 407       \new Staff = "oboes" {
 408         \set Staff.instrumentName = "Oboes I & II"
 409         \set Staff.shortInstrumentName = "Ob."
 410       \oboes
 411       }
 412       \new Staff = "clarinets" {
 413         \set Staff.instrumentName = \markup {
 414           \column { \line { "Clarinets I & II" }
 415             \line { "in B" \smaller \flat } } }
 416         \set Staff.shortInstrumentName = "Cl."
 417       \clarinets
 418       }
 419       \new Staff = "bassoons" {
 420         \set Staff.instrumentName = "Bassoons I & II"
 421         \set Staff.shortInstrumentName = "Bn."
 422       \bassoons
 423       }
 424     >>
 425     \new StaffGroup = "brass" <<
 426       \new SquareStaff = "horns" <<
 427         \new Staff = "hornsI" {
 428           \set Staff.instrumentName = \markup {
 429             \column { \line { "Horns I & II" }
 430               \line { "in F" } } }
 431           \set Staff.shortInstrumentName = "Hn. I & II"
 432         \hornI
 433         }
 434         \new Staff = "hornsII" {
 435           \set Staff.instrumentName = \markup {
 436             \column { \line { "Horns III & IV" }
 437               \line { "in F" } } }
 438           \set Staff.shortInstrumentName = "Hn. III & IV"
 439         \hornII
 440         }
 441       >>
 442       \new SquareStaff = "trumpets" <<
 443         \new Staff = "trumpetI" {
 444           \set Staff.instrumentName = \markup {
 445             \column { \line { "Trumpets I & II" }
 446             \line { "in B" \smaller \flat } } }
 447           \set Staff.shortInstrumentName = "Tp. I & II"
 448         \trumpetI
 449         }
 450         \new Staff = "trumpetII" {
 451           \set Staff.instrumentName = \markup {
 452             \column { \line { "Trumpet III" }
 453             \line { "in B" \smaller \flat } } }
 454           \set Staff.shortInstrumentName = "Tp. III"
 455         \trumpetII
 456         }
 457       >>
 458       \new SquareStaff = "trombones" <<
 459         \new Staff = "trombones 1 & 2" {
 460           \set Staff.instrumentName = "Trombones I & II"
 461           \set Staff.shortInstrumentName = "Tb. I & II"
 462         \trombones
 463         }
 464         \new Staff = "tuba" {
 465           \set Staff.instrumentName = "Bass trombone & Tuba"
 466           \set Staff.shortInstrumentName = "Btb. & Tu."
 467         \tuba
 468         }
 469       >>
 470     >>
 471     \new Staff = "timpani" {
 472       \set Staff.instrumentName = "Timpani in A, D & E"
 473       \set Staff.shortInstrumentName = "Tim."
 474     \timpani
 475     }
 476     \new GrandStaff = "drums" <<
 477       \new RhythmicStaff = "triangle" {
 478         \set RhythmicStaff.instrumentName = "Triangle"
 479         \set RhythmicStaff.shortInstrumentName = "Tri."
 480       \trian
 481       }
 482       \new RhythmicStaff = "cymbals" {
 483         \set RhythmicStaff.instrumentName = "Suspended cymbal"
 484         \set RhythmicStaff.shortInstrumentName = "Susp. cym."
 485       \cym
 486       }
 487       \new RhythmicStaff = "tamtam" {
 488         \set RhythmicStaff.instrumentName = "Tamtam"
 489         \set RhythmicStaff.shortInstrumentName = "Tamt."
 490       \tamt
 491       }
 492       \new RhythmicStaff = "tambourine" {
 493         \set RhythmicStaff.instrumentName = "Tambourine"
 494         \set RhythmicStaff.shortInstrumentName = "Tamb."
 495       \tamb
 496       }
 497       \new RhythmicStaff = "snare" {
 498         \set RhythmicStaff.instrumentName = "Snare drum"
 499         \set RhythmicStaff.shortInstrumentName = "Sn."
 500       \snare
 501       }
 502       \new RhythmicStaff = "bass drum" {
 503         \set RhythmicStaff.instrumentName = "Bass drum"
 504         \set RhythmicStaff.shortInstrumentName = "Bd."
 505       \bsdrum
 506       }
 507     >>
 508     \new PianoStaff = "harp" <<
 509       \set PianoStaff.instrumentName = "Harp"
 510       \set PianoStaff.shortInstrumentName = "Hrp."
 511       \set PianoStaff.connectArpeggios = ##t
 512       \new Staff = "rh" { \harprh }
 513       \new Dynamics { \dynamics }
 514       \new Staff = "lh" { \harplh }
 515     >>
 516     \new SmallMarkLine { \marks }
 517     \new StaffGroup = "strings" <<
 518       \new SquareStaff = "violins" <<
 519         \new Staff = "violin I" {
 520           \set Staff.instrumentName = "Violin I"
 521           \set Staff.shortInstrumentName = "Vn. I"
 522         \violinI
 523         }
 524         \new Staff = "violin II" {
 525           \set Staff.instrumentName = "Violin II"
 526           \set Staff.shortInstrumentName = "Vn. II"
 527         \violinII
 528         }
 529       >>
 530       \new Staff = "viola" {
 531         \set Staff.instrumentName = "Viola"
 532         \set Staff.shortInstrumentName = "Vl."
 533       \viola
 534       }
 535       \new SquareStaff = "Cello and Bass" <<
 536         \new Staff = "violoncello" {
 537           \set Staff.instrumentName = "Violoncello"
 538           \set Staff.shortInstrumentName = "Vc."
 539         \cello
 540         }
 541         \new Staff = "contrabass" {
 542           \set Staff.instrumentName = "Contrabass"
 543           \set Staff.shortInstrumentName = "Cb."
 544         \contrabass
 545         }
 546         >>
 547       >>
 548     >>
 549     \layout {
 550       \context {
 551         \Score
 552         \remove "Mark_engraver"
 553         \remove "Metronome_mark_engraver"
 554       }
 555       \context {
 556         \Staff \RemoveEmptyStaves
 557       }
 558     }
 559   }