Documentation/snippets/keyboard-headword.ly

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