Documentation/snippets/new/keyboard-headword.ly

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