]> git.donarmstrong.com Git - lilypond.git/blob - input/tutorial/singing-saw.ly
patch::: 1.3.134.jcn1
[lilypond.git] / input / tutorial / singing-saw.ly
1
2
3 accompMotif = \notes \relative c {
4         \times 2/3 { c8 g' es' }
5         \times 2/3 { c' es, g, }
6 }
7
8 accomp =  \notes \relative c' \autochange Staff {
9         \autoBeamOff
10         <c2-\arpeggio es g>
11         r8 d-.
12         \showStaffSwitch
13         f,  b,
14         \hideStaffSwitch
15         \autoBeamOn
16         \repeat unfold 2 \accompMotif
17 }
18 piano = \context PianoStaff  \notes <
19   \context Staff = up <
20      s1*2
21      \accomp
22    >
23   \context Staff = down { \clef bass; s1*2 }
24 >
25
26 saw = \context Staff \notes  {
27         \property Staff.clefOctavation = #7
28         r1 b'''2 - \glissando ais'''2 
29 }
30
31 \score {
32   <   \saw \piano  >
33 }
34