]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/flags-default.ly
Run scripts/auxiliar/update-with-convert-ly.sh
[lilypond.git] / input / regression / flags-default.ly
index bed879f3634a2366d7adc0013e1537f813032890..4b27eb8ca057c51130d25f5ddbd5744ef1181e49 100644 (file)
@@ -1,62 +1,75 @@
-\version "2.11.57"
+\version "2.16.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 '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: 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
 
   \mark "Symbol: 'mensural (C++)"
-  \override Stem #'flag-style = #'mensural
+  \override Flag #'style = #'mensural
   \testnotes
 
   \mark "Symbol: 'no-flag (C++)"
-  \override Stem #'flag-style = #'no-flag
+  \override 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
+  \override Flag #'stencil = #default-flag
+  \revert Flag #'style
   \mark "Default flags (Scheme)"
   \testnotes
 
   \mark "Symbol: 'mensural (Scheme)"
-  \override Stem #'flag-style = #'mensural
+  \override Flag #'style = #'mensural
   \testnotes
 
   \mark "Symbol: 'no-flag (Scheme)"
-  \override Stem #'flag-style = #'no-flag
+  \override 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
+  \override Flag #'stencil = #normal-flag
   \testnotes
 
   \mark "Function: mensural-flag"
-  \override Stem #'flag = #mensural-flag
+  \override Flag #'stencil = #mensural-flag
   \testnotes
 
   \mark "Function: no-flag"
-  \override Stem #'flag = #no-flag
+  \override Flag #'stencil = #no-flag
   \testnotes
 }