5 title = "Violent Dance For Orchestra"
6 composer = "Hu Haipeng"
7 % arranger = "July 5, 2009"
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!"
17 #(define-markup-list-command (paragraph layout props args) (markup-list?)
18 (let ((indent (chain-assoc-get 'par-indent props 2)))
19 (interpret-markup-list layout props
20 (make-justified-lines-markup-list (cons (make-hspace-markup indent)
23 #(define-markup-command (vspace layout props amount) (number?)
24 "This produces a invisible object taking vertical space."
25 (let ((amount (* amount 3.0)))
27 (ly:make-stencil "" (cons -1 1) (cons 0 amount))
28 (ly:make-stencil "" (cons -1 1) (cons amount amount)))))
31 presto = \markup { \bold \italic "Presto" }
32 div = \markup { \bold "Div." }
33 nondiv = \markup { \bold "Non div." }
34 unis = \markup { \bold "Unis." }
35 piz = \markup { \bold "Pizz." }
36 arc = \markup { \bold "Arco" }
37 pizz = \set Staff.midiInstrument = "pizzicato strings"
38 arco = \set Staff.midiInstrument = "string ensemble 1"
39 pont = \markup { \bold \italic "Sul ponticello" }
40 naturale = \markup { \bold \italic "Naturale" }
42 \set crescendoText = \markup { \italic "Molto cresc." }
43 \set crescendoSpanner = #'text
44 \override DynamicTextSpanner #'style = #'dotted-line
48 \unset crescendoSpanner
49 \revert DynamicTextSpanner #'style
52 %% Layout for piano dynamics
56 \override Glissando #'breakable = ##t
57 \override TextSpanner #'breakable = ##t
58 \override DynamicLineSpanner #'breakable = ##t
59 \override DynamicTextSpanner #'breakable = ##t
60 \override TrillSpanner #'breakable = ##t
64 %% layout to create orchestra staff group
65 %% with non-spanned barlines between two instrument groups
70 \remove "Span_bar_engraver"
78 %% Layout to produce SquareStaff context
79 %% to group similar instruments in a staff group with thin square bracket
84 systemStartDelimiter = #'SystemStartSquare
96 %% Layout to produce MarkLine context
97 %% to place rehearsal marks and texts above full score
100 \type "Engraver_group"
102 \consists "Output_property_engraver"
103 \consists "Axis_group_engraver"
104 \consists "Mark_engraver"
105 \consists "Metronome_mark_engraver"
106 \consists "Script_engraver"
107 \consists "Text_engraver"
108 \consists "Text_spanner_engraver"
109 \consists "Font_size_engraver"
110 \override VerticalAxisGroup #'staff-affinity = #DOWN
111 \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing #'padding = #2
112 \override VerticalAxisGroup #'nonstaff-unrelatedstaff-spacing #'padding = #5
113 \override TextSpanner #'breakable = ##t
129 %% layout to produce a smaller markline
130 %% put before 1st violin part
134 \name "SmallMarkLine"
135 \override MetronomeMark #'outside-staff-priority = #800
136 \override RehearsalMark #'outside-staff-priority = #1200
140 \accepts SmallMarkLine
144 \accepts SmallMarkLine
148 \accepts SmallMarkLine
153 #`(Staff ,(make-accidental-rule 'same-octave 0)
154 ,(make-accidental-rule 'any-octave 0)
155 ,(make-accidental-rule 'same-octave 1))
160 autoAccidentals = #modern
161 autoCautionaries = #modern
165 marks = \relative c' {
166 \set markFormatter = #format-mark-box-numbers
167 \tempo \presto 4.=112
168 \set Score.currentBarNumber = #11
173 piccolo = \relative c'''' {
174 \clef treble \key ees \minor \time 6/8
177 ges,16(\mf\< ees c ees ges bes) c( bes ges bes c ees) |
178 ges8-.->\!\ff \offCr r r r4 r8 | R2. |
183 flutes = \relative c'''' {
184 \clef treble \key ees \minor \time 6/8
186 <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>) |
187 <ges c,>8-.->\!\ff \offCr r r r4 r8 | R2. |
192 oboes = \relative c''' {
193 \clef treble \key ees \minor \time 6/8
195 <ges, c,>4(\mf\< <bes ees,>8 <c ges>4 <ees bes>8) |
196 <ges c,>-.->\!\ff \offCr r r r4 r8 | R2. |
201 clarinets = \relative c' {
202 \clef treble \key f \minor \time 6/8
204 <aes' d,>4(\p\< <c f,>8) <d aes>4( <f c>8) |
205 <aes d,>4( <c f,>8) <d aes>4( <f c>8) |
206 <aes d,>-.->\!\ff \offCr r r r4 r8 | R2. |
211 bassoons = \relative c, {
212 \clef bass \key ees \minor \time 6/8
213 <ees bes'>4.\pp\< c'^"a2" |
214 bes8-. bes-. bes-. ges-. ges-. ges-. |
215 ees-.->\!\ff \offCr <ees bes'>4\pp ~ <ees bes'>4. ~ | <ees bes'>2. |
217 ges4\p^"I" aes8 aes ees ges ges4 aes16( ges) |
220 hornI = \relative c'' {
221 \clef treble \key bes \minor \time 6/8
223 r4 r8 <f bes,>4.\p\< ~ |
224 <f bes,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
225 <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
230 hornII = \relative c'' {
231 \clef treble \key bes \minor \time 6/8
233 \moltocr <des g,>2.\pp\< ~ |
234 <des g,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
235 <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
237 <f, des>2.\pp <f des>4. ~ |
240 trumpetI = \relative c''' {
241 \clef treble \key f \minor \time 6/8
244 r4 r8 <aes f>-.\f\< <aes f>-. <aes f>-. |
245 <c aes>-.->\!\ff r r r4 r8 | R2. |
250 trumpetII = \relative c'' {
251 \clef treble \key f \minor \time 6/8
254 r8 d-.\mf\< d-. d-. d-. d-. |
255 d-.->\!\ff \offCr r r r4 r8 | R2. |
260 trombones = \relative c' {
261 \clef tenor \key ees \minor \time 6/8
262 r4 r8 <ges c>4.\mp\< ~ |
263 <ges c>8-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. |
264 <ges c>-.->\!\ff \offCr r r r4 r8 | R2. |
269 tuba = \relative c,, {
270 \clef bass \key ees \minor \time 6/8
271 <ees' ees'>4.(\pp\< <c c'> |
272 <bes bes'>8-.) <bes bes'>-. <bes bes'>-. <ges ges'>-. <ges ges'>-. <ges ges'>-. |
273 <ees ees'>-.->\!\ff \offCr r r r4 r8 | R2. |
278 timpani = \relative c {
279 \clef bass \key ees \minor \time 6/8
280 ees8\< ees ees ees ees ees |
281 bes bes bes bes bes bes |
282 ees,->\!\f \offCr ees'\pp ees ees ees ees |
283 ees ees ees ees ees ees |
285 ees r r r4 r8 r4 r8 |
288 trian = \relative c' {
289 \clef percussion \time 6/8
296 \clef percussion \time 6/8
302 tamt = \relative c' {
303 \clef percussion \time 6/8
305 r4 r8 r c4\mf\<^"*" ~ |
306 c8\!\ff r r r4 r8 | R2. |
311 tamb = \relative c' {
312 \clef percussion \time 6/8
318 snare = \relative c' {
319 \clef percussion \time 6/8
322 c8\pp c c c c c c c c |
325 bsdrum = \relative c' {
326 \clef percussion \time 6/8
327 c2.:32\pp\< ~ | c: ~ |
328 c8\!\ff \offCr r r r4 r8 | R2. |
333 harprh = \relative c'' {
334 \clef treble \key ees \minor \time 6/8
336 R2.*4_\markup { \harp-pedal #"--^|^^^^" } |
341 harplh = \relative c {
342 \clef bass \key ees \minor
354 violinI = \relative c'''' {
355 \clef treble \key ees \minor \time 6/8
356 ges,,16(\pp\< ees c ees ges bes) c( bes ges bes c ees) |
357 ges( ees c ees ges bes) c( bes ges bes c ees) |
358 ges8-.->\!\ff \offCr r r r4 r8 | R2. |
363 violinII = \relative c''' {
364 \clef treble \key ees \minor \time 6/8
365 c,,16(\pp\< bes ges bes c ees) ges( ees c ees ges bes) |
366 c( bes ges bes c ees) ges( ees c ees ges bes) |
367 c8-.->\!\ff \offCr r r r4 r8 | R2. |
369 r4 r8 \repeat tremolo 6 { c,,32->\pp^\pont e } r4 r8 |
372 viola = \relative c {
373 \clef alto \key ees \minor \time 6/8
374 <ees bes'>8-.\pp\< <ees bes'>-. <ees bes'>-. <ges c>-. <ges c>-. <ges c>-. |
375 <bes ees>-. <bes ees>-. <bes ees>-. <c ges'>-. <c ges'>-. <c ges'>-. |
376 <ees bes'>-.->\!\ff \offCr r r r4 r8 | R2. |
378 \repeat tremolo 12 { ges,32->^\pont bes } \repeat tremolo 6 {ges->( bes) } |
381 cello = \relative c {
382 \clef bass \key ees \minor \time 6/8
383 <c ges'>8-.\pp\< <c ges'>-. <c ges'>-. <bes ees>-. <bes ees>-. <bes ees>-. |
384 <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
385 <bes ges'>8-.->\!\ff \offCr <c ges'>-.\pp <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
386 <c ges'>-. r r r4 r8 |
388 \repeat tremolo 12 <c ges'>32(^\pont \repeat tremolo 12 <cis g'> \repeat tremolo 12 <c ges'>) |
391 contrabass = \relative c {
392 \clef bass \key ees \minor \time 6/8
394 <ees bes'>8-.\pp\< ees-. ees-. c-. c-. c-. |
395 bes-. bes-. ges-. ges-. ges-. ges-. |
396 ees-.->\!\ff \offCr <ees' bes'>-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
397 <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
399 <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
402 #(set-global-staff-size 10)
405 \new Orchestra = "orchestra" <<
406 \set Score.skipBars = ##f
407 \new MarkLine { \marks }
408 \new StaffGroup = "woodwind" <<
409 \new SquareStaff = "picc fl" <<
410 \new Staff = "piccolo" {
411 \set Staff.instrumentName = "Piccolo"
412 \set Staff.shortInstrumentName = "Picc."
415 \new Staff = "flutes" {
416 \set Staff.instrumentName = "Flutes I & II"
417 \set Staff.shortInstrumentName = "Fl."
421 \new Staff = "oboes" {
422 \set Staff.instrumentName = "Oboes I & II"
423 \set Staff.shortInstrumentName = "Ob."
426 \new Staff = "clarinets" {
427 \set Staff.instrumentName = \markup {
428 \column { \line { "Clarinets I & II" }
429 \line { "in B" \smaller \flat } } }
430 \set Staff.shortInstrumentName = "Cl."
433 \new Staff = "bassoons" {
434 \set Staff.instrumentName = "Bassoons I & II"
435 \set Staff.shortInstrumentName = "Bn."
439 \new StaffGroup = "brass" <<
440 \new SquareStaff = "horns" <<
441 \new Staff = "hornsI" {
442 \set Staff.instrumentName = \markup {
443 \column { \line { "Horns I & II" }
445 \set Staff.shortInstrumentName = "Hn. I & II"
448 \new Staff = "hornsII" {
449 \set Staff.instrumentName = \markup {
450 \column { \line { "Horns III & IV" }
452 \set Staff.shortInstrumentName = "Hn. III & IV"
456 \new SquareStaff = "trumpets" <<
457 \new Staff = "trumpetI" {
458 \set Staff.instrumentName = \markup {
459 \column { \line { "Trumpets I & II" }
460 \line { "in B" \smaller \flat } } }
461 \set Staff.shortInstrumentName = "Tp. I & II"
464 \new Staff = "trumpetII" {
465 \set Staff.instrumentName = \markup {
466 \column { \line { "Trumpet III" }
467 \line { "in B" \smaller \flat } } }
468 \set Staff.shortInstrumentName = "Tp. III"
472 \new SquareStaff = "trombones" <<
473 \new Staff = "trombones 1 & 2" {
474 \set Staff.instrumentName = "Trombones I & II"
475 \set Staff.shortInstrumentName = "Tb. I & II"
478 \new Staff = "tuba" {
479 \set Staff.instrumentName = "Bass trombone & Tuba"
480 \set Staff.shortInstrumentName = "Btb. & Tu."
485 \new Staff = "timpani" {
486 \set Staff.instrumentName = "Timpani in A, D & E"
487 \set Staff.shortInstrumentName = "Tim."
490 \new GrandStaff = "drums" <<
491 \new RhythmicStaff = "triangle" {
492 \set RhythmicStaff.instrumentName = "Triangle"
493 \set RhythmicStaff.shortInstrumentName = "Tri."
496 \new RhythmicStaff = "cymbals" {
497 \set RhythmicStaff.instrumentName = "Suspended cymbal"
498 \set RhythmicStaff.shortInstrumentName = "Susp. cym."
501 \new RhythmicStaff = "tamtam" {
502 \set RhythmicStaff.instrumentName = "Tamtam"
503 \set RhythmicStaff.shortInstrumentName = "Tamt."
506 \new RhythmicStaff = "tambourine" {
507 \set RhythmicStaff.instrumentName = "Tambourine"
508 \set RhythmicStaff.shortInstrumentName = "Tamb."
511 \new RhythmicStaff = "snare" {
512 \set RhythmicStaff.instrumentName = "Snare drum"
513 \set RhythmicStaff.shortInstrumentName = "Sn."
516 \new RhythmicStaff = "bass drum" {
517 \set RhythmicStaff.instrumentName = "Bass drum"
518 \set RhythmicStaff.shortInstrumentName = "Bd."
522 \new PianoStaff = "harp" <<
523 \set PianoStaff.instrumentName = "Harp"
524 \set PianoStaff.shortInstrumentName = "Hrp."
525 \set PianoStaff.connectArpeggios = ##t
526 \new Staff = "rh" { \harprh }
527 \new Dynamics { \dynamics }
528 \new Staff = "lh" { \harplh }
530 \new SmallMarkLine { \marks }
531 \new StaffGroup = "strings" <<
532 \new SquareStaff = "violins" <<
533 \new Staff = "violin I" {
534 \set Staff.instrumentName = "Violin I"
535 \set Staff.shortInstrumentName = "Vn. I"
538 \new Staff = "violin II" {
539 \set Staff.instrumentName = "Violin II"
540 \set Staff.shortInstrumentName = "Vn. II"
544 \new Staff = "viola" {
545 \set Staff.instrumentName = "Viola"
546 \set Staff.shortInstrumentName = "Vl."
549 \new SquareStaff = "Cello and Bass" <<
550 \new Staff = "violoncello" {
551 \set Staff.instrumentName = "Violoncello"
552 \set Staff.shortInstrumentName = "Vc."
555 \new Staff = "contrabass" {
556 \set Staff.instrumentName = "Contrabass"
557 \set Staff.shortInstrumentName = "Cb."
566 \remove "Mark_engraver"
567 \remove "Metronome_mark_engraver"
570 \Staff \RemoveEmptyStaves