pluckset(xlp,seed,c,q,sr)
float 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]=1.;
		if(x < 0.) q[i] = -1.;
	}
	q[0]=q[1];
	q[2]=c;
	q[3]=.99-q[2];
}