]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/flags-default.ly
Imported Upstream version 2.14.2
[lilypond.git] / input / regression / flags-default.ly
index bed879f3634a2366d7adc0013e1537f813032890..c74e64e767b75457a3c5fcbafcff55b665bd2479 100644 (file)
@@ -1,23 +1,30 @@
-\version "2.11.57"
+\version "2.14.0"
+#(set-global-staff-size 17)
 
 \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."
 }
 
+\paper {
+  line-width = 18\cm
+}
 
 % 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
-  s2 \break
 
-  % Old settings: default, 'mensural, 'no-flag
   \mark "Default flags (C++)"
   \testnotes
 
@@ -28,10 +35,13 @@ testnotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64 c''8 d''1
   \mark "Symbol: 'no-flag (C++)"
   \override Stem #'flag-style = #'no-flag
   \testnotes
+}
 
-  \break
+% 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)"
@@ -44,10 +54,13 @@ testnotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64 c''8 d''1
   \mark "Symbol: 'no-flag (Scheme)"
   \override Stem #'flag-style = #'no-flag
   \testnotes
+}
 
-  \break
+% 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