VocalEasel/mma/lib/stdlib/50srock.mma
Matthias Neeracher d599bfbe4e Added MMA
2006-11-10 08:07:56 +00:00

213 lines
3.2 KiB
Plaintext

// 50srock
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
//////// Additional patterns
/////////////
SeqSize 2
Begin Drum-Kick
Tone KickDrum1
Sequence D1234
Volume mp
Rvolume 5
Rtime 5
End
Begin Drum-Clap
Tone HandClap
Sequence D24
Volume pp
Rskip 5
Rvolume 5
Rtime 5
End
Begin Drum-Snare
Tone SnareDrum2
Sequence D24 { D24; 3.75 0 80}
SeqRnd On
Volume p
Rvolume 5
Rtime 5
End
Begin Drum-HH
Tone ClosedHiHat
Sequence { D1234; 2.75 0 90; 4.75 0 90}
Volume mp
Rvolume 5
Rtime 5
Volume mf
End
Begin Walk
Voice AcousticBass
Sequence W1234 { W1234; 4.75 8 90 }
Octave 3
Articulate 50
Accent 1 10 3 10
Rvolume 20
Rtime 10
Volume mf
End
Begin Bass-Sax
Voice TenorSax
Sequence B1 B3
Articulate 90
Octave 4
Rvolume 30
Volume p
Rtime 10
End
Begin Chord-Piano
Voice Piano3
Sequence { C1234; 1.75 8 90 ; 3.75 8 90} { C14; 1.75 8 90; 3.75 8 90 }
Accent 1 20 3 20
Voicing Mode=Optimal
DupRoot -1
Articulate 74
Rvolume 20
Rskip 10
Rtime 10
Volume mp
Octave 5
End
Begin Chord-Sax
Voice TenorSax
Sequence { C2; C3 Shift .75 } { C1; C3 Shift .75 }
Voicing Mode=Optimal
SeqRnd On
Articulate 60
Octave 5
Rvolume 30
Volume p
Rtime 10
Rskip 10
End
DefGroove 50sRock Your basic rock beat from the 50s.
///////////////////////////////////
//////// Add in sustained strings
Begin Chord-Sus
Voice TremoloStrings
Sequence {1 1 90 0 90 0 * 4}
Voicing Mode=Optimal
Unify On
Volume p
Octave 5
Articulate 100
End
DefGroove 50sRockSus Sustained strings added.
///////////////////////////////
/// Turn off the shuffle-feel
Groove 50sRock
Begin Drum-Clap
Tone HandClap
Sequence D24
Rskip 20
Rvolume 10
Rtime 10
Volume mp
End
Drum-Snare Sequence D24 { D24; 3.5 0 80}
Drum-HH Sequence { D1234 ; 2.5 0 90; 4.5 0 90}
Walk Sequence W1234 { W1234; 4.5 8 90 }
Chord-Piano Sequence C134 C14
Chord-Sax Sequence C23 C13
DefGroove 50sRock1 Cut out most of the shuffle. Good for short \
contrast sections.
Chord-Sus Groove 50sRockSus
DefGroove 50sRock1Sus Unshuffled 50s with sustained strings.
////////////////////////
////// Intro
Groove 50sRock
SeqSize 4
Alltracks SeqRnd Off
Begin Drum-Kick
Sequence D1234 / / D1234
Volume mp mp mf fff
End
Drum-Clap Sequence D24 / / D1
Begin Drum-Snare
Sequence {D1234; 2.5 0 90; 4.5 0 90 } / / D1234
Volume p p mp fff
End
Drum-HH Sequence D1234 / / D13
Walk Sequence {W1234; 4.75 8 90} / / {1 2 90 }
Begin Bass-Sax
Sequence {1 2 1 90}
Octave 3
Volume pp p mp f
End
Chord-Piano Sequence L1 C24 L1 {1 2 90}
Chord-Sax Sequence { C2; C3 Shift .75 } / / {1 2 90}
DefGroove 50sRockIntro A 4 bar introduction.
//////////////////////////////////
////////// Simple Ending
Groove 50sRock
Drum-Snare Sequence D24
Drum-HH Sequence D1234
Walk Sequence -
Chord-Sax Sequence C13
Bass-Sax Sequence -
Begin Bass
Voice $_Walk_Voice
Octave $_Walk_Octave
Sequence B13
Volume ff
Articulate 80
End
DefGroove 50sRockEnd Simple, single bar ending.