lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re:orchestra/opera example


From: 胡海鹏 - Hu Haipeng
Subject: Re:orchestra/opera example
Date: Sun, 18 Oct 2009 10:22:04 +0800 (CST)

Dear Valentin etc,
  I'd like to contribute the first some bars of my Violent Dance. This is not expected to be performed, so I think it will never be finished :-) However,  this is my first largely structred attempt after learning orchestration. The score is somewhat interesting, with a title page and an introduction (but I don't know whether they are good formatted). But the last thing I'm wondering is , I compiled it two months ago, and the drum could be heard. Now I use 2.13.4, and the drums become dumb. What's wrong?

Regards
Haipeng

----------

\version "2.13.4"

\header {
  tagline = ##f
  title = \markup { \bold \fontsize #4 "Violent Dance For Orchestra" }
  composer = \markup { \bold \fontsize #3 "Hu Haipeng" }
}

\pageBreak

%% markups
#(define-markup-list-command (paragraph layout props args) (markup-list?)
  (let ((indent (chain-assoc-get 'par-indent props 2)))
  (interpret-markup-list layout props
  (make-justified-lines-markup-list (cons (make-hspace-markup indent)
  args)))))

#(define-markup-command (vspace layout props amount) (number?)
  "This produces a invisible object taking vertical space."
  (let ((amount (* amount 3.0)))
    (if (> amount 0)
        (ly:make-stencil "" (cons -1 1) (cons 0 amount))
        (ly:make-stencil "" (cons -1 1) (cons amount amount)))))

\markuplines { \column { "" \vspace #1 \fill-line { \bold \fontsize #3 "Introduction" } } \vspace #3
  \paragraph {
  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!
  }
  \vspace #2 \hspace #10
  \fontsize #2 \bold "July 5, 2009"
}

\pageBreak

%% text defs
presto = \markup { \bold \italic "Presto" }
div = \markup { \bold "Div." }
nondiv = \markup { \bold "Non div." }
unis = \markup { \bold "Unis." }
piz = \markup { \bold "Pizz." }
arc = \markup { \bold "Arco" }
pizz = \set Staff.midiInstrument = "pizzicato strings"
arco = \set Staff.midiInstrument = "string ensemble 1"
pont = \markup { \bold \italic "Sul ponticello" }
naturale = \markup { \bold \italic "Naturale" }
moltocr = {
  \set crescendoText = \markup { \italic "Molto cresc." }
  \set crescendoSpanner = #'text
  \override DynamicTextSpanner #'style = #'dotted-line
}
offCr = {
  \unset crescendoText
  \unset crescendoSpanner
  \revert DynamicTextSpanner #'style
}

%% Layout to produce piano dynamics context
\layout {
  \context {
    \type "Engraver_group"
    \name Dynamics
    \alias Voice
    \consists "Output_property_engraver"
    \consists "Skip_event_swallow_translator"
    \consists "Axis_group_engraver"
    \consists "Piano_pedal_engraver"
    pedalSustainStrings = #'("Ped." "*Ped." "*")
    pedalUnaCordaStrings = #'("una corda" "" "tre corde")
    \consists "Script_engraver"
    \consists "New_dynamic_engraver"
    \consists "Dynamic_align_engraver"
    \consists "Text_engraver"
    \consists "Text_spanner_engraver"
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    \override DynamicLineSpanner #'Y-offset = #0
    \override TextScript #'font-size = #2
    \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
    \override TextScript #'font-shape = #'italic
    \override TextSpanner #'breakable = ##t
    \override DynamicLineSpanner #'breakable = ##t
    \override DynamicTextSpanner #'breakable = ##t
  }
  \context {
    \PianoStaff
    \accepts "Dynamics"
  }
  \context {
    \Voice
    \override Glissando #'breakable = ##t
    \override TextSpanner #'breakable = ##t
    \override DynamicLineSpanner #'breakable = ##t
    \override DynamicTextSpanner #'breakable = ##t
    \override TrillSpanner #'breakable = ##t
  }
}

%% layout to create orchestra staff group
%% with non-spanned barlines between two instrument groups
\layout {
  \context {
    \StaffGroup
    \name Orchestra
    \remove "Span_bar_engraver"
  }
  \context {
    \Score
    \accepts Orchestra
  }
}

%% Layout to produce SquareStaff context
%% to group similar instruments in a staff group with thin square bracket
\layout {
  \context {
    \StaffGroup
    \name SquareStaff
    systemStartDelimiter = #'SystemStartSquare
  }
  \context {
    \Orchestra
    \accepts SquareStaff
  }
  \context {
    \StaffGroup
    \accepts SquareStaff
  }
}

%% Layout to produce MarkLine context
%% to place rehearsal marks and texts above full score
\layout {
  \context {
    \type "Engraver_group"
    \name "MarkLine"
    \consists "Output_property_engraver"
    \consists "Axis_group_engraver"
    \consists "Mark_engraver"
    \consists "Metronome_mark_engraver"
    \consists "Script_engraver"
    \consists "Text_engraver"
    \consists "Text_spanner_engraver"
    \consists "Font_size_engraver"
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2 )
    \override TextSpanner #'breakable = ##t
  }
  \context {
    \Score
    \accepts "MarkLine"
  }
  \context {
    \Orchestra
    \accepts "MarkLine"
  }
  \context {
    \StaffGroup
    \accepts "MarkLine"
  }
}

%% layout to produce a smaller markline
%% put before 1st violin part
\layout {
  \context {
    \MarkLine
    \name "SmallMarkLine"
    \override MetronomeMark #'outside-staff-priority = #800
    \override RehearsalMark #'outside-staff-priority = #1200
  }
  \context {
    \Score
    \accepts SmallMarkLine
  }
  \context {
    \Orchestra
    \accepts SmallMarkLine
  }
  \context {
    \StaffGroup
    \accepts SmallMarkLine
  }
}

modern =
#`(Staff ,(make-accidental-rule 'same-octave 0)
  ,(make-accidental-rule 'any-octave 0)
  ,(make-accidental-rule 'same-octave 1))
        
\layout {
  \context {
    \Score
    autoAccidentals = #modern
    autoCautionaries = #modern
  }
}

  marks = \relative c' {
    \set markFormatter = #format-mark-box-numbers
    \tempo \presto 4.=112
    s2.*14 |
    s1*9/8*4 \mark \default |
  }

  piccolo = \relative c'' {
    \clef treble \key ees \minor \time 6/8
    \transposition c''
    R2.*5 |
    \moltocr ees16(\mf\< des bes des ees ges) bes( ges ees ges bes des) |
    ees8-.->\!\ff r r r4 r8 | R2.*4 |
    ges,16(\mf\< ees c ees ges bes) c( bes ges bes c ees) |
    ges8-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*4 |
  }

  flutes = \relative c'' {
    \clef treble \key ees \minor \time 6/8
    R2.*5 |
    \moltocr <ees bes>16(\mf\< <des aes> <bes ges> <des aes> <ees bes> <ges des>) <bes ees,>( <ges des> <ees bes> <ges des> <bes ees,> <des ges,>) |
    <ees bes>8-.->\!\ff r r r4 r8 | R2.*4 |
    <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>) |
    <ges c,>8-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*4 |
  }

  oboes = \relative c' {
    \clef treble \key ees \minor \time 6/8
    R2.*5 |
    \moltocr <ees bes>4(\mf\< <ges des>8 <bes ees,>4 <des ges,>8) |
    <ees bes>-.->\!\ff r r r4 r8 | R2.*4 |
    <ges, c,>4(\mf\< <bes ees,>8 <c ges>4 <ees bes>8) |
    <ges c,>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*3 |
    r4 r8 <e c>4.->\mf r4 r8 |
  }

  clarinets = \relative c' {
    \clef treble \key f \minor \time 6/8
    \transposition bes
    R2. | R2. |
    <aes f ~ >2.\p | <c f,> |
    \moltocr <f c>4(\p\< <aes ees>8) <c f,>4( <ees bes>8) |
    <f c>4( <aes ees>8) <c f,>4( <ees aes,>8) |
    <f c>-.->\!\ff r r r4 r8 |
    <aes,,, f ~ >2.\p | <c f,> ~ | <c f,> |
    <aes' d,>4(\p\< <c f,>8) <d aes>4( <f c>8) |
    <aes d,>4( <c f,>8) <d aes>4( <f c>8) |
    <aes d,>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8 |
    r4 r8 <c,, aes>4.->\mp\> r4\! r8 |
    r4 r8 <c aes>2.\p |
    <c aes>4.\< ~ <c aes>\!\mf\> <c aes>\!\p |
  }

  bassoons = \relative c, {
    \clef bass \key ees \minor \time 6/8
    <ees bes'>2.\pp ~ | <ees bes'> ~ |
    <ees bes'> ~ | <ees bes'> ~ |
    \moltocr <ees bes'>4.\< des'^"a2" |
    bes8-. bes-. bes-. ges-. ges-. ges-. |
    ees-.->\!\ff <ees bes'>4\pp ~ <ees bes'>4. ~ | <ees bes'>2. ~ |
    <ees bes'> ~ | <ees bes'> ~ |
    <ees bes'>4.\< c'^"a2" |
    bes8-. bes-. bes-. ges-. ges-. ges-. |
    ees-.->\!\ff \offCr <ees bes'>4\pp ~ <ees bes'>4. ~ | <ees bes'>2. |
    \time 9/8
    ges4\p^"I" aes8 aes ees ges ges4 aes16( ges |
    ees2. ~ ees8) r r |
    R1*9/8*2 |
    <ges c>4.( <aes d> <bes e>) |
    <c ges'>( <bes e> <aes d>) |
  }

  hornI = \relative c'' {
    \clef treble \key bes \minor \time 6/8
    \transposition f
    R2.*4 |
    r4 r8 \moltocr <des aes>4.\p\< ~ |
    <des aes>8-. <des aes>-. <des aes>-. <des aes>-. <des aes>-. <des aes>-. |
    <des aes>-.->\!\ff r r r4 r8 | R2.*3 |
    r4 r8 <f bes,>4.\p\< ~ |
    <f bes,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
    <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    r4 r8 <b, g>2.\pp |
    <b g>4.\< ~ <b g>\!\mp\> <b g>\!\pp |
    <b g>2.\p <b g>4. ~ |
    <b g>\< ~ <b g>\!\mf\> ~ <b g>\!\p |
  }

  hornII = \relative c'' {
    \clef treble \key bes \minor \time 6/8
    \transposition f
    R2.*4 |
    \moltocr <bes f>2.\pp\< ~ |
    <bes f>8-. <des aes>-. <des aes>-. <des aes>-. <des aes>-. <des aes>-. |
    <des aes>-.->\!\ff \offCr r r r4 r8 | R2. |
    R2. | << { <aes des,>2.\pp } \\ { s4.\< s\! } >> |
    \moltocr <des g,>2.\pp\< ~ |
    <des g,>8-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. <f bes,>-. |
    <f bes,>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    <f, des>2.\pp <f des>4. ~ |
    <f des>\< ~ <f des>\!\mp\> ~ <f des>\!\pp |
    <f des>2.\p <f des>4. ~ |
    <f des>\< ~ <f des>\!\mf\> ~ <f des>\!\p |
  }

  trumpetI = \relative c'' {
    \clef treble \key f \minor \time 6/8
    \transposition bes
    R2.*5 |
    r4 r8 f-.\f\<^"a2" f-. f-. |
    <aes f>-.->\!\ff r r r4 r8 | R2.*4 |
    r4 r8 <aes f>-.\f\< <aes f>-. <aes f>-. |
    <c aes>-.->\!\ff r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*4 |
  }

  trumpetII = \relative c'' {
    \clef treble \key f \minor \time 6/8
    \transposition bes
    R2.*5 |
    \moltocr r8 c-.\mf\< c-. c-. c-. c-. |
    c-.->\!\ff r r r4 r8 | R2.*4 |
    r8 d-.\mf\< d-. d-. d-. d-. |
    d-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*5 |
    d,4\mp e8 e b d d4 e16 d |
  }

  trombones = \relative c {
    \clef tenor \key ees \minor \time 6/8
    R2.*4 |
    r4 r8 \moltocr <ees bes'>4.\p\< ~ |
    <ees bes'>8-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-.->\!\ff r r r4 r8 | R2.*3 |
    r4 r8 <ges c>4.\mp\< ~ |
    <ges c>8-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. <ges c>-. |
    <ges c>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*2 |
    ges4\mp^"I" aes8 aes ees ges ges4 r16 ees |
    ees2. ~ ees8 r r |
    ges4\mp^"I" aes8 aes ees ges ges4 aes8 |
    ees2. ~ ees4. |
  }

  tuba = \relative c, {
    \clef bass \key ees \minor \time 6/8
    R2.*4 |
    \moltocr <ees ees'>4.(\pp\< <des des'> |
    <bes bes'>8-.) <bes bes'>-. <bes bes'>-. <ges ges'>-. <ges ges'>-. <ges ges'>-. |
    <ees ees'>-.->\!\ff r r r4 r8 | R2.*3 |
    <ees' ees'>4.(\pp\< <c c'> |
    <bes bes'>8-.) <bes bes'>-. <bes bes'>-. <ges ges'>-. <ges ges'>-. <ges ges'>-. |
    <ees ees'>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*4 |
  }

  timpani = \relative c {
    \clef bass \key ees \minor \time 6/8
    R2.*4 |
    \moltocr ees8\pp\< ees ees ees ees ees |
    bes bes bes bes bes bes |
    ees,->\!\f ees'\pp ees ees ees ees |
    ees ees ees ees ees ees |
    ees ees ees ees ees ees |
    ees ees ees ees ees ees |
    ees\< ees ees ees ees ees |
    bes bes bes bes bes bes |
    ees,->\!\f \offCr ees'\pp ees ees ees ees |
    ees ees ees ees ees ees |
    \time 9/8
    ees r r r4 r8 r4 r8 |
    R1*9/8*3 |
  }

  trian = \relative c' {
    \clef percussion \time 6/8
    R2.*14 |
    \time 9/8
    R1*9/8*4 |
  }

  cym = \relative c' {
    \clef percussion \time 6/8
    R2.*14 |
    \time 9/8
    R1*9/8*3 |
    c4.:32\pp\< ~ c:\!\mp\> ~ c:\pp |
  }

  tamt = \relative c' {
    \clef percussion \time 6/8
    R2.*5 |
    r4^\markup { \general-align #X #RIGHT "Scrape the surface with a blade or a triangle stick" } r8 r c4\mf\<^"*" ~ |
    c8\!\f r r r4 r8 | R2.*4 |
    r4 r8 r c4\mf\<^"*" ~ |
    c8\!\ff r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*4 |
  }

  tamb = \relative c' {
    \clef percussion \time 6/8
    R2.*14 |
    \time 9/8
    R1*9/8*4 |
  }

  snare = \relative c' {
    \clef percussion \time 6/8
    R2.*14 |
    \time 9/8
    c8\pp c c c c c c c c |
    c\< c c c->\!\mp\> c c c c c\!\pp |
    c8\p c c c c c c c c |
    c\< c c c->\!\mf\> c c c c c\!\p |
  }

  bsdrum = \relative c' {
    \clef percussion \time 6/8
    R2.*4 |
    \moltocr c2.:32\pp\< ~ | c: ~ |
    c8\!\ff r r r4 r8 | R2.*3 |
    c2.:32\pp\< ~ | c: ~ |
    c8\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    c2.:32\pp ~ c4.: |
    c4.:\< ~ c:\!\mp\> ~ c:\!\pp |
    c2.:32\p ~ c4.: |
    c4.:\< ~ c:\!\mf\> ~ c:\!\p |
  }

  harprh = \relative c'' {
    \clef treble \key ees \minor \time 6/8
    \showStaffSwitch
    R2.*14_\markup { \harp-pedal #"--^|^^^^" } |
    \time 9/8
    R1*9/8*4 |
  }

  harplh = \relative c {
    \clef bass \key ees \minor
    \showStaffSwitch
    R2.*14 |
    R1*9/8*4 |
  }

  dynamics = {
    s2.*14 |
    s1*9/8*4 |
  }

  midiperc = <<
    \new DrumVoice = "tri-cym" {
      \drummode {
    \time 6/8
    R2.*5 |
    r4 r8 r \repeat unfold 8 cymch32\mf\< |
    cymch8\!\ff r r r4 r8 | R2.*4 |
    r4 r8 r \repeat unfold 8 cymch32\mf\< |
    cymch8\!\ff r r r4 r8 | R2. |
    \time 9/8
    R1*9/8*2 |
    }
  }
    \new DrumVoice = "sn" {
      \drummode {
    s2.*14 |
    \repeat unfold 9 { sn8\pp } |
    sn\< sn sn sn\!\mp\> sn sn sn sn sn\!\pp |
    \repeat unfold 9 { sn\p } |
    sn\< sn sn sn\!\mf\> sn sn sn sn sn\!\pp |
    }
  }
    \new DrumVoice = "bd" {
      \drummode {
    s2.*4 |
    \repeat unfold 24 bd32\pp\< | \repeat unfold 24 bd |
    bd8\!\ff s4 s4 s8 | s2.*3 |
    \repeat unfold 24 bd32\pp\< | \repeat unfold 24 bd |
    bd8\!\ff s4 s4 s8 | s2. |
    \repeat unfold 36 bd32\pp |
    \repeat tremolo 12 bd\< \repeat tremolo 12 bd\!\mp\> \repeat tremolo 12 bd\!\pp |
    \repeat unfold 36 bd\p |
    \repeat tremolo 12 bd\< \repeat tremolo 12 bd\!\mf\> \repeat tremolo 12 bd\!\p |
    }
  }
  >>

  violinI = \relative c' {
    \clef treble \key ees \minor \time 6/8
    R2.*4 |
    \moltocr ees16(\pp\< des bes des ees ges) bes( ges ees ges bes des) |
    ees( des bes des ees ges) bes( ges ees ges bes des) |
    ees8-.->\!\ff r r r4 r8 | R2.*3 |
    ges,,16(\pp\< ees c ees ges bes) c( bes ges bes c ees) |
    ges( ees c ees ges bes) c( bes ges bes c ees) |
    ges8-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    R1*9/8 | r4 r8 \repeat tremolo 6 { ges,,32->\mp^\pont bes } r4 r8 |
    R1*9/8 | r4 r8 \repeat tremolo 6 { ges32-> bes } r4 r8 |
  }

  violinII = \relative c' {
    \clef treble \key ees \minor \time 6/8
    R2.*4 |
    \moltocr bes16(\pp\< aes ges aes bes des) ees( des bes des ees ges) |
    bes( ges ees ges bes des) ees( des bes des ees ges) |
    bes8-.->\!\ff r r r4 r8 | R2.*3 |
    c,,16(\pp\< bes ges bes c ees) ges( ees c ees ges bes) |
    c( bes ges bes c ees) ges( ees c ees ges bes) |
    c8-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    r4 r8 \repeat tremolo 6 { c,,32->\pp^\pont e } r4 r8 |
    \repeat tremolo 6 { c32->(\< e } \repeat tremolo 6 { c)\!\mp\> e } \repeat tremolo 6 { c->\!\pp e } |
    r4 r8 \repeat tremolo 6 { c32->\p e } r4 r8 |
    \repeat tremolo 6 { c32->(\< e } \repeat tremolo 6 { c)\!\mf\> e } \repeat tremolo 6 { c->\!\p e } |
    c16(\<^\naturale d e d e ges e ges aes) bes(\!\> aes ges aes ges e ges e d)\! |
    e16(\< ges aes ges aes bes aes bes c) d(\!\> c bes c bes aes bes aes ges)\! |
  }

  viola = \relative c {
    \clef alto \key ees \minor \time 6/8
    R2. | R2. | R2. |
    <ees bes'>8-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    \moltocr <ees bes'>-.\< <ees bes'>-. <ees bes'>-. <ges des'>-. <ges des'>-. <ges des'>-. |
    <bes ees>-. <bes ees>-. <bes ees>-. <des ges>-. <des ges>-. <des ges>-. |
    <ees bes'>-.->\!\ff r r r4 r8 | R2. |
    <ees, bes'>8-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-.\< <ees bes'>-. <ees bes'>-. <ges c>-. <ges c>-. <ges c>-. |
    <bes ees>-. <bes ees>-. <bes ees>-. <c ges'>-. <c ges'>-. <c ges'>-. |
    <ees bes'>-.->\!\ff \offCr r r r4 r8 | R2. |
    \time 9/8
    \repeat tremolo 12 { ges,32->^\pont bes } \repeat tremolo 6 { ges->( bes } |
    \repeat tremolo 6 { ges\< bes } \repeat tremolo 6 { ges(\!\mp\> bes } \repeat tremolo 6 { ges)\!\pp bes } |
    \repeat tremolo 12 { ges->\p bes } \repeat tremolo 6 { ges->( bes } |
    \repeat tremolo 6 { ges\< bes } \repeat tremolo 6 { ges\!\mf\> bes } \repeat tremolo 6 { ges)\!\p bes } |
    ges16(\<^\naturale aes bes aes bes c bes c d) e(\!\> d c d c bes c bes aes)\! |
    bes16(\< c d c d e d e ges) aes(\!\> ges e ges e d e d c)\! |
  }

  cello = \relative c {
    \clef bass \key ees \minor \time 6/8
    R2. | R2. |
    <des ges>8-.\pp <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    \moltocr <des ges>-.\< <des ges>-. <des ges>-. <bes ees>-. <bes ees>-. <bes ees>-. |
    <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    <bes ges'>8-.->\!\ff r r r4 r8 |
    <des ges>-.\pp <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. <des ges>-. |
    <c ges'>-.\< <c ges'>-. <c ges'>-. <bes ees>-. <bes ees>-. <bes ees>-. |
    <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
    <bes ges'>8-.->\!\ff \offCr <c ges'>-.\pp <c ges'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
    <c ges'>-. r r r4 r8 |
    \time 9/8
    \repeat tremolo 12 <c ges'>32(^\pont \repeat tremolo 12 <cis g'> \repeat tremolo 12 <c ges'>) |
    \repeat tremolo 12 <cis g'>(\< \repeat tremolo 12 <d aes'>->\!\mp\> \repeat tremolo 12 <cis g'>)\!\pp |
    \repeat tremolo 12 <c ges'>(\p \repeat tremolo 12 <cis g'> \repeat tremolo 12 <c ges'>) |
    \repeat tremolo 12 <cis g'>(\< \repeat tremolo 12 <d aes'>->\!\mf\> \repeat tremolo 12 <cis g'>)\!\p |
    <c fis>8-.^\naturale <c fis>-. <c fis>-. <cis g'>-. <cis g'>-. <cis g'>-. <d gis>-. <d gis>-. <d gis>-. |
    <ees a>-. <ees a>-. <ees a>-. <d gis>-. <d gis>-. <d gis>-. <cis g'>-. <cis g'>-. <cis g'>-. |
  }

  contrabass = \relative c {
    \clef bass \key ees \minor \time 6/8
    \transposition c
    <ees bes'>8-.\pp_\markup { "Lower the E string a semitone" } <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    \moltocr <ees bes'>-.\< ees-. ees-. des-. des-. des-. |
    bes-. bes-. ges-. ges-. ges-. ges-. |
    ees-.->\!\ff <ees' bes'>-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-.\< ees-. ees-. c-. c-. c-. |
    bes-. bes-. ges-. ges-. ges-. ges-. |
    ees-.->\!\ff \offCr <ees' bes'>-.\pp <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    \time 9/8
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-.\< <ees bes'>-. <ees bes'>-. <ees bes'>-.\!\mp\> <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-.\!\pp |
    <ees bes'>-.\p <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. |
    <ees bes'>-.\< <ees bes'>-. <ees bes'>-. <ees bes'>-.\!\mf\> <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-. <ees bes'>-.\!\p |
    <ees bes'>-. <ees bes'>-. <ees bes'>-. <d aes'>-. <d aes'>-. <d aes'>-. <c ges'>-. <c ges'>-. <c ges'>-. |
    <bes e>-. <bes e>-. <bes e>-. <c ges'>-. <c ges'>-. <c ges'>-. <d aes'>-. <d aes'>-. <d aes'>-. |
  }

  #(set-global-staff-size 10)

  \score {
    \new Orchestra = "orchestra" <<
    \set Score.skipBars = ##f
    \new MarkLine { \marks }
      \new StaffGroup = "woodwind" <<
      \new SquareStaff = "picc fl" <<
        \new Staff = "piccolo" {
          \set Staff.instrumentName = "Piccolo"
          \set Staff.shortInstrumentName = "Picc."
        \piccolo
        }
        \new Staff = "flutes" {
          \set Staff.instrumentName = "Flutes I & II"
          \set Staff.shortInstrumentName = "Fl."
        \flutes
        }
      >>
      \new Staff = "oboes" {
        \set Staff.instrumentName = "Oboes I & II"
        \set Staff.shortInstrumentName = "Ob."
      \oboes
      }
      \new Staff = "clarinets" {
        \set Staff.instrumentName = \markup {
          \column { \line { "Clarinets I & II" }
            \line { "in B" \smaller \flat } } }
        \set Staff.shortInstrumentName = "Cl."
      \clarinets
      }
      \new Staff = "bassoons" {
        \set Staff.instrumentName = "Bassoons I & II"
        \set Staff.shortInstrumentName = "Bn."
      \bassoons
      }
    >>
    \new StaffGroup = "brass" <<
      \new SquareStaff = "horns" <<
        \new Staff = "hornsI" {
          \set Staff.instrumentName = \markup {
            \column { \line { "Horns I & II" }
              \line { "in F" } } }
          \set Staff.shortInstrumentName = "Hn. I & II"
        \hornI
        }
        \new Staff = "hornsII" {
          \set Staff.instrumentName = \markup {
            \column { \line { "Horns III & IV" }
              \line { "in F" } } }
          \set Staff.shortInstrumentName = "Hn. III & IV"
        \hornII
        }
      >>
      \new SquareStaff = "trumpets" <<
        \new Staff = "trumpetI" {
          \set Staff.instrumentName = \markup {
            \column { \line { "Trumpets I & II" }
            \line { "in B" \smaller \flat } } }
          \set Staff.shortInstrumentName = "Tp. I & II"
        \trumpetI
        }
        \new Staff = "trumpetII" {
          \set Staff.instrumentName = \markup {
            \column { \line { "Trumpet III" }
            \line { "in B" \smaller \flat } } }
          \set Staff.shortInstrumentName = "Tp. III"
        \trumpetII
        }
      >>
      \new SquareStaff = "trombones" <<
        \new Staff = "trombones 1 & 2" {
          \set Staff.instrumentName = "Trombones I & II"
          \set Staff.shortInstrumentName = "Tb. I & II"
        \trombones
        }
        \new Staff = "tuba" {
          \set Staff.instrumentName = "Bass trombone & Tuba"
          \set Staff.shortInstrumentName = "Btb. & Tu."
        \tuba
        }
      >>
    >>
    \new Staff = "timpani" {
      \set Staff.instrumentName = "Timpani in A, D & E"
      \set Staff.shortInstrumentName = "Tim."
    \timpani
    }
    \new GrandStaff = "drums" <<
      \new RhythmicStaff = "triangle" {
        \set RhythmicStaff.instrumentName = "Triangle"
        \set RhythmicStaff.shortInstrumentName = "Tri."
      \trian
      }
      \new RhythmicStaff = "cymbals" {
        \set RhythmicStaff.instrumentName = "Suspended cymbal"
        \set RhythmicStaff.shortInstrumentName = "Susp. cym."
      \cym
      }
      \new RhythmicStaff = "tamtam" {
        \set RhythmicStaff.instrumentName = "Tamtam"
        \set RhythmicStaff.shortInstrumentName = "Tamt."
      \tamt
      }
      \new RhythmicStaff = "tambourine" {
        \set RhythmicStaff.instrumentName = "Tambourine"
        \set RhythmicStaff.shortInstrumentName = "Tamb."
      \tamb
      }
      \new RhythmicStaff = "snare" {
        \set RhythmicStaff.instrumentName = "Snare drum"
        \set RhythmicStaff.shortInstrumentName = "Sn."
      \snare
      }
      \new RhythmicStaff = "bass drum" {
        \set RhythmicStaff.instrumentName = "Bass drum"
        \set RhythmicStaff.shortInstrumentName = "Bd."
      \bsdrum
      }
    >>
    \new PianoStaff = "harp" <<
      \set PianoStaff.instrumentName = "Harp"
      \set PianoStaff.shortInstrumentName = "Hrp."
      \set PianoStaff.connectArpeggios = ##t
      \new Staff = "rh" { \harprh }
      \new Dynamics { \dynamics }
      \new Staff = "lh" { \harplh }
    >>
    \new SmallMarkLine { \marks }
    \new StaffGroup = "strings" <<
      \new SquareStaff = "violins" <<
        \new Staff = "violin I" {
          \set Staff.instrumentName = "Violin I"
          \set Staff.shortInstrumentName = "Vn. I"
        \violinI
        }
        \new Staff = "violin II" {
          \set Staff.instrumentName = "Violin II"
          \set Staff.shortInstrumentName = "Vn. II"
        \violinII
        }
      >>
      \new Staff = "viola" {
        \set Staff.instrumentName = "Viola"
        \set Staff.shortInstrumentName = "Vl."
      \viola
      }
      \new SquareStaff = "Cello and Bass" <<
        \new Staff = "violoncello" {
          \set Staff.instrumentName = "Violoncello"
          \set Staff.shortInstrumentName = "Vc."
        \cello
        }
        \new Staff = "contrabass" {
          \set Staff.instrumentName = "Contrabass"
          \set Staff.shortInstrumentName = "Cb."
        \contrabass
        }
        >>
      >>
    >>
    \layout {
      \context {
        \Score
        \remove "Mark_engraver"
        \remove "Metronome_mark_engraver"
      }
      \context {
        \RemoveEmptyStaffContext
      }
    }
  }

\score {
  \unfoldRepeats {
  \new StaffGroup = "orchestra" <<
    \new Staff = "flutes" {
      \set Staff.midiInstrument = "flute"
    << \marks \piccolo \transpose c' c \flutes >>
    }
    \new Staff = "oboes" {
      \set Staff.midiInstrument = "oboe"
    \oboes
    }
    \new Staff = "clarinets" {
      \set Staff.midiInstrument = "clarinet"
    \clarinets
    }
    \new Staff = "bassoons" {
      \set Staff.midiInstrument = "bassoon"
    \bassoons
    }
    \new Staff = "horns" {
      \set Staff.midiInstrument = "french horn"
    << \hornI \\ \hornII >>
    }
    \new Staff = "trumpets" {
      \set Staff.midiInstrument = "trumpet"
    << \trumpetI \\ \trumpetII >>
    }
    \new Staff = "trombones" {
      \set Staff.midiInstrument = "trombone"
    << \trombones \\ \tuba >>
    }
    \new Staff = "timpani" {
      \set Staff.midiInstrument = "timpani"
    \timpani
    }
    \new DrumStaff { \midiperc }
    \new Staff = "harp" {
      \set Staff.midiInstrument = "orchestral harp"
    << \harprh \\ \dynamics \\ \harplh >>
    }
    \new StaffGroup = "strings" <<
      \set StaffGroup.midiInstrument = "string ensemble 1"
      \new Staff = "violins" { << \violinI \violinII >> }
      \new Staff = "viola" { \viola }
      \new Staff = "violoncello" { \cello }
      \new Staff = "bass" { \contrabass }
    >>
  >>
  }
  \midi { }
}

 

 




看陆川杨幂新片《琴棋书画》,品网易3D国韵网游《天下贰》

reply via email to

[Prev in Thread] Current Thread [Next in Thread]