/* Repeatable internal-device listening material; never opens audio hardware. */
#include "xtc/xtc_plugin.h"
#include "xtc/xtc_audio.h"
#include "xtc/xtc_midi.h"
#include <stdio.h>
#include <stdlib.h>
static xtc_result preview(const char *prefix, unsigned int id)
{
    xtc_plugin_spec spec; xtc_plugin *plugin=NULL;xtc_recorder *recorder=NULL;
    char path[1024];size_t block;xtc_result result;
    int n=snprintf(path,sizeof(path),"%s-%u.wav",prefix,id);
    if(n<0 || (size_t)n>=sizeof(path))return XTC_ERR_CAPACITY;
    result=xtc_plugin_probe(XTC_BUILTIN_PATH,id,48000,&spec);
    if(result==XTC_OK)result=xtc_plugin_create(&spec,48000,256,&plugin);
    if(result==XTC_OK)result=xtc_recorder_create_replace(path,48000,256,1,&recorder);
    for(block=0;result==XTC_OK && block<1125;++block) {
        float input[256]={0},output[256];xtc_midi_event event={0,XTC_MIDI_NOTE_ON,0,60,100};
        if(id<2) {
            size_t count=0;
            if(block==0 || block==94 || block==188) {event.pitch=block==0 ? 48U : block==94 ? 60U : 67U;count=1;}
            if(block==282) {event.type=XTC_MIDI_CONTROL;event.pitch=123;event.velocity=0;count=1;}
            result=xtc_plugin_process_midi(plugin,&event,count,output,256);
        } else {
            if(block==0 || block==94) input[0]=.5f;
            result=xtc_plugin_process(plugin,input,output,256);
        }
        if(result==XTC_OK) {xtc_recorder_push(recorder,output,256);result=xtc_recorder_drain(recorder);}
    }
    if(result==XTC_OK)result=xtc_recorder_finish(recorder);
    xtc_recorder_destroy(recorder);xtc_plugin_destroy(plugin);
    if(result==XTC_OK)printf("Wrote %s\n",path);
    return result;
}
int main(int argc,char **argv)
{
    unsigned int id;
    if(argc!=2) {fprintf(stderr,"Usage: %s OUTPUT_PREFIX\n",argv[0]);return EXIT_FAILURE;}
    for(id=0;id<7;++id) if(id!=4 && preview(argv[1],id)!=XTC_OK)return EXIT_FAILURE;
    return EXIT_SUCCESS;
}