Documentation/general/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 18)
   9
  10 % EXAMPLE BROKEN; uncomment when fixed.
  11 %{
  12 \paper {
  13   ragged-right = ##f
  14   #(set-paper-size "letter" 'landscape)
  15   system-count = 1
  16 }
  17 %}
  18
  19 csh = \change Staff = "high"
  20 csm = \change Staff = "middle"
  21 csl = \change Staff = "low"
  22
  23 crmolto = \markup { \italic \large "cresc. molto" }
  24 appassmolto = \markup { \italic \large "appassionato molto" }
  25
  26 #(ly:set-option 'point-and-click #f)
  27
  28 global = {
  29   \time 3/4
  30   \set fontSize = #1
  31   \override Beam #'thickness = #0.5
  32   \override NoteColumn #'ignore-collision = ##t
  33 }
  34
  35 upperVoiceOne = \relative c'' {
  36   \voiceOne
  37   \override TupletBracket #'transparent = ##t
  38   <aes f'>8\([ \times 4/5{g'32( aes g f g]) }
  39     <es aes>8[ \times 4/5{<d bes'>32( c' bes aes bes]) }
  40     <es, aes es'>8 <d fis b d>\) | % end m. 1
  41   %--------------------------------------------------%
  42   <c g' c>4\( \voiceTwo <bes es bes'\arpeggio>\)
  43     \slurUp <aes aes'>16( <bes bes'> <g g'>8) % end m. 2
  44   %--------------------------------------------------%
  45   \voiceOne
  46   <f aes d f>8\([ \times 4/5{<g g'>32( aes' g f g]) }
  47   \set subdivideBeams = ##t
  48   \set beatLength = #(ly:make-moment 1 8)
  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 beatLength = #(ly:make-moment 1 16)
  93   s8 \hideNotes \slurUp \stemDown
  94     es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
  95   \set subdivideBeams = ##f
  96   bes,,8 \csm \stemDown <bes'' c es>8 s2
  97 }
  98
  99 lowerVoiceTwo = \relative c, {
 100   \voiceTwo
 101   bes2.
 102   \csh
 103   \once \override Beam #'damping = #+inf.0
 104   <bes'' es g>8 \csl \slurUp
 105   %\once\override Slur #'extra-offset = #'(0 . 4)
 106   es,,64 bes' es g s32.
 107     c64
 108     s4 <bes des>
 109   bes,,2.
 110 }
 111
 112
 113 \score {
 114   \new Staff { c'4^"EXAMPLE BROKEN.  (new spacing code to blame?" }
 115 %  uncomment the below once it works.
 116 %{
 117   \new PianoStaff <<
 118     \set PianoStaff.connectArpeggios = ##t
 119 %    \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 120     \new Staff = "high" <<
 121       \global
 122       \context Voice = "upperVoiceOne" { \upperVoiceOne }
 123       \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
 124     >>
 125     \new Staff = "middle" <<
 126       \global
 127       \context Voice = "middleVoiceOne" { \middleVoiceOne }
 128       \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
 129     >>
 130     \new Staff = "low" <<
 131       \clef bass
 132       \global
 133       \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
 134       \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
 135     >>
 136   >>
 137   \layout {
 138     \context {
 139       \Score
 140       \override TimeSignature #'stencil = ##f
 141       \remove "Bar_number_engraver"
 142     }
 143   }
 144 %}
 145   %{\midi {
 146     \context {
 147       \Score
 148       tempoWholesPerMinute = #(ly:make-moment 120 4)
 149     }
 150   }%}
 151 }