int n_pitches;
float pitches[256];
float pitch_list[256];
int number;

pitchlist(p,n_args)
float *p;
{
	/* p0 is seed, p1--> are pitches */
	int i;
	for(i=0;i<n_args;i++) pitches[i] = p[i+1];
	n_pitches = n_args-1;
	spryst_(&n_pitches,&p[0],pitch_list);
	number = 0;
}

double gp(p,n_args)
float *p;
{
	int i,j;
	if(!n_pitches) return(0);
	if(n_args) {
		j = number % n_pitches;
		number++;
		return(pitches[j]);
	}
	i=ispray_(pitch_list)-1;
	return(pitches[i]);
}