-\header{
- composer = "ARTHUR GRAY";
- title = "LES N\\'ER\\'EIDES";
- subtitle = "THE NEREIDS";
- enteredby = "JCN";
- piece = "Allegretto scherzando";
- copyright = "public domain";
- description = "Natiest piece of competition at http://www.orphee.com/comparison/study.html, see http://www.orphee.com/comparison/gray.pdf";
- comment = "LilyPond (1.3.93) can't really do this yet, I guess";
+\version "2.10.0"
+
+\header {
+ composer = "ARTHUR GRAY"
+ title = "LES NÉRÉIDES"
+ subtitle = "THE NEREIDS"
+ enteredby = "JCN"
+ piece = "Allegretto scherzando"
+ copyright = "public domain"
}
-global = \notes{
- \partial 2;
- \key a \major;
- \skip 2;
- \skip 1*2;
+%{
- %\skip 1;
+Nastiest piece of competition at
+http://www.orphee.com/comparison/study.html, see
+http://www.orphee.com/comparison/gray.pdf
- % fake grace
- \skip 2.; \partial 32*24;
- \skip 32*24;
- %end fake grace
+Lines that contain tweaks (10 currently, not counting reverts) are
+marked with %tweak
- \bar "||";
-}
+possibly more impressive to render without tweaks?
+
+ grep -v tweak input/les-nereides.ly >> lnnt.ly
+ lilypond lnnt.ly
+
+%}
-treble = \context Voice=treble \notes\relative c''{
+treble = \new Voice \relative c''{
+ \key a \major
r2
- %2
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #1
- r4 <cis eis a cis> r2
- %3
- r4 <cis fis a cis> r8.
- \translator Staff=bass
- cis,16^2^"m.g."( <fis8 fis,\sustainup> <e! e,!>
- %4
- <)dis,4 a' dis>
- \translator Staff=treble
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #1
- %% 8va
- cis''''4 (
+ | %2
+ \stemUp
+ r4 <cis eis a cis>\arpeggio r2
+ | %3
+ r4 <cis fis a cis>\arpeggio r8.
-%{
+ \change Staff=bass
- \property basicStemProperties \pop #'direction
- % ugh
- \property Voice.basicStemProperties \push #'direction = #0
+ \once\override TextScript #'extra-offset = #'(-3 . -4) %tweak
+
+ cis,16^2(^\markup {\small \italic "m.d." }\sustainUp
+ <fis fis,>8 <e! e,!>
+ | %4
+ <dis, a' dis>4)\sustainDown
+
+ \change Staff=treble
+
+ \slurUp
+ \set PianoStaff.connectArpeggios = ##t
- % grace is a mess
- % maybe we should fake this and put 5/4 in this bar?
+ #(set-octavation 1)
+ \once\override TextScript #'extra-offset = #'(-3 . -2) %tweak
+
+ \tieUp
+ cis''''4^\markup { \small \italic "m.g." }\arpeggio~
\grace {
- )cis8
- \property basicStemProperties \pop #'direction
- \property Grace.basicStemProperties \push #'direction = #0
- %urg, dim. during grace dumps core here
- %%[a16-5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )\!fis-2]
- [a16-5( fis dis] [cis32 a-1 fis-4 dis] [cis a )fis-2]
+ cis8
+ \revert Stem #'direction
+
+ a16[-5_( fis dis]
+ #(set-octavation 0)
+
+ cis32[ a-1 fis-4 dis] cis[ a fis)-2]
+ % the small grace in lower staff comes after us
+ s32
}
-%}
- %% fake grace:
- \property basicNoteHeadProperties \pop #'font-size
- \property basicStemProperties \pop #'font-size
- \property basicBeamProperties \pop #'font-size
- \property basicTextScriptProperties \pop #'font-size
- \property basicSlurProperties \pop #'font-size
- \property basicLocalKeyProperties \pop #'font-size
-
- \property Voice.basicNoteHeadProperties \push #'font-size = #-1
- \property Voice.basicStemProperties \push #'font-size = #-1
- \property Voice.basicBeamProperties \push #'font-size = #-1
- \property Voice.basicTextScriptProperties \push #'font-size = #-1
- \property Voice.basicSlurProperties \push #'font-size = #-1
- \property Voice.basicLocalKeyProperties \push #'font-size = #-1
-
- )cis16
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #0
- %%[a16^5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )fis-2] s s s
- [a16^5( fis dis] [cis32 a^1 fis^4 dis\>] [cis a )fis-2] s % s s
-
- \property basicNoteHeadProperties \pop #'font-size
- \property basicStemProperties \pop #'font-size
- \property basicBeamProperties \pop #'font-size
- \property basicTextScriptProperties \pop #'font-size
- \property basicSlurProperties \pop #'font-size
- \property basicLocalKeyProperties \pop #'font-size
-
- %ugh ugh
- \property Voice.basicNoteHeadProperties \push #'font-size = #0
- \property Voice.basicStemProperties \push #'font-size = #0
- \property Voice.basicBeamProperties \push #'font-size = #0
- \property Voice.basicTextScriptProperties \push #'font-size = #0
- \property Voice.basicSlurProperties \push #'font-size = #0
- \property Voice.basicLocalKeyProperties \push #'font-size = #0
- %% end fake grace
-
-
-
-
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #1
- \!cis'4()bis
- r8\mf-"a tempo"
- <a'8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
- r\mf <a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
+ \stemUp
+ cis'4( bis)
+
+ | %5
+ r8 <a' a,>8(\mf <gis gis,> <fis fis,>
+
+ % \fingerUp
+ \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 "||"
}
-trebleTwo = \context Voice=trebleTwo \notes\relative c''{
- \skip 2;
- \skip 1*2;
- \skip 4;
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #-1
- <cis4 a fis dis>
-
- %% fake grace
- \skip 32*16;
- %% end fake grace
-
- <e2-"rall." g, e d>
- r8 cis4. d4 [<cis8( e,> <b-3 d,-1> |
- <)a-2 cis,-1>] cis4. d4 [<cis8(\> e,> <b d,> |
- <\!)a cis,>]
+trebleTwo = \new Voice \relative c''{
+ \stemDown
+ \slurDown
+ % \fingerDown
+ \override Fingering #'direction = #DOWN
+ s2
+ | %1
+ s1*2
+ | %4
+ s4
+ <cis' a fis dis>4\arpeggio
+ <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.15
+ \override Fingering #'slur-padding = #0.1
+ <cis e,>8[( <d,_3 b'_1>
+ | %6
+ <cis_1 a'_2>)] cis'4. d4
+ <cis e,>8[( <b d,>
+ | %7
+ <a cis,>)]
}
-bass = \context Voice=bass \notes\relative c{
- \property Voice.basicSlurProperties \push #'details =
- #'((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 5.0))
- \property basicStemProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #-1
- % huh, auto-beamer?
- r8. e,16-2\f( [<a8 a,> <b b,>] <cis4\sustaindown cis,> |
- %2
- \translator Staff=treble
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #-1
- \property Voice.slurEndAttachment = #'stem
- <)a''4 eis cis>
- %\stemboth
- \property Voice.slurEndAttachment = ##f
- \translator Staff=bass
- \property basicStemProperties \pop #'direction
- % ugh
- \property Voice.basicStemProperties \push #'direction = #'0
- r8. cis,,16(\sustainup <fis8 fis,> <gis gis,>
- %3
- <a4\sustaindown a,>
- \translator Staff=treble
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #-1
- <)a' fis cis>
- \translator Staff=bass
- \property basicStemProperties \pop #'direction
- % ugh
- \property Voice.basicStemProperties \push #'direction = #'0
+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
+ \change Staff=treble
+ \stemDown
+ <a'' eis cis>4)\arpeggio
+
+ \change Staff=bass
+ \stemNeutral
+
+ r8. cis,,16(\sustainUp <fis fis,>8 <gis gis,>
+
+ | %3
+% \once \override Stem #'length = #6 %tweak
+ <a a,>4\sustainDown
+ \change Staff=treble
+
+ \stemNeutral
+ \stemDown
+ <a' fis cis>)\arpeggio
+ \change Staff=bass
+ \stemNeutral
r2
- %4
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #-1
- <b,,4\sustaindown b,>
- \clef treble;
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #0
- <
+
+ | %4
+ \stemDown
+ <b,, b,>4
+ \clef treble
+ \stemNeutral
+ <<
%urg: staff-change: ! on dis
- <cis'' a fis dis!>
-% { s8. \sustainup\clef bass;}
- >
- %\grace { s16 s s s s32 s s s s \clef bass; s }
- %\clef bass;
- %\grace { <e,,,32\sustaindown( e,> } <)gis'2 e>
-
- %% fake grace
- s4 s8 s32 s \sustainup s \clef bass; s
- %% end fake grace
-
- \grace { <e,,,32( e,> } <)gis'2\sustaindown e>
- %5
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #1
- \property Staff.stopStartSustain = #""
- a,8\sustainup\sustaindown [e'-5(<)a-2 cis-3>]
- \property Staff.stopStartSustain = #"-P"
- r b,-5\sustainup\sustaindown <e4-3 gis-5 d'>
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #0
- [e,8-5(\sustainup|
- %6
- )a-2\sustaindown]
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #1
- [e'(<)a cis>] r b,\sustainup\sustaindown <e4 gis d'>
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #0
- [e,8(\sustainup|
- %7
- )a]
+ <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
+
+ \revert Stem #'stroke-style
+ }
+ <gis' e>2)
+
+ | %5
+ \slurUp
+
+ % \fingerDown
+ \override Fingering #'direction = #DOWN
+
+
+ \override Staff.SustainPedalLineSpanner #'staff-padding = #3.5 %tweak
+ \set Staff.pedalSustainStyle = #'mixed
+ %%a,8 e'[-5(<a-2 cis-3>])
+
+
+ a,8\sustainDown 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
+ \slurNeutral
+ e,8[-5(\sustainUp
+
+ | %6
+ a)-2]\sustainDown
+ \slurUp
+ e'[(<a cis>)] r b,\sustainUp\sustainDown <e gis d'>4
+ \slurNeutral
+ e,8[(\sustainUp
+
+ | %7
+ a)]
}
-bassTwo = \context Voice=bassTwo \notes\relative c{
- \skip 2;
- \skip 1*2;
- \skip 2;
+bassTwo = \new Voice \relative c{
+ \skip 2
+ \skip 1*2
+ \skip 2
- %% fake grace
- \skip 32*16;
+ \stemUp
+ \slurUp
+
+ cis'4( bis)
+}
- \property basicStemProperties \pop #'direction
- \property Voice.basicStemProperties \push #'direction = #1
- \property basicSlurProperties \pop #'direction
- \property Voice.basicSlurProperties \push #'direction = #1
- cis'4()bis
+middleDynamics = {
+ \override Dynamics.TextScript #'padding = #-1 %tweak
+ s2
+ s1*2
+ | %4
+ s2
+ \grace {
+ s8
+ s16 s s
+ s32 s
+ \once\override Dynamics.Hairpin #'extra-offset = #'(0 . 2) %tweak
+ s\> s
+ s32 s s s\!
+
+ }
+ \fatText
+ s32 s-"rall." s s s8 s4
+ \emptyText
+ | %5
+ s2-"a tempo" s8
+ \once\override Dynamics.Hairpin #'extra-offset = #'(1 . 0) %tweak
+ s \> s s
+ | %6
+ s8\!
+ s2 s8 s\> s
+ | %7
+ s8\!
}
-\score{
- \context PianoStaff <
- \context Staff=treble <
- \global
+theScore = \score{
+ \context PianoStaff <<
+ \new Staff = "treble" <<
\treble
\trebleTwo
- >
- \context Staff=bass <
- \clef bass;
- \global
+ >>
+ \new Dynamics <<
+ \middleDynamics
+ >>
+ \new Staff = "bass" <<
+ \clef bass
\bass
\bassTwo
- >
- >
- \paper {
- \translator {
- \ScoreContext
- basicTimeSignatureProperties \push #'style = #"C"
+ >>
+ >>
+ \layout {
+ \context {
+ \Score
+ pedalSustainStrings = #'("Ped." "*Ped." "*")
+ \remove Bar_number_engraver
}
- \translator {
- \GraceContext
- basicStemProperties \push #'flag-style = #""
+ \context {
+ \type "Engraver_group"
+ \name Dynamics
+ \consists "Output_property_engraver"
+ \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
+
+ \consists "Script_engraver"
+ \consists "Dynamic_engraver"
+ \consists "Text_engraver"
+
+ %%\override TextScript #'font-size = #1
+ \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
+%%% End:
+