VocalEasel/mma/lib/stdlib/8beat.mma

// 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.
	

///////////////////////
/// Intro

Groove 8Beat

Alltracks SeqRnd Off

Drum-OHH     Sequence   *    *    *    D1234
Drum-CHH     Sequence   *    *    *    D13
Drum-Snare   Sequence   D24  /    /    /
Drum-Kick    Sequence   *    *    *    D1

Bass         Sequence	Bmain  /  /    B1

Chord        Sequence   P1    P2  P3   C123

Chord-Guitar Sequence	G1    G1  G1   L1


DefGroove 8BeatIntro   Straight-ahead four bar introduction.


///////////////////////////////////////
// 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.