input/test/improv.ly

   1 \version "1.9.8"
   2 \header {
   3
   4 texidoc =
   5
   6
   7 "@cindex improvisation
   8
   9
  10 Noteheads for improvisation have a different shape.
  11
  12
  13 " }
  14
  15
  16 improOn = \notes {\translator Voice = impro }
  17 improOff = \notes {\translator SquashVoice = melo }
  18
  19 global = \notes { s1*3 \bar "|." }
  20
  21 \score {
  22   <<
  23     \context ChordNames \chords {e8*7:m7 a2.:m7 bes4:m7 b1:m7 e8:m }
  24     \context Staff \notes <<
  25       \context SquashVoice = impro { \global }
  26       \context Voice = melo \transpose c c' {
  27         e8 e g a a16(bes)(a8) g \improOn e8
  28         ~e2~e8 f4 fis8
  29         ~fis2 \improOff a16(bes) a8 g e
  30       }
  31     >>
  32   >>
  33   \paper {
  34     \translator {
  35       \VoiceContext
  36       \name SquashVoice
  37       \alias Voice
  38       \consists Pitch_squash_engraver
  39       squashedPosition = #0
  40       NoteHead \override #'style = #'slash
  41     }
  42
  43     \translator {
  44       \VoiceContext
  45       \alias SquashVoice
  46     }
  47
  48     \translator {
  49       \StaffContext
  50       \remove "Accidental_engraver"
  51       \accepts SquashVoice
  52     }
  53     raggedright = ##t
  54   }
  55 }
  56