VocalEasel/mma/lib/stdlib/easyswing.mma

// easyswing

Begin Doc

 Soft guitar strumming. Great for tunes like "Beyond The Sea"
 and "Summertime".
  
End

Author Bob van der Poel

SeqClear
Time 4		// All these patterns are 4/4
Timesig 4 4
Include stdpats


///////////////////////////
/// EasySwing


SeqSize 4


Begin Chord
	Sequence	C1234	/  /  C13
	Voicing Mode=Optimal 
	Voice JazzGuitar
	Volume mf
	Articulate 95
	Strum 5
	Accent 1 10 3 5
	RVolume 10
	Octave 5
End

Begin Bass
	Voice AcousticBass
	Sequence	B13	  /  / 	z
	Octave 3
	Articulate 80
	Volume mp
End

Begin Walk
	Voice $_Bass_Voice
	Octave $_Bass_Octave
	Sequence	z	z	z	W1234
	Articulate 80
	Volume mp
End

Begin Drum-HH
	Sequence   D1234
	Rvolume 5
	RSkip 40
	Tone OpenHihat
	Volume p
End	

Begin Drum-PHH
	Sequence	D24
	Tone PedalHiHat
	Volume p
End

Begin Drum-Kick
	Copy Drum
	Sequence D13
	Tone KickDrum1
	Volume m
End

DefGroove EasySwing       Nice/simple jazz guitar in 4.


Begin Chord-Sus
	Sequence  { 1 1 90 0 80 0 * 2}  // Root and fifth notes only.
	Voicing mode=optimal
	Volume p
	Voice TremoloStrings
	Octave 5
	Articulate 99
	Unify On
End

DefGroove EasySwingSus    Adds a sustained strings (2 part) to EasySwing.

Groove EasySwing

Begin Arpeggio
	Voice JazzGuitar
	Sequence  A4 / / A8
	RVolume 20
	Volume mp
	Octave 5
	Harmony Open
	Direction Both Random Both Down
	Articulate  99
	Rskip 5
End

DefGroove EasySwingFill  Adds guitar apreggio. Quarters on \
                         bar 1,2,3 and eights on bar 4.

// EasySwingWalk
// Same as above with with constant walking bass line

Groove EasySwing

Begin Walk
	Sequence W1234
	Articulate 70
	Volume mf
End
	
Bass SeqClear

DefGroove EasySwingWalk    The EasySwing Groove with a full walking \
                           bass line. The bass volume has been increased \
                           as well.

Chord-Sus Groove EasySwingSus

DefGroove EasySwingWalkSus   The EasySwing with a walking bass line and \
                             a sustained string.


Groove Easyswing
Arpeggio Groove EasySwingFill
DefGroove EasySwingWalkFill   Walking bass fill.

////////////////////////////////////////////////////////
///// Easy Swing1  - Same, but with 1 chord per bar

Groove EasySwing	// Just modify the easyswing pattern

Begin Chord
	Sequence	L1
	Strum 20
End

DefGroove EasySwing1    One strum per bar. Okay if the tempo is \
                        quite fast, or as an introduction.

Chord-Sus Groove EasySwingSus
DefGroove EasySwing1Sus     Adds sustained strings to EasySwing1.

Groove EasySwing1
Arpeggio Groove EasySwingFill
DefGroove EasySwing1Fill    Add apreggios to single chord swing.

////////////////////////////////////////////////////////
///// Easy Swing2  - Same, but with 2 chords per bar

Groove EasySwing

Begin Chord
	Sequence	L2
	Strum 10
End

DefGroove EasySwing2      Same EasySwing, but with 2 strums per bar.

Chord-Sus Groove EasySwingSus
DefGroove EasySwing2Sus      Adds ChoirAahs to EasySwing2.

Groove EasySwing2
Arpeggio Groove EasySwingFill
DefGroove EasySwing2Fill    Add apreggios to two chord swing.

/////////////////////////////////////////////
/// EasySwing42  - alternate 4 and 2 strum bars

Groove EasySwing
Chord Sequence C1234 L2
DefGroove EasySwing42      For faster rhythms, a bar of 4 followed \
                           by a bar of 2.

Groove EasySwing42
Chord-Sus Groove EasySwingSus
DefGroove EasySwing42Sus     Add sustained strings to the 4-2 pattern.

Groove EasySwing42
Arpeggio Groove EasySwingFill
DefGroove EasySwing42Fill   Add arpeggios to 4-2 pattern.

Groove EasySwingWalk
Chord Groove EasySwing42
DefGroove EasySwing42Walk    A 4-2 pattern with a walking bass.

Chord-Sus Groove EasySwingSus
DefGroove EasySwing42WalkSus  The 4-2 pattern with walking bass and \
                              sustained strings.

Groove EasySwing42Walk
Arpeggio Groove EasySwingFill
DefGroove EasySwing42WalkFill   Add arpeggios and walking bass with 4-2 pattern.

////////////////////////////////
/// Intros

Groove Easyswing

Begin Alltracks
	SeqRnd Off
	Rskip 0
End

Chord    Sequence	C1234	/ C13  L1
Bass     Sequence	{1 2. 1 90}  /  / 	{1 4 1 80; 2 4 3 85; 3 2 5 95}
Walk     Sequence   -
Drum-HH  Sequence   D1234 / /  D13
Drum-PHH Sequence	D24   /  /  D1

DefGroove EasySwingIntro       4 bar intro


/////////////

Groove EasySwingIntro

Begin Chord
   Sequence L1
   Articulate 99
End

Bass    Sequence {1 2. 1 90} 
Drum-HH Sequence D1234 / / D1

DefGroove EasySwingIntro1    4 bar intro with 1 long chord per bar.

//////////

Groove EasySwingIntro

Chord    Sequence L2

Begin Drum-HH
	Tone RideCymbal1
	Sequence  D16 / / D12
	Accent 1 60  
End

Drum-PHH Sequence D1234 / / D12

DefGroove EasySwingIntro2      4 bar intro with cymbals and 2 strum chords.

//////////////

Groove EasySwingIntro

Bass  Sequence  z z z {1 2. 1 95}
Begin Arpeggio
	Voice $_Bass_Voice
	Octave $_Bass_Octave
	Sequence {1 82 95; 1+81 82 90; 2+81 82 90; 3 2 95 } / / z
	Articulate 90
End

DefGroove EasySwingIntro3      4 bar intro with triplet bass pattern.



///////////////////////////////////////////////
// EasySwingEnd  - a 2 bar ending


SeqClear
Groove EasySwing	// Just modify the easyswing pattern
SeqSize 2

Begin Alltracks
	SeqRnd Off
	Rskip 0
	Rtime 0
End

Drum-HH  Sequence D16 D13
Drum-PHH Sequence D16 D13

Chord Sequence 	C1234 L1

Walk Sequence	W1234  z
Bass Sequence 	z	{1 1 1 90}

DefGroove EasySwingEnd     Simple ending.