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

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