VocalEasel/mma/lib/stdlib/bolero.mma
Matthias Neeracher f54adbeec5 Update to MMA 1.7
2011-07-26 22:49:39 +00:00

356 lines
6.1 KiB
Plaintext

// 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 Plectrum Define
P13 1 3 1-6:90; 3 3 1-6:90
P134 P13; 4 3 1-6:90
TR3 1 0 1-6:80 ; 1.33 0 1-6:80; 1.66 0 1-6:80
PL1 P13 ; TR3 Shift 1; TR3 Shift 3
PL2 P134 ; TR3 Shift 1
PL3 P13; 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 Plectrum
Voice SteelGuitar
Octave 5
Rskip 20
Rvolume 20
Rtime 10
Volume mp
Sequence { 1.0 +5 80 90 90 90 90 80;
2.0 +5 80 80 80 80 80 80;
2.5 -5 - - 70 70 70 70;
3.0 +5 80 80 80 80 80 80;
3.5 -5 - - 70 70 70 70;
4.0 +5 80 80 80 80 80 80;
4.5 -5 - - 70 70 70 70; }
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.
///// Add arpeggiated guitars
Groove Bolero
Begin Arpeggio-Guitar
Voice NylonGuitar
Articulate 150
Volume mp m mf f
Harmony OpenBelow
Sequence A8
Octave 5
Rskip 10 25 34 50
Rvolume 20
Rtime 10
End
Begin Plectrum
Volume -40
Rskip 30
End
DefGroove BoleroAlt Arpeggiated guitars.
Groove BoleroSus
Arpeggio-Guitar Groove BoleroAlt
Plectrum Groove BoleroAlt
DefGroove BoleroAltSus Sustain with Arpeggiated guitars.
Groove BoleroFill
Arpeggio-Guitar Groove BoleroAlt
Plectrum Groove BoleroAlt
DefGroove BoleroAltFill Arpeggiated flutes and guitars.
Groove BoleroSusFill
Arpeggio-Guitar Groove BoleroAlt
Plectrum Groove BoleroAlt
DefGroove BoleroAltSusFill Sustain with arpeggiated flutes and guitars.
///////// 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
Plectrum Sequence {1 3 1-6:100; 3 3 1-6:90; 4 3 1-3:80} / {1 3 1-6:90 * 4 } {1 8 1-6:100}
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 Plectrum
Voice NylonGuitar
Volume mp
Octave 5
Rvolume 20
Rtime 10
Sequence PL1 PL2
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 $_Plectrum_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
Plectrum Sequence PL1 PL2 PL1 {1 5 1-6:90}
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}
Plectrum Sequence PL3
Bass Sequence B11
DefGroove Bolero1End Single bar ending for Bolero1.