VocalEasel/mma/lib/stdlib/quickstep.mma

// quickstep

Begin Doc

 A quickstep beat. You might want to double up on the tempo when
 using this. Written for ``Hooray For Hollywood''.
 
End

Author Bob van der Poel

SeqClear
Time 4
Timesig 4 4
Include stdpats

///////////////////////////////
// Pattern definitions




//////////////////////////////////////////////////////////
// Quickstep


SeqSize 2
	
Begin Drum-OpenHH
	Tone OpenHiHat
	Volume mp
	Rvolume 10
	Rskip 2
	Sequence {D13; D24 Shift .5}
End

Begin Drum-ClosedHH
	Tone ClosedHiHat
	Volume mp
	Rvolume 10
	Rskip 5
	Sequence D24
End

Begin Drum-Kick
	Tone KickDrum1
	Volume mp
	Rvolume 10
	Sequence D13
End

Begin Bass
	Voice AcousticBass
	Volume mf
	Articulate 94
	Octave 3
	Rvolume 10
	Rtime 2
	Sequence  B13
End

Begin Chord-Piano
	Voice Piano2
	Volume mp
	Voicing Mode=Optimal
	Articulate 70
	Octave 5
	Rtime 2
	Rvolume 10
	Sequence  {1 4 90; 2 8 90; 3 4 90; 4 8 90}
End

Begin Chord-Guitar
	Voice JazzGuitar
	Volume mf
	Voicing Mode=Optimal
	Articulate 90
	Octave 5
	Sequence {1 4 90 0; 3.5 8 90 0 90 0; 4 3 90 0 90 0; 4.66 3 90 0 90 0} \ 
             {4 4 90 0 }
End

DefGroove QuickStep  Snappy quickstep, good for showtunes.

Groove QuickStep

Begin Chord-Hit
	Voice BrassSection
	Volume mp
	Voicing Mode=Optimal
	Octave 6
	Articulate 60
	Rskip 20
	Sequence {1 4. 90; 4 8 90; 4.5 8 90}
End

DefGroove QuickStepHit   Brass hits on 1, 4 and 4.5.
	

//////////////////////////////////
/// Sustained Versions

Groove QuickStep

Begin Chord-Sus
	Voice TremoloStrings
	Sequence  { 1 1 90 0 80 0 * 2}  // Root and fifth notes only.
	Voicing Mode=Optimal
	Volume mp
	Octave 5
	Articulate 100
	Unify On
End

DefGroove QuickStepSus   Sustained version with strings.

Groove QuickStepHit
Chord-Sus Groove QuickStepSus
DefGroove QuickStepHitSus   Sustains with hits.

////////////////////////////////
/// Vocal version


Groove QuickStep
SeqSize 4         // for the randomized vocal patterns

Begin Chord-Duh
	Voice VoiceOohs 
	Octave 5
	Voicing Mode=Optimal
	Volume m
	Sequence {1 4 90 0 90 0} {3 4 90 0 90 0; 4 4 90 0 90 0} \
             {2 2 90 0 90 0} {2 4 90 0 90 0; 3 4 90 0 90 0}
	SeqRnd On
	Articulate 60
End


DefGroove QuickStepDuh           Some vocalization over the basic beat.

Groove QuickStepSus
Chord-Duh Groove QuickStepDuh
DefGroove QuickStepDuhSus        Sustains with vocalization.


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

Groove QuickStep

SeqSize 4

Alltracks Rskip 0

Drum-OpenHH     Sequence   *    D8    D16    D12
Drum-ClosedHH   Sequence   *    D8    D16    D12
Drum-Kick       Sequence   *    *    *      D1
Bass            Sequence   B13  /    /      {1 1 1 90}
Chord-Piano     Sequence   *    *   C1234   L1
Chord-Guitar    Sequence   C1   /   /       L1


Defgroove QuickStepIntro  Four bar intro.

//////////////////////////////////////////////////////////
// Ending

Groove QuickStep

AllTracks Rskip 0


Drum-OpenHH     Sequence   D16    D1
Drum-ClosedHH   Sequence   D16    D1
Drum-Kick       Sequence   *      D1
Bass            Sequence   B13    B1
Chord-Piano     Sequence   C1234  L1
Chord-Guitar    Sequence   L1     C1

DefGroove QuickStepEnd  Two bar ending.