X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fles-nereides.ly;h=9f91786efeb9c91742ee8109b88c5c5de7f834fb;hb=231a5e1653b153a40b449ebed22129eaddd4e1e9;hp=7dc06841ed901eb2046045c6d62db2a250b19cce;hpb=3f2900f0ea52866d3edaa83cee2b16b8be5e4ec9;p=lilypond.git diff --git a/input/les-nereides.ly b/input/les-nereides.ly index 7dc06841ed..9f91786efe 100644 --- a/input/les-nereides.ly +++ b/input/les-nereides.ly @@ -1,432 +1,289 @@ +\version "2.10.0" + +\header { + composer = "ARTHUR GRAY" + title = "LES NÉRÉIDES" + subtitle = "THE NEREIDS" + enteredby = "JCN" + piece = "Allegretto scherzando" + copyright = "public domain" +} + %{ -cpp -P -traditional -o l.ly les-nereides.ly -cpp -P -traditional -o l-fake.ly -DFAKE_GRACE les-nereides.ly -%} -\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"; -} +Nastiest piece of competition at +http://www.orphee.com/comparison/study.html, see +http://www.orphee.com/comparison/gray.pdf +Lines that contain tweaks (10 currently, not counting reverts) are +marked with %tweak -%% cpp: don't start on first column - #(define (grace-beam-space-function multiplicity) - (* (if (<= multiplicity 3) 0.816 0.844) 0.8)) - -%% cpp: don't start on first column -%% hmm, why doesn't this work? - #(define (make-text-checker text) - (lambda (elt) - (and (not (eq? #f (memq 'text-item-interface (ly-get-elt-property elt 'interfaces)))) - (not (#f (string-match text (ly-get-elt-property elt 'text))))) - )) - -global = \notes{ - \partial 2; - \key a \major; - \skip 2; - \skip 1*2; - -#ifndef FAKE_GRACE - \skip 1; -#else % FAKE_GRACE - \skip 2.; \partial 32*24; - \skip 32*24; -#endif % FAKE_GRACE - - \bar "||"; -} +possibly more impressive to render without tweaks? + + grep -v tweak input/les-nereides.ly >> lnnt.ly + lilypond lnnt.ly + +%} + +treble = \new Voice \relative c''{ + \key a \major + r2 + | %2 + \stemUp + r4 \arpeggio r2 + | %3 + r4 \arpeggio r8. + + \change Staff=bass + + cis,16^2(^\markup {\small \italic "m.d." }\sustainUp + 8 + | %4 + 4)\sustainDown + + \change Staff=treble + + \slurUp + \set PianoStaff.connectArpeggios = ##t -treble = \context Voice=treble \notes\relative c''{ - % Broken? - \property Voice.NoteColumn \push #'horizontal-shift = #0 - \outputproperty #(make-type-checker 'text-item-interface) - #'extra-offset = #'(-6 . 2) - %% *Style* = Large?? - \property Voice.TextScript \push #'style = #"Large" - r2^"Allegretto scherzando" - \property Voice.TextScript \pop #'style - %2 - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #1 - r4 r2 - %3 - r4 r8. - \translator Staff=bass - \outputproperty #(make-text-checker "m") - #'extra-offset = #'(-6 . 2) - cis,16^2^"m.d."( - %4 - <)dis,4 a' dis> - \translator Staff=treble - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #1 - \property PianoStaff.connectArpeggios = ##t - \property Voice.TextSpanner \pop #'type - - %% Ghostview is ok, but xdvi shows a solid line - \property Voice.TextSpanner \push #'line-thickness = #2 - \property Voice.TextSpanner \push #'dash-period = #0.5 - - \property Voice.TextSpanner \push #'type = #"dotted-line" - \property Voice.TextSpanner \push #'edge-height = #'(0 . 1.5) - \property Voice.TextSpanner \push #'edge-text = #'("8 " . "") - \property Staff."c0-position" = #-13 - \outputproperty #(make-text-checker "m") - #'extra-offset = #'(-6 . 2) - cis''''4^"m.g."\arpeggio \spanrequest \start "text" ( - -#ifndef FAKE_GRACE - - \property Voice.Stem \pop #'direction - - % grace is a mess - % maybe we should fake this and put 5/4 in this bar? + #(set-octavation 1) + \tieUp + cis''''4^\markup { \small \italic "m.g." }\arpeggio~ \grace { - )cis8 - \property Grace.Stem \pop #'direction - \property Grace.Stem \push #'direction = #0 - \property Grace.Beam \push #'space-function = #grace-beam-space-function - %% urg, dim. during grace dumps core here - %% [a16-5( fis dis \spanrequest \stop "text" ] - %% [cis'32 a-1 fis-4 dis] [cis a )fis-2] - [a16-5( fis dis \spanrequest \stop "text" ] - \property Staff."c0-position" = #-6 - [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 } -#else % FAKE_GRACE - - \property Score.PaperColumn \push #'space-factor = #0.6 - \property Score.PaperColumn \push #'to-musical-spacing-factor = #0.04 - \property Voice.NoteHead \push #'font-size = #-1 - \property Voice.Stem \push #'font-size = #-1 - \property Voice.Stem \push #'length = #6 - \property Voice.Stem \push #'beamed-lengths = - #(map (lambda (x) (* 1.25 x)) '(0.0 2.5 2.0 1.5)) - \property Voice.Stem \push #'beamed-minimum-lengths = - #(map (lambda (x) (* 1.25 x)) '(0.0 1.5 1.25 1.0)) - - \property Voice.Beam \push #'font-size = #-1 - \property Voice.TextScript \push #'font-size = #-1 - \property Voice.Fingering \push #'font-size = #-1 - \property Voice.Slur \push #'font-size = #-1 - \property Staff.Accidentals \push #'font-size = #-1 - \property Voice.Beam \push #'space-function = #grace-beam-space-function - - )cis16 - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #0 - %% [a16^5( fis dis \spanrequest \stop "text" ] - %% [cis'32 a-1 fis-4 dis] [cis a )fis-2] s s s - [a16^5( fis dis \spanrequest \stop "text" ] - \property Staff."c0-position" = #-6 - [cis32 a^1 fis^4 dis] [cis a )fis-2] s % s s - - \property Voice.NoteHead \pop #'font-size - \property Voice.Stem \pop #'font-size - \property Voice.Stem \pop #'length - \property Voice.Stem \pop #'beamed-lengths - \property Voice.Stem \pop #'beamed-minimum-lengths - \property Voice.Beam \pop #'font-size - \property Voice.TextScript \pop #'font-size - \property Voice.Fingering \pop #'font-size - \property Voice.Slur \pop #'font-size - \property Staff.Accidentals \pop #'font-size - \property Voice.Beam \pop #'space-function - \property Score.PaperColumn \pop #'space-factor - \property Score.PaperColumn \pop #'to-musical-spacing-factor -#endif % FAKE_GRACE + + \stemUp + cis'4( bis) + + | %5 + r8 8(\mf + + % \fingerUp + \override Fingering #'direction = #UP + e)-1-4-5 r - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #1 - cis'4()bis - r8 - )e^" "^1^4^5 r| - r )e r| + | %6 + r 8(\mf + e) r + + | %7 + \bar "||" } -trebleTwo = \context Voice=trebleTwo \notes\relative c''{ - \property Voice.NoteColumn \push #'horizontal-shift = #1 +trebleTwo = \new Voice \relative c''{ + \stemDown + \slurDown + % \fingerDown + \override Fingering #'direction = #DOWN s2 + | %1 s1*2 + | %4 s4 - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #-1 - - -#ifdef FAKE_GRACE - s32*16 -#endif - - \property Voice.NoteColumn \push #'force-hshift = #-0.2 - - % Hmm s/r? - %r8 cis4. d4 + 4\arpeggio + 2 + | %5 s8 cis4. d4 - \property Voice.NoteColumn \pop #'force-hshift - [ | - \property Voice.NoteColumn \push #'force-hshift = #-0.2 - <)a-2 cis,-1>] cis4. d4 - \property Voice.NoteColumn \pop #'force-hshift - [ | - <)a cis,>] + % fair to count as one tweak? + \override Fingering #'add-stem-support = ##t %tweak + \override Fingering #'padding = #0.15 + \override Fingering #'slur-padding = #0.1 + 8[( + | %6 + )] cis'4. d4 + 8[( + | %7 + )] } -bass = \context Voice=bass \notes\relative c{ - \property Voice.Slur \push #'details = - #'((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 5.0)) - \property Voice.Slur \push #'attachment-offset = #'((0 . -3) . (0 . -6)) - \property Voice.Stem \pop #'direction - \property Voice.Slur \push #'direction = #-1 - % huh, auto-beamer? - r8. e,16-2( [ ] | - %2 - \translator Staff=treble - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #-1 - \property Voice.slurEndAttachment = #'stem - <)a''4\arpeggio eis cis> - %\stemboth - \property Voice.slurEndAttachment = ##f - \translator Staff=bass - \property Voice.Stem \pop #'direction - \property Voice.Slur \pop #'y-free - \property Voice.Slur \push #'y-free = #0.1 - r8. cis,,16( - %3 - \property Voice.Stem \pop #'length - \property Voice.Stem \push #'length = #5 - - \translator Staff=treble - \property Voice.Stem \pop #'length - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #-1 - <)a'\arpeggio fis cis> - \translator Staff=bass - \property Voice.Stem \pop #'direction +bass = \new Voice \relative c{ + \partial 2 + \key a \major + + \slurDown + \dynamicUp + + r8. e,16(\f_2 8[ ] + | %2 + %\override Staff.SustainPedalLineSpanner #'staff-padding = #5 %tweak + + 4\sustainDown + \change Staff=treble + \stemDown + 4)\arpeggio + + \change Staff=bass + \stemNeutral + + r8. cis,,16(\sustainUp 8 + + | %3 + + 4\sustainDown + \change Staff=treble + + \stemNeutral + \stemDown + )\arpeggio + \change Staff=bass + \stemNeutral r2 - %4 - \property Voice.Slur \pop #'details - \property Voice.Slur \pop #'attachment-offset - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #-1 - - \clef treble; - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #0 - < + + | %4 + \stemDown + 4 + \clef treble + \stemNeutral + << %urg: staff-change: ! on dis - -% { s8. \clef bass;} - > - -#ifndef FAKE_GRACE - %Hmm - %\grace { s16 s s s s32 s s s s \clef bass; s } - \clef bass; - \grace { } <)gis'2 e> -#else - s4 s8 s32 s s \clef bass; - \property Score.PaperColumn \push #'space-factor = #0.6 - \property Score.PaperColumn \push #'to-musical-spacing-factor = #0.1 - \property Voice.NoteHead \push #'font-size = #-1 - \property Voice.Stem \push #'font-size = #-1 - \property Voice.Stem \push #'length = #6 - \property Voice.Slur \push #'font-size = #-1 - \property Voice.Slur \push #'attachment-offset = #'((-0.5 . 0) . (0.5 . 0)) - - - \property Voice.NoteHead \pop #'font-size - \property Voice.Stem \pop #'font-size - \property Voice.Stem \pop #'length - \property Voice.Slur \pop #'font-size - \property Score.PaperColumn \pop #'space-factor - \property Score.PaperColumn \pop #'to-musical-spacing-factor - <)gis'2 e> - \property Voice.Slur \pop #'attachment-offset -#endif - %5 - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #1 - a,8 [e'-5(<)a-2 cis-3>] - r b,-5 - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #0 - [e,8-5(| - %6 - )a-2] - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #1 - [e'(<)a cis>] r b, - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #0 - [e,8(| - %7 - )a] + \arpeggio + >> + + \grace { + \override Stem #'stroke-style = #"grace" + + s8 + s16 s s + s32 s s + s s s + \clef bass + 32(\sustainUp\sustainDown + + \revert Stem #'stroke-style + } + 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,8\sustainDown e'[-5(])-2-3 + %%r b,-5 4 + r b,-5\sustainUp\sustainDown 4-3-5 + \slurNeutral + e,8[-5(\sustainUp + + | %6 + a)-2]\sustainDown + \slurUp + e'[()] r b,\sustainUp\sustainDown 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 -#ifdef FAKE_GRACE - \skip 32*16; -#endif + \stemUp + \slurUp - \property Voice.Stem \pop #'direction - \property Voice.Stem \push #'direction = #1 - \property Voice.Slur \pop #'direction - \property Voice.Slur \push #'direction = #1 - - cis'4()bis + cis'4( bis) } -middleDynamics = \context Dynamics=middle \notes{ - s8 s16 s\f s4 - s1*2 - %4 +middleDynamics = { + %\override Dynamics.TextScript #'padding = #-1 %tweak s2 - -#ifdef FAKE_GRACE - s32*12 - \outputproperty #(make-type-checker 'dynamic-interface) - #'extra-offset = #'(0 . 1.5) - s32\> s s \!s -#endif - s32 - \outputproperty #(make-type-checker 'text-item-interface) - #'extra-offset = #'(0 . 1.5) - s-"rall." s s - s8 s4 - - \outputproperty #(make-type-checker 'dynamic-interface) - #'extra-offset = #'(0 . 4) - %s1\mf-"a tempo" - s2\mf-"a tempo" s4 - \outputproperty #(make-type-checker 'crescendo-interface) - #'extra-offset = #'(0.5 . -1) - s\> \!s8 - \outputproperty #(make-type-checker 'dynamic-interface) - #'extra-offset = #'(-1 . 4) - s8\mf s4 s4 s8\> s32 s s \!s -} - -lowerDynamics = \context Dynamics=lower \notes{ + s1*2 + | %4 s2 - %2 - s2\sustaindown s8. s16\sustainup s4 - %3 - s2\sustaindown s8. s16\sustainup s4 - %3 - -#ifndef FAKE_GRACE - s4\sustaindown s16 - s32 s s\sustainup s - s32\sustaindown s s s - s8 -#else - s2\sustaindown - s32*12 - s32 s s\sustainup s - s32\sustaindown s s s -#endif - - \property Dynamics.stopSustain = #"" - s4 s16. s32\sustainup - - %5 - s8\sustaindown s s - \property Dynamics.stopSustain = #"*" - \property Dynamics.stopStartSustain = #"-P" - s s\sustainup\sustaindown s s - s\sustainup - - %6 - \property Dynamics.stopStartSustain = #"" - s8\sustaindown s s - \property Dynamics.stopStartSustain = #"-P" - s s\sustainup\sustaindown s s - s\sustainup + \grace { + s8 + s16 s s + s32 s + s\> s + s32 s s\! s + + } + \fatText + s32 s-"rall." s s s8 s4 + \emptyText + | %5 + s2-"a tempo" s8 + 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 Dynamics=middle < - \global + >> + \new Dynamics << \middleDynamics - > - \context Staff=bass < - \clef bass; - \global + >> + \new Staff = "bass" << + \clef bass \bass \bassTwo - > - \context Dynamics=lower < - \global - \lowerDynamics - > - > - \paper { - %%BURP - magnification_italic = 1.; - \translator { - \ScoreContext - TimeSignature \push #'style = #"C" - SpacingSpanner \push #'maximum-duration-for-spacing = #(make-moment 1 4) - - \remove Bar_number_engraver; + >> + >> + \layout { + \context { + \Score + pedalSustainStrings = #'("Ped." "*Ped." "*") + \remove Bar_number_engraver } - \translator { - \type "Engraver_group_engraver"; - \name Dynamics; - \consists "Output_property_engraver"; - Generic_property_list = #generic-voice-properties - \consists "Property_engraver"; - DynamicsMinimumVerticalExtent = #(cons -3 -3) - VerticalAlignment \push #'threshold = #'(9 . 9) - - startSustain = #"Ped." - stopSustain = #"*" - stopStartSustain = #"*Ped." - startUnaChorda = #"una chorda" - stopUnaChorda = #"tre chorde" - - \consists "Piano_pedal_engraver"; - \consists "Script_engraver"; - \consists "Dynamic_engraver"; - \consists "Text_engraver"; - %GURGURGU, text is initialised using TextScript - TextScript \push #'style = #"italic" - %%% TextScript \push #'font-size = #2 - - \consists "Skip_req_swallow_translator"; - - \consistsend "Axis_group_engraver"; + \context { + \type "Engraver_group" + \name Dynamics + \consists "Output_property_engraver" + \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0) + + \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" } - \translator { - \PianoStaffContext - \accepts Dynamics; - VerticalAlignment \push #'threshold = #'(7 . 7) - } - \translator { - \GraceContext - Stem \push #'flag-style = #"" + \context { + \PianoStaff + \accepts Dynamics } } } + +\book{ + \score { \theScore } +} + +%%% Local variables: +%%% coding: utf-8 +%%% LilyPond-indent-level:2 +%%% End: +