input/manual/keyboard-headword.ly

   1 \version "2.11.51"
   2 \include "english.ly"
   3
   4 #(set-global-staff-size 15)
   5 \paper {
   6   line-width = 16\cm
   7   indent = 0\cm
   8 }
   9
  10 % NR 2.2 Keyboard instruments
  11
  12 % M. Ravel, Sonatine (1905)
  13 % First movement
  14
  15 \layout {
  16   \context {
  17     \Score
  18     \remove "Bar_number_engraver"
  19   }
  20   \context {
  21     \Staff
  22     \remove "Time_signature_engraver"
  23   }
  24 }
  25
  26 fermataLong = \markup {
  27   \override #'(direction . 1)
  28   \override #'(baseline-skip . 2) {
  29     \dir-column {
  30       \musicglyph #"scripts.ufermata"
  31       \text \italic \hcenter long
  32     }
  33   }
  34 }
  35
  36 \new PianoStaff <<
  37   \set PianoStaff.connectArpeggios = ##t
  38   \new Staff {
  39     \time 2/4
  40     \key fs \major
  41     <<
  42       \new Voice {
  43         \voiceOne
  44         fs''8 ( ^\markup {
  45           \override #'(baseline-skip . 2.4) \column {
  46             \line \bold { Un peu retenu }
  47             \line \italic { très expressif }
  48           }
  49         }
  50         es''16
  51         cs''16
  52         as'4 )
  53         |
  54         fs''8 (
  55         es''16
  56         cs''16
  57         as'4 )
  58         |
  59         fs''8 (
  60         es''16
  61         cs''16
  62         as'8
  63         cs''8 )
  64         |
  65       }
  66       \new Voice {
  67         \voiceTwo
  68         gs'8\rest \ppp
  69         fs'4 (
  70         es'8 )
  71         |
  72         gs'8\rest
  73         fs'4 (
  74         es'8 )
  75         |
  76         gs'8\rest
  77         fs'4 (
  78         es'8 )
  79         |
  80       }
  81     >>
  82     \clef bass
  83     <ds b! es'>4 ( ^ \markup \bold { Rall. }
  84     \override Script #'stencil = #(lambda (grob)
  85       ly:script::print (grob-interpret-markup grob fermataLong))
  86     <ds' as'>8 ) \fermata
  87     \noBeam
  88     \clef treble
  89     \slurUp
  90     \once \override Hairpin #'to-barline = ##f
  91     <as fs'>8 ( \pp \>
  92     |
  93     <gs b cs'>4. \! ) ^\markup \bold { a Tempo }
  94     \slurUp
  95     <as fs'>8 ^\( \>
  96     |
  97     <gs b cs'>4. \! \)
  98     <<
  99       \new Voice {
 100         \voiceOne
 101         <as fs'>8 (
 102         |
 103         cs'8 ^\markup \bold { Rallentando }
 104         b16
 105         cs'16
 106         d'8
 107         e'16
 108         fs'16
 109         |
 110         <as! cs' gs'>4. )
 111         s8
 112         |
 113         r8
 114         <cs'' as'' cs'''>4 \arpeggio
 115         e''16 ( ^\markup \bold { Lent }
 116         fs''16
 117         |
 118         \voiceTwo
 119         <as'! cs'' gs''>2 )
 120         |
 121       }
 122       \new Voice {
 123         \voiceTwo
 124         s8
 125         |
 126         <gs b>4 \<
 127         <fs bs>4 \>
 128         |
 129         s4. \!
 130         \slurUp
 131         \once \override Script #'direction = #UP
 132         <a bs e'>8 ( \accent
 133         |
 134         <as! cs' gs'>4. )
 135         \once \override Hairpin #'to-barline = ##f
 136         <a' bs'>8 \ppp \>
 137         |
 138         s8 \!
 139         \stemDown
 140         \once \override Script #'direction = #UP
 141         #(set-octavation 1)
 142         \voiceOne
 143         \once \override PianoStaff.Arpeggio #'padding = #0.8
 144         <cs''' as''' cs''''>4. \arpeggio \fermata
 145         #(set-octavation 0)
 146         \bar "|."
 147       }
 148     >>
 149   }
 150   \new Staff <<
 151     \set Staff.pedalSustainStyle = #'bracket
 152     \key fs \major
 153     \clef bass
 154     \new Voice {
 155       \voiceOne
 156       ds'4 \tenuto
 157       cs'4 \tenuto
 158       |
 159       ds'4 \tenuto
 160       cs'4 \tenuto
 161       |
 162       ds'4 \tenuto
 163       cs'4 \tenuto
 164       |
 165       s8
 166       \clef treble
 167       <b' cs''>8 [
 168       \clef bass
 169       <es b cs'>8 \fermata ]
 170       s8
 171       |
 172       fs8\rest
 173       \clef treble
 174       <b' cs''>4 \tenuto
 175       s8
 176       |
 177       fs8\rest
 178       \clef treble
 179       <b' cs''>4 \tenuto
 180       s8
 181       |
 182       s2
 183       |
 184       ds8\rest
 185       \clef treble
 186       <as' cs''>4
 187       \clef bass
 188       s8
 189       |
 190       s8
 191       \clef treble
 192       <as'>4 \arpeggio
 193       \clef bass
 194       s8
 195       |
 196       s8
 197       \clef treble
 198       <as''>4. \arpeggio \fermata
 199       |
 200     }
 201     \new Voice {
 202       \voiceTwo
 203       ds'8 [ (
 204       < ds bs >8
 205       cs'8
 206       < ds as >8 ] )
 207       |
 208       ds'8 [ (
 209       < ds bs >8
 210       cs'8
 211       < ds as >8 ] )
 212       |
 213       ds'8 [ (
 214       < ds bs >8
 215       cs'8
 216       < ds as >8 ] )
 217       |
 218       \once \override Script #'outside-staff-priority = #100
 219       \once \override TextScript #'outside-staff-priority = #500
 220       <cs, gs,>4. \fermata _\markup \italic { ped. }
 221       <fs, cs>8 (
 222       |
 223       <e, b,>4. ) \sustainOn
 224       \clef bass
 225       <fs, cs>8 \( \sustainOff
 226       |
 227       <e, b,>4. \) \sustainOn
 228       \clef bass
 229       <fs, cs>8 ( \sustainOff
 230       |
 231       <e, b,>4
 232       <d, a,>4
 233       |
 234       <fs,, cs,>4. ) \sustainOn
 235       <a, e>8 ( \sustainOff
 236       |
 237       <fs, cs>4. ) \sustainOn
 238       \slurUp
 239       <a e'>8 ( \sustainOff \sustainOn
 240       |
 241       <fs cs'>2 ) \sustainOff \sustainOn
 242       |
 243     }
 244   >>
 245 >>