system("rm *.fp*")
system("rm *.snd*")
system("F1 strum.8.fp")
output("strum.8.fp",0)

makegen(-1,1,10,0)
2 4 5 11 7 0 100 -100 9 9
makegen(-2,1,10,0)
2 4 0 11 7 5 100 -100 9 8
makegen(-3,1,10,0)
2 0 4 11 7 5 100 -100 9 7
makegen(-4,1,10,0)
2 7 4 11 0 5 100 -100 9 8
makegen(-5,1,10,0)
2 7 4 11 5 0 100 -100 9 7
makegen(-6,1,10,0)
2 7 4 11 5 9 100 -100 0 6
makegen(-7,1,10,0)
2 7 4 11 5 9 100 0 -100 5
makegen(-8,1,10,0)
2 7 4 11 5 9 0 100 -100 4
makegen(-9,1,10,0)
2 7 4 0 5 9 11 100 -100 3
makegen(-10,1,10,0)
2 7 4 5 0 9 11 100 -100 2
makegen(-11,1,10,0)
2 0 4 5 7 9 11 100 -100 1
makegen(-12,1,10,0)
0 2 4 5 7 9 11 100 -100 0

base=8.00
beat=0

for(seq=0;seq<1;seq=seq+1)
{
	for (array=1;array<13;array=array+1)
	{
		pluck_r=random()*4
		pluck_r=pluck_r+1

		time_r=random()*0.003

		rand_trip=random()*8
		rand_trip=round(rand_trip)
	
		for(note=0;note<9;note=note+1)
		{
			dur=random()*1
			dur=dur+2

			pitch=sampfunc(array,note)
			pitch=pitch/100
			start(beat,dur,base+pitch,3,0.03,0.91,pluck_r)
			beat=beat+0.25
		}
	}	
}

system("rescale strum.8.fp")