\version "1.6.12"
\paper{ papersize = "letter" }
\include "paper20.ly"

#(set-point-and-click! 'line-column)

\header {
  filename =    "moon_omar.ly"
  title = "The Moon Of Omar"
  subtitle =       "REVERIE"
  subsubtitle = "Yon rising moon that looks for us again..."
%{
	How oft hereafter will she wax and wane;
	How oft hereafter rising look for us
	Through this same garden-- and for one in vain.
		(Fitzgerald)
%}
  composer =    "Clarence Lucas (1866-1947)"
  dedication = "To W.~O.~ Forsyth, Toronto"
  opus = "Op.~52"
  enteredby =   "KSW 2004/09/19"
  copyright =   "public domain"
}

\include "english.ly"

staffUp = {\translator Staff = upper}
staffDown = {\translator Staff = lower}
ottavaSetup = {
	\property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
	\property Voice.TextSpanner \revert #'type
	\property Voice.TextSpanner \override #'type = #'dotted-line
	\property Voice.TextSpanner \set #'padding = #2
	% \property Voice.TextSpanner \override #'edge-height = #'(0 . 1.5)
	\property Staff.centralCPosition = #-13
}
ottavaBasso = {
	\property Staff.centralCPosition = #+13
	\property Voice.TextSpanner \override #'direction = #-1
}
ottava = \spanrequest\start "text"
loco = \spanrequest\stop "text"
locoSetup = {
	\property Staff.centralCPosition = #-6
}
followOn = {
	\property PianoStaff.followVoice = ##t
}
followOff = {
	\property PianoStaff.followVoice = ##f
}
bOn = {
	\property Staff.autoBeaming = ##t
}
bOff = {
	\property Staff.autoBeaming = ##f
}
originalBreak = {
	%\break
}
Up = \sustainUp
Down = \sustainDown
trStart = \spanrequest\start "text"
trStop = \spanrequest\stop "text"
trSetup = {
	\property Voice.TextSpanner \set #'type = #'trill
	\property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
	\property Voice.TextSpanner \set #'edge-text = #'((line (music "scripts-trill") " ") . "")
}
tupletEighth = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 8)
}
tupletQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 4)
}
tupletDottedQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 3 8)
}
restartMeasure = {
	\property Timing.measurePosition = #(make-moment 6 8)
}
ffp = \dynamicscript #"ffp"
ffz = \dynamicscript #"ffz"

slurHeadHead = {
	\property Voice.Slur \set #'attachment = #'(head . head)
}
slurStemHead = {
	\property Voice.Slur \set #'attachment = #'(stem . head)
}
slurRevert = {
	\property Voice.Slur \set #'attachment = #'(#f . #f)
}

startGraceMusic = \sequential {
	\startGraceMusic
	\slurUp
}
stopGraceMusic = \sequential {
	\slurBoth
	\stopGraceMusic
}
mergeDiffDots = {
	\property Staff.NoteCollision \override #'merge-differently-dotted = ##t
}
invisible = {
	\property Voice.NoteHead \override #'transparent = ##t
	\property Voice.Stem \override #'transparent = ##t
}
visible = {
	\property Voice.NoteHead \revert #'transparent
	\property Voice.Stem \revert #'transparent
}
joinArpeggios = {
	\property PianoStaff.connectArpeggios = ##t
}
unjoinArpeggios = {
	\property PianoStaff.connectArpeggios = ##f
}
shiftRight = {
	\property Voice.NoteColumn \set #'horizontal-shift = #-3
%	\property Voice.NoteColumn \set #'horizontal-shift = #-1
}

global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 4/4
	\key af \major
% 1
	s1 | s | \originalBreak
% 3 
	s1 | s | \originalBreak
% 5
	s1 | s | s | \originalBreak
% 8
	s1 | s | \bar "||" \time 3/4 \originalBreak
% 10
	s2. | s | \bar "||" \time 4/4 \originalBreak
% 12
	s1 | s | \originalBreak
% 14
	\grace s8 s1 | s | \originalBreak
% 16
	s1 | s | \originalBreak
% 18
	s1 | s | \originalBreak
% 20
	s1 | s | \originalBreak
% 22
	s1 | s | \originalBreak
% 24
	s1 | \bar "||" \time 3/4 s2. | \originalBreak
% 26
	s2. | \bar "||" \time 4/4 s1 | \originalBreak
% 28
	s1 | s | \originalBreak
% 30
	s1 | s | \originalBreak
% 32
	s1 | s | \originalBreak
% 34
	s1 | s | \originalBreak
% 36
	s1 | s | \originalBreak
% 38
	s1 | s | s | s | \bar "|." \originalBreak
% 42
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
% 1
	s1^" "^" "^"Andante affetuoso" | s |
% 3
	s1 | s |
% 5 
	s1 | s | s |
% 8
	s1 | s |
% 10
	s2.^" "^"Poco meno mosso" | s |
% 12
	s1 | s |
% 14
	s1^" "^" "^"Tempo I" | s |
% 16
	s1 | s |
% 18
	s1 | s |
% 20
	s1 | s |
% 22
	s1 | s |
% 24
	s1 | s2.^" "^"Poco meno mosso" |
% 26
	s2. | s1 |
% 28
	s1 | s |
% 30
	s1 | s |
% 32
	s1 | s |
% 34
	s1 | s |
% 36
	s1 | s |
% 38
	s1 | s | s | s |
% 42
}

upperOne = \notes\relative c''{
	\clef G\voiceOne
% 1
	<c4 af c,> <c8. af c,> <c16 af c,> <df4 af df,> <c af c,> |
	\slurHeadHead c8( )af <bf4 g df> [ c8 af ] [<f df af> <ef df g,>] | 
% 3
	<c'4 af c,> <c8. af c,> <c16 af c,> <df4 af df,> <c af c,> |
	\phrasingSlurUp [c8(\( )af] [bf \)c] \slurRevert <af8.( c,> <bf16 ef,> <c8. af> <)df16 g,> |
% 5
	<ef4 gf,> f8 df ef8.( f16 bf,8 )c |
	<df4^- bf f>  <df^- bf> <c^- af> <bf^- df,> |
	<c af c,> <c8. af c,> ef16
		\grace f8^>(  <)af4 f c> \grace ef8^>(  <)af4 ef c> |
% 8
	\oneVoice
	<f df f,> <g8. f df g,> g16 <c8. f, c> af16 <f8 df f,> <g df g,> |
	<af4 c, af> <gs8. d gs,> gs16 <ef'4\arpeggio af, c,> r |
% 10
	[g,,,8 <e' df bf>] <f\arpeggio df af> r r4 |
	[c8 <g' df>] <bf\arpeggio g df> r r4 |
% 12 
	\voiceOne [f8 <c' af>] [df, <a' ef>] f4 ~ <f16 d af f> f, g af |
	bf4( c8. df16 )ef4 \oneVoice <af8 ef af,> <g ef df g,> |
% 14
	\voiceOne <c4 af c,> <c8. af c,> <c16 af c,> <df4( af df,> <)c af c,> |
	c8( af <)bf4 g df> [c8( af] [bf )c] |
% 16
	<af2 c,> \tupletQuarter\times 2/3 { \slurDown c,8( ef^"a tempo" f g bf )af } |
	[af8 <af' f c>] [f, <f' b, af>] r <g4 e c> <g8 e c> |
% 18
	[af, <af' f c>] [bf, <bf' g e df>] r <g4 e c> <c,8 c,> |
	<ef4 ef,> <df8. df,> <c16 c,>
		\times 2/3 {<f,8 df f,> <g g,> <a a,> <bf df, bf> <c c,> <df df,>} |
% 20
	\slurUp<af4( af,> <)f8. f,> <af16 af,> <af4( af,> <)g g,> |
	[af8 <af' f c>] [f, <f' b, af>] r <g4 e c> <g8 e c> |
% 22
	[af, <af' f c>] [bf, <bf' g e df>] r <g4 e c> <c,8 c,> |
	\unjoinArpeggios\oneVoice <f8.\arpeggio df bf f> f16 ef8 df
		\voiceOne c bf \times 2/3 { af8 c bf } |
% 24
	\oneVoice\slurUp [<af8(-- f> <af-- f b,>] [<g-- f b,> <g-- e bf>]
		<)f af,> \breathe r r4 |
	[g,8 <e' df bf>] <f\arpeggio df af> r r4 |
% 26
	[c8 <g' df>] <bf\arpeggio g df> r r4 |
	\voiceOne [f8 <c' af>] [df, <a' ef>] f4 ~ <f16 d af f> f, g af |
% 28
	bf4(^"a tempo" c8. df16 )ef4 \oneVoice <af8 ef af,> <g ef df g,> |
	<c'4 af ef c> <c8. af ef c> <c16 af ef c> <df4 af f df> <c af ef c> |
% 30
	\voiceOne\slurHeadHead c,8( )af <bf4 g df> [ c8 af ] [<f df af> <ef df g,>] | 
	<c'4 af c,> <c8. af c,> <c16 af c,> <df4 af df,> <c af c,> |
% 32
	\phrasingSlurUp [c8(\( )af] [bf \)c] \slurRevert <af8.( c,> <bf16 ef,> <c8. af> <)df16 g,> |
	<ef4 gf,> f8 df ef8.( f16 bf,8 )c |
% 34
	<df4^- bf f>  <df^- bf> <c^- af> <bf^- df,> |
	<c\arpeggio gf c,> <c8. gf c,> <c16 gf c,> <df4 gf, df> <ef gf, ef>
% 36
	\oneVoice <f df af f> <g8. e bf g> <g16 e bf g> <af4 f cf af> \voiceOne <bf8^> bf,> <b^> b,> |
	<c\arpeggio^" "^"pi\\`u accel." af ef c> [<ef af,> <af df, af> <ef af,>] [<f^"poco rit." af,> <ef g,> <c gf> <ef f,>]
% 38
	<f,4^" "^"a tempo"( df> <c' ef, df> <)af2 c,> ~ |
	<af8 c,> [<ef^" "^"tranquillo"( af,> <af df, af> <ef af,>] [<f af,> <ef g,> <c gf> <)df f,>] |
	<f,2 df f,> <g df g,> |
	<af1\fermata c, af> |
% 42
}

upperTwo = \notes\relative c' {
	\voiceTwo
% 1
	s4 \staffDown ef-- f-- ef-- \staffUp |
	<af df,> s <af df,> s |
% 3
	s4 \staffDown ef-- f-- ef-- \staffUp |
	<af d,> <g df> s2 |
% 5
	s4 gf2 gf4 |
	s ff8 ef ~ [ef d] [af'( )g] |
	s1 |
% 8 
	s1 | s |
% 10
	s4 f,2\arpeggio |
	s4 bf2\arpeggio |
% 12
	s2 [f'8 <d af f>] ~ \invisible <d16 af f> \visible s s8 |
	[bf <af df,>] [c <g ef>] [ef' <af, ef>] s4 |
% 14
	\voiceTwo s4 \staffDown ef'-- f-- ef-- \staffUp |
	<af4 df,> s <af d,> <g df> |
% 16
	s2 c,4 s |
	af' f8. af16 g2 |
% 18
	af4 bf8. af16 g4 s |
	[ef8 <c' gf>] [df, <a' ef>] s4 s |
% 20
	[af,8 <f' c>] [f, <b af>] [af <f' d>] [g, <e' c>] |
	af4 f8. af16 g2 |
% 22
	af4 bf8. af16 g4 s |
	s2 f |
% 24
	s1 |
	\joinArpeggios s4 f,2\arpeggio |
% 26
	s4 bf2\arpeggio |
	s2 [f'8 <d af f>] ~ \invisible <d16 af f> \visible s s8 |
% 28
	[bf <af df,>] [c <g ef>] [ef' <af, ef>] s4 |
	\voiceTwo s4 \staffDown ef'-- f-- ef-- \staffUp |
% 30
	<af df,> s <af df,> s |
	s4 \staffDown ef-- f-- ef-- \staffUp |
% 32
	<af d,> <g df> s2 |
	s4 gf2 gf4 |
% 34
	s ff8 ef ~ [ef d] [af'( )g] |
	s1 |
% 36
	\voiceTwo s2. <af'4 f> |
	s1
% 38
	s1 | s | s | s |
% 42
}

lowerOne = \notes\relative c {
	\voiceOne
% 1
	ef4 ef'8 ef, [ f' ef, ] [ ef' ef, ] |
	f4 ef f bf,8( )ef, |
% 3
	ef'4 ef'8 ef, [ f' ef, ] [ ef' ef, ] |
	f4 \oneVoice ff8 ef ~ \voiceOne <ef af,> ef af4 |
% 5
	c bf c df8 ef |
	s1 |
	ef,4 ef' af^> gf^> |
% 8
	<df af> <df bf> s s |
	<f c> <e d b> s8 \stemDown \breathe [c--^"cantando" bf-- af-- ] |
% 10
	\staffUp\slurDown\slurHeadHead g8.( )f16 \staffDown
		s8 [f'-- ef-- df-- ] |
	\staffUp c8.( )bf16 \staffDown
		s8 \clef G\stemUp [bf'-- g -- f-- ] \slurRevert \clef F |
% 12
	\staffUp\stemDown f8. ef16 df8. c16 s4 s \staffDown |
	s1
% 14
	\voiceOne ef,4 [ef'8 ef,] [f' ef,] [ef' ef,] |
	f4 e f <ff8 ff,> <ef ef,> |
% 16
	ef ef f af ~ af4 r \clef G |
	f' d8. f16 e4 \clef F <g,,^> c,> \clef G |
% 18
	f''4 g8. f16 e4 \clef F <g,,^> c,> |
	\oneVoice <c' a f> <a f> <bf df,> <g f bf,> |
% 20
	<c,( c,> <)df df,> <b( b,> <)c c,> \clef G |
	\voiceOne f' d8. f16 e4 \clef F <g,,^> c,> \clef G |
% 22
	f''4 g8. f16 e4 \clef F <g,, c,> |
	\oneVoice [<df''8\arpeggio f, bf,> df] [c bf]
		\voiceOne df2 |
% 24
	[c8( df,--] [d-- )c--] ~ <c f,> \oneVoice [c'-- bf--  af--] |
	\staffUp\voiceTwo g8. f16 s8 \staffDown [f'-- ef-- df--] |
% 26
	\staffUp\slurHeadHead c8.( )bf16 \staffDown
		s8 \clef G\stemUp [bf'-- g -- f-- ] \clef F |
	\staffUp\stemDown f8.( )ef16 df8.( )c16 s4 s \staffDown\slurRevert |
% 28
	s1 | 
	s4 \voiceOne [ef8 ef,] [f' ef,] [ef' ef,] |
% 30
	f4 ef f \slurDown bf,8( )ef, |
	ef'4 ef'8 ef, [ f' ef, ] [ ef' ef, ] |
% 32
	f4 \oneVoice ff8 ef ~ \voiceOne <ef af,> ef af4 |
	c bf c df8 ef |
% 34
	s1 |
	[af,,8 ef'] [ef' af,] [bf af] [c af] |
% 36
	\oneVoice [<df af> df,^>] [<e' bf> df,^>] [<f' cf af> df,^>] \shiftRight [bf'_> b_>] |
	\oneVoice <af'\arpeggio c, ef,> \staffUp\voiceTwo [<ef' c> <f df> <ef c>] [<d b> <df bf> <ef a,> <df bf>] |
% 38
	<af4( bf,> <g ef> \staffDown\oneVoice <)ef2 af,> ~ |
	<ef8 af,> \slurDown [<ef( c> <f df> <ef c>] [<d b> <df bf> <ef a,> <df) bf>] |
	bf,2 ~ <ef bf ef,> |
	<ef af,(> )af,,\fermata |
% 42
}

lowerTwo = \notes\relative c {
	\voiceTwo
% 1
	ef8 af,^>_"(tenuto per il ped.)" ~ af2. |
	af8 af4 af af8 s4 |
% 3
	ef'8 af,_> ~ af2. |
	f'8 bf, s4 s af'8 bf |
% 5
	[c af] [bf af] [c af] ~ af4 |
	[bf8( f] [gf g] [af f] [ff )ef] ~ |
	[ef af,_>] [ef'' af,] ~ af af4 af8 |
% 8
	[af df,_>] [bf' bf,_>]
		[<c' af f> af,_>] <df'\arpeggio f, bf,> <ef bf ef,> |
	[c f,] [b e,] <af' c, ef,> s s4 |
% 10
	\stemUp df,,,4 ~ df8 s s4 |
	ef4 ~ ef8 s s4 |
% 12
	\oneVoice <af' c,> <a\arpeggio f,> <bf,2 bf,> |
	ff4( ef8. df16 )c4 <cf'8 cf,> <bf bf,> |
% 14
	\voiceTwo \grace af,8( )ef''8 af, ~ af2. |
	af8 af4 af4 bf8 s4 |
% 16
	af2 ~ af4 s |
	[f''8 c] [d c] [e c] s4 |
% 18
	[f8 c] [g' c,] [e c] s4 |
	s1 |
% 20
	s1 |
	[f8 c] [d c] [e c] s4 |
% 22
	[f8 c] [g' c,] [e c] s4 |
	s2 af8 g \times 2/3 { f8 af g } |
% 24
	s1 |
	\oneVoice df,4 ~ df8 s s4 |
% 26
	ef4 ~ ef8 s s4 |
	\oneVoice <af' c,> <a\arpeggio f,> <bf,2 bf,> |
% 28
	ff4( ef8. df16 )c4 <cf'8 cf,> <bf bf,> |
	\voiceTwo \grace <af8( af,> <)c'8 af ef> <ef,^> af,> ~ af,2. |
% 30
	af8 af4 af af8 s4 |
	ef'8 af,_> ~ af2. |
% 32
	f'8 bf, s4 s af'8 bf |
	[c af] [bf af] [c af] ~ af4 |
% 34
	[bf8 f] [gf g] [af f] [ff( )ef] |
	af,4_> ef'' bf c |
% 36
	s2. \stemUp<f4 af, d,> |
	s1
% 38
	s1 | s | s | s |
% 42
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
	s4\mf s4\< \!s8 s8\> s8 \!s8 |
	s4\mf\> \!s4 s4\> s8 \!s8 |
% 3
	s4\mf s4\< \!s8 s8\> s8 \!s8 |
	s4\> s8 \!s8 s4\p\< s8 \!s8 |
% 5
	s4\mf\< s8 \!s8 s2 |
	s8\f s8\> s4 s4 s8 \!s8 |
	s4\p s4\< \!s4\mf s4 |
% 8
	s8 s8\< s2. |
	\!s4\f s4\< \!s4 s4 |
% 10
	s2. | s4. s8\f s4 |
% 12
	s8 s8_"dim." s4 s8 s8_\p s8_"poco rit." s8 |
	s4_" "_"cresc." s4 s4 s8\< \!s8 |
% 14
	s4\f s4 s4\> s8 \!s8 |
	s4\mf\> \!s4 s8 s8_"poco rit." s4\> |
% 16
	\!s8 s8 s4 s4 s8\< s16 \!s |
	s8\mf s8_"poco marcato il canto" s4 s2 |
% 18
	s4\< \!s4\> \!s4 s4 |
	s2 s4\< s8 s16 \!s16 |
% 20
	s2 s4_"dim." s4 |
	s4\mf s4 s2 |
% 22
	s4\< \!s4\> \!s4 s4 |
	s4\f s4^"dim." s2 |
% 24
	s2 s8\p s8\mf s^"cantando" s |
	s2. |
% 26
	s4 s8 s8\f s4 |
	s8 s8_"dim." s4 s8 s8_\p s8_"poco rit." s8 |
% 28
	s4_" "_"cresc." s4 s8 s8\< s8 \!s8 |
	s4\ff s2. |
% 30
	s4\mf s4 s16 s16\> s8 s8 \!s8 |
	s4\p s8.\< \!s16 s4\> s8 \!s8 |
% 32
	s2 s4\< \!s4 |
	s1\mf 
% 34
	s4\f s4\> s4 \!s4 |
	s4\mf s8 s8^"cresc." s2 |
% 36
	s4\f s4_"allargando" s2 |
	s8\ff s8\f\> s8 \!s8 s8\mf s8\> s8 \!s8 |
% 38
	s1\p |
	s8 s8\p s8\> s8 s4 \!s4^"poco rit." |
	s2\pp s |
	s1 |
% 42
}

pedal = \notes {
% 1
	s2\Down s8 s8\Up s4\Down |
	s8\Up\Down s8\Up s4 s8\Down s8\Up s4 |
% 3
	s2\Down s8 s8\Up s8\Down s8\Up |
	s2 s4\Down s8\Up s8 |
% 5
	s1 |
	s |
	s2\Down s8\Up s8\Down s8 s8\Up |
% 8
	s4\Down s4\Up\Down s4\Up\Down s8\Up\Down s8\Up\Down |
	s4\Up\Down s4\Up\Down s8\Up\Down s8\Up s4 |
% 10
	s4 s8\Down s8\Up s4 |
	s4 s8\Down s8\Up s4 |
% 12
	s2 s4\Down s4\Up |
	s1 |
% 14
	s4\Down s4 s4 s4\Up\Down |
	s8\Up\Down s8\Up s4 s8\Down s8\Up s4 |
% 16
	s2.\Down s4\Up |
	s2 s4\Down s8 s8\Up |
% 18
	s2 s4\Down s8 s8\Up |
	s1 |
% 20
	s4\Down s\Up\Down s\Up\Down s\Up\Down
	s2 s4\Up\Down s8 s8\Up |
% 22
	s2 s4\Down s8 s8\Up |
	s4\Down s8 s8\Up s2 |
% 24
	s2 s8\Down s\Up s4 |
	s4 s8\Down s\Up s4 |
% 26
	s4 s8\Down s\Up s4 |
	s2 s4\Down s\Up |
% 28
	s1 |
	s2\Down s8 s\Up s\Down s\Up |
% 30
	s8\Down s\Up s4 s8\Down s\Up s4
	s2\Down s8 s8\Up s8\Down s8\Up |
% 32
	s2 s4\Down s\Up |
	s1 |
% 34
	s1 |
	s4\Down s8. s16\Up s4\Down s4\Up\Down |
% 36
	s8\Up\Down s\Up s\Down s\Up s\Down s\Up s\Down s\Up |
	s1\Down
% 38
	s4\Up\Down s\Up\Down s2\Up\Down |
	s2 s4 s8 s\Up\Down |
	s2\Up\Down s2\Up\Down |
	s2\Up\Down s4 s8 s8\Up |
% 42
}

outline = \notes {
	s1 | s |
	s1 | s |
	s1 | s | s |
	s1 | s |
	s2. | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s2. |
	s2. | s1 |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s |
	s1 | s | s | s |
}

\score {
\context PianoStaff <
\pianoAccidentals
\followOn\followOff
\joinArpeggios
\context Staff=upper < \global \Tempo 
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
	\mergeDiffDots
	\context Voice = one \upperOne
	%{ \context Voice = two \dynamics %}
	\context Voice = two \upperTwo
	>
\context Dynamics=dynamics \dynamics
\context Staff=lower <
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
      \clef bass \global
      \mergeDiffDots
      \context Voice = three \lowerOne
      \context Voice = four \lowerTwo
    >
    \context Dynamics=pedal \pedal
  >
  \paper {
    textheight = 10.35\in
    \translator {
      \type "Engraver_group_engraver"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver"
      
      minimumVerticalExtent = #'(-1 . 1)
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalSustainStrings = #'("Ped." "Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "Dynamic_engraver"
      \consists "Text_engraver"

      TextScript \override #'font-relative-size = #1
      TextScript \override #'font-shape = #'italic
      DynamicText \override #'extra-offset = #'(0 . 2.5)
      Hairpin \override #'extra-offset = #'(0 . 2.5)
      DynamicTextSpanner \override #'extra-offset = #'(0 . 2.5)

      \consists "Skip_req_swallow_translator"

      \consistsend "Axis_group_engraver"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
      VerticalAlignment \override #'forced-distance = #6
    }
  }
  \midi {
    \tempo 4 = 54
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}