tmont/atari-music-editor
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

don't include HTML garbage at end of MIDI file

Browse Source
This commit is contained in:
tmont 2025-08-07 11:51:24 -07:00
parent b5b7a339c3
commit 0117c9fd82
1 changed files with 29 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
createmidi.php
View File

@ -6,40 +6,40 @@
//create the midi file //create the midi file
$filename = "a2600song_".date("Y-m-d_His").".mid"; //unique filename $filename = "a2600song_".date("Y-m-d_His").".mid"; //unique filename
$filehandle = fopen("songs/".$filename,"wb"); //create the file, and open for writing $filehandle = fopen("songs/".$filename,"wb"); //create the file, and open for writing
//----------------------------------------------// //----------------------------------------------//
$c1 = explode("\n",$_POST['c1_display']); $c1 = explode("\n",$_POST['c1_display']);
$c2 = explode("\n",$_POST['c2_display']); $c2 = explode("\n",$_POST['c2_display']);
$c1_data = array(); $c1_data = array();
$c2_data = array(); $c2_data = array();
for ($i = 0; $i < count($c1); $i++) //the -1 accounts for the last line, which just consists of a newline for ($i = 0; $i < count($c1); $i++) //the -1 accounts for the last line, which just consists of a newline
if (str_word_count($c1[$i],0,"#.0123456789") == 4) if (str_word_count($c1[$i],0,"#.0123456789") == 4)
array_push($c1_data,explode(" ",$c1[$i])); array_push($c1_data,explode(" ",$c1[$i]));
for ($i = 0; $i < count($c2); $i++) //the -1 accounts for the last line, which just consists of a newline for ($i = 0; $i < count($c2); $i++) //the -1 accounts for the last line, which just consists of a newline
if (str_word_count($c2[$i],0,"#.0123456789") == 4) if (str_word_count($c2[$i],0,"#.0123456789") == 4)
array_push($c2_data,explode(" ",$c2[$i])); array_push($c2_data,explode(" ",$c2[$i]));
$track_arr = array( $track_arr = array(
1 => array(0=>false,1=>false,2=>false,3=>false), 1 => array(0=>false,1=>false,2=>false,3=>false),
2 => array(0=>false,1=>false,2=>false,3=>false)); 2 => array(0=>false,1=>false,2=>false,3=>false));
foreach ($c1_data as $i => $arr) foreach ($c1_data as $i => $arr)
if ($arr[1] != "x") if ($arr[1] != "x")
$track_arr[1][$arr[1]] = true; $track_arr[1][$arr[1]] = true;
foreach ($c2_data as $i => $arr) foreach ($c2_data as $i => $arr)
if ($arr[1] != "x") if ($arr[1] != "x")
$track_arr[2][$arr[1]] = true; $track_arr[2][$arr[1]] = true;
$numtracks = 1; $numtracks = 1;
foreach ($track_arr as $var => $arr) foreach ($track_arr as $var => $arr)
foreach ($arr as $val) foreach ($arr as $val)
if ($val) if ($val)
$numtracks++; $numtracks++;
//----------------------------------------------// //----------------------------------------------//
//HEADER //HEADER
fwrite($filehandle,pack("I",77),1); fwrite($filehandle,pack("I",77),1);
fwrite($filehandle,pack("I",84),1); fwrite($filehandle,pack("I",84),1);
@ -47,52 +47,52 @@
fwrite($filehandle,pack("I",100),1); fwrite($filehandle,pack("I",100),1);
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
//Size of header //Size of header
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",6),1); fwrite($filehandle,pack("I",6),1);
//MIDI file format //MIDI file format
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",1),1); fwrite($filehandle,pack("I",1),1);
//# of tracks //# of tracks
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",$numtracks),1); //one for each voice for each channel, plus the default one to declare time signatures, etc. fwrite($filehandle,pack("I",$numtracks),1); //one for each voice for each channel, plus the default one to declare time signatures, etc.
//Time division //Time division
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",240),1); fwrite($filehandle,pack("I",240),1);
//END HEADER //END HEADER
//TRACK 1 DATA //TRACK 1 DATA
//Header //Header
fwrite($filehandle,pack("I",77),1); fwrite($filehandle,pack("I",77),1);
fwrite($filehandle,pack("I",84),1); fwrite($filehandle,pack("I",84),1);
fwrite($filehandle,pack("I",114),1); fwrite($filehandle,pack("I",114),1);
fwrite($filehandle,pack("I",107),1); fwrite($filehandle,pack("I",107),1);
//# of bytes in track data //# of bytes in track data
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",19),1); fwrite($filehandle,pack("I",19),1);
//Tempo //Tempo
$ms = round(60000000/$_POST['tempo']); $ms = round(60000000/$_POST['tempo']);
$ms = str_pad(dechex($ms),6,"0",STR_PAD_LEFT); $ms = str_pad(dechex($ms),6,"0",STR_PAD_LEFT);
$byte1 = hexdec(substr($ms,0,2)); $byte1 = hexdec(substr($ms,0,2));
$byte2 = hexdec(substr($ms,2,2)); $byte2 = hexdec(substr($ms,2,2));
$byte3 = hexdec(substr($ms,4,2)); $byte3 = hexdec(substr($ms,4,2));
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",255),1); fwrite($filehandle,pack("I",255),1);
fwrite($filehandle,pack("I",81),1); fwrite($filehandle,pack("I",81),1);
fwrite($filehandle,pack("I",3),1); fwrite($filehandle,pack("I",3),1);
fwrite($filehandle,pack("I",$byte1),1); //microseconds per beat (variable, depending on tempo) fwrite($filehandle,pack("I",$byte1),1); //microseconds per beat (variable, depending on tempo)
fwrite($filehandle,pack("I",$byte2),1); //microseconds per beat fwrite($filehandle,pack("I",$byte2),1); //microseconds per beat
fwrite($filehandle,pack("I",$byte3),1); //microseconds per beat fwrite($filehandle,pack("I",$byte3),1); //microseconds per beat
//Time signature //Time signature
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",255),1); fwrite($filehandle,pack("I",255),1);
@ -102,21 +102,21 @@
fwrite($filehandle,pack("I",log($_POST['timesig_de'],2)),1); //denominator^2 (variable) fwrite($filehandle,pack("I",log($_POST['timesig_de'],2)),1); //denominator^2 (variable)
fwrite($filehandle,pack("I",24),1); //Metronome fwrite($filehandle,pack("I",24),1); //Metronome
fwrite($filehandle,pack("I",8),1); //32nd notes per beat fwrite($filehandle,pack("I",8),1); //32nd notes per beat
//End track //End track
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
fwrite($filehandle,pack("I",255),1); fwrite($filehandle,pack("I",255),1);
fwrite($filehandle,pack("I",47),1); fwrite($filehandle,pack("I",47),1);
fwrite($filehandle,pack("I",0),1); fwrite($filehandle,pack("I",0),1);
//END TRACK 1 DATA //END TRACK 1 DATA
/* Array Format /* Array Format
* $c1_data[note][0] = note name * $c1_data[note][0] = note name
* $c1_data[note][1] = distortion # * $c1_data[note][1] = distortion #
* $c1_data[note][2] = atari note index * $c1_data[note][2] = atari note index
* $c1_data[note][3] = note value (quarter, eighth, etc.) * $c1_data[note][3] = note value (quarter, eighth, etc.)
*/ */
if ($track_arr[1][0]) require("square_1.php"); if ($track_arr[1][0]) require("square_1.php");
if ($track_arr[1][1]) require("lead_1.php"); if ($track_arr[1][1]) require("lead_1.php");
if ($track_arr[1][2]) require("saw_1.php"); if ($track_arr[1][2]) require("saw_1.php");
@ -125,7 +125,7 @@
if ($track_arr[2][1]) require("lead_2.php"); if ($track_arr[2][1]) require("lead_2.php");
if ($track_arr[2][2]) require("saw_2.php"); if ($track_arr[2][2]) require("saw_2.php");
if ($track_arr[2][3]) require("bass_2.php"); if ($track_arr[2][3]) require("bass_2.php");
fclose($filehandle); fclose($filehandle);
header("Content-type: audio/midi"); header("Content-type: audio/midi");
header("Content-Disposition: attachment; filename=$filename"); header("Content-Disposition: attachment; filename=$filename");
@ -135,5 +135,7 @@
{ {
echo "<script>alert('not enough data! argh!');</script>"; echo "<script>alert('not enough data! argh!');</script>";
} }
die();
} }
?> ?>