VocalEasel/mma/lib/stdlib/bolero.mma

// bolero

Begin Doc

  A try at a Bolero. Written for "Tonight".
 
End

Author Bob van der Poel

SeqClear
Time 4
Timesig 4 4
Include stdpats

/////////////////////////////////////////
/////// Instrument patterns


Begin Chord Define
	TR3  1 3 90; 1.33 3 90; 1.66 3 90
	CT1 C13; TR3 Shift 1 ; TR3 Shift 3
	CT2 C134; TR3 Shift 1
	CT3 C13; TR3
End

Drum  Define Dtriple 1 0 90; 1.333 0 90; 1.666 0 90
	        
/////////////////////////////////



SeqSize 4

Begin Drum-Kick
	Sequence        {D1; D2 Shift .5}
	Tone  KickDrum1
	Rvolume 10
	Rtime 2
	Volume p
End

Begin Drum-Hbongo
	Sequence       {D3 Shift .5}
	Tone HighBongo
	Rvolume 5
	Volume mp
	Rtime 2
End
	
Begin Drum-Lbongo
	Sequence     {D4; D4 Shift .5}
	Tone LowBongo
	Rvolume 5
	Rtime 2
	Volume mp
End

Begin Drum-Maraca
	Sequence     {D1234; D1234 Shift .5; D1 Shift .5}
	Tone         Maracas
	Rskip 10
	Volume mp
	Rvolume 5
	Rtime 2
End

Begin Drum-Claves
	Sequence     {D2; D3 Shift .5}
	Tone         Claves
	Volume mp
	Rvolume 5
	Rtime 2
End

Begin Chord
	Voice SteelGuitar
	Articulate 60
	Volume mp
	Voicing  Mode=Optimal
	Sequence C8
	Octave 5
	Rskip 20
	Strum 3
	Rvolume 20
	Rtime 10
End

Begin Bass
	Voice  FingeredBass
	Octave 3
	Articulate  80
	Accent 1 20
	Volume mf
	Rtime 10
	Rvolume 20
	Sequence  {1 4. 1 90; 2.5 8 3 90; 4 4 1 90}
End

Begin Bass-Guitar
	Voice NylonGuitar
	Volume f
	Octave 4
	Sequence   {1 2. 1 90 } {4.5 8 1 90 }
	Articulate 90
End

DefGroove Bolero    Latin-style Bolero rhythm.


Begin Arpeggio
	Voice Flute
	Volume mp
	Octave 5
	Range 2
	Sequence  A8
	Articulate 60
	Rskip 20
	Rtime 10
	Rvolume 20
End

DefGroove BoleroFill   Add arpeggiating flute.

Groove Bolero

Begin Chord-Sus
	Voice Strings
	Voicing   Mode=Optimal
	Octave 6
	Volume pp
	Articulate 100
	Unify On
	Sequence L2
End

DefGroove BoleroSus   Bolero with sustained strings.
Arpeggio Groove BoleroFill
DefGroove BoleroSusFill  Sustained Bolero with flute fill.


/////////  Intro

Groove Bolero

Drum-Kick     Sequence  {D1; D2 Shift .5} / / D1
Drum-Hbongo   Sequence  {D3 Shift .5} / /  D1
Drum-Lbongo   Sequence  {D4; D4 Shift .5} / / D1
Drum-Maraca   Sequence  {D1234; D1234 Shift .5; D1 Shift .5} / /  D1
Drum-Claves   Sequence  {D2; D3 Shift .5} / / D1

Chord         Sequence  C134 / C1234 L1

Bass          Sequence  {1 4. 1 90; 2.5 8 3 90; 4 4 1 90} / / {1 1 1 90}
Bass-Guitar   Sequence  {1 2. 1 90 } {4.5 8 1 90 } / {1 1 3 90}


DefGroove BoleroIntro   4 bar intro.



///////// Ending

Groove Bolero

Begin Scale
	Sequence  Scale8 Scale4 Scale2 Scale
	Voice Strings
	Range 3
	Articulate 99
	Volume ff
	Octave 4
	Direction Both
End

DefGroove BoleroEnd     Ending with string scales. Uses 8ths \
                         on 1st bar 4th on 2nd, halves 3rd and a \
                         whole note on 4th.



///////////////////////////////////////////////
///////////////// More Spanish sounding

SeqClear
SeqSize 4

Begin Drum-Snare
	Sequence        D13  
	Tone  SnareDrum2
	Rvolume 10
	Rtime 2
	Volume p
End

Begin Drum-Hbongo
	Sequence       D13
	Tone HighBongo
	Rvolume 5
	Volume mp
	Rtime 2
End
	
Begin Drum-Lbongo
	Sequence     {Dtriple shift 1; Dtriple Shift 3} {Dtriple Shift 1; D4}
	Tone LowBongo
	Rvolume 5
	Rtime 2
	Volume mp
End

Begin Drum-Claves
	Sequence     {Dtriple shift 1; D14}
	Tone         Claves
	Volume mp
	Rvolume 5
	Rtime 2
End

Begin Chord
	Voice NylonGuitar
	Articulate 80
	Volume mp
	Voicing  Mode=Optimal
	Sequence  CT1 CT2
	Octave 5
	Strum 3
	Rvolume 20
	Rtime 10
End

Begin Bass
	Voice  FingeredBass
	Octave 3
	Articulate  80
	Accent 1 20
	Volume mf
	Rtime 10
	Rvolume 20
	Sequence  {1 4 1 90; 2.5 8 1 90; 3 8 5 90; 4 4 1 90} B11
End

DefGroove Bolero1    Spanish-style Bolero rhythm.

Begin Arpeggio
	Voice $_Chord_Voice
	Sequence A2 A4
	SeqRnd On
	RSkip 10
	Octave 5
	Range 1
	Harmony Open
	Articulate 100
	Unify On
	Volume ff
End

DefGroove Bolero1Fill    Add guitar arpeggios to Bolero1.

Groove Bolero1

Begin Chord-Sus
	Voice Strings
	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 Bolero1Sus    Spanish Bolero with sustained strings.

Arpeggio Groove Bolero1Fill
DefGroove Bolero1SusFill  Sustained Bolero1 with guitar fill.


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

Groove Bolero1

Drum-Snare   Sequence  D13  / / D1
Drum-Hbongo  Sequence  D13  / / D1
Drum-Lbongo  Sequence  {Dtriple shift 1; Dtriple Shift 3} \
					{Dtriple Shift 1; D4} / D1
Drum-Claves  Sequence  {Dtriple shift 1; D14} / / D1

Chord        Sequence  CT1 CT2 CT1 L1

Bass	Sequence  {1 4 1 90; 2.5 8 1 90; 3 8 5 90; 4 4 1 90} B11 B13 {1 1 1 90}


DefGroove Bolero1Intro    4 bar intro.

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

Groove Bolero1
SeqSize 1

Drum-Lbongo  Sequence     {Dtriple ; Dtriple shift 1 ; D3}
Drum-Claves  Sequence     {Dtriple ; Dtriple shift 1 ; D3}
Chord        Sequence     CT3
Bass         Sequence     B11

DefGroove Bolero1End    Single bar ending for Bolero1.