/*
 *	sine.c
 *
 *	Version 2.6 by Steve Sampson, Public Domain, November 1988
 *
 *	This program is used to generate time domain sinewave data
 *	for fft.c.  If you want an opening target - negate the
 *	test frequency.
 */

#include <stdio.h>
#include <alloc.h>
#include <math.h>

#define	SAMPLES	256
#define	TWO_PI	(2.0 * 3.14159265358979324)

double	Sample, Freq, Time, Real[SAMPLES], Imag[SAMPLES];
FILE	*Fp;


main(argc, argv)
int	argc;
char	**argv;
{
	register int	loop;

	if (argc != 2)  {
		fprintf(stderr,"Usage: sine output_file\n");
		exit(1);
	}

	printf("Input The Test Frequency (Hz) ? ");
	scanf("%lf", &Freq);
	printf("Input The Sampling Frequency (Hz) ? ");
	scanf("%lf", &Sample);

	Sample = 1.0 / Sample;
	Time   = 0.0;

	for (loop = 0; loop < SAMPLES; loop++)  {
		Real[loop] =  sin(TWO_PI * Freq * Time);
		Imag[loop] = -cos(TWO_PI * Freq * Time);
		Time += Sample;
	}

	if ((Fp = fopen(*++argv, "wb")) == NULL)  {
		fprintf(stderr,"sine: Unable to create write file\n");
		exit(1);
	}

	fwrite(Real, sizeof(double), SAMPLES, Fp);
	fwrite(Imag, sizeof(double), SAMPLES, Fp);
	fclose(Fp);

	putchar('\n');

	exit(0);
}