From 326c51a86640936ab65bc334293d9bc6377b568f Mon Sep 17 00:00:00 2001 From: Francisco Vila Date: Wed, 28 Apr 2010 23:46:09 +0200 Subject: [PATCH] Add source of Holst example. --- holst-marte.ly | 398 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 398 insertions(+) create mode 100644 holst-marte.ly diff --git a/holst-marte.ly b/holst-marte.ly new file mode 100644 index 0000000..d16eb05 --- /dev/null +++ b/holst-marte.ly @@ -0,0 +1,398 @@ +\version "2.13.0" + piccolo = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + flute = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + oboe = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + horn = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + bassoboe = { \time 5/4 + \key c \major + R1*5/4*4 + des'2.~ \mp \> des'2 \! \laissezVibrer % antes ~ \break + % des' + } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + clarinetes = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + bassclarinet = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + bassoonsI = \relative g, { + \clef bass + \oneVoice R1*5/4 R1*5/4 + \voiceOne g2. ^"I II a2" ~ ( \p g2 ~ + g2. ^\< d'2 ) \! des2. ^\> ~ des2 \! \laissezVibrer % ~ des + } + + bassoonsIII = \relative d, { + \clef bass + s1*5/4 s1*5/4 R1*5/4 + << R1*5/4 { s1 s8 s8_"III" \mp } >> des2. \> ~ des2 \! \laissezVibrer % ~ des + } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + doble = \relative g, { \key c \major + \clef bass + R1*5/4 R1*5/4 + g2.\p ~ ( g2 ~ g2. \< d'2 \! ) des2. \> ~ des2 \! \laissezVibrer % ~ des + } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + hornsI = { R1*5/4*5 } + + hornsIV = \relative d { \key c \major + R1*5/4 R1*5/4 + \clef bass d2. \p ^"V VI a2" ~ ( d2 ~ d2. \< a'2 \! ) aes2. \> ~ aes2 \! \laissezVibrer % ~ aes + } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + trompetaI = { R1*5/4*5 } + + trompetaIII = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + tenor = { \clef tenor + R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + bass = { \clef bass + R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + tuba = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + basstuba = { \clef bass + R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + timpaniI = \relative g, { \clef bass + \key c \major + \times 2/3 { g8\p ^\markup { "wooden sticks" } g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + + timpaniII = { \clef bass + \key c \major + R1*5/4 R1*5/4 R1*5/4 R1*5/4 R1*5/4 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + side = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + cymbals = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + drum = { R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + gong = { g2.:32 \pp g2:32 g2.:32 g2:32 g2.:32 g2:32 g2.\< :32 g2\!:32 g2.\>:32 g2:32 \! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + arpa = { R1*5/4*5 } + arpaI = \relative g, { \clef bass + \times 2/3 { g8 g, g' } g,4 g' g,8 g' g,4 + \times 2/3 { g'8 g, g' } g,4 g' g,8 g' g,4 + \times 2/3 { g'8 g, g' } g,4 g' g,8 g' g,4 + \times 2/3 { g'8^\< g, g' } g,4 g' g,8 g' g,4 \! + \times 2/3 { g'8^\> g, g' } g,4 g' g,8 g' g,4 \! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + arpaII = { R1*5/4*5 } + arpaIII = \relative g, { \clef bass + \times 2/3 { g,8 g' g, } g'4 g, g'8 g, g'4 + \times 2/3 { g,8 g' g, } g'4 g, g'8 g, g'4 + \times 2/3 { g,8 g' g, } g'4 g, g'8 g, g'4 + \times 2/3 { g,8^\< g' g, } g'4 g, g'8 g, g'4 \! + \times 2/3 { g,8^\> g' g, } g'4 g, g'8 g, g'4 \! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + organ = { R1*5/4*5 } + organII = { \clef bass R1*5/4*5 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + violinI = \relative g { + \times 2/3 { g8\p ^\markup { "col legno" } g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + violinII = \relative g { + \times 2/3 { g8\p ^\markup { "col legno" } g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + viola = \relative g { \clef alto + \times 2/3 { g8\p ^"col legno" g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + violonchelo = \relative g, { \clef bass + \times 2/3 { g8\p ^"col legno" g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + base = \relative g, { \clef bass + \times 2/3 { g8\p ^"col legno" g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 g g } g4 g g8 g g4 + \times 2/3 { g8 \< g g } g4 g g8 g g4\! + \times 2/3 { g8 \> g g } g4 g g8 g g4\! } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + incipitTimpaniI = \markup{ + \score{ + { + \set Staff.instrumentName="I" + \cadenzaOn + \clef bass + \time 3/2 + g,2 d2 bes,2 + } + \layout { \context { \Staff \remove "Time_signature_engraver" } + line-width=5\cm indent=4\cm + } + } +} +incipitTimpaniII = \markup{ \combine \hspace #15 + + \score{ + { %\override InstrumentName #'self-alignment-X = #-1 + \set Staff.instrumentName="II" + \cadenzaOn + \clef bass + \time 3/2 + c2 es2 a,2 + } + \layout { \context { \Staff \remove "Time_signature_engraver" } + line-width=1.8\cm indent=0.5\cm + } + } +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +incipitTimpaniGroup = \markup { + \score{ + \new PianoStaff << \set PianoStaff.instrumentName= \markup { + \center-column {"6 Timpani" "(two players)"} + } + \new Staff { \set Staff.instrumentName = "I" + \clef bass + \time 3/2 + \cadenzaOn g,2 d2 bes,2 + } + \new Staff { \set Staff.instrumentName = "II" + \clef bass + \time 3/2 + \cadenzaOn c2 es2 a,2 + } + >> + + \layout { + \context { + \Staff \remove "Time_signature_engraver" + } + line-width=2.5\cm indent=1\cm + margin-left=0\cm + } %layout + } %score +} %markup + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + #(set-global-staff-size 10) %antes 15.5 para a3 + #(set-default-paper-size "a4") + + \paper { ragged-right=##f + ragged-last-bottom=##f + page-count=1 + system-count=1 + } + + +\header { + title = \markup { \fontsize #6 { \smallCaps { "I. Mars, " } "the Bringer of War" } } + % copyright = "Francisco Vila, sobre un trabajo de Guadalupe Cuevas Piñero" +} + + +\score { + \new StaffGroup << \tempo "Allegro" % main + \time 5/4 + + \new PianoStaff << % piccolos, flutes + \new Staff { \set Staff.instrumentName = "2 Piccolos" \piccolo } + \new Staff { \set Staff.instrumentName = "2 Flutes" \flute } >> + + \new PianoStaff << % oboes + \new Staff { \set Staff.instrumentName = "2 Oboes" \oboe } + \new Staff { \set Staff.instrumentName = "English Horn" \horn } + \new Staff { \set Staff.instrumentName = "Bass Oboe" \bassoboe } >> + + \new PianoStaff << % clarinets + \new Staff { \set Staff.instrumentName = \markup { \line { "3 Clarinets in B" \smaller \flat} } \clarinetes } + \new Staff { \set Staff.instrumentName = \markup { \line { "Bass Clarinet in B" \small \flat } } \bassclarinet } >> + + \new PianoStaff << %bassoons + \new Staff { \set Staff.instrumentName = "3 Bassoons" << \bassoonsI \\ \bassoonsIII >> } + \new Staff { \set Staff.instrumentName = "Double Bassoons" \doble } >> + + \new PianoStaff << %horns + \set PianoStaff.instrumentName = "6 Horns in F" + \new Staff { \set Staff.instrumentName = "I II III" \hornsI } + \new Staff { \set Staff.instrumentName = "IV V VI" \hornsIV } >> + + \new PianoStaff << %trumpets + \set PianoStaff.instrumentName = "4 Trumpets in C" + \new Staff { \set Staff.instrumentName = "I II" \trompetaI } + \new Staff { \set Staff.instrumentName = "III IV" \trompetaIII } >> + + \new PianoStaff << %trombones + \new Staff { \set Staff.instrumentName = "2 Tenor Trombones" \tenor } + \new Staff { \set Staff.instrumentName = "Bass Trombone" \bass } >> + + \new PianoStaff << %tubas + \new Staff { \set Staff.instrumentName = \markup { \line { "Tenor Tuba in B" \smaller \flat } } \tuba } + \new Staff { \set Staff.instrumentName = "Bass Tuba" \basstuba } >> + + \new PianoStaff \with { + systemStartDelimiter=#'SystemStartBar } << %timpani + + \set PianoStaff.instrumentName = + \markup { + \incipitTimpaniGroup + } + \new Staff { \timpaniI } + \new Staff { \timpaniII } >> + + \new RhythmicStaff %side drum +\with { + \override VerticalAxisGroup #'next-staff-spacing = + #'((space . 6) (padding . 0)) +} +% antes \with { \override VerticalAxisGroup #'Y-extent = #'(0 . 0)} + { \set Staff.instrumentName = "Side Drum" + \side } + + \new RhythmicStaff % cymbals +\with { + \override VerticalAxisGroup #'next-staff-spacing = + #'((space . 6) (padding . 0)) +} + { \set Staff.instrumentName = "Cymbals" + \cymbals } + + \new RhythmicStaff %bass drum +\with { + \override VerticalAxisGroup #'next-staff-spacing = + #'((space . 6) (padding . 0)) +} + { \set Staff.instrumentName = "Bass Drum" + \drum } + + \new RhythmicStaff %gong +\with { + \override VerticalAxisGroup #'next-staff-spacing = + #'((space . 6) (padding . 0)) +} + { \set Staff.instrumentName = "Gong" + \gong } + + \new PianoStaff << %harp 1 + \set PianoStaff.instrumentName = "Harp I" + \new Staff { \arpa } + \new Staff { \arpaI } >> + + \new PianoStaff << %harp 2 + \set PianoStaff.instrumentName = "Harp II" + \new Staff { \arpaII } + \new Staff { \arpaIII } >> + + \new PianoStaff << %organ + \set PianoStaff.instrumentName = "Organ" + \new Staff { \organ } + \new Staff { \organII } >> + + \new PianoStaff << %violins + \new Staff { \set Staff.instrumentName = "1st Violins" + \violinI } + \new Staff { \set Staff.instrumentName = "2nd Violins" + \violinII } >> + + \new Staff { \set Staff.instrumentName = "Violas" + \viola } + + \new PianoStaff << %cellos&basses + \new Staff { \set Staff.instrumentName = "Violoncellos" + \violonchelo } + \new Staff { \set Staff.instrumentName = "Doublebasses" + \base } >> +>> %main + + \layout { indent=2.5\cm %era 4 para a3 + \context { \Staff +% \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3) +% \override instrumentName #'font-size = #8.0 + % \override InstrumentName #'padding = #-4 + } + \context { \Score +% \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3) +% \override instrumentName #'font-size = #8.0 + \override InstrumentName #'padding = #-2 %-2 para a3 + \override StaffSymbol #'thickness = #(magstep -3) + + } + } + + +} %score -- 2.11.4.GIT