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