8 tagline = "Lilypond example file by Amelie Zapf, Berlin 07/07/2003"
9 texidoc = "Jazz tune for combo (horns, piano, drums, bass, guitar)."
15 %%%%%%%%%%%% Some macros %%%%%%%%%%%%%%%%%%%
18 \property Voice.NoteHead \override #'style = #'slash
19 \property Voice.Stem \override #'length = #0 }
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 jzchords = \property ChordNames.ChordName \override #'style = #'jazz
27 %%%%%%%%%%%% Keys'n'thangs %%%%%%%%%%%%%%%%%
33 Key = \notes \key c \major
35 % ############ Horns ############
36 % ------ Trumpet ------
37 trpt = \notes \transpose d' \relative c'' {
42 trpharmony = \chords \transpose d { \jzchords }
45 \property Staff.instrument = #"Trumpet"
52 % ------ Alto Saxophone ------
53 alto = \notes \transpose a' \relative c' {
58 altoharmony = \chords \transpose a { \jzchords }
61 \property Staff.instrument = #"Alto Sax"
68 % ------ Baritone Saxophone ------
69 bari = \notes \transpose a'' \relative c {
71 c1 c \sl d4^"Solo" d d d \nsl
74 bariharmony = \chords \transpose a { \jzchords s1 s d2:maj e:m.7 }
77 \property Staff.instrument = #"Bari Sax"
83 % ------ Trombone ------
84 tbone = \notes \relative c {
89 tboneharmony = \chords { \jzchords }
92 \property Staff.instrument = #"Trombone"
98 % ############ Rhythm Section #############
99 % ------ Guitar ------
100 gtr = \notes \relative c'' {
102 c1 \sl b4 b b b \nsl c1
105 gtrharmony = \chords { \jzchords
106 s1 c2:min.7+ d2:maj.9
111 \property Staff.instrument = #"Guitar"
118 %% ------ Piano ------
119 rhUpper = \notes \relative c'' {
125 rhLower = \notes \relative c' {
131 lhUpper = \notes \relative c' {
137 lhLower = \notes \relative c {
146 \property Staff.midiInstrument = "acoustic grand"
148 \context Voice = one \rhUpper
149 \context Voice = two \rhLower
156 \property Staff.midiInstrument = "acoustic grand"
158 \context Voice = one \lhUpper
159 \context Voice = two \lhLower
164 \context PianoStaff <
165 \property PianoStaff.instrument = #"Piano"
166 \context Staff = upper \PianoRH
167 \context Staff = lower \PianoLH
171 % ------ Bass Guitar ------
172 bass = \notes \relative c {
179 \property Staff.instrument = #"Bass"
186 % ------ Drums ------
187 \include "drumpitch-init.ly"
189 hh4 <hh4 sn> hh4 <hh4 sn> hh4 <hh4 sn> hh4 <hh4 sn>
190 hh4 <hh4 sn> hh4 <hh4 sn>
193 bd4 s bd s bd s bd s bd s bd s
198 \property Staff.instrument = #"Drums"
201 \context Voice = first { \voiceOne \up }
202 \context Voice = second { \voiceTwo \down }
206 %%%%%%%%% It All Goes Together Here %%%%%%%%%%%%%%%%%%%%%%
210 \context StaffGroup = horns <
211 \context Staff = trumpet \trumpet
213 \context Staff = altosax \altosax
215 \context ChordNames = barichords \bariharmony
217 \context Staff = barisax \barisax
219 \context Staff = trombone \trombone
222 \context StaffGroup = rhythm <
223 \context ChordNames = chords \gtrharmony
224 \context Staff = guitar \guitar
225 \context PianoStaff = piano \piano
227 \context Staff = bass \bass
229 \apply #(drums->paper 'drums) \context Staff = drums \drums
232 \midi { \tempo 4 = 75 }
235 \translator { \HaraKiriStaffContext }
238 \consists Instrument_name_engraver
242 BarNumber \override #'padding = #3
243 RehearsalMark \override #'padding = #2