mirror of
https://github.com/sjlongland/atinysynth.git
synced 2025-09-13 18:13:16 +10:00
268 lines
6.9 KiB
C
268 lines
6.9 KiB
C
/*!
|
|
* Polyphonic synthesizer for microcontrollers. PC port.
|
|
* (C) 2017 Stuart Longland
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
|
|
* MA 02110-1301 USA
|
|
*/
|
|
|
|
#include "synth.h"
|
|
#include "debug.h"
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <ao/ao.h>
|
|
|
|
const uint16_t synth_freq = 32000;
|
|
struct voice_ch_t poly_voice[16];
|
|
struct poly_synth_t synth;
|
|
|
|
/* Read a script instead of command-line tokens */
|
|
static int readScript(const char* name, int* argc, char*** argv) {
|
|
FILE *fp = fopen(name, "r");
|
|
if (!fp) {
|
|
fprintf(stderr, "Failed to open script file: %s\n", name);
|
|
return 0;
|
|
}
|
|
char token[64];
|
|
int n = 0;
|
|
int size = 16;
|
|
char** list = malloc(size * sizeof(char*));
|
|
while (fscanf(fp, "%63s", token) == 1) {
|
|
list[n++] = strdup(token);
|
|
if (n >= size) {
|
|
size += 16;
|
|
list = realloc(list, size * sizeof(char*));
|
|
}
|
|
}
|
|
|
|
*argv = list;
|
|
*argc = n;
|
|
return 1;
|
|
}
|
|
|
|
int main(int argc, char** argv) {
|
|
int voice = 0;
|
|
int16_t samples[8192];
|
|
uint16_t samples_sz = 0;
|
|
|
|
synth.voice = poly_voice;
|
|
synth.enable = 0;
|
|
synth.mute = 0;
|
|
|
|
memset(poly_voice, 0, sizeof(poly_voice));
|
|
|
|
ao_sample_format format;
|
|
memset(&format, 0, sizeof(format));
|
|
format.bits = 16;
|
|
format.channels = 1;
|
|
format.rate = synth_freq;
|
|
format.byte_format = AO_FMT_NATIVE;
|
|
|
|
ao_initialize();
|
|
int wavDriver = ao_driver_id("wav");
|
|
ao_device* wavDevice = ao_open_file(wavDriver, "out.wav", 1, &format, NULL);
|
|
if (!wavDevice) {
|
|
fprintf(stderr, "Failed to open WAV device\n");
|
|
return 1;
|
|
}
|
|
|
|
ao_device* liveDevice = NULL;
|
|
int liveDriver = ao_default_driver_id();
|
|
liveDevice = ao_open_live(liveDriver, &format, NULL);
|
|
if (!liveDevice) {
|
|
printf("Live driver not available\n");
|
|
}
|
|
|
|
argc--;
|
|
argv++;
|
|
while (argc > 0) {
|
|
if (!strcmp(argv[0], "end"))
|
|
break;
|
|
|
|
/* Check for external script */
|
|
if (!strcmp(argv[0], "--")) {
|
|
const char* name = argv[1];
|
|
_DPRINTF("reading script %s\n", name);
|
|
if (!readScript(name, &argc, &argv)) {
|
|
return 1;
|
|
}
|
|
// Fake item will be skipped at the end of the if
|
|
argc++;
|
|
argv--;
|
|
|
|
/* Voice selection */
|
|
} else if (!strcmp(argv[0], "voice")) {
|
|
voice = atoi(argv[1]);
|
|
_DPRINTF("select voice %d\n", voice);
|
|
argv++;
|
|
argc--;
|
|
|
|
/* Voice channel muting */
|
|
} else if (!strcmp(argv[0], "mute")) {
|
|
int mute = atoi(argv[1]);
|
|
_DPRINTF("mute mask 0x%02x\n", mute);
|
|
synth.mute = mute;
|
|
argv++;
|
|
argc--;
|
|
|
|
/* Voice channel enable */
|
|
} else if (!strcmp(argv[0], "en")) {
|
|
int en = atoi(argv[1]);
|
|
_DPRINTF("enable mask 0x%02x\n", en);
|
|
synth.enable = en;
|
|
argv++;
|
|
argc--;
|
|
|
|
/* Voice waveform mode selection */
|
|
} else if (!strcmp(argv[0], "dc")) {
|
|
int amp = atoi(argv[1]);
|
|
_DPRINTF("channel %d mode DC amp=%d\n",
|
|
voice, amp);
|
|
voice_wf_set_dc(&poly_voice[voice].wf, amp);
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "noise")) {
|
|
int amp = atoi(argv[1]);
|
|
_DPRINTF("channel %d mode NOISE amp=%d\n",
|
|
voice, amp);
|
|
voice_wf_set_noise(&poly_voice[voice].wf, amp);
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "square")) {
|
|
int freq = atoi(argv[1]);
|
|
int amp = atoi(argv[2]);
|
|
_DPRINTF("channel %d mode SQUARE freq=%d amp=%d\n",
|
|
voice, freq, amp);
|
|
voice_wf_set_square(&poly_voice[voice].wf,
|
|
freq, amp);
|
|
argv += 2;
|
|
argc -= 2;
|
|
} else if (!strcmp(argv[0], "sawtooth")) {
|
|
int freq = atoi(argv[1]);
|
|
int amp = atoi(argv[2]);
|
|
_DPRINTF("channel %d mode SAWTOOTH freq=%d amp=%d\n",
|
|
voice, freq, amp);
|
|
voice_wf_set_sawtooth(&poly_voice[voice].wf,
|
|
freq, amp);
|
|
argv += 2;
|
|
argc -= 2;
|
|
} else if (!strcmp(argv[0], "triangle")) {
|
|
int freq = atoi(argv[1]);
|
|
int amp = atoi(argv[2]);
|
|
_DPRINTF("channel %d mode TRIANGLE freq=%d amp=%d\n",
|
|
voice, freq, amp);
|
|
voice_wf_set_triangle(&poly_voice[voice].wf,
|
|
freq, amp);
|
|
argv += 2;
|
|
argc -= 2;
|
|
|
|
/* ADSR options */
|
|
} else if (!strcmp(argv[0], "scale")) {
|
|
int scale = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR scale %d samples\n",
|
|
voice, scale);
|
|
poly_voice[voice].adsr.time_scale = scale;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "delay")) {
|
|
int time = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR delay %d units\n",
|
|
voice, time);
|
|
poly_voice[voice].adsr.delay_time = time;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "attack")) {
|
|
int time = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR attack %d units\n",
|
|
voice, time);
|
|
poly_voice[voice].adsr.attack_time = time;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "decay")) {
|
|
int time = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR decay %d units\n",
|
|
voice, time);
|
|
poly_voice[voice].adsr.decay_time = time;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "sustain")) {
|
|
int time = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR sustain %d units\n",
|
|
voice, time);
|
|
poly_voice[voice].adsr.sustain_time = time;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "release")) {
|
|
int time = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR release %d units\n",
|
|
voice, time);
|
|
poly_voice[voice].adsr.release_time = time;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "peak")) {
|
|
int amp = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR peak amplitude %d\n",
|
|
voice, amp);
|
|
poly_voice[voice].adsr.peak_amp = amp;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "samp")) {
|
|
int amp = atoi(argv[1]);
|
|
_DPRINTF("channel %d ADSR sustain amplitude %d\n",
|
|
voice, amp);
|
|
poly_voice[voice].adsr.sustain_amp = amp;
|
|
argv++;
|
|
argc--;
|
|
} else if (!strcmp(argv[0], "reset")) {
|
|
_DPRINTF("channel %d reset\n", voice);
|
|
adsr_reset(&poly_voice[voice].adsr);
|
|
}
|
|
|
|
argv++;
|
|
argc--;
|
|
|
|
/* Play out any remaining samples */
|
|
if (synth.enable)
|
|
_DPRINTF("----- Start playback (0x%lx) -----\n",
|
|
synth.enable);
|
|
|
|
while (synth.enable) {
|
|
int16_t* sample_ptr = samples;
|
|
uint16_t samples_remain = sizeof(samples) / sizeof(uint16_t);
|
|
/* Fill the buffer as much as we can */
|
|
while (synth.enable && samples_remain) {
|
|
_DPRINTF("enable = 0x%lx\n", synth.enable);
|
|
int16_t s = poly_synth_next(&synth);
|
|
*sample_ptr = s << 8;
|
|
sample_ptr++;
|
|
samples_sz++;
|
|
samples_remain--;
|
|
}
|
|
ao_play(wavDevice, (char*)samples, 2*samples_sz);
|
|
if (liveDevice) {
|
|
ao_play(liveDevice, (char*)samples, 2*samples_sz);
|
|
}
|
|
samples_sz = 0;
|
|
}
|
|
}
|
|
|
|
ao_close(wavDevice);
|
|
if (liveDevice) {
|
|
ao_close(liveDevice);
|
|
}
|
|
ao_shutdown();
|
|
return 0;
|
|
}
|