input/regression/flags-straight-stockhausen-boulez.ly

   1 \version "2.12.0"
   2
   3 \header {
   4 texidoc = "Flags can be drawn straight in the style used by
   5 Stockhausen and Boulez.
   6 "
   7 }
   8
   9
  10 stemLength = #(define-music-function (parser location length) (number?)
  11   "Set the length of the next stem explicitly."
  12   #{
  13     \once \override Stem #'length-fraction = #$length
  14   #}
  15 )
  16
  17 {
  18     \autoBeamOff
  19     \time 3/8
  20     \override Stem #'flag = #modern-straight-flag
  21     \override Stem #'length-fraction = #'1.5
  22     r8
  23     \acciaccatura {
  24          \stemDown
  25          \slurUp
  26          \stemLength #1
  27          gis''8
  28          \stemNeutral
  29        } \stemLength #1.43 d'8 r16
  30        \stemLength #0.95
  31        \acciaccatura c''8
  32        \stemLength #1.25
  33        b'32 r
  34     \bar"|.|"
  35     \stemLength #1.25
  36     <g! cis'>16 \stemLength #1.3 <f'! g''!>8
  37 }