input/test/improv.ly

   1 \version "1.7.18"
   2 \header { texidoc = "@cindex Improv
   3 Noteheads for improvisation have a different shape. " }
   4
   5 %{ TODO: the construct with separet SquashVoice context is a little
   6  gory. FIXME.  %}
   7
   8
   9 improOn = \notes {\translator Voice = impro }
  10 improOff = \notes {\translator SquashVoice = melo }
  11
  12 global = \notes { s1*3 \bar "|." }
  13
  14 \score {
  15   <
  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
  21         ~e2~e8 f4 fis8
  22         ~fis2 \improOff a16(bes-) a8 g e
  23       }
  24     >
  25   >
  26   \paper {
  27     \translator {
  28       \VoiceContext
  29       \name SquashVoice
  30       \alias Voice
  31       \consists Pitch_squash_engraver
  32       \consists "Accidental_engraver"
  33       squashedPosition = #0
  34       NoteHead \override #'style = #'slash
  35       Accidental \override #'transparent = ##t
  36     }
  37     \translator {
  38       \VoiceContext
  39       \alias SquashVoice
  40       \consists "Accidental_engraver"
  41     }
  42     \translator {
  43       \ScoreContext
  44       \accepts SquashVoice
  45     }
  46     \translator {
  47       \StaffContext
  48       \remove "Accidental_engraver"
  49       \accepts SquashVoice
  50     }
  51     raggedright = ##t
  52   }
  53 }
  54 %% new-chords-done %%