Documentation/web/examples/granados.ly

   1 \version "2.12.0"
   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 beatLength = #(ly:make-moment 1 8)
  48     <aes, aes'>16 <c f> \times 4/5{ bes'32( c bes aes bes]) }
  49     \set subdivideBeams = ##f
  50     \ottava #1 <es es'>16 <f f'> <d d'> \appoggiatura f8 <es es'>16\)
  51 }
  52
  53 upperVoiceTwo = \relative c'' {
  54   \voiceTwo
  55   s8 c8\< <bes, f'>[ <bes aes'> c' <bes, d fis>\!]
  56   s32 s32_\appassmolto s8. \voiceOne r8 <bes'' es bes'>-> s4
  57   \override Stem #'cross-staff = ##t
  58   \override Stem #'length = #28
  59   \override Stem #'flag-style = #'no-flag
  60   s8 \voiceTwo g,8 aes4 s4
  61 }
  62
  63 middleVoiceOne = \relative c' {
  64   \override Stem #'cross-staff = ##t
  65   \override Stem #'length = #32
  66   \override Stem #'flag-style = #'no-flag
  67   d!8\noBeam s8 s8 s8_\crmolto s4  % 1
  68   s4 <g bes\arpeggio>8[ <es' g>] \voiceOne e,8( dis16 e) | % 2
  69   \revert Stem #'length
  70   \revert Stem #'cross-staff
  71   \showStaffSwitch
  72   \csh \stemUp f4 s2
  73   %s2.  % beginning m. 3
  74 }
  75
  76 middleVoiceTwo = \relative c' {
  77   s2. | % 1
  78   \override Stem #'cross-staff = ##t
  79   \override Stem #'length = #24
  80   \override Stem #'flag-style = #'no-flag
  81   s2 \voiceTwo e!4 | % 2
  82   s4 \voiceTwo <bes c es f>8 <f' aes es'>16 d' <bes, f' aes c>8 <bes' fis'> | % 3
  83 }
  84
  85 lowerVoiceOne = \relative c, {
  86   \override Staff.NoteCollision #'merge-differently-headed = ##t
  87   \override Staff.NoteCollision #'merge-differently-dotted = ##t
  88   bes8 \csm \stemDown <bes'' c es>8 s2
  89   \csl \stemUp
  90   \set subdivideBeams = ##t
  91   \set beatLength = #(ly:make-moment 1 16)
  92   s8 \hideNotes \slurUp \stemDown
  93     es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
  94   \set subdivideBeams = ##f
  95   bes,,8 \csm \stemDown <bes'' c es>8 s2
  96 }
  97
  98 lowerVoiceTwo = \relative c, {
  99   \voiceTwo
 100   bes2.
 101   \csh
 102   \once \override Beam #'damping = #+inf.0
 103   <bes'' es g>8 \csl \slurUp
 104   %\once\override Slur #'extra-offset = #'(0 . 4)
 105   es,,64 bes' es g s32.
 106     c64
 107     s4 <bes des>
 108   bes,,2.
 109 }
 110
 111
 112 \score {
 113   \new PianoStaff <<
 114     \set PianoStaff.connectArpeggios = ##t
 115 %    \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 116     \new Staff = "high" <<
 117       \global
 118       \context Voice = "upperVoiceOne" { \upperVoiceOne }
 119       \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
 120     >>
 121     \new Staff = "middle" <<
 122       \global
 123       \context Voice = "middleVoiceOne" { \middleVoiceOne }
 124       \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
 125     >>
 126     \new Staff = "low" <<
 127       \clef bass
 128       \global
 129       \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
 130       \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
 131     >>
 132   >>
 133   \layout {
 134     \context {
 135       \Score
 136       \override TimeSignature #'stencil = ##f
 137       \remove "Bar_number_engraver"
 138     }
 139   }
 140   %{\midi {
 141     \context {
 142       \Score
 143       tempoWholesPerMinute = #(ly:make-moment 120 4)
 144     }
 145   }%}
 146 }