Hi Francisco
Not a bad suggestion. I've tried to fix the
issues you mentioned - still not perfect, but
better. Revised code attached.
Trevor
----- Original Message -----
From: "Francisco Vila" <[EMAIL PROTECTED]>
To: "Patrick McCarty" <[EMAIL PROTECTED]>
Cc: "Trevor Daniels" <[EMAIL PROTECTED]>; "lilypond-user"
<[email protected]>
Sent: Saturday, August 02, 2008 2:29 AM
Subject: Re: NR 1.3 Expressive marks, second draft
2008/8/1 Patrick McCarty <[EMAIL PROTECTED]>:
I'll leave the headword untouched for now, but I agree that an excerpt
with a larger variety of `expressive marks' would be nice. Any
volunteers?
If you like this Schumann excerpt, use it. Some things can be improved:
- \sf should be always inside the slur
- the first 3 chords of RH in bar 6, should be on lower staff
- sustainOn and matching sustainOff should be on the same baseline
- fingerings should use the space just over the notehead
- slur endings could be lower if the latter were achieved
http://www.paconet.org/inspirational-schumann.pdf
--
Francisco Vila. Badajoz (Spain)
http://www.paconet.org
\version "2.11.54"
% Schumann, Op.4, I, 11 last measures
#(set-global-staff-size 18)
rone = \relative c { \override Voice.Fingering #'avoid-slur = #'inside
\oneVoice R2.
R2.
\clef bass \voiceOne cis4(
\once \override DynamicText #'extra-offset = #'(-1.5 . -4.5)
d'^\sf <cis-4>8.. b32) \clef treble
<ais-1-2>4( <g'-5 e-3>\sf <fis-4 d-1>8.. <e-5 cis-3>32
<d b>8.. <cis a!>32 \clef bass <b -3-5>4 b \clef treble
\change Staff = "LH"
<a e cis>8..)^\ff ( <a d,>32 <a e>8)
\change Staff = "RH"
<a b>_. \p <cis a>_. <d a>_.
<e b>8_. <fis cis>_.\< <gis d>_. <a e>_. <b fis>_. <b e,>_.
<cis a cis,>8.._([ \ff -4 <d a d,>32 <e a, e>8) <b fis>_. \p <cis gis>_. <d a>_. ]
\oneVoice \crescTextCresc <e b>8-. \< <fis cis>-. <gis d>-. <a e>-. <b fis>-. <b e,>-.
<cis-4 a cis,>8.. \ff ( [ <d a d,>32 <e a, e>8) <gis, d>_> ( <a cis,>) <gis d>_> ( ]
<a cis,>8-.) r <a, cis,>4._> r8 \fermata \bar"|."
}
rtwo = \relative c { s2. s2. s4 fis g <fis_1> s4 s
s4 gis8.. <a fis>32 <gis e>8.. <fis d!>32 }
lone = \relative c, { cis4 \f (
\once \override DynamicText #'extra-offset = #'(-0.5 . 4)
d' \sf cis8.. b32
\once \override NoteColumn #'force-hshift = #1.5
<a>8.. gis32 fis4 eis)
fis8..( e!32 d4 e
fis8.. gis32 ais4 b8.. cis32
d8.. dis32 e8-.) r \oneVoice e,4
\stemDown
\override Staff.SustainPedalLineSpanner #'Y-extent = #'(0 . 0)
\override Staff.SustainPedalLineSpanner #'staff-padding = #'10
<a a,>8.. (\sustainOn <b b,>32 <cis cis,>8 ) \sustainOff <d d,>-. <e e,>-. <fis fis,>-.
\stemNeutral <gis gis,>8-. <a a,>-. <a b,>-. <a cis,>-. <a d,>-. <gis e>-.
\override Staff.SustainPedalLineSpanner #'staff-padding = #'6
<a a,>8.. ( [ \sustainOn <b b,>32 <cis cis,>8 ) \sustainOff <d d,>-. <e e,>-. <fis fis,>-. ] \clef treble
<gis gis,>-. <a a,>-. <a b,>-. <a cis,>-. <a d,>-. <gis e>-.
<a a,>8.. ( [ \sustainOn <b b,>32 <cis cis,>8 ) e,( \sustainOff <a a,>) e( ]
<a a,>8-. ) \sustainOn r \clef bass <e,, a,>4. r8 \sustainOff \fermata
}
ltwo = \relative c, { R2. cis4(^\markup{\italic "R."} d'^\sf cis8.. b32
a4) a g8.. d'32
cis4.. fis16~ fis4~
fis4
}
common = { \time 3/4 \key a \major }
\new PianoStaff <<
\new Staff = "RH" { \common << {\rone} \\ {\rtwo} >> }
\new Staff = "LH" { \common \clef bass << {\ltwo} \\ {\lone} >> }
>>
\paper { system-count = 2 }
\layout {
\context {
\Staff
\override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 3)
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
