input/manual/keyboard-headword.ly

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