pluckset(xlp,amp,seed,c,q,sr)
float amp,sr,xlp,seed,c,*q;
{
	int len,i;
	float x,rrand();
	q[1]=(int)(xlp*sr+4.5);
		len=q[1]-1;
	for(i=4; i<len; i++) {
		x=rrand(1.,seed);
		q[i]=amp;
		if(x < 0.) q[i] = amp;
	}
	q[0]=q[1];
	q[2]=c;
	q[3]=.99-q[2];
}