From 559948314ea1f7cf0b45a8f6ac86977174507cd5 Mon Sep 17 00:00:00 2001 From: Graham Percival <graham@percival-music.ca> Date: Tue, 1 Jul 2008 15:13:49 -0700 Subject: [PATCH] Using Ravel's Sonatine now. --- input/manual/keyboard-headword.ly | 212 +++++++++++++++++++++++++++++- 1 file changed, 211 insertions(+), 1 deletion(-) diff --git a/input/manual/keyboard-headword.ly b/input/manual/keyboard-headword.ly index bdceca334d..76ef8f3c37 100644 --- a/input/manual/keyboard-headword.ly +++ b/input/manual/keyboard-headword.ly @@ -1,4 +1,5 @@ \version "2.11.49" +\include "english.ly" #(set-global-staff-size 15) \paper{ @@ -7,5 +8,214 @@ indent=0\cm } +\new PianoStaff << + \set PianoStaff.connectArpeggios = ##t + \new Staff { + \time 2/4 + \key fs \major + << + \new Voice { + \voiceOne + fs''8 ( + ^ \markup \column { + \line \bold { Un peu retenu } + \line \italic { très expressif } } + es''16 + cs''16 + as'4 ) + | + fs''8 ( + es''16 + cs''16 + as'4 ) + | + fs''8 ( + es''16 + cs''16 + as'8 + cs''8 ) + | + } + \new Voice { + \voiceTwo + r8 \ppp + fs'4 ( + es'8 ) + | + r8 + fs'4 ( + es'8 ) + | + r8 + fs'4 ( + es'8 ) + | + } + >> + \clef bass + <ds b! es'>4 ( + ^ \markup \bold { Rall. } + \once \override Script #'padding = #2 + <ds' as'>8 ) \fermata + \noBeam + \clef treble + \slurUp + <as fs'>8 ( \pp + | + <gs b cs'>4. ) + ^ \markup \bold { a tempo } + \slurUp + <as fs'>8 ( + | + <gs b cs'>4. ) + << + \new Voice { + \voiceOne + <as fs'>8 ( + ^ \markup \bold { Rallentando } + | + cs'8 + b16 + cs'16 + d'8 + e'16 + fs'16 + | + <as! cs' gs'>4. ) + s8 + | + r8 + <cs'' as'' cs'''>4 \arpeggio + e''16 ( + ^ \markup \bold { Lent } + fs''16 + | + \stemDown + <as'! cs'' gs''>2 ) + | + } + \new Voice { + \voiceTwo + s8 + | + <gs b>4 \< + <fs bs>4 \> + | + s4. \! + \slurUp + \once \override Script #'direction = #up + <a bs e'>8 ( \accent + | + <as! cs' gs'>4. ) + <a' bs'>8 \ppp \> + | + s8 \! + \stemDown + \once \override Script #'direction = #up + #(set-octavation 1) + % \once \override Arpeggio #'extra-offset = #'(-0.25 . + % 0) + <cs''' as''' cs''''>4. \arpeggio \fermata + #(set-octavation 0) + \bar "|." + } + >> + } + \new Staff << + \set Staff.pedalSustainStyle = #'bracket + \key fs \major + \clef bass + \new Voice { + \voiceOne + ds'4 \tenuto + cs'4 \tenuto + | + ds'4 \tenuto + cs'4 \tenuto + | + ds'4 \tenuto + cs'4 \tenuto + | + s8 + \clef treble + <b' cs''>8 [ + \clef bass + <es b cs'>8 \fermata ] + s8 + | + r8 + \clef treble + <b' cs''>4 \tenuto + s8 + | + r8 + \clef treble + <b' cs''>4 \tenuto + s8 + | + s2 + | + r8 + \clef treble + <as' cs''>4 + \clef bass + s8 + | + s8 + \clef treble + <as'>4 \arpeggio + \clef bass + s8 + | + s8 + \clef treble + <as''>4. \arpeggio \fermata + | + } + \new Voice { + \voiceTwo + ds'8 [ ( + < ds bs >8 + cs'8 + < ds as >8 ] ) + | + ds'8 [ ( + < ds bs >8 + cs'8 + < ds as >8 ] ) + | + ds'8 [ ( + < ds bs >8 + cs'8 + < ds as >8 ] ) + | + \once \override Script #'outside-staff-priority = #100 + \once \override TextScript #'outside-staff-priority = #500 + <cs, gs,>4. \fermata + _ \markup \italic { ped. } + <fs, cs>8 ( + | + <e, b,>4. ) \sustainDown + \clef bass + <fs, cs>8 ( \sustainUp + | + <e, b,>4. ) \sustainDown + \clef bass + <fs, cs>8 ( \sustainUp + | + <e, b,>4 + <d, a,>4 + | + <fs,, cs,>4. ) \sustainDown + <a, e>8 ( \sustainUp + | + <fs, cs>4. ) \sustainDown + \slurUp + <a e'>8 ( \sustainUp \sustainDown + | + <fs cs'>2 ) \sustainUp \sustainDown + | + } + >> +>> -\relative c' { c } -- 2.39.5