VocalEasel/mma/lib/stdlib/8beat.mma
Matthias Neeracher d599bfbe4e Added MMA
2006-11-10 08:07:56 +00:00

200 lines
3.3 KiB
Plaintext

// 8beat
Begin Doc
Most older rock tunes accept these. Try it with songs like
"There's a Kind Of Hush".
End
Author Bob van der Poel
SeqClear
Time 4
Timesig 4 4
Include stdpats
///////////////////////////
// Define patterns
Begin Drum Define
D1234+ D1234 ; D34 Shift .5
End
Begin Chord Define
P1 C1; C234 Shift .5
P2 C1; C3 Shift .5
P3 C1; C34 Shift .5
P4 C34 Shift .5
// Guitar chords only play root/5th -- don't invert!
G1 1 4 90 0 90 0 ; \
2.5 8 90 0 90 0; \
3 4 90 0 90 0; \
4 4 90 0 90 0
G2 1 1 90 0 90 0 * 4
End
Begin Bass Define
Bmain 1 4 1 110 ; 2 8 1 60 ; \
2.5 8 1 60 ; 3 8 1 60 ; \
3.5 8 1 60 ; 4.5 8 1 60
Bplus 1 4 1 90 ; 2.5 8 1 80 ; \
3 8 1 90 ; 4 8 5 90
End
Begin Walk Define
Wskip 1 8 90 ; \
1.5 8 90 ; \
2.5 8 80 ; \
3 8 90 ; \
4 8 90
End
/////////////////
// 8beat
SeqSize 4
// Straight ahead drum stuff
Begin Drum-OHH
Sequence { D1234; 1.5 0 90; 2.5 0 90}
Rskip 30
Volume mp
Tone OpenHiHat
RVolume 20
End
Begin Drum-CHH
Sequence D8
Tone ClosedHiHat
Rskip 20
Volume mp
Rtime 2
RVolume 20
End
Begin Drum-Snare
Sequence D24 / / { D24; 3.5 0 90; 4.5 0 90 }
Tone SnareDrum1
Volume mp
Rtime 2
RVolume 20
End
Begin Drum-Kick
Sequence {D1; 3.5 0 90; 4.5 0 90} {D1; D1 Shift .5; 3.5 0 90; 4.5 0 90}
Tone KickDrum1
Volume mp
Rtime 3
RVolume 10
End
// Bass. A heavy beat on 1 with softer on offbeats
Begin Bass
Sequence Bmain
Voice FingeredBass
Octave 3
Volume mf
RVolume 5
Articulate 76
End
// Randomized chords on 1, 2, 2.5, 3, 3.5, 4
Begin Chord
Voice Honky-TonkPiano
Sequence P1 P2 P3 P4
SeqRnd On
Voicing Mode=Optimal Rmove=10
Volume mf
Articulate 90
Octave 5
End
// Open harmony guitar chords
Begin Chord-Guitar
Sequence G1 G1 G1 G2
Voicing Mode=Invert
Articulate 90
Volume mp
Voice CleanGuitar
Octave 4
End
DefGroove 8Beat Good for oldish rock stuff.
////////////////////////////////////////////////////////////
// Enhance the 8beat rhythms by adding a sustained string
////////////////////////////////////////////////////////////
// The SlowStrings groove is used as a track setting to
// be added to 8Beat and 8Beat1 grooves. Not meant to be
// used alone.
Groove 8Beat
Begin Chord-Sus
Voice SlowStrings
Sequence {1 1 90 0 90 0 * 4}
Voicing Mode=Optimal
Volume mp
Unify On
Octave 5
Articulate 100
End
DefGroove 8BeatSus Adds sustained string to 8Beat.
///////////////////////////////////////
// 8Beat1
// Adds a better bass line to 8beat.
Groove 8Beat
Bass Sequence Bplus z Bplus z
Begin Walk
Sequence z W1234 z Wskip
Voice FingeredBass
Octave 3
RVolume 5
Articulate 60
End
DefGroove 8Beat1 Adds interest to bass line with alternate walking bars.
Chord-Sus Groove 8BeatSus
DefGroove 8Beat1Sus Adds sustained string to 8Beat1.
///////////////////////////////////////
// 8BeatEnd
Groove 8Beat
Seqsize 2
Drum-OHH Sequence D1234
Drum-CHH Sequence D1234 D1
Drum-Snare Sequence D1234
Drum-Kick Sequence D1234+ D13
Chord Sequence C1234 C13
Chord-Guitar Sequence C1234 C13
Bass Sequence B1
DefGroove 8BeatEnd Simple ending.