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

   1 \version "2.19.22"
   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 (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 Flag.stencil = #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        \acciaccatura { \stemLength #0.95 c''8 }
  31        \stemLength #1.25
  32        b'32 r
  33     \bar"|.|"
  34     \stemLength #1.25
  35     <g! cis'>16 \stemLength #1.3 <f'! g''!>8
  36 }