Documentation/snippets/new/keyboard-headword.ly

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