holst-fagot-violines.ly

   1 \version "2.13.0"
   2
   3 juntaPentagrama = \with { \override VerticalAxisGroup #'next-staff-spacing =
   4                    #'((space . 6) (padding . 0))
   5                    }
   6
   7
   8                 bassoonsI =  \relative  g, {
   9                         \clef bass
  10                         \oneVoice R1*5/4 R1*5/4
  11                         \voiceOne g2. ^"I II a2" ~ ( \p  g2 ~
  12                         g2. ^\< d'2 ) \!  des2. ^\> ~ des2 \! \laissezVibrer % ~ des
  13                 }
  14
  15                 bassoonsIII =  \relative  d, {
  16                         \clef bass
  17                         s1*5/4 s1*5/4 R1*5/4*2
  18                         %  \once \override Voice.DynamicText #'extra-offset = #'(-2.9 . 2.9 )
  19                         \override TextScript #'whiteout = ##t
  20                         \override DynamicText #'whiteout = ##t
  21                         \once \override DynamicText #'X-offset = #-4.5
  22                         \once \override DynamicText #'extra-offset = #'(-0.1 . 2.3 )
  23                         \once \override TextScript #'outside-staff-priority = ##f
  24                         \once \override TextScript #'X-offset = #-4
  25                         des2.
  26                         -"III"
  27                          \mp
  28                          \>  ~ des2 \! \laissezVibrer % ~ des
  29                 }
  30
  31
  32 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33
  34              doble = \relative  g, { \key c \major
  35                         \clef bass
  36                         R1*5/4 R1*5/4
  37                         g2.\p ~ ( g2 ~ g2. \< d'2 \! ) des2. \> ~ des2 \! \laissezVibrer % ~ des
  38              }
  39
  40 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  41
  42 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  43
  44         side  = { R1*5/4*5 }
  45
  46 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  47
  48         cymbals  = { R1*5/4*5 }
  49
  50 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  51
  52         drum  = { R1*5/4*5 }
  53
  54
  55        violinI = \relative g {
  56         \once \override DynamicText #'extra-offset = #'(-0.8 . 1 )
  57         \once \override DynamicText #'X-offset = #-2.5
  58         \times 2/3 { g8\p ^"col legno" g g }  g4 g g8 g g4
  59         \times 2/3 { g8 g g } g4 g g8 g g4
  60         \times 2/3 { g8 g g } g4 g g8 g g4
  61         \times 2/3 { g8 \< g g } g4 g g8 g g4\!
  62         \times 2/3 { g8 \> g g } g4 g g8 g g4\! }
  63
  64 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  65
  66         violinII = \relative g {
  67                 \once \override DynamicText #'extra-offset = #'(-0.8 . 1 )
  68                 \once \override DynamicText #'X-offset = #-2.5
  69                 \times 2/3 { g8 \p ^"col legno" g g }  g4 g g8 g g4
  70                 \times 2/3 { g8 g g } g4 g g8 g g4
  71                 \times 2/3 { g8 g g } g4 g g8 g g4
  72                 \times 2/3 { g8 \< g g } g4 g g8 g g4\!
  73                 \times 2/3 { g8 \> g g } g4 g g8 g g4\! }
  74
  75
  76         #(set-global-staff-size 10.5)  % antes 15.5 para a3
  77         #(set-default-paper-size "a4") % antes a3
  78
  79 \header {
  80         title = \markup { \fontsize #6 { \smallCaps {  "I. Mars, " } "the Bringer of War" } }
  81         tagline=##f
  82 }
  83
  84
  85 \score {
  86
  87     % main
  88     \new StaffGroup <<   \tempo "Allegro"
  89         \time 5/4
  90
  91     %bassoons
  92     \new PianoStaff  <<
  93         \new Staff  \with { instrumentName = "3 Bassoons" } { << \bassoonsI \\ \bassoonsIII >> }
  94         \new Staff  \with { instrumentName = "Double Bassoon" } { \doble }  >>
  95
  96     %side drum
  97     \new RhythmicStaff
  98          \with { \juntaPentagrama
  99                  instrumentName = "Side Drum" }
 100                { \side }
 101
 102     % cymbals
 103     \new RhythmicStaff
 104          \with { \juntaPentagrama
 105                  instrumentName = "Cymbals" }
 106                { \cymbals  }
 107
 108     %bass drum
 109     \new RhythmicStaff
 110          \with { \juntaPentagrama
 111                  instrumentName = "Bass Drum" }
 112         { \drum }
 113
 114
 115     %violins
 116     \new PianoStaff  <<
 117         \new Staff \with { instrumentName = "1st Violins" }
 118                 { \violinI }
 119         \new Staff \with { instrumentName = "2nd Violins" }
 120                 { \violinII } >>
 121
 122 >> %main
 123
 124    \layout { indent=2.5\cm %era 4 para a3
 125
 126               \context { \Score
 127               \override StaffSymbol #'thickness = #(magstep -3)
 128
 129               }
 130    }
 131
 132
 133 } %score
 134
 135
 136 \paper { ragged-right=##f
 137          page-count=1
 138          system-count=1
 139 }