<?php
	$fname = $argv[1];
	if(!($file_size = filesize($fname))) return;
	list($file_name,$file_type) = explode('.',$fname,);
	if (!($infp = fopen($fname,"rb"))) return;
	$outfile = $file_name.'.h';
	$outfp   = fopen($outfile,"w");

	fwrite($outfp, "const unsigned long mid_len = ".$file_size.";\n");
	fwrite($outfp, "const unsigned char mid_data[".$file_size."] = {\n");
	$i = 0; $cnt = 0;
	while (!feof($infp)) {
		$byte = fread($infp, 1);
		$hexChar = '0x'.bin2hex($byte);
		if ((++$cnt)==$file_size) {
			fwrite($outfp,$hexChar."\n};\n");
			break;
		} else {
			if ((++$i)%16) {
				fwrite($outfp,$hexChar.",");
			} else {
				fwrite($outfp,$hexChar.",\n");
			}
		}
	}
	fclose($outfp);
	fclose($infp);
?>

#include <SoftwareSerial.h>
SoftwareSerial mySerial(25,26); // RX, TX

#include "gm_controls.h"
#include "gm_instruments.h"
#include "gm_velocities.h"
#include "MusMus-MIDI-008.h"

typedef struct {
	uint8_t  chunkID[4];
	uint8_t  chunkSize[4];
	uint8_t  formatType[2];
	uint8_t  numTracks[2];
	uint8_t  timeDivision[2];
} HEADER_CHUNK;

typedef struct {
	uint8_t  numTracks;
	uint16_t timeDivision;
	uint32_t tempo_uSec;
	float    deltaFactor;
} MIDI_INFO;

MIDI_INFO *minfo;

void delta_time(uint32_t deltaTime) {
	float    interval;
	interval = deltaTime * minfo->deltaFactor;
	delay((uint16_t)interval);
}

void send(uint8_t status, uint8_t data1, uint8_t data2) {
  mySerial.write(status);
  mySerial.write(data1);
  mySerial.write(data2);
}

void change(uint8_t status, uint8_t data) {
  mySerial.write(status);
  mySerial.write(data);
}

void sysreq(uint8_t status) {
  mySerial.write(status);
}

void eventParser(uint8_t *pt) {
	uint32_t deltaTime;
	uint32_t ival;
	float    fval;

	while (true) {

		deltaTime = 0;
		while (*pt>=0x80) {
			deltaTime += (*pt)&0x7f;
			deltaTime <<= 7;
			pt++;
		}
		deltaTime += *pt;
		pt++;
		delta_time(deltaTime);

		// FFH: メタ・イベント
		if (*pt==0xff) {
			pt++;
			switch(*pt) {
				case 0x2F: // End of Track [0x2f 0x00]
					return;
				case 0x51: // Set Tempo [0x51 0x03 tttttt]
					if (pt[1]==0x03) {
						ival = pt[2];
						ival = (ival<<8) + pt[3];
						ival = (ival<<8) + pt[4];
						minfo->tempo_uSec = ival;
						fval = ival/1000;
						fval /= minfo->timeDivision;
						minfo->deltaFactor = fval;
					}
					break;
			}
			pt = pt + 2 + pt[1];

		// 9nH: ノートオン/オフ
		// BnH: コントロールチェンジ
		// EnH: ピッチベントチェンジ
		} else if (((*pt&0x80)==0x80)||((*pt&0x90)==0x90)||((*pt&0xB0)==0xB0)||((*pt&0xE0)==0xE0)) {
			send(pt[0],pt[1],pt[2]);
			pt+=3;

		// CnH: プログラム・チェンジ
		} else if ((*pt&0xC0)==0xC0) {
			change(pt[0],pt[1]);
			pt+=2;

		// F0H, F7H: システム・エクスクルーシブ・メッセージ
		} else if ((*pt==0xF0)||(*pt==0xF7)) {
			uint32_t len = 0;
			for (++pt;*pt>=0x80;pt++) {
				len += (*pt)&0x7f;
				len <<= 7;
			}
			len += *pt;
			pt = pt + 1 + len;

		// システム・リアルタイム・メッセージ
		} else if ((*pt&0xF0)==0xF0) {
			sysreq(pt[0]);
			pt++;
		}
	}
}

uint8_t *trackParser(uint8_t numTracks, uint8_t *pt) {

	uint8_t  trackID[4] = {0x4d,0x54,0x72,0x6B};
	uint32_t trackSize;

	if (memcmp(pt,trackID,4)) {
		Serial.println("Invalid track header, expected [4D 54 72 6B]");
		return (uint8_t*)NULL;
	}
	pt += 4;

	trackSize = pt[0];
	trackSize = (trackSize<<8) + pt[1];
	trackSize = (trackSize<<8) + pt[2];
	trackSize = (trackSize<<8) + pt[3];
	pt += 4;

	eventParser(pt);
	uint8_t *nextTrack = pt + trackSize;
	return nextTrack;
}

void setup() {

	uint8_t *pt;
	uint8_t  channel = 0;

	mySerial.begin(31250);

	minfo = (MIDI_INFO*)malloc(sizeof(MIDI_INFO));

	HEADER_CHUNK *hChunk = (HEADER_CHUNK *)mid_data;

	minfo->numTracks    = hChunk->numTracks[0]<<8    | hChunk->numTracks[1];
	minfo->timeDivision = hChunk->timeDivision[0]<<8 | hChunk->timeDivision[1];

	send(MIDI_CHAN_MSG|channel, MIDI_CHAN_BANK,   VS1053_BANK_DEFAULT);
	send(MIDI_CHAN_MSG|channel, MIDI_CHAN_VOLUME, VELOCITY_FFF);
	change(MIDI_CHAN_PROGRAM|channel, GM_PAD_1_FANTASIA);

	pt = (uint8_t*)mid_data + sizeof(HEADER_CHUNK);
	for(uint8_t i=0;inumTracks;++i) {
		if (!(pt=trackParser(i,pt))) break;
	}
}

void loop() {}