-%{
-You should preprocess this file with the C preprocessor. The one with
-FAKE_GRACE looks best.
-
-1.
- cpp -P -traditional -o l.ly les-nereides.ly
-
-2.
- cpp -P -traditional -o l-fake.ly -DFAKE_GRACE les-nereides.ly
-
-%}
-
-\version "1.5.49"
+\version "1.7.6"
\header {
composer = "ARTHUR GRAY"
%piece = "Allegretto scherzando"
copyright = "public domain"
description = "Nastiest 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"
-}
-
-
-% cpp: don't start on first column
- #(set! point-and-click line-column-location)
-
-%% 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
- #(define (make-text-checker text)
- (lambda (elt) (equal? text (ly-get-grob-property elt 'text))))
-
-% complete and move to propert.ly?
-smallFont = {
- \property Score.PaperColumn \override #'space-factor = #0.6
- \property Score.PaperColumn \override #'to-musical-spacing-factor = #0.04
- \property Voice.NoteHead \override #'font-relative-size = #-1
- \property Voice.Stem \override #'font-relative-size = #-1
- \property Voice.Stem \override #'length = #6
- \property Voice.Stem \override #'beamed-lengths =
- #(map (lambda (x) (* 1.25 x)) '(0.0 2.5 2.0 1.5))
- \property Voice.Stem \override #'beamed-minimum-lengths =
- #(map (lambda (x) (* 1.25 x)) '(0.0 1.5 1.25 1.0))
-
- \property Voice.Beam \override #'font-relative-size = #-1
- \property Voice.TextScript \override #'font-relative-size = #0
- \property Voice.Fingering \override #'font-relative-size = #-4
- \property Voice.Slur \override #'font-relative-size = #-1
- \property Staff.Accidentals \override #'font-relative-size = #-1
- \property Voice.Beam \override #'space-function = #grace-beam-space-function
-}
-
-unSmallFont = {
- \property Voice.NoteHead \revert #'font-relative-size
- \property Voice.Stem \revert #'font-relative-size
- \property Voice.Stem \revert #'length
- \property Voice.Stem \revert #'beamed-lengths
- \property Voice.Stem \revert #'beamed-minimum-lengths
- \property Voice.Beam \revert #'font-relative-size
- \property Voice.TextScript \revert #'font-relative-size
- \property Voice.Fingering \revert #'font-relative-size
- \property Voice.Slur \revert #'font-relative-size
- \property Staff.Accidentals \revert #'font-relative-size
- \property Voice.Beam \revert #'space-function
- \property Score.PaperColumn \revert #'space-factor
- \property Score.PaperColumn \revert #'to-musical-spacing-factor
}
-global = \notes{
- \partial 2
- \key a \major
- \skip 2
- \skip 1*2
-
-#ifndef FAKE_GRACE /* First run this through cpp. See head les-nereides.ly */
- \skip 1
-#else % FAKE_GRACE
- \skip 2. \partial 32*24
- \skip 32*24
-#endif % FAKE_GRACE
+#(ly:set-point-and-click 'line-column)
+#(define (make-text-checker text)
+ (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
- \bar "||"
-}
treble = \context Voice=treble \notes\relative c''{
+\key a \major
% Broken?
\property Voice.NoteColumn \override #'horizontal-shift = #0
\outputproperty #(make-type-checker 'text-interface)
%2
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #1
- r4 <cis\arpeggio eis a cis> r2
+ r4 <cis-\arpeggio eis a cis> r2
%3
- r4 <cis\arpeggio fis a cis> r8.
+ r4 <cis-\arpeggio fis a cis> r8.
% Urg, this lifts us up to staff context
\translator Staff=bass
\property Voice.TextSpanner \revert #'type
%% Ghostview is ok, but xdvi shows a solid line
- \property Voice.TextSpanner \override #'line-thickness = #2
+ \property Voice.TextSpanner \override #'thickness = #2
\property Voice.TextSpanner \override #'dash-period = #0.5
\property Voice.TextSpanner \override #'type = #'dotted-line
% currently, this can't be (small) italic, because in the paperblock
% we set italic_magnifictation to get large italics.
- cis''''4^"m.g."\arpeggio \spanrequest \start "text" (
-
-#ifndef FAKE_GRACE
+ cis''''4^"m.g."-\arpeggio #(ly:export (make-span-event 'TextSpanEvent START)) (
\property Voice.Stem \revert #'direction
- % grace is a mess
- % maybe we should fake this and put 5/4 in this bar?
-
\grace {
)cis8
- \property Grace.Stem \revert #'direction
- \property Grace.Stem \override #'direction = #0
- \property Grace.Beam \override #'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 Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #0
+ [a16-5( fis dis #(ly:export (make-span-event 'TextSpanEvent STOP)) ]
\property Staff.centralCPosition = #-6
[cis32 a-1 fis-4 dis] [cis a )fis-2]
}
-#else % FAKE_GRACE
-
- \smallFont
-
- )cis16
- \property Voice.Stem \revert #'direction
- \property Voice.Stem \override #'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.centralCPosition = #-6
- [cis32 a^1 fis^4 dis] [cis a )fis-2] s % s s
-
- \unSmallFont
-#endif % FAKE_GRACE
-
-
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #1
cis'4()bis
r8
<a'8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e^" "^1^4^5 r|
- r<a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
+ r <a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
+
+ \bar "||"
+
}
trebleTwo = \context Voice=trebleTwo \notes\relative c''{
s4
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #-1
- <cis'4\arpeggio a fis dis>
-
-#ifdef FAKE_GRACE
- s32*16
-#endif
+ <cis'4-\arpeggio a fis dis>
\property Voice.NoteColumn \override #'force-hshift = #-0.2
<e,2 gis, e d!>
bass = \context Voice=bass \notes\relative c{
% Allow ugly slurs
+ \partial 2
+ \key a \major
+
\property Voice.Slur \override #'beautiful = #5.0
\property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
\property Voice.Stem \revert #'direction
\property Voice.Slur \override #'direction = #-1
% huh, auto-beamer?
- r8. e,16
-2( [<a8 a,> <b b,>] |
+ r8. e,16
_2( [<a8 a,> <b b,>] |
%2
<cis4 cis,>
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #-1
\property Voice.Slur \override #'attachment = #'(stem . stem)
- <)a''4\arpeggio eis cis>
+ <)a''4-\arpeggio eis cis>
%\stemBoth
\property Voice.Slur \revert #'attachment
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\property Voice.Stem \revert #'length
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #-1
- <)a'\arpeggio fis cis>
+ <)a'-\arpeggio fis cis>
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\translator Staff=bass
% Get back
\property Voice.Stem \override #'direction = #0
<
%urg: staff-change: ! on dis
- <cis''\arpeggio a fis dis!>
+ <cis''-\arpeggio a fis dis!>
% { s8. \clef bass}
>
-#ifndef FAKE_GRACE
%Hmm
%\grace { s16 s s s s32 s s s s \clef bass s }
\clef bass
\grace { <e,,,32( e,> } <)gis'2 e>
-#else
- s4 s8 s32 s s \clef bass
-
- \smallFont
-
- \property Voice.Slur \override #'attachment-offset = #'((-0.5 . 0) . (0.5 . 0))
- <e,,,32( e,>
-
- \unSmallFont
- <)gis'2 e>
- \property Voice.Slur \revert #'attachment-offset
-#endif
%5
\property Voice.Slur \revert #'direction
\property Voice.Slur \override #'direction = #1
\skip 1*2
\skip 2
-#ifdef FAKE_GRACE
- \skip 32*16
-#endif
-
\property Voice.Stem \revert #'direction
\property Voice.Stem \override #'direction = #1
\property Voice.Slur \revert #'direction
}
middleDynamics = \context Dynamics=middle \notes{
- s8 s16 s\f s4
+ s8 s16 s-\f s4
s1*2
%4
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-interface)
#'extra-offset = #'(0 . 1.5)
\outputproperty #(make-type-checker 'dynamic-interface)
#'extra-offset = #'(0 . 4)
- %s1\mf-"a tempo"
-%% s2\mf-"a tempo" s4
- s2\mf-"a tempo" s8
+ %s1-\mf-"a tempo"
+%% s2-\mf-"a tempo" s4
+ s2-\mf-"a tempo" s8
%% s\> \!s8
s16 s32 s64 \> s s8 s \!s8
\outputproperty #(make-type-checker 'dynamic-interface)
#'extra-offset = #'(-1 . 4)
-%% s8\mf s4 s4 s8\> s32 s s \!s
- s8\mf s4 s8 s16 s32 s64 \> s s16 s8 s32 s s s\! s128
+%% s8-\mf s4 s4 s8\> s32 s s \!s
+ s8-\mf s4 s8 s16 s32 s64 \> s s16 s8 s32 s s s\! s128
}
lowerDynamics = \context Dynamics=lower \notes{
s2
%2
- s2\sustainDown s8. s16\sustainUp s4
+ s2-\sustainDown s8. s16-\sustainUp s4
%3
- s2\sustainDown s8. s16\sustainUp s4
+ s2-\sustainDown s8. s16-\sustainUp s4
%3
-#ifndef FAKE_GRACE
- s4\sustainDown s16
- s32 s s\sustainUp s
- s32\sustainDown s s s
+ 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.pedalSustainStrings = #'("Ped." "*Ped." "")
- s4 s16. s32\sustainUp
+ s4 s16. s32--\sustainUp
%5
- s8\sustainDown s s
+ s8-\sustainDown s s
\property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
- s s\sustainUp\sustainDown s s
- s\sustainUp
+ s s-\sustainUp-\sustainDown s s
+ s-\sustainUp
%6
\property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
- s8\sustainDown s s
+ s8-\sustainDown s s
\property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
- s s\sustainUp\sustainDown s s
- s\sustainUp
+ s s-\sustainUp-\sustainDown s s
+ s-\sustainUp
}
\score{
\context PianoStaff <
\context Staff=treble <
- \global
\treble
\trebleTwo
>
\context Dynamics=middle <
- \global
\middleDynamics
>
\context Staff=bass <
\clef bass
- \global
\bass
\bassTwo
>
\context Dynamics=lower <
- \global
\lowerDynamics
>
>
\translator {
\ScoreContext
TimeSignature \override #'style = #'C
- SpacingSpanner \override #'maximum-duration-for-spacing = #(make-moment 1 4)
+ %% SpacingSpanner \override #'maximum-duration-for-spacing = #(ly:make-moment 1 4)
\remove Bar_number_engraver
}
\type "Engraver_group_engraver"
\name Dynamics
\consists "Output_property_engraver"
- Generic_property_list = #generic-voice-properties
- \consists "Property_engraver"
- MinimumVerticalExtent = #'(-1 . 1)
+ %%Generic_property_list = #generic-voice-properties
+ %%\consists "Property_engraver"
+ minimumVerticalExtent = #'(-1 . 1)
pedalSustainStrings = #'("Ped." "*Ped." "*")
pedalUnaCordaStrings = #'("una corda" "" "tre corde")
}
\translator {
\GraceContext
- Stem \override #'flag-style = #""
+ Stem \override #'stroke-style = #""
}
}
}
+
+%%% Local variables:
+%%% LilyPond-indent-level:4
+%%% End:
projects / lilypond.git / blobdiff