1\version "2.19.22"
2
3\header {
4texidoc = "Flags can be drawn straight in the style used by
5Stockhausen and Boulez.
6"
7}
8
9
10stemLength = #(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}
37