%{
-cpp -P -traditional -o l.ly les-nereides.ly
-cpp -P -traditional -o l-fake.ly -DFAKE_GRACE les-nereides.ly
+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
+
%}
-\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 "1.3.148"
+
+\header {
+ composer = "ARTHUR GRAY"
+ title = "LES N\\'ER\\'EIDES"
+ subtitle = "THE NEREIDS"
+ enteredby = "JCN"
+ %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)
- ;; huh, string-match undefined?
- ;; (string-match text (ly-get-elt-property elt 'text))
- (equal? text (ly-get-elt-property elt '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
+}
-global = \notes{
- \partial 2;
- \key a \major;
- \skip 2;
- \skip 1*2;
+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
+}
-#ifndef FAKE_GRACE
- \skip 1;
+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;
+ \skip 2. \partial 32*24
+ \skip 32*24
#endif % FAKE_GRACE
- \bar "||";
+ \bar "||"
}
-treble = \context Voice=treble \notes\relative c''{
+treble = \context Voice=treble \notes\relative c''{
% Broken?
- \property Voice.NoteColumn \push #'horizontal-shift = #0
- \outputproperty #(make-type-checker 'text-item-interface)
+ \property Voice.NoteColumn \override #'horizontal-shift = #0
+ \outputproperty #(make-type-checker 'text-interface)
#'extra-offset = #'(-6 . 2)
- %% *Style* = Large??
- \property Voice.TextScript \push #'style = #"Large"
- r2^"Allegretto scherzando"
- \property Voice.TextScript \pop #'style
+ r2^#'((Large upright) "Allegretto scherzando")
%2
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #1
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #1
r4 <cis\arpeggio eis a cis> r2
%3
r4 <cis\arpeggio fis a cis> r8.
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
+
+ % Urg, this lifts us up to staff context
\translator Staff=bass
- % Get back
- \context Voice
+
+ % Get back:
+ \context Voice
+
+ % If we don't get back to Voice, this text-checker doesn't work
\outputproperty #(make-text-checker "m.d.")
#'extra-offset = #'(-3 . -4)
+
% currently, this can't be (small) italic, because in the paperblock
% we set italic_magnifictation to get large italics.
cis,16^2^"m.d."( <fis8 fis,> <e! e,!>
%4
<)dis,4 a' dis>
+
% Urg, this lifts us up to staff context
\translator Staff=treble
- % Get back
- \context Voice
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #1
+ % Get back:
+ \context Voice
+
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #1
\property PianoStaff.connectArpeggios = ##t
- \property Voice.TextSpanner \pop #'type
+ \property Voice.TextSpanner \revert #'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 \override #'line-thickness = #2
+ \property Voice.TextSpanner \override #'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 " . "")
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \property Staff."c0-position" = #-13
- % Get back
- \context Voice
+ \property Voice.TextSpanner \override #'type = #'dotted-line
+ \property Voice.TextSpanner \override #'edge-height = #'(0 . 1.5)
+ %% \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
+ \property Voice.TextSpanner \override #'edge-text = #'("8 " . " ")
+
+ % Urg, this lifts us up to staff context
+ \property Staff.centralCPosition = #-13
+
+ % Get back:
+ \context Voice
+
+ % If we don't get back to Voice, this text-checker doesn't work
\outputproperty #(make-text-checker "m.g.")
- #'extra-offset = #'(-3 . -2)
+ #'extra-offset = #'(-3 . -3)
+
% 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
- \property Voice.Stem \pop #'direction
+ \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 \pop #'direction
- \property Grace.Stem \push #'direction = #0
- \property Grace.Beam \push #'space-function = #grace-beam-space-function
+ \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]
+ %%[cis'32 a-1 fis-4 dis] [cis a )fis-2]
[a16-5( fis dis \spanrequest \stop "text" ]
- \property Staff."c0-position" = #-6
+ \property Staff.centralCPosition = #-6
+
[cis32 a-1 fis-4 dis] [cis a )fis-2]
}
#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-relative-size = #-1
- \property Voice.Stem \push #'font-relative-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-relative-size = #-1
- \property Voice.TextScript \push #'font-relative-size = #-1
- \property Voice.Fingering \push #'font-relative-size = #-1
- \property Voice.Slur \push #'font-relative-size = #-1
- \property Staff.Accidentals \push #'font-relative-size = #-1
- \property Voice.Beam \push #'space-function = #grace-beam-space-function
-
+ \smallFont
+
)cis16
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #0
+ \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."c0-position" = #-6
+ \property Staff.centralCPosition = #-6
[cis32 a^1 fis^4 dis] [cis a )fis-2] s % s s
- \property Voice.NoteHead \pop #'font-relative-size
- \property Voice.Stem \pop #'font-relative-size
- \property Voice.Stem \pop #'length
- \property Voice.Stem \pop #'beamed-lengths
- \property Voice.Stem \pop #'beamed-minimum-lengths
- \property Voice.Beam \pop #'font-relative-size
- \property Voice.TextScript \pop #'font-relative-size
- \property Voice.Fingering \pop #'font-relative-size
- \property Voice.Slur \pop #'font-relative-size
- \property Staff.Accidentals \pop #'font-relative-size
- \property Voice.Beam \pop #'space-function
- \property Score.PaperColumn \pop #'space-factor
- \property Score.PaperColumn \pop #'to-musical-spacing-factor
+ \unSmallFont
#endif % FAKE_GRACE
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #1
+ \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|
}
-trebleTwo = \context Voice=trebleTwo \notes\relative c''{
- \property Voice.NoteColumn \push #'horizontal-shift = #1
+trebleTwo = \context Voice=trebleTwo \notes\relative c''{
+ \property Voice.NoteColumn \override #'horizontal-shift = #1
s2
s1*2
s4
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #-1
<cis'4\arpeggio a fis dis>
#ifdef FAKE_GRACE
s32*16
#endif
- \property Voice.NoteColumn \push #'force-hshift = #-0.2
+ \property Voice.NoteColumn \override #'force-hshift = #-0.2
<e,2 gis, e d!>
% Hmm s/r?
%r8 cis4. d4
s8 cis4. d4
- \property Voice.NoteColumn \pop #'force-hshift
+ \property Voice.NoteColumn \revert #'force-hshift
[<cis8( e,> <b-3 d,-1> |
- \property Voice.NoteColumn \push #'force-hshift = #-0.2
+ \property Voice.NoteColumn \override #'force-hshift = #-0.2
<)a-2 cis,-1>] cis4. d4
- \property Voice.NoteColumn \pop #'force-hshift
+ \property Voice.NoteColumn \revert #'force-hshift
[<cis8( e,> <b d,> |
<)a cis,>]
}
-bass = \context Voice=bass \notes\relative c{
+bass = \context Voice=bass \notes\relative c{
% Allow ugly slurs
- \property Voice.Slur \push #'beautiful = #5.0
- \property Voice.Slur \push #'attachment-offset = #'((0 . -3) . (0 . -6))
- \property Voice.Stem \pop #'direction
- \property Voice.Slur \push #'direction = #-1
+ \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,>] <cis4 cis,> |
+ r8. e,16-2( [<a8 a,> <b b,>] |
%2
+ <cis4 cis,>
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\translator Staff=treble
% Get back
- \context Voice
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
- \property Voice.slurEndAttachment = #'stem
+ \context Voice
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #-1
+ \property Voice.Slur \override #'attachment = #'(stem . stem)
<)a''4\arpeggio eis cis>
- %\stemboth
- \property Voice.slurEndAttachment = ##f
+ %\stemBoth
+ \property Voice.Slur \revert #'attachment
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\translator Staff=bass
% Get back
\context Voice
- \property Voice.Stem \pop #'direction
- \property Voice.Slur \pop #'y-free
- \property Voice.Slur \push #'y-free = #0.1
- \property Voice.Slur \pop #'attachment-offset
- \property Voice.Slur \push #'attachment-offset = #'((0 . -3) . (0 . -8))
+ \property Voice.Stem \revert #'direction
+ \property Voice.Slur \revert #'y-free
+ \property Voice.Slur \override #'y-free = #0.1
+ \property Voice.Slur \revert #'attachment-offset
+ \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
r8. cis,,16( <fis8 fis,> <gis gis,>
%3
- \property Voice.Stem \pop #'length
- \property Voice.Stem \push #'length = #5
+ \property Voice.Stem \revert #'length
+ \property Voice.Stem \override #'length = #5
<a4 a,>
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\translator Staff=treble
% Get back
\context Voice
- \property Voice.Stem \pop #'length
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
+ \property Voice.Stem \revert #'length
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #-1
<)a'\arpeggio fis cis>
% Huh, urg? Implicit \context Staff lifts us up to Staff context???
\translator Staff=bass
% Get back
\context Voice
- \property Voice.Stem \pop #'direction
+ \property Voice.Stem \revert #'direction
r2
%4
- \property Voice.Slur \pop #'beautiful
- \property Voice.Slur \pop #'attachment-offset
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
+ \property Voice.Slur \revert #'beautiful
+ \property Voice.Slur \revert #'attachment-offset
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #-1
<b,,4 b,>
- \clef treble;
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #0
+ \clef treble
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #0
<
%urg: staff-change: ! on dis
<cis''\arpeggio a fis dis!>
-% { s8. \clef bass;}
+% { s8. \clef bass}
>
#ifndef FAKE_GRACE
%Hmm
- %\grace { s16 s s s s32 s s s s \clef bass; s }
- \clef bass;
+ %\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;
- \property Score.PaperColumn \push #'space-factor = #0.6
- \property Score.PaperColumn \push #'to-musical-spacing-factor = #0.1
- \property Voice.NoteHead \push #'font-relative-size = #-1
- \property Voice.Stem \push #'font-relative-size = #-1
- \property Voice.Stem \push #'length = #6
- \property Voice.Slur \push #'font-relative-size = #-1
- \property Voice.Slur \push #'attachment-offset = #'((-0.5 . 0) . (0.5 . 0))
+ s4 s8 s32 s s \clef bass
+
+ \smallFont
+
+ \property Voice.Slur \override #'attachment-offset = #'((-0.5 . 0) . (0.5 . 0))
<e,,,32( e,>
- \property Voice.NoteHead \pop #'font-relative-size
- \property Voice.Stem \pop #'font-relative-size
- \property Voice.Stem \pop #'length
- \property Voice.Slur \pop #'font-relative-size
- \property Score.PaperColumn \pop #'space-factor
- \property Score.PaperColumn \pop #'to-musical-spacing-factor
+ \unSmallFont
<)gis'2 e>
- \property Voice.Slur \pop #'attachment-offset
+ \property Voice.Slur \revert #'attachment-offset
#endif
%5
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #1
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #1
a,8 [e'-5(<)a-2 cis-3>]
r b,-5 <e4-3 gis-5 d'>
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #0
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #0
[e,8-5(|
%6
)a-2]
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #1
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #1
[e'(<)a cis>] r b, <e4 gis d'>
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #0
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #0
[e,8(|
%7
)a]
}
-bassTwo = \context Voice=bassTwo \notes\relative c{
- \skip 2;
- \skip 1*2;
- \skip 2;
+bassTwo = \context Voice=bassTwo \notes\relative c{
+ \skip 2
+ \skip 1*2
+ \skip 2
#ifdef FAKE_GRACE
- \skip 32*16;
+ \skip 32*16
#endif
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #1
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #1
+ \property Voice.Stem \revert #'direction
+ \property Voice.Stem \override #'direction = #1
+ \property Voice.Slur \revert #'direction
+ \property Voice.Slur \override #'direction = #1
cis'4()bis
}
-middleDynamics = \context Dynamics=middle \notes{
+middleDynamics = \context Dynamics=middle \notes{
s8 s16 s\f s4
s1*2
%4
s32\> s s \!s
#endif
s32
- \outputproperty #(make-type-checker 'text-item-interface)
+ \outputproperty #(make-type-checker 'text-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
+%% 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 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{
+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
+ s2\sustainDown
s32*12
- s32 s s\sustainup s
- s32\sustaindown s s s
+ s32 s s\sustainUp s
+ s32\sustainDown s s s
#endif
- \property Dynamics.stopSustain = #""
- s4 s16. s32\sustainup
+ \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
+ s4 s16. s32\sustainUp
%5
- s8\sustaindown s s
- \property Dynamics.stopSustain = #"*"
- \property Dynamics.stopStartSustain = #"-P"
- s s\sustainup\sustaindown s s
- s\sustainup
+ s8\sustainDown s s
+ \property Dynamics.pedalSustainStrings = #'("Ped." "-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
+ \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
+ s8\sustainDown s s
+ \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
+ s s\sustainUp\sustainDown s s
+ s\sustainUp
}
\score{
\middleDynamics
>
\context Staff=bass <
- \clef bass;
+ \clef bass
\global
\bass
\bassTwo
>
>
\paper {
- %%BURP
- magnification_italic = 1.;
+ % Hmm
+ % magnification_italic = 1.
\translator {
\ScoreContext
- TimeSignature \push #'style = #"C"
- SpacingSpanner \push #'maximum-duration-for-spacing = #(make-moment 1 4)
+ TimeSignature \override #'style = #'C
+ SpacingSpanner \override #'maximum-duration-for-spacing = #(make-moment 1 4)
- \remove Bar_number_engraver;
+ \remove Bar_number_engraver
}
\translator {
- \type "Engraver_group_engraver";
- \name Dynamics;
- \consists "Output_property_engraver";
+ \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 "Property_engraver"
+ MinimumVerticalExtent = #'(-1 . 1)
+
+ pedalSustainStrings = #'("Ped." "*Ped." "*")
+ pedalUnaCordaStrings = #'("una corda" "" "tre corde")
- \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-relative-size = #2
+ \consists "Piano_pedal_engraver"
+ \consists "Script_engraver"
+ \consists "Dynamic_engraver"
+ \consists "Text_engraver"
+
+ TextScript \override #'font-relative-size = #1
+ TextScript \override #'font-shape = #'italic
- \consists "Skip_req_swallow_translator";
+ \consists "Skip_req_swallow_translator"
- \consistsend "Axis_group_engraver";
+ \consistsend "Axis_group_engraver"
}
\translator {
\PianoStaffContext
- \accepts Dynamics;
- VerticalAlignment \push #'threshold = #'(7 . 7)
+ \accepts Dynamics
+ VerticalAlignment \override #'forced-distance = #7
}
\translator {
\GraceContext
- Stem \push #'flag-style = #""
+ Stem \override #'flag-style = #""
}
}
}