Issue 1388: Initial work to support opentype font features.

[lilypond.git] / input / regression / flags-straight-stockhausen-boulez.ly

diff --git a/input/regression/flags-straight-stockhausen-boulez.ly b/input/regression/flags-straight-stockhausen-boulez.ly
index 49008ee3b1f196500503e95f254ac98c067666d9..6440bb081ea8ca6534d38273a50d807e9e8ef69f 100644 (file)
--- a/input/regression/flags-straight-stockhausen-boulez.ly
+++ b/input/regression/flags-straight-stockhausen-boulez.ly
@@ -1,17 +1,24 @@
-\version "2.12.0"
+\version "2.19.22"
 
-stemLength = #(define-music-function (parser location length) (number?)
+\header {
+texidoc = "Flags can be drawn straight in the style used by
+Stockhausen and Boulez.
+"
+}
+
+
+stemLength = #(define-music-function (length) (number?)
   "Set the length of the next stem explicitly."
   #{
-    \once \override Stem #'length-fraction = #$length
+    \once \override Stem.length-fraction = #length
   #}
 )
 
 {
     \autoBeamOff
     \time 3/8
-    \override Stem #'flag = #modern-straight-flag
-    \override Stem #'length-fraction = #'1.5
+    \override Flag.stencil = #modern-straight-flag
+    \override Stem.length-fraction = #'1.5
     r8
     \acciaccatura {
          \stemDown
@@ -20,11 +27,10 @@ stemLength = #(define-music-function (parser location length) (number?)
          gis''8
          \stemNeutral
        } \stemLength #1.43 d'8 r16 
-       \stemLength #0.95
-       \acciaccatura c''8 
+       \acciaccatura { \stemLength #0.95 c''8 }
        \stemLength #1.25
        b'32 r
     \bar"|.|"
     \stemLength #1.25
     <g! cis'>16 \stemLength #1.3 <f'! g''!>8
-}
\ No newline at end of file
+}