Documentation/web/ly-examples/granados.ly

   1 \version "2.13.29"
   2 \include "example-header.ily"
   3
   4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   5 % This is a brief passage from Enrique Granados %
   6 % Goyescas, "Coloquio en la Reja."              %
   7 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   8 #(set-global-staff-size 17)
   9
  10 \paper {
  11   ragged-right = ##f
  12   #(set-paper-size "letter" 'landscape)
  13   system-count = 1
  14 }
  15
  16
  17 csh = \change Staff = "high"
  18 csm = \change Staff = "middle"
  19 csl = \change Staff = "low"
  20
  21 crmolto = \markup { \italic \large "cresc. molto" }
  22 appassmolto = \markup { \italic \large "appassionato molto" }
  23
  24 #(ly:set-option 'point-and-click #f)
  25
  26 global = {
  27   \time 3/4
  28   \set fontSize = #1
  29   \override Beam #'thickness = #0.5
  30   \override NoteColumn #'ignore-collision = ##t
  31 }
  32
  33 upperVoiceOne = \relative c'' {
  34   \voiceOne
  35   \override TupletBracket #'transparent = ##t
  36   <aes f'>8\([ \times 4/5{g'32( aes g f g]) }
  37     <es aes>8[ \times 4/5{<d bes'>32( c' bes aes bes]) }
  38     <es, aes es'>8 <d fis b d>\) | % end m. 1
  39   %--------------------------------------------------%
  40   <c g' c>4\( \voiceTwo <bes es bes'\arpeggio>\)
  41     \slurUp <aes aes'>16( <bes bes'> <g g'>8) % end m. 2
  42   %--------------------------------------------------%
  43   \noBreak
  44   \voiceOne
  45   <f aes d f>8\([ \times 4/5{<g g'>32( aes' g f g]) }
  46   \set subdivideBeams = ##t
  47   \set baseMoment = #(ly:make-moment 1 8)
  48   \set beatStructure = #'(2 2 2)
  49   <aes, aes'>16 <c f> \times 4/5{ bes'32( c bes aes bes]) }
  50   \set subdivideBeams = ##f
  51   \ottava #1 <es es'>16 <f f'> <d d'> \appoggiatura f8 <es es'>16\)
  52 }
  53
  54 upperVoiceTwo = \relative c'' {
  55   \voiceTwo
  56   s8 c8\< <bes, f'>[ <bes aes'> c' <bes, d fis>\!]
  57   s32 s32_\appassmolto s8. \voiceOne r8 <bes'' es bes'>-> s4
  58   \override Stem #'cross-staff = ##t
  59   \override Stem #'length = #28
  60   \override Stem #'flag-style = #'no-flag
  61   s8 \voiceTwo g,8 aes4 s4
  62 }
  63
  64 middleVoiceOne = \relative c' {
  65   \override Stem #'cross-staff = ##t
  66   \override Stem #'length = #32
  67   \override Stem #'flag-style = #'no-flag
  68   d!8\noBeam s8 s8 s8_\crmolto s4  % 1
  69   s4 <g bes\arpeggio>8[ <es' g>] \voiceOne e,8( dis16 e) | % 2
  70   \revert Stem #'length
  71   \revert Stem #'cross-staff
  72   \showStaffSwitch
  73   \csh \stemUp f4 s2
  74   %s2.  % beginning m. 3
  75 }
  76
  77 middleVoiceTwo = \relative c' {
  78   s2. | % 1
  79   \override Stem #'cross-staff = ##t
  80   \override Stem #'length = #24
  81   \override Stem #'flag-style = #'no-flag
  82   s2 \voiceTwo e!4 | % 2
  83   s4 \voiceTwo <bes c es f>8 <f' aes es'>16 d' <bes, f' aes c>8 <bes' fis'> | % 3
  84 }
  85
  86 lowerVoiceOne = \relative c, {
  87   \override Staff.NoteCollision #'merge-differently-headed = ##t
  88   \override Staff.NoteCollision #'merge-differently-dotted = ##t
  89   bes8 \csm \stemDown <bes'' c es>8 s2
  90   \csl \stemUp
  91   \set subdivideBeams = ##t
  92   \set baseMoment = #(ly:make-moment 1 16)
  93   \set beatStructure = #'(4 4 4)
  94   s8 \hideNotes \slurUp \stemDown
  95     es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
  96   \set subdivideBeams = ##f
  97   bes,,8 \csm \stemDown <bes'' c es>8 s2
  98 }
  99
 100 lowerVoiceTwo = \relative c, {
 101   \voiceTwo
 102   bes2.
 103   \csh
 104   \once \override Beam #'damping = #+inf.0
 105   <bes'' es g>8 \csl \slurUp
 106   %\once\override Slur #'extra-offset = #'(0 . 4)
 107   es,,64 bes' es g s32.
 108     c64
 109     s4 <bes des>
 110   bes,,2.
 111 }
 112
 113
 114 \score {
 115   \new PianoStaff <<
 116     \set PianoStaff.connectArpeggios = ##t
 117 %    \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 118     \new Staff = "high" <<
 119       \global
 120       \context Voice = "upperVoiceOne" { \upperVoiceOne }
 121       \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
 122     >>
 123     \new Staff = "middle" <<
 124       \global
 125       \context Voice = "middleVoiceOne" { \middleVoiceOne }
 126       \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
 127     >>
 128     \new Staff = "low" <<
 129       \clef bass
 130       \global
 131       \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
 132       \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
 133     >>
 134   >>
 135   \layout {
 136     \context {
 137       \Score
 138       \override TimeSignature #'stencil = ##f
 139       \remove "Bar_number_engraver"
 140     }
 141   }
 142   %{\midi {
 143     \context {
 144       \Score
 145       tempoWholesPerMinute = #(ly:make-moment 120 4)
 146     }
 147   }%}
 148 }