Instead of using one score, where all three methods are printed in three
lines, I now use three scores, which should look absolutely identical.
This also gets rid of the undesired empty first line...
\header {
texidoc = "Default flag styles: '(), 'mensural and 'no-flag.
\header {
texidoc = "Default flag styles: '(), 'mensural and 'no-flag.
- Compare all three methods to print them (C++ default implementation,
- Scheme implementation using the 'flag-style grob property and
- setting the 'flag property explicitly to the desired Scheme function.
- All three lines should be absolutely identical."
+ Compare all three methods to print them: (1) C++ default implementation,
+ (2) Scheme implementation using the 'flag-style grob property and
+ (3) setting the 'flag property explicitly to the desired Scheme function.
+ All three systems should be absolutely identical."
}
% test notes, which will be shown in different style:
}
% test notes, which will be shown in different style:
-testnotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64 c''8 d''16 c''32 d''64 \acciaccatura {c''8} d''64 }
+testnotes = { \autoBeamOff
+ c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64
+ c''8 d''16 c''32 d''64 \acciaccatura {c''8} d''64
+}
+% Old settings: flag-style set to default, 'mensural, 'no-flag; using the
+% default C++ function ly:stem::calc-stem
{
\override Score.RehearsalMark #'self-alignment-X = #LEFT
\time 2/4
{
\override Score.RehearsalMark #'self-alignment-X = #LEFT
\time 2/4
- % Old settings: default, 'mensural, 'no-flag
\mark "Default flags (C++)"
\testnotes
\mark "Default flags (C++)"
\testnotes
\mark "Symbol: 'no-flag (C++)"
\override Stem #'flag-style = #'no-flag
\testnotes
\mark "Symbol: 'no-flag (C++)"
\override Stem #'flag-style = #'no-flag
\testnotes
+% The same, but using the Scheme implementation of default-flag
+{
+ \override Score.RehearsalMark #'self-alignment-X = #LEFT
+ \time 2/4
- % The same, but with the Scheme implementation of default-flag
\override Stem #'flag = #default-flag
\revert Stem #'flag-style
\mark "Default flags (Scheme)"
\override Stem #'flag = #default-flag
\revert Stem #'flag-style
\mark "Default flags (Scheme)"
\mark "Symbol: 'no-flag (Scheme)"
\override Stem #'flag-style = #'no-flag
\testnotes
\mark "Symbol: 'no-flag (Scheme)"
\override Stem #'flag-style = #'no-flag
\testnotes
+% New scheme functions: normal-flag, mensural-flag, no-flag
+{
+ \override Score.RehearsalMark #'self-alignment-X = #LEFT
+ \time 2/4
- % New settings: no settings, normal-flag, mensural-flag, no-flag
\mark "Function: normal-flag"
\override Stem #'flag = #normal-flag
\testnotes
\mark "Function: normal-flag"
\override Stem #'flag = #normal-flag
\testnotes