WIP: add stafftab examples
[software/lilypond.git] / stafftab-examples / proclamation.ly
1 \version "2.19.16"
2 \include "stafftab.ly"
3
4 \header {
5 copyright = "copyright"
6 title = "Proclamation"
7 subtitle = "The Power and the Glory"
8 composer = "Gentle Giant"
9 instrument = "Grand Stick (12 string matched reciprocal tuning)"
10 arranger = "arr. Ricardo Wurmus"
11 }
12
13
14 % ------------------------------------------------------
15 % Melody
16 % ------------------------------------------------------
17 intro = \relative f' {
18 \repeat volta 4 {
19 r8
20 < d'-1\1 a-1\2 >16-> b-3\2 f-2\3 r
21 < a-1\2 e-1\3 > f-2\3 r d-4\4 r
22 < as'-1\2 b,-3\4 >16 r8
23 < e-1\3 as,-3\5>16 r
24 }
25 }
26
27 themeA = \relative f' {
28 \intro
29 \repeat volta 4 {
30 < e'-2\1 a,-1\2 >16 b-3\2 e,-1\3 r
31 < d-1\3 a-1\4 > e-2\3 c-3\4 < b-3\4 g'-1\2 >8 r8
32 < des'-1\1 e,-3\3 >16 r8
33 < a-1\2 des,-3\4>16 r16
34 }
35 }
36
37 fiddly = \relative f' {
38 \repeat volta 3 {
39 r16 < g-1\2 c-1\1 > a-2\2-> e-3\3-.
40 < d-1\3 g-1\2 >-> e-2\3 c-3\4 r
41
42 < des-2\3 ges-2\2 >-> ges,-1\4 a-3\4
43 < des-2\3 ges-2\2 > ges,-1\4 a-3\4
44 < des-2\3 ges-2\2 > ges,-1\4
45 }
46 }
47 fiddlyEndA = \relative f' {
48 r16 < g-1\2 c-1\1 > a-2\2-> e-3\3-.
49 < d-1\3 g-1\2 > e-2\3 c-3\4 %r
50 < f-2\2 a,-4\4 >-> c-1\3 f,-4\5
51 < a-1\4 es'-2\3 > b-3\4 ges8-2\5-. ges16
52
53 %% r8 r r r16
54 a16-1\4 ~ a16 b16-3 d-1\3 g-2\2 des-1\3 ges-2\2 r16
55 a,16-1\4 ~ a16 b16-3 d-1\3 g-2\2 c-1\1 as-2\2 r % maybe as-3\2 instead
56 }
57
58 melody = {
59 \intro
60 \themeA
61 \fiddly
62 \fiddlyEndA
63 }
64
65 % ------------------------------------------------------
66 % Bass
67 % ------------------------------------------------------
68 bass = {
69 \relative f {
70 d,4-4\8 d'4.-1\10
71 }
72 }
73
74
75 %% ------------------------------------------------------
76 %% Scores
77 %% ------------------------------------------------------
78 \score {
79 \new GrandStaff
80 <<
81 \new StaffTab {
82 \clef "treble_8"
83 \key d \minor
84 \set Staff.stringTunings = #(stick-string-group stick-matched-reciprocal-tuning 'melody)
85 \new StickVoice { \melody }
86 }
87
88 \new StaffTab {
89 \clef "bass_8"
90 \key d \minor
91 \set Staff.stringTunings = #(stick-string-group stick-matched-reciprocal-tuning 'bass)
92 \new StickVoice { \bass }
93 }
94 >>
95 \layout {}
96 }
97
98 \score {
99 \new GrandStaff
100 <<
101 \new StaffTab {
102 \set Staff.midiInstrument = #"electric guitar (jazz)"
103 \new StickVoice { \unfoldRepeats \melody }
104 }
105
106 \new StaffTab {
107 \set Staff.midiInstrument = #"electric bass (finger)"
108 \new StickVoice { \unfoldRepeats \bass }
109 }
110 \drums {
111 \unfoldRepeats \repeat volta 14 { bd8 bd bd bd }
112 }
113 >>
114 \midi {
115 \context {
116 \Score
117 tempoWholesPerMinute = #(ly:make-moment 45 4)
118 }
119 }
120 }