v4k-git-backup/tools/mid2wav.c

107 lines
3.3 KiB
C

// mid2wav
// - rlyeh, public domain
#include "3rd_stb_vorbis.h" // for sf3
#define _CRT_NONSTDC_NO_DEPRECATE
#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h> // stddef.h
// Tiny WAV writer: original code by jon olick, public domain
// Floating point support + pure C version by rlyeh, public domain | wtrmrkrlyeh
#include <stdio.h>
static void tinywav(FILE *fp, short numChannels, short bitsPerSample, int sampleRateHz, const void *data, int size, int is_floating) {
short bpsamp;
int length, bpsec;
fwrite("RIFF", 1, 4, fp);
length = size + 44 - 8;
fwrite(&length, 1, 4, fp);
fwrite(is_floating ? "WAVEfmt \x10\x00\x00\x00\x03\x00" : "WAVEfmt \x10\x00\x00\x00\x01\x00", 1, 14, fp);
fwrite(&numChannels, 1, 2, fp);
fwrite(&sampleRateHz, 1, 4, fp);
bpsec = numChannels * sampleRateHz * bitsPerSample/8;
fwrite(&bpsec, 1, 4, fp);
bpsamp = numChannels * bitsPerSample/8;
fwrite(&bpsamp, 1, 2, fp);
fwrite(&bitsPerSample, 1, 2, fp);
fwrite("data", 1, 4, fp);
fwrite(&size, 1, 4, fp);
fwrite(data, 1, size, fp);
}
#define MID_IMPLEMENTATION
#define MID_ENABLE_RAW
#include "3rd_mid.h"
// io
unsigned char *readfile(const char *pathfile, int *size) {
char *bin = 0;
for( FILE *fp = fopen(pathfile,"rb"); fp; fclose(fp), fp = 0) {
fseek(fp, 0L, SEEK_END);
size_t len = ftell(fp);
if(size) *size = (int)len;
fseek(fp, 0L, SEEK_SET);
bin = malloc(len+1);
if( bin && fread(bin, 1, len, fp) == len ) bin[len] = '\0';
else free(bin), bin = 0;
}
return bin;
}
#define die(errmsg) exit((puts(errmsg),-__LINE__))
int main(int argc, char **argv) {
if( argc != 3 && argc != 4 ) {
printf("%s infile.mid outfile.wav [soundbank.sf2/soundbank.sf3]\n", argv[0]);
return -1;
}
#if 0
// not sure why this sf2 cannot be loaded (it should!)
char gm_dls[256];
snprintf(gm_dls, 255, "%s/system32/gm.dls", getenv("SystemRoot"));
puts(gm_dls);
#else
const char *gm_dls = "AweROMGM.sf3";
#endif
int mid_size = 0;
void *mid_data = readfile(argv[1],&mid_size);
if(!mid_data) die("cannot open midi file for reading");
int sf2_size = 0;
void *sf2_data = readfile(argc > 3 ? argv[3] : gm_dls, &sf2_size);
if(!mid_data) die("cannot open soundfont file for reading");
// set soundfont
tsf *sound_font = tsf_load_memory( sf2_data, sf2_size );
tsf_channel_set_bank_preset( sound_font, 9, 128, 0 );
tsf_set_output( sound_font, TSF_STEREO_INTERLEAVED, 44100, 0.0f );
// play song
mid_t *mid = 0;
mid = mid_create(mid_data, mid_size, NULL );
if( mid && sound_font ) {
mid_skip_leading_silence( mid, sound_font );
// export song
size_t raw_size = 16*1024*1024;
void *raw_data = malloc(raw_size);
int bytes_per_sample = 1*2*2;
int samples = raw_size / bytes_per_sample;
int ok = mid_render_short(mid, (short*)raw_data, samples, sound_font );
FILE *fp = fopen(argv[2], "wb"); if(!fp) die("cannot open wav file for writing");
tinywav(fp, 2, 16, 44100, raw_data, raw_size, 0);
fclose(fp);
}
// clean up
mid_destroy( mid );
tsf_close( sound_font );
return 0;
}
// cl mid2wav.c -I split /Os /Ox /O2 /Oy /MT /DFINAL /GL /GF /Gw /arch:AVX2 /link /OPT:ICF /LTCG