shithub: riscv

ref: 4fb65ae3e84f536a9b924082b7c59a30d5802e6b
dir: /sys/src/games/opl3/opl3m.c/

#include <u.h>
#include <libc.h>
#include <bio.h>

void	opl3out(uchar *, int);
void	opl3wr(int, int);
void	opl3init(int);

enum{
	Rate = 44100,
};

void
usage(void)
{
	fprint(2, "usage: %s [-n nsamp] [file]\n", argv0);
	exits("usage");
}

void
main(int argc, char **argv)
{
	int r, v, dt, nsamp, fd;
	uchar *sb, u[5];
	Biobuf *bi, *bo;

	fd = 0;
	nsamp = 1;
	ARGBEGIN{
	case 'n':
		nsamp = Rate / atoi(EARGF(usage()));
		break;
	default:
		usage();
	}ARGEND;
	if(*argv != nil)
		if((fd = open(*argv, OREAD)) < 0)
			sysfatal("open: %r");
	bi = Bfdopen(fd, OREAD);
	bo = Bfdopen(1, OWRITE);
	if(bi == nil || bo == nil)
		sysfatal("Bfdopen: %r");
	nsamp *= 4;
	if((sb = malloc(nsamp)) == nil)
		sysfatal("malloc: %r");
	opl3init(Rate);
	while(Bread(bi, u, sizeof u) > 0){
		r = u[1] << 8 | u[0];
		v = u[2];
		dt = u[4] << 8 | u[3];
		opl3wr(r, v);
		while(dt-- > 0){
			opl3out(sb, nsamp);
			Bwrite(bo, sb, nsamp);
		}
	}
}