I am using the "Piano template with centered dynamics" to engrave existing
music to improve its quality for using it in MusicReader (a program to show
and handle sheets on a computer screen).
I have been busy quiet some time to engrave Scarlatti's Sonate L345.
I took the template, and split both staffs into two voices to enable what
the sonata needed.
Now, all notes, slurs, finger settings, etc. are rather good looking, but I
have a few questions.
Maybe someone can advise me. I include the Lilypond file.
1. The template makes it rather easy to add dynamics, including cresc.
My current result however doesn't vertically align objects like p,f and the
cresc text and lines (e.g. bar 11 - 15). What to do about that?
2. I had to adjust a lot of finger settings by using _ and ^, although
I tried the \set fingerPositions (as told in the Reference) at several
locations.
Where should such a setting be done to be effective?
3. Can the same be done to force globally signs like . and > to above
or below?
4. The (horizontal) position of dynamic signs appear to be
inconsistent (e.g. compare the p in bar 21 after 2 s8's and the f in bar 27
after a s4).
How can those signs be positioned better?
5. Is it possible to add e.g. rall. (at the end) to the dynamics,
inorder to align with those?
T.I.A.
MasterMD
\version "2.12.3"
\header {
title = "Sonate L345"
composer = "D. Scarlatti"
}
\paper {
#(set-paper-size "a4")
paper-width = 20\cm
paper-height = 23\cm
top-margin = 1.5\cm
bottom-margin = 1.5\cm
ragged-last-bottom = ##t
}
global = {
\key a \major
\time 4/4
\compressFullBarRests
\tempo "Allegrissimo" 2=120
}
upper = \relative c'' {
\global
<< \new Voice = "upper1" {
%1
r4 cis8-3( a-1 <cis^2 e-4-.>4) <d^1 fis-5-.> |
<cis-2 e-4-.>4 cis,-2-. d-. e-. |
%3
a,4-. cis'8-3( a <cis^2 a'-5-.>4) <d^1 b'-5-.> |
<a'-5 cis,^4>4 cis,,-. d-. e-. |
%5
a,4-. cis'8-2( a e' cis a <d^3 fis-5> |
<e-4 cis^2>4) cis,-. d-. e-. |
%7
a,4-. cis'8-2( a a' cis, d-1 b' |
<a-4 cis,^1>4) cis,,-. d-. e-. |
%9
a,8-. \phrasingSlurUp e'-4\( cis-2 a-1 fis'-3 d-1 gis-4 e-2 |
a8-5 e-3 cis a fis'-4 d gis e |
%11
a8 e cis a\) a'4-4\( \stemUp b-5 |
cis4-5\) r4 a-4\( b-3 |
%13
cis8-4 e cis-3 a-1\) \stemDown fis'\( d gis e |
a8 e cis a fis' d gis e |
%15
a4\) s2 s4 |
a4\rest \stemUp a2-4\( b4-5\) |
%17
\stemDown a8-5-.\( cis,-2 b a-2\) a'-.\( b,-1 a-3 gis-2\) |
a'8-5-.\( cis,-2 b a-2\) a'-.\( b,-1 a-3 gis-2 |
%19
\stemUp a4-1-.\) \stemDown <cis^3 e-5>2\( <b d>4 |
<cis a>4\) b2-2\( \stemUp a4 |
%21
gis8-3\) b-5\( gis-2 e \stemDown cis'-3 a-1 dis b |
e8 b gis e cis' a dis b |
%23
e4-.\) <b^2 gis'-5>2\( <a fis'>4 |
<gis e'-.-3>4\) <b gis'>2\( <a fis'>4\) |
%25
\stemUp \phrasingSlurDown e'8-.-5\( gis,-3 fis e\) e'-.\( fis,-2 e dis-2\) |
e'8-.\( gis, fis e\) e'-.\( fis, e dis\) |
%27
e8\( e' f,-1 d'-4 e,-1 cis'-5 d,-1 b'-4 |
e,8-1 c'-5 d,-1 b'-4 c,-1 a'-5 b,-1 gis'-4 |
%29
a4-.-5\) \phrasingSlurUp <b-4 gis^2 >\( <c-5 a^3> <d-3 b^1> |
\stemDown <e c>4 <f-5 gis,^1> <e-4 a,^1> <d-3 b^2>\) |
%31
\phrasingSlurDown c8_5\( a_3 e_1 c'_5 b_4 g_2 e b'_5 |
a8 f d a'_5 g e c g'_5 |
%33
f8 d b f'_5 e c a e'_5 |
d8 b_2 gis d'_4 c e a, c_4 |
%35
\stemUp b8\) e, gis\( b e b_1 gis'_4 e_1 |
\stemNeutral e'4-5\) \phrasingSlurUp b2-4\( a4 |
%37
\stemNeutral gis8\) e\( gis b e b-1 gis'-4 e-2 |
b'4-5\) b2-5\( a4~ |
%39
a8 gis fis e gis-3 fis e dis-2 |
e8-1 gis-3 fis e dis-4 cis b a |
%41
gis8_3 a b a gis fis e dis_2 |
\stemDown e8-.\) \phrasingSlurDown g_3\( fis g b a g fis |
%43
g8_1\) g_3\( fis g b a g fis |
g8 fis g a b f_1 a_3 gis |
%45
a8 e_1 a c_5 b f_1 e_2 d |
a'8_5 dis,_2 e_1 a_5 g_4 e_2 fis_3 dis_1 |
%47
<g-4 e^2>8 b, <a' fis> c, <g' e> b, <fis'-2 dis> b, |
<g' e>8 b, <a' fis> c, <g' e> b, <fis' dis> b, |
%49
<g'-5 e^2>8\) b_4\( g_2 e_1 c' a e c' |
b8 g e b' a fis_2 dis a'_5 |
%51
g8 e c a'_4 b fis_2 d fis |
b8 e, c a'_4 b fis_3 dis b\) |
%53
\stemUp \phrasingSlurUp b'8-5\( a g fis g e a fis |
g8 e fis_4 dis_2\) \stemDown \phrasingSlurDown e-1\( b'-4 g e |
%55
c'8 a e c' b g e b' |
a8 fis_2 dis a' g e c g'_3 |
%57
fis8 d b fis' e c a e' |
\stemUp dis8 b dis fis b a g fis |
%59
g8 e a fis g e fis_4 dis_2 |
\stemDown e8-3\) b-1\( gis'_4 e_2 fis_3 dis_1 a'_4 fis_2 |
%61
gis8_3 e_1 b' e, fis_2 dis_1 a'_4 fis |
gis8 e b' e, fis dis a' fis |
%63
\stemUp gis8 a b a gis fis e dis_2 |
\stemDown e8-3 b gis' e fis dis a' fis |
%65
gis8 e b' e, fis dis a' fis |
gis e b' e, fis dis a' fis |
%67
\stemUp gis8 a b a gis fis e dis-3 |
\stemDown e8-5\) \clef bass \phrasingSlurUp b-2\( cis a-1 gis-2 e' fis,-1 dis'-4 |
%69
e8 b gis e\) e2^\markup { \finger "(23232)" } \prall |
\clef treble \bar ":|:"
\stemUp r8 e'-1\( fis e gis e a e |
%71
b'8 e, gis-2 e a e b' e, |
cis'8 e, gis e a e b' e, |
%73
cis'8 e, gis e a e b' e, |
\stemDown cis'8-5\) a-1\( b-2 a cis a d a |
%75
e'8 a, cis-2 a d a e' a, |
fis'8 a, cis a d a e' a, |
%77
fis'8 a, cis a d a e' a, |
fis'8-5\) \phrasingSlurDown a,_1\( d_2 a e' a, g' a, |
%79
fis'8 a, d a e' a, g' a, |
fis'8 a, e' a, dis b a' b, |
%81
gis'8 b,e b fis' b, a' b, |
gis'8 b, e b fis' b, a' b, |
%83
gis'8-4 f-3 e d c-3 b a gis-2 |
a8-1\) \phrasingSlurUp a'-4\( gis a b d,-1 c-3 b-2 |
%85
c8-1 f-5 e d c b a-3 gis-2 |
a8-1\) a'\( gis a b d, c b |
%87
c8-1 a'-5 b,-1 g'-4 a,-1 f'-5 g,-1 e'-4 |
\stemNeutral f,8 d'-5 e, c'-4 d, b'-5 c, a'-4 |
%89
b8 a gis fis e4-.\) e'^>~\( |
e8 d c b \stemDown a4-.\) a'^>~\( |
%91
a8 g f e d4-.\) b'^>~\( |
b8 a gis fis e4.\) gis8-2\( |
%93
a8-1 b c d c b a gis-3 |
a8-5 f-3 e d c-3 b a gis-2 |
%95
a8-1 b c d \stemDown c b a gis |
a8_3\) \phrasingSlurDown e_1\( c'_5 a_3 b_4 g e b'_5 |
%97
a8 f d a' g e c g' |
f d b f' e c a e' |
%99
d8 b g d' c a f c' |
e8 b g b e a, f d' |
%101
\stemNeutral e8 b-3 gis-2 b-3 e4-.-5\) gis-.-2 |
\stemDown \phrasingSlurUp a8-1\( b c d c b a gis |
%103
a8\) \phrasingSlurDown e\( c' a b g e b' |
a8 f d a' g e c g' |
%105
f8 d b f' e c a e' |
d8 b g d' c a f c' |
%107
e8 b g b e a, f d' |
\stemNeutral e8 b gis b e4-.\) gis-. |
%109
\stemDown \phrasingSlurUp a8\( b c d c b a gis |
a8\) \phrasingSlurDown e\( cis' e, b' e, d' e, |
%111
cis'8 e, a e b' e, d' e, |
cis'8 e, a e b' e, d' e, |
%113
cis'8_3 d e d cis b a gis_2 |
a8_3\) e\( cis' e, b' e, d' e, |
%115
cis'8 e, a e b' e, d' e, |
cis'8 e, a e b' e, d' e, |
%117
cis'8 d e d cis b a gis |
\stemNeutral a8-5\) \phrasingSlurUp e_2\( fis d_1 cis_2 a' b, gis'_4 |
%119
a8 e cis a b-2 d-1 e-2 gis-4 |
a8 e cis a b d e gis |
%121
a8 e cis a b d e gis\) |
\grace gis4-4 <a e cis>1 \arpeggio |
\bar ":|"
} \\
\new Voice = "upper2" {
%1
s1*10
%11
s2 \stemDown \phrasingSlurDown fis8-2\( d gis-3 e |
a8-4 e_1 cis_2 a\) fis'-2 d gis e |
%13
a4-2 s2 s4 |
s1 |
%15
s4 e'2-3\( d4-2 |
cis2-1 d-1\) |
}
>>
}
lower = \relative c {
\global
<< \new Voice = "lower1" {
%1
s1*30
%31
s4 \change Staff = "upper" \stemUp
a'''-.-2 s g-2-. |
%33
s4 f-. s e-. |
s4 d-. s c-. |
%35
s4 b-. s a-. |
s1*7
%42
s4 \phrasingSlurUp b'-3\( c-2\) s |
%43
s4 b\( c\) s |
s4 c\( b\) s |
%45
s4 c\( b\) s |
s4 a\( g\) s |
%47
s4 a\( g\) s |
s4 a\( g\) s |
%49
s4 b^. s c^. |
s4 b^. s a^. |
%51
s4 g^. s fis^. |
s4 e^. s dis^. |
%53
\change Staff = "lower" b,4\rest b2\( a4 |
b4\) s2 \change Staff = "upper" b''4^. |
%55
s4 c^. s b^. |
s4 a^. s g^. |
%57
s4 fis^. s e^. |
s1 |
%59
s1 |
s4 b'^.-2 s2 |
%61
s4 b^. s2 |
s4 b^. s2 |
%63
s1 |
s4 b^. s2 |
%65
s4 b^. s2 |
s4 b^. s2 |
s1*11
%78
s4 a s2 |
%79
s4 a^. s2 |
s4 a^. s2 |
%81
s4 b^. s2 |
s4 b^. s2 |
s1*13
%96
s4 c^.^2 s b^. |
%97
s4 a^. s g^. |
s4 f^. s e^. |
%99
s4 d^. s c^. |
s4 b^. s a^. |
%101
s1*2
%103
s4 c'^. s b^. |
s4 a^. s g^. |
%105
s4 f^. s e^. |
s4 d^. s c^. |
%107
s4 b^. s a^. |
s1*2
%110
s4 a'^. s2 |
s4 a^. s2 |
s4 a^. s2 |
%113
s1 |
s4 a^. s2 |
%115
s4 a^. s2 |
s4 a^. s2 |
%117
s1*4 |
%121
\change Staff = "lower" s4^\markup{ \italic rall. } s2. |
s1
} \\
\new Voice = "lower2" {
\relative c
%1
r1 |
r4 <cis,,, cis,-.> <d d,-.> <e e,-.> |
%3
<a, a,-.>4 r4 r2 |
r4 <cis cis,-.> <d d,-.> <e e,-.> |
%5
<a, a,-.>4 r4 r2 |
r4 <cis cis,-.> <d d,-.> <e e,-.> |
%7
<a, a,-.>4 r4 r2 |
r4 <cis cis,-.> <d d,-.> <e e,-.> |
%9
<a, a,-.>4 r4 r2 |
<a a,>4 r4 r2 |
%11
<a a,>4 r4 r2 |
<a a,>4 r4 r2 |
%13
<a a,>4 r4 r2 |
<a a,>4 r4 r2 |
%15
\clef treble
r8 e''-2( cis-3 a-5 fis'-1 d-5 gis-2 e-4 |
a8-1 e cis a fis' d gis e |
%17
a4-.) cis,-1( d e |
a4-.) cis,( d e) |
%19
\clef bass
r8 e,_2( cis_3 a_5 fis'_1 d_5 gis_2 e_4 |
a8_1 e_5 b'_2 e, cis'_1 e, dis' e, |
%21
e'4-.) e,_5( a_2 fis_4 |
gis_3 e a fis |
%23
gis8) b(_2 gis_3 e_5 cis'_1 a_5 dis_2 b_4 |
e_1 b gis e cis' a dis b |
%25
e4-.) gis,( a b |
e-.) gis,( a b |
%27
e,4-.) r4 r2 |
r1 |
%29
r8 f4_4( d'8 e,_5 c'_1 d,_4 b' |
c,8_5 a'_1 d,_4 b' c,_5 a'_1 b,_4 gis' |
%31
a,4) s \stemDown g'_5-. s |
f4-. s e-. s |
%33
d4-. s \stemNeutral c-. s |
b4-. s a-. s |
%35
e4-. r r2 |
r8 b''_2( gis_3 e_5 cis'_1 a_5 dis_2 b_4 |
%37
e8-._1) r r4 r2 |
\clef treble r8 b'( gis e cis' a dis b |
%39
e4-.) \phrasingSlurDown gis,\( a b |
\stemDown e,8-.\) e'( \stemNeutral dis cis b a gis fis |
%41
e4-.) \clef bass \stemDown a,_2( b \stemUp b, |
\stemDown e4_2) s s dis_5( |
%43
e4) s s dis( |
e4) s s d_4( |
%45
\stemNeutral c4) s s d( |
c4) s s \slurDown b( |
%47
e4) s s b( |
e4) s s b( |
%49
\stemDown e4-.) s a-. s |
g-. s fis-. s |
%51
e4-. s d-. s |
\stemUp c-. s b-. s |
%53
b4\rest \stemDown \phrasingSlurDown dis_5\( e a_2 |
b4\) \stemNeutral b,-. g'-._1 s |
%55
a4-._5 s g-. s |
fis-. s e-. s |
%57
d4-. s c-. s |
b4-._5 b2_4\( dis4-2 |
%59
e4 a_2 b\) b,-. |
e4-._3 s b2->( |
%61
e4-.) s b,2->( |
e4-.) s b2->( |
%63
e4-.) \phrasingSlurUp a'\( b b, |
e4-.\) s b2->( |
%65
e4-.) s b,2->( |
e4-.) s b2->( |
%67
e4-.) a'\( b b, |
e4-.\) a,-5( b b,) |
%69
e2-> r2 |
\bar ":|:"
e4 r r2 |
%71
e'4-.-3 <e d'-.> <e cis'-.-2> <e b'-.-1> |
<e a-.-3>4 <e d'-.> <e cis'-.> <e b'-.> |
%73
<e a-.-3>4 <e d'-.> <e cis'-.> <e b'-.> |
<a a,>4 r r2 |
%75
a4-.-3 <a_5 g'-._1> <a fis'-.-2> <a e'-.-1> |
<a d-.-3>4 <a g'-.> <a fis'-.> <a e'-.> |
%77
<a d-.>4 <a g'-.> <a fis'-.> <a e'-.> |
\stemNeutral d4-. s a,2->( |
%79
d4-.) s a2->( |
d4-.) s b2->( |
%81
e4-.) s b2->( |
e4-.) s b2->( |
%83
e4-.) r r r8 e'_2\( |
f4 d_5 gis_2 e_4 |
%85
a4-.\) d,2_5\( e4 |
f4 d gis e |
%87
a4-.\) e_3\( f c_5 |
d4_1 a_2 f a |
%89
e4-.\) e'4.->\( d8 c b |
a4-.\) \clef treble a'4.->( g8 f e |
%91
d4-.) d'4.->\( c8_2 b_3 a_4 |
e4-._5\) e'4._1->\( d8_2 c_3 b_4 |
%93
a4-.\) \phrasingSlurDown d,-2\( e \clef bass e,-3 |
a,4-.\) \phrasingSlurUp a'2\( e4_3 |
%95
f4 d_4 e_1 e, |
a4-._3\) s g'-._5 s |
%97
f-. s e-. s |
d-. s c-. s |
%99
b4-. s a-. s |
g4-. s f-. s |
%101
e4-. e'4.->\( \stemDown d8 c b |
c4 d e \stemNeutral e, |
%103
a4\) s g'-. s |
f-. s e-. s |
%105
d4-. s c-. s |
b4-. s a-. s |
%107
g4-. s f-. s |
e4-. e'4.->\( \stemDown d8 c b |
%109
c4 d e \stemNeutral e, |
a4-.\) s e2->( |
%111
a4-.) s e2->( |
a4-.) s e2->( |
%113
a4-.) d\( e e, |
a4-.\) s e2->( |
%115
a4-.) s e2->( |
a4-.) s e2->( |
%117
a4-.) d\( e e, |
a4-.\) d\( e\) e,-. |
%119
a2 r2 |
a2 r2 |
%121
a2 r2 |
<a cis e a>1 \arpeggio |
\bar ":|"
}
>>
}
dynamics = {
%1
s4 \f s2. |
s1*7
%9
s8 s \p s2. |
s1
%11
s8 \cresc s s2. |
s1 |
%13
s8 \mf s8 \cresc s2. |
s1 |
%15
s4 \f s2. |
s1*5
%21
s8 s8 \p s2. |
s1 |
%23
s8 \cresc s s2. |
s1*3
%27
s4 \f s \dim s2 |
s1 |
%29
s4 \p s2. |
s4 \cresc s2. |
%31
s4 \f s2. |
s1*3
%35
s4 \p s2. |
s8 \cresc s s2. |
s1 |
%38
s4 \f s2. |
s1*3
%42
s4 \mf s2. |
s1*6
%49
s4 \f s2. |
s1*4
%54
s2 s4 \p s |
s1*9
%64
s4 \f s2. |
s1*5
%70
s4 \p s2. |
s1*3
%74
s4 \mf s2. |
s1*3
%78
s4 \f s2. |
s1*8
%87
s4 \dim s2. |
s1 |
%89
s16 \p s \cresc s8 s2. |
s1*3
%93
s4 \f s2. |
s1*9
%103
s4 \p s2. |
s1*10
%114
s4 \f s2. |
s1*6
%121
s1
s1
}
pedal = {
}
\score {
\new PianoStaff <<
\new Staff = "upper" \upper
\new Dynamics = "dynamics" \dynamics
\new Staff = "lower" <<
\clef bass
\lower
>>
\new Dynamics = "pedal" \pedal
>>
\layout {
\context {
\type "Engraver_group"
\name Dynamics
\alias Voice % So that \cresc works, for example.
\consists "Output_property_engraver"
\override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
pedalSustainStrings = #'("Ped." "*Ped." "*")
pedalUnaCordaStrings = #'("una corda" "" "tre corde")
\consists "Piano_pedal_engraver"
\consists "Script_engraver"
\consists "Dynamic_engraver"
\consists "Text_engraver"
\override TextScript #'font-size = #2
\override TextScript #'font-shape = #'italic
\override DynamicText #'extra-offset = #'(0 . 2.5)
\override Hairpin #'extra-offset = #'(0 . 2.5)
\consists "Skip_event_swallow_translator"
\consists "Axis_group_engraver"
}
\context {
\PianoStaff
\accepts Dynamics
% \override VerticalAlignment #'forced-distance = #7
}
}
}
\score {
\new PianoStaff <<
\new Staff = "upper" << \upper \dynamics >>
\new Staff = "lower" << \lower \dynamics >>
\new Dynamics = "pedal" \pedal
>>
\midi {
\context {
\type "Performer_group"
\name Dynamics
\consists "Piano_pedal_performer"
}
\context {
\PianoStaff
\accepts Dynamics
}
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
