int main(int argc, char** argv) {
fftw_real out[N], in[N];
rfftw_plan plan_backward;
buffer_t buffer[N];
int i, time = 0;
song_t* head;
song_t* next;
print_prologoue(N, SR);
next = head = read_song("song.txt");
dump_song(head);
plan_backward = rfftw_create_plan(N, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
while ( next ) {
// clear out
for ( i = 0; i < N; i++ )
out[i] = 0.0f;
i = 0;
while (i < ACCORD_SIZE && next->accord[i] != 0)
play_note(next->accord[i++], ADSR(time, next->duration), out);
rfftw_one(plan_backward, out, in);
for ( i = 0; i < N; i++ )
buffer[i] = limit_output(in[i]);;
write(1, buffer, N* sizeof(buffer_t));
time ++;
if ( time == next->duration ) {
// play next note
next = next->next;
time = 0;
// loop:
if (next == NULL) next = head;
}
}
rfftw_destroy_plan(plan_backward);
free_song(head);
print_epilogue();
return 0;
}
int
main (int argc, char **argv)
{
int frequency, oversample, stereo;
struct song *song;
int index;
int c;
int opt, error_flag;
/* supposed to make wildcard expansion */
_wildcard(&argc,&argv);
signal (2, nextsong);
signal (3, goodbye);
printf("Tracker1 V0.91 for the SBOS2 package\n");
/* Read environment variables */
frequency = read_env ("FREQUENCY", 0);
oversample = read_env ("OVERSAMPLE", 1);
transpose = read_env ("TRANSPOSE", 0);
if (getenv ("MONO"))
pref.stereo = 0;
else if (getenv ("STEREO"))
pref.stereo = 1;
else
pref.stereo = DEFAULT_CHANNELS - 1;
pref.type = BOTH;
pref.repeats = 1;
pref.speed = 50;
pref.tolerate = 2;
pref.verbose = 0;
set_mix (DEFAULT_MIX); /* 0 = full stereo, 100 = mono */
error_flag = 0;
while ((opt = getopt_long_only (argc, argv, "", long_options, NULL)) != EOF)
{
switch (opt)
{
case 'H': /* help */
error_flag++;
break;
case 'Q': /* quiet */
quiet++;
break;
case 'P': /* abort on faults (be picky) */
pref.tolerate = 0;
break;
case 'N': /* new tracker type */
pref.type = NEW;
break;
case 'O': /* old tracker type */
pref.type = OLD;
break;
case 'B': /* both tracker types */
pref.type = BOTH;
break;
case 'M': /* mono */
pref.stereo = 0;
break;
case 'S': /* stereo */
pref.stereo = 1;
break;
case 'V':
pref.verbose = 1;
break;
case 'f': /* frequency */
frequency = atoi (optarg);
break;
case 'o': /* oversampling */
oversample = atoi (optarg);
break;
case 't': /* transpose half-steps*/
transpose = atoi (optarg);
break;
case 'r': /* number of repeats */
pref.repeats = atoi (optarg);
break;
case 's': /* speed */
pref.speed = atoi (optarg);
break;
case 'm': /* % of channel mix. 100=mono */
set_mix (atoi (optarg));
break;
default: /* ??? */
error_flag++;
break;
}
}
if (error_flag || !argv[optind])
{
fprintf (stderr, "Usage: %s " USAGE, argv[0]);
exit(1);
}
frequency = open_audio (frequency);
init_player (oversample, frequency);
while (argv[optind])
{
switch (pref.type)
{
case BOTH:
song = do_read_song (argv[optind], NEW);
if (!song)
song = do_read_song (argv[optind], OLD);
break;
case OLD:
song = do_read_song (argv[optind], pref.type);
break;
case NEW:
/* this is explicitly flagged as a new module,
* so we don't need to look for a signature.
*/
song = do_read_song (argv[optind], NEW_NO_CHECK);
break;
}
optind++;
if (song == NULL)
continue;
dump_song (song);
play_song (song, &pref);
release_song (song);
/* flush out anything remaining in DMA buffers */
flush_DMA_buffers();
}
close_audio ();
return 0;
}
