]> git.donarmstrong.com Git - lilypond.git/blob - input/template/jazz-combo.ly
* scm/paper.scm (set-staff-size): new function: set default
[lilypond.git] / input / template / jazz-combo.ly
1 \version "2.1.11"
2 \header {
3         title = "Song"
4         subtitle = "(tune)"
5         composer = "Me"
6         meter = "moderato"
7         piece = "Swing"
8         tagline = "LilyPond example file by Amelie Zapf, Berlin 07/07/2003"
9         texidoc = "Jazz tune for combo (horns, piano, drums, bass, guitar)."
10 }
11
12 #(set-staff-size 16)
13 \include "english.ly"
14
15 %%%%%%%%%%%% Some macros %%%%%%%%%%%%%%%%%%%
16
17 sl = {
18           \property Voice.NoteHead \override #'style = #'slash
19           \property Voice.Stem \override #'length = #0 }
20 nsl = {
21          \property Voice.NoteHead \revert #'style
22          \property Voice.Stem \revert #'length }
23 cr = \property Voice.NoteHead \override #'style = #'cross
24 ncr = \property Voice.NoteHead \revert #'style
25
26 %% insert chord name style stuff here.
27
28 jzchords = { } 
29
30 %%%%%%%%%%%% Keys'n'thangs %%%%%%%%%%%%%%%%%
31
32 global = \notes {
33         \time 4/4
34 }
35
36 Key = \notes \key c \major
37
38 % ############ Horns ############
39 % ------ Trumpet ------
40 trpt = \notes \transpose c d \relative c'' {
41         \Key
42         c1 c c
43 }
44
45 trpharmony = \chords \transpose c' d { \jzchords }
46 trumpet = {
47         \global 
48         \property Staff.instrument = #"Trumpet"
49         \clef treble
50         \context Staff <<
51                 \trpt
52         >>
53 }
54
55 % ------ Alto Saxophone ------
56 alto = \notes \transpose c a \relative c' {
57         \Key
58         c1 c c
59 }
60
61 altoharmony = \chords \transpose c' a { \jzchords }
62 altosax = {
63         \global
64         \property Staff.instrument = #"Alto Sax"
65         \clef treble
66         \context Staff <<
67                 \alto
68         >>
69 }
70
71 % ------ Baritone Saxophone ------
72 bari = \notes \transpose c a' \relative c {
73         \Key
74         c1 c \sl d4^"Solo" d d d \nsl
75 }
76
77 bariharmony = \chords \transpose c' a { \jzchords s1 s d2:maj e:m7 }
78 barisax = {
79         \global
80         \property Staff.instrument = #"Bari Sax"
81         \clef treble
82         \context Staff <<
83                 \bari
84         >>
85 }
86 % ------ Trombone ------
87 tbone = \notes \relative c {
88         \Key
89         c1 c c
90 }
91
92 tboneharmony = \chords { \jzchords }
93 trombone = {
94         \global
95         \property Staff.instrument = #"Trombone"
96         \clef bass
97         \context Staff <<
98                 \tbone
99         >>
100 }
101 % ############ Rhythm Section #############
102 % ------ Guitar ------
103 gtr = \notes \relative c'' {
104         \Key
105         c1 \sl b4 b b b \nsl c1
106 }
107
108 gtrharmony = \chords { \jzchords
109         s1 c2:min7+ d2:maj9
110 }
111
112 guitar = {
113         \global
114         \property Staff.instrument = #"Guitar"
115         \clef treble
116         \context Staff <<
117                 \gtr
118         >>
119 }
120
121 %% ------ Piano ------
122 rhUpper = \notes \relative c'' {
123         \voiceOne
124         \Key
125         c1 c c
126 }
127
128 rhLower = \notes \relative c' {
129         \voiceTwo
130         \Key
131         e1 e e
132 }
133
134 lhUpper = \notes \relative c' {
135         \voiceOne
136         \Key
137         g1 g g
138 }
139
140 lhLower = \notes \relative c {
141         \voiceTwo
142         \Key
143         c1 c c
144 }
145
146 PianoRH = {
147         \clef treble
148         \global
149         \property Staff.midiInstrument = "acoustic grand"
150         \context Staff <<
151                 \context Voice = one \rhUpper
152                 \context Voice = two \rhLower
153         >>
154 }
155
156 PianoLH = {
157         \clef bass
158         \global
159         \property Staff.midiInstrument = "acoustic grand"
160         \context Staff <<
161                 \context Voice = one \lhUpper
162                 \context Voice = two \lhLower
163         >>
164 }
165
166 piano = {
167         \context PianoStaff <<
168                 \property PianoStaff.instrument = #"Piano"
169                 \context Staff = upper \PianoRH
170                 \context Staff = lower \PianoLH
171         >>
172 }
173
174 % ------ Bass Guitar ------
175 bass = \notes \relative c {
176         \Key
177         c1 c c
178 }
179
180 bass = {
181         \global
182         \property Staff.instrument = #"Bass"
183         \clef bass
184         \context Staff <<
185                 \bass
186         >>
187 }
188
189 % ------ Drums ------
190 \include "drumpitch-init.ly"
191 up = \notes {
192         hh4 <<hh4 sn>> hh4 <<hh4 sn>> hh4 <<hh4 sn>> hh4 <<hh4 sn>>
193         hh4 <<hh4 sn>> hh4 <<hh4 sn>>
194 }
195 down = \notes {
196         bd4 s bd s bd s bd s bd s bd s
197 }
198
199 drums = \context Staff = drums {
200         \global
201         \property Staff.instrument = #"Drums"
202         \clef percussion
203         <<
204                 \context Voice = first { \voiceOne \up }
205                 \context Voice = second { \voiceTwo \down }
206         >>
207 }
208
209 %%%%%%%%% It All Goes Together Here %%%%%%%%%%%%%%%%%%%%%%
210
211 \score {
212 <<
213         \context StaffGroup = horns <<
214                 \context Staff = trumpet \trumpet
215
216                 \context Staff = altosax \altosax
217
218                 \context ChordNames = barichords \bariharmony
219
220                 \context Staff = barisax \barisax
221
222                 \context Staff = trombone \trombone
223         >>
224
225         \context StaffGroup = rhythm <<
226                 \context ChordNames = chords \gtrharmony
227                 \context Staff = guitar \guitar
228                 \context PianoStaff = piano \piano
229                 
230                 \context Staff = bass \bass
231                 
232                 \apply #(drums->paper 'drums) \drums
233         >>
234 >>
235         \midi { \tempo 4 = 75 }
236         \paper {
237                 linewidth = 15.0 \cm
238                 \translator { \RemoveEmptyStaffContext }
239                 \translator {
240                         \ScoreContext
241                         BarNumber \override #'padding = #3
242                         RehearsalMark \override #'padding = #2
243                         skipBars = ##t
244                 }
245         }
246 }
247