Documentation/snippets/keyboard-headword.ly

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