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