2 \header { texidoc = "@cindex Improv
3 Noteheads for improvisation have a different shape. " }
5 %{ TODO: the construct with separet SquashVoice context is a little
9 improOn = \notes {\translator Voice = impro }
10 improOff = \notes {\translator SquashVoice = melo }
12 global = \notes { s1*3 \bar "|." }
16 \context ChordNames \chords {e8*7:m7 a2.:m7 bes4:m7 b1:m7 e8:m }
17 \context Staff \notes <
18 \context SquashVoice = impro { \global }
19 \context Voice = melo \transpose c c' {
20 e8 e g a a16(bes-)(a8-) g \improOn e8
22 ~fis2 \improOff a16(bes-) a8 g e
31 \consists Pitch_squash_engraver
32 \consists "Accidental_engraver"
34 NoteHead \override #'style = #'slash
35 Accidental \override #'transparent = ##t
40 \consists "Accidental_engraver"
48 \remove "Accidental_engraver"