]> git.donarmstrong.com Git - lilypond.git/blob - input/test/improv.ly
* scm/define-grobs.scm (all-grob-descriptions): remove
[lilypond.git] / input / test / improv.ly
1 \version "2.1.7"
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 {\change Voice = impro }
17 improOff = \notes {\change 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