-\version "2.1.7"
+\version "2.2.0"
\header {
-texidoc =
+ texidoc =
+"
+In improvisation, noteheads do not have a pitch, and have different
+shapes. In this example, this is achieved by adding
+@code{Pitch_squash_engraver} and setting @code{squashedPosition} when the
+improvisation is active.
-"@cindex improvisation
-
-
-Noteheads for improvisation have a different shape.
+"
+}
-" }
+improOn = \notes {
+ \set squashedPosition = #0
+ \override NoteHead #'style = #'slash
+}
-improOn = \notes {\change Voice = impro }
-improOff = \notes {\change SquashVoice = melo }
+improOff = \notes {
+ \unset squashedPosition
+ \revert NoteHead #'style
+}
global = \notes { s1*3 \bar "|." }
\score {
- <<
- \context ChordNames \chords {e8*7:m7 a2.:m7 bes4:m7 b1:m7 e8:m }
- \context Staff \notes <<
- \context SquashVoice = impro { \global }
- \context Voice = melo \transpose c c' {
- e8 e g a a16(bes)(a8) g \improOn e8
- ~e2~e8 f4 fis8
- ~fis2 \improOff a16(bes) a8 g e
- }
+ <<
+ \context ChordNames \chords {
+ e8*7:m7 a2.:m7 bes4:m7 b1:m7 e8:m
+ }
+ \notes <<
+ \context Voice = melo \transpose c c' {
+ e8 e g a a16(bes)(a8) g \improOn
+ e8
+ ~e2~e8 f4 fis8
+ ~fis2 \improOff a16(bes) a8 g e
+ }
+ >>
>>
- >>
- \paper {
- \translator {
- \VoiceContext
- \name SquashVoice
- \alias Voice
- \consists Pitch_squash_engraver
- squashedPosition = #0
- NoteHead \override #'style = #'slash
- }
-
- \translator {
- \VoiceContext
- \alias SquashVoice
- }
-
- \translator {
- \StaffContext
- \remove "Accidental_engraver"
- \accepts SquashVoice
+ \paper {
+ \context {
+ \VoiceContext
+ \consists Pitch_squash_engraver
+ }
+ raggedright = ##t
}
- raggedright = ##t
- }
}