Begin Comment

   File: softrock

   Note: Seems to work nicely for relatively fast (ie. not ``slow dance''), older
      rock tunes. I use the SoftRock1 for ``Blame It On The Bossa Nova''.
      
   Defines: SoftRock     Basic
            SoftRockEnd  Simple 4 beat/2bar ending
            SoftRock1    Adds latin-pop touch
            
   Author: Bob van der Poel
   
End


Time 4		// All patterns 4/4

///////////////////////////////////////
////// Patterns


Begin Drum Define
	D1     1 0 90 @
	D2     2 0 90 @
	D13    D1 * 2
	D4     4 0 90 @
	D1234  D1 * 4
	D8     D1 * 8
	D24    2 0 90; 4 0 90 @	
	D12+34 D13; 2.5 0 90; 4 0 90 @
End

Begin Bass Define
	B13		1 4 0 97; 3 4 2 84 @
End
	
Begin Chord Define
	C1234   1 1 90 @
	C1234   C1234 * 4 
	C1+34	1 4 80; 2.5 8 70; 3 4 75; 4 4 80 @
	C13	1 4 80; 3 4 70 @
End

Begin Arpeggio Define
	Arp4	1 2 80 @
	Arp4	Arp4 * 4
	Arp7    1 8 80; 1.5 8 80; 2 8 80; 2.5 8 80; 3 8 80;3.5 8 80; 4 8 80 @
End

/////////////////////////////////////////////////
////// SoftRock

SeqClear
SeqSize 4

Begin Drum
	Sequence	D12+34
	Tone SnareDrum1 SnareDrum2
	SeqRnd
	Rvolume 10
End

Begin Drum1
	Sequence	D8
	Tone ClosedHiHat
	Rvolume 10
	Rtime 10
End

Begin Drum2
	Sequence	D4   z
	Tone SnareDrum2 
	SeqRnd
	Rvolume 10
End
	
Begin Drum3
	Sequence	D2 / / z
	Tone OpenTriangle
	Rvolume 10
	RTime 20
End

Begin Chord
	Sequence	C1+34 / / C13
	SeqRnd
	Voice Piano1
	Octave 4
	Articulate 70
End

Begin Bass
	Sequence	B13
	Octave 3
	Articulate 80
	Voice FretlessBass
End

DefGroove SoftRock

////////////////////////////////////
/// SoftRockEnd  Change to straight 4s

Chord Sequence C1234

Begin Drum
	Sequence D1234
	Tone SnareDrum1 SnareDrum2
	SeqRnd
End

DefGroove SoftRockEnd

////////////////////////////////////
//// SoftRock1  Add in a latiny sounding arp


Groove SoftRock    // Start with the basic

Begin Arpeggio
	Sequence	Arp7 Arp7 Arp4 z
	SeqRnd
	Rvolume 5
	Rtime 2
	Voice GuitarHarmonics
	Articulate 80
	Volume mp
	Octave 5
End

DefGroove SoftRock1


