/***************************************************************
 *
 *	delay.c
 *	 the delay function
 *
 *	12/22/94		bfs initial version
 *
 */

#include "delay.h"

float
delay(struct dl_info* del)
{
	del->out_data = *del->out_ptr;
	*del->out_ptr++ = del->in_data;

	if (del->out_ptr > (del->base + del->length - 1))
		del->out_ptr = del->base;
		
	return del->out_data;
}