-\version "2.5.13"
+\version "2.13.4"
\header {
composer = "ARTHUR GRAY"
http://www.orphee.com/comparison/study.html, see
http://www.orphee.com/comparison/gray.pdf
-
-lines that contain tweaks (14 currently, not counting reverts) are
+Lines that contain tweaks (10 currently, not counting reverts) are
marked with %tweak
possibly more impressive to render without tweaks?
%}
-#(define (make-text-checker text)
- (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
-
-
treble = \new Voice \relative c''{
\key a \major
r2
\change Staff=bass
- \once\override TextScript #'extra-offset = #'(-3 . -4) %tweak
-
- cis,16^2(^\markup {\small \italic "m.d." }\sustainUp
+ cis,16^2(^\markup {\small \italic "m.d." }\sustainOff
<fis fis,>8 <e! e,!>
| %4
- <dis, a' dis>4)\sustainDown
-
+ <dis, a' dis>4)\sustainOn
+
\change Staff=treble
-
+
\slurUp
\set PianoStaff.connectArpeggios = ##t
- #(set-octavation 1)
+ \ottava #1
- \once\override TextScript #'extra-offset = #'(-3 . -2) %tweak
-
\tieUp
cis''''4^\markup { \small \italic "m.g." }\arpeggio~
\grace {
cis8
- \override Stem #'direction = #CENTER
-
+ \revert Stem #'direction
+
a16[-5_( fis dis]
- #(set-octavation 0)
-
+ \ottava #0
+
cis32[ a-1 fis-4 dis] cis[ a fis)-2]
% the small grace in lower staff comes after us
s32
| %5
r8 <a' a,>8(\mf <gis gis,> <fis fis,>
-
+
% \fingerUp
- \override Fingering #'direction = #1
-
- % Manual fix for collision with slur
- \override Fingering #'inside-slur = ##f %tweak
+ \override Fingering #'direction = #UP
+
<gis gis,> <fis fis,> e)-1-4-5 r
| %6
r <a a,>8(\mf <gis gis,> <fis fis,>
<gis gis,> <fis fis,> e) r
-
+
| %7
\bar "||"
}
\stemDown
\slurDown
% \fingerDown
- \override Fingering #'direction = #-1
+ \override Fingering #'direction = #DOWN
s2
| %1
s1*2
<e, gis, e d!>2
| %5
s8 cis4. d4
+ % fair to count as one tweak?
\override Fingering #'add-stem-support = ##t %tweak
- \override Fingering #'padding = #0.1 %tweak
+ \override Fingering #'padding = #0.15
+ \override Fingering #'slur-padding = #0.1
<cis e,>8[( <d,_3 b'_1>
| %6
- <cis_1 a'_2>)] cis'4. d4
+ <cis_1 a'_2>)] cis'4. d4
<cis e,>8[( <b d,>
| %7
<a cis,>)]
bass = \new Voice \relative c{
\partial 2
\key a \major
-
+
\slurDown
\dynamicUp
r8. e,16(\f_2 <a a,>8[ <b b,>]
| %2
- \override Staff.SustainPedalLineSpanner #'staff-padding = #5 %tweak
-
- <cis cis,>4\sustainDown
+ %\override Staff.SustainPedalLineSpanner #'staff-padding = #5 %tweak
+
+ <cis cis,>4\sustainOn
\change Staff=treble
\stemDown
<a'' eis cis>4)\arpeggio
-
+
\change Staff=bass
\stemNeutral
-
- r8. cis,,16(\sustainUp <fis fis,>8 <gis gis,>
-
+
+ r8. cis,,16(\sustainOff <fis fis,>8 <gis gis,>
+
| %3
- \override Stem #'length = #5 %tweak
- <a a,>4\sustainDown
+
+ <a a,>4\sustainOn
\change Staff=treble
-
- \revert Stem #'length %tweak
- \revert Stem #'direction
- \override Stem #'direction = #-1
+
+ \stemNeutral
+ \stemDown
<a' fis cis>)\arpeggio
\change Staff=bass
- \revert Stem #'direction
+ \stemNeutral
r2
-
+
| %4
\stemDown
<b,, b,>4
%urg: staff-change: ! on dis
<cis'' a fis dis!>\arpeggio
>>
-
+
\grace {
\override Stem #'stroke-style = #"grace"
-
+
s8
s16 s s
s32 s s
s s s
\clef bass
- <e,,, e,>32(\sustainUp\sustainDown
-
+ <e,,, e,>32(\sustainOff\sustainOn
+
\revert Stem #'stroke-style
}
<gis' e>2)
-
+
| %5
\slurUp
-
+
% \fingerDown
- \override Fingering #'direction = #-1
+ \override Fingering #'direction = #DOWN
+
-
- \override Staff.SustainPedalLineSpanner #'staff-padding = #3.5 %tweak
+ %\override Staff.SustainPedalLineSpanner #'staff-padding = #3.5 %tweak
\set Staff.pedalSustainStyle = #'mixed
%%a,8 e'[-5(<a-2 cis-3>])
-
- a,8\sustain
Down e'[-5(<a cis>])-2-3
+
+ a,8\sustain
On e'[-5(<a cis>])-2-3
%%r b,-5 <e-3 gis-5 d'>4
- r b,-5\sustainUp\sustainDown <e gis d'>4-3-5
+ r b,-5\sustainOff\sustainOn <e gis d'>4-3-5
\slurNeutral
- \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
- e,8[-5(\sustainUp
-
+ e,8[-5(\sustainOff
+
| %6
- \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
- a)-2]\sustainDown
+ a)-2]\sustainOn
\slurUp
- e'[(<a cis>)] r b,\sustainUp\sustainDown <e gis d'>4
+ e'[(<a cis>)] r b,\sustainOff\sustainOn <e gis d'>4
\slurNeutral
- e,8[(\sustainUp
-
+ e,8[(\sustainOff
+
| %7
a)]
}
}
middleDynamics = {
- \override Dynamics.TextScript #'padding = #-1 %tweak
+ %\override Dynamics.TextScript #'padding = #-1 %tweak
s2
s1*2
| %4
s8
s16 s s
s32 s
- \once\override Dynamics.Hairpin #'extra-offset = #'(0 . 2) %tweak
s\> s
- s32 s s s\!
-
- }
+ s32 s s\! s
+ }
+ \textLengthOn
s32 s-"rall." s s s8 s4
+ \textLengthOff
| %5
s2-"a tempo" s8
- \once\override Dynamics.Hairpin #'extra-offset = #'(1 . 0) %tweak
s \> s s
- | %6
+ | %6
s8\!
s2 s8 s\> s
| %7
theScore = \score{
\context PianoStaff <<
- \context Staff = "treble" <<
+ \new Staff = "treble" <<
+ \overrideBeamSettings #'Score #'(4 . 4) #'end
+ #'((* . (1 1 1 1))
+ ((1 . 32) (4 4 4 4 4 4 4 4)))
\treble
\trebleTwo
>>
\new Dynamics <<
\middleDynamics
>>
- \context Staff = "bass" <<
+ \new Staff = "bass" <<
\clef bass
\bass
\bassTwo
pedalSustainStrings = #'("Ped." "*Ped." "*")
\remove Bar_number_engraver
}
- \context {
- \type "Engraver_group_engraver"
- \name Dynamics
- \consists "Output_property_engraver"
- minimumVerticalExtent = #'(-1 . 1)
-
- \consists "Script_engraver"
- \consists "Dynamic_engraver"
- \consists "Text_engraver"
-
- \override TextScript #'font-size = #2
- \override TextScript #'font-shape = #'italic
-
- \consists "Skip_event_swallow_translator"
-
- \consists "Axis_group_engraver"
- }
-
- \context {
- \PianoStaff
- \accepts Dynamics
- \override VerticalAlignment #'forced-distance = #7
- }
}
}
-
+
\book{
\score { \theScore }
}
-
+
%%% Local variables:
%%% coding: utf-8
%%% LilyPond-indent-level:2
projects / lilypond.git / blobdiff