[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Jazz Group Template, was: Re: Problem with Chord Names
From: |
Amelie Zapf |
Subject: |
Jazz Group Template, was: Re: Problem with Chord Names |
Date: |
Mon, 7 Jul 2003 16:42:40 +0200 |
User-agent: |
KMail/1.4.3 |
Hi Han-Wen, Rick, all,
This is a thoroughly cleaned-up version (FYE, for your edification):
\version "1.6.6"
\header {
title = "Song"
subtitle = "(tune)"
composer = "Me"
meter = "moderato"
piece = "Swing"
tagline = "Lilypond example file by Amelie Zapf, Berlin 07/07/2003"
}
\include "paper16.ly"
\include "english.ly"
%%%%%%%%%%%% Some macros %%%%%%%%%%%%%%%%%%%
sl = {
\property Voice.NoteHead \override #'style = #'slash
\property Voice.Stem \override #'length = #0 }
nsl = {
\property Voice.NoteHead \revert #'style
\property Voice.Stem \revert #'length }
cr = \property Voice.NoteHead \override #'style = #'cross
ncr = \property Voice.NoteHead \revert #'style
jzchords = \property ChordNames.ChordName \override #'style = #'jazz
%%%%%%%%%%%% Keys'n'thangs %%%%%%%%%%%%%%%%%
global = \notes {
\time 4/4
}
Key = \notes \key c \major
% ############ Horns ############
% ------ Trumpet ------
trpt = \notes \transpose d' \relative c'' {
\Key
c1 c c
}
trpharmony = \chords \transpose d { \jzchords }
trumpet = {
\global
\property Staff.instrument = #"Trumpet"
\clef treble
\context Staff <
\trpt
>
}
% ------ Alto Saxophone ------
alto = \notes \transpose a' \relative c' {
\Key
c1 c c
}
altoharmony = \chords \transpose a { \jzchords }
altosax = {
\global
\property Staff.instrument = #"Alto Sax"
\clef treble
\context Staff <
\alto
>
}
% ------ Baritone Saxophone ------
bari = \notes \transpose a'' \relative c {
\Key
c1 c \sl d4^"Solo" d d d \nsl
}
bariharmony = \chords \transpose a { \jzchords s1 s d2:maj e:m.7 }
barisax = {
\global
\property Staff.instrument = #"Bari Sax"
\clef treble
\context Staff <
\bari
>
}
% ------ Trombone ------
tbone = \notes \relative c {
\Key
c1 c c
}
tboneharmony = \chords { \jzchords }
trombone = {
\global
\property Staff.instrument = #"Trombone"
\clef bass
\context Staff <
\tbone
>
}
% ############ Rhythm Section #############
% ------ Guitar ------
gtr = \notes \relative c'' {
\Key
c1 \sl b4 b b b \nsl c1
}
gtrharmony = \chords { \jzchords
s1 c2:min.7+ d2:maj.9
}
guitar = {
\global
\property Staff.instrument = #"Guitar"
\clef treble
\context Staff <
\gtr
>
}
%% ------ Piano ------
rhUpper = \notes \relative c'' {
\voiceOne
\Key
c1 c c
}
rhLower = \notes \relative c' {
\voiceTwo
\Key
e1 e e
}
lhUpper = \notes \relative c' {
\voiceOne
\Key
g1 g g
}
lhLower = \notes \relative c {
\voiceTwo
\Key
c1 c c
}
PianoRH = {
\clef treble
\global
\property Staff.midiInstrument = "acoustic grand"
\context Staff <
\context Voice = one \rhUpper
\context Voice = two \rhLower
>
}
PianoLH = {
\clef bass
\global
\property Staff.midiInstrument = "acoustic grand"
\context Staff <
\context Voice = one \lhUpper
\context Voice = two \lhLower
>
}
piano = {
\context PianoStaff <
\property PianoStaff.instrument = #"Piano"
\context Staff = upper \PianoRH
\context Staff = lower \PianoLH
>
}
% ------ Bass Guitar ------
bass = \notes \relative c {
\Key
c1 c c
}
bass = {
\global
\property Staff.instrument = #"Bass"
\clef bass
\context Staff <
\bass
>
}
% ------ Drums ------
\include "drumpitch-init.ly"
up = \notes {
hh4 <hh4 sn> hh4 <hh4 sn> hh4 <hh4 sn> hh4 <hh4 sn>
hh4 <hh4 sn> hh4 <hh4 sn>
}
down = \notes {
bd4 s bd s bd s bd s bd s bd s
}
drums = {
\global
\property Staff.instrument = #"Drums"
\clef percussion
\context Staff <
\context Voice = first { \voiceOne \up }
\context Voice = second { \voiceTwo \down }
>
}
%%%%%%%%% It All Goes Together Here %%%%%%%%%%%%%%%%%%%%%%
\score {
<
\context StaffGroup = horns <
\context Staff = trumpet \trumpet
\context Staff = altosax \altosax
\context ChordNames = barichords \bariharmony
\context Staff = barisax \barisax
\context Staff = trombone \trombone
>
\context StaffGroup = rhythm <
\context ChordNames = chords \gtrharmony
\context Staff = guitar \guitar
\context PianoStaff = piano \piano
\context Staff = bass \bass
\apply #(drums->paper 'drums) \context Staff = drums \drums
>
>
\midi { \tempo 4 = 75 }
\paper {
linewidth = 15.0 \cm
\translator { \HaraKiriStaffContext }
\translator {
\StaffContext
\consists Instrument_name_engraver
}
\translator {
\ScoreContext
BarNumber \override #'padding = #3
RehearsalMark \override #'padding = #2
skipBars = ##t
}
}
}