]> git.donarmstrong.com Git - lilypond.git/blob - input/test/hara-kiri.ly
release: 1.3.7
[lilypond.git] / input / test / hara-kiri.ly
1 \version "1.3.5";
2
3 toeter_i = \notes\relative c <{
4                 \property Staff.instrument = "Toeters"
5                 \property Staff.instr = "Ttr." }
6         \context Voice = lower { \stemdown s1*6 }
7         \context Voice = upper { \stemup s1*6 }
8         \context Voice = together  { 
9
10         c'''4^"toet I" c c c 
11         d d d d \break
12         R1 
13         \context Voice = upper {
14                 e4 e e e \break }
15         f f f f
16         g g g g 
17 }>
18
19 toeter_ii = \notes \relative c \context Voice = together { 
20         c''4^"toet II" c c c 
21         d d d d 
22         R1 
23         \context Voice = lower {
24                 \stemdown 
25                 e4 e e e 
26         }
27         f f f f 
28         g g g g
29 }
30
31 toeters = \context Staff = toeters <
32         \toeter_i
33         \toeter_ii
34 >
35  
36 zager = \context Staff = zager \notes \relative c'' {
37         \clef treble;
38         \property Staff.instrument = "Zager"
39         \property Staff.instr = "Zag."
40         c4^"zag" d e f 
41         \property Staff.instr = "Zag. \& Zog."
42         f e d c 
43         c d e f 
44         \property Staff.instr = "Zag."
45         \stemup
46         f e d c 
47         c d e f 
48         f e d c
49 }
50
51 zoger = \context Staff = zoger \notes \relative c'' {
52         \clef treble;
53         \property Staff.instrument = "Zoger"
54         \property Staff.instr = "Zog."
55         c4^"zog" d e f 
56         \skip 1*2;
57
58         \translator Staff=zager
59         \stemdown 
60         c2 g2
61         
62         a4 b c d 
63         \skip 1*1;
64 }
65
66 zagers = \context GrandStaff <
67         \zager
68         \zoger
69 >
70  
71 \score{
72         <
73                 \context StaffGroup = toeters <
74                         \toeters
75                 >
76                 \context StaffGroup = zagers <
77                         \zagers
78                 >
79         >
80         \paper{
81                 linewidth = 80.0\mm;
82                 \translator { \HaraKiriStaffContext }
83 %uh?
84                 \translator { \OrchestralScoreContext }
85 %               \translator { \OrchestralPartStaffContext }
86         }
87 }
88
89