<?php
$p=$_POST;$g=$_GET; //'cause I'm lazy
/****************************************************************************
TMP FILE HANDLING
****************************************************************************/
session_start();
$save_dir = 'tmp/sess_'.session_id().'/';
//clean up, remove files belonging to expired session
$sessions = array();
$handle = opendir (session_save_path());
while (false !== ($file = readdir ($handle)))
if ($file!='.' && $file!='..') $sessions[] = $file;
closedir($handle);
$handle = opendir('tmp/');
while (false !== ($dir = readdir ($handle)))
if (is_dir($dir) && $dir!='.' && $dir!='..' && !in_array($dir,$sessions)) rm("tmp/$dir/");
closedir($handle);
// removes non-empty dir
function rm($dir){
$handle = opendir($dir);
while (false !== ($file = readdir ($handle)))
if ($file!='.' && $file!='..') unlink("$dir/$file");
closedir($handle);
rmdir($dir);
}
if (!is_dir('tmp')) mkdir('tmp');
if (!is_dir($save_dir)) mkdir($save_dir);
srand((double)microtime()*1000000);
$file = $save_dir.rand().'.mid';
/****************************************************************************
MIDI CLASS
****************************************************************************/
require('midi.class.php');
if (isset($g['download'])){
$file = $g['download'];
$filename = 'output.mid';
$midi = new Midi();
$midi->downloadMidFile($file,$filename);
}
$engine = isset($p['engine'])?$p['engine']:'wm';
$test='MFile 1 5 480
MTrk
0 SeqSpec 00 00 41
0 Meta Text "Seq-1"
0 SMPTE 96 0 10 0 0
0 TimeSig 4/4 24 8
0 Tempo 500000
0 Meta TrkEnd
TrkEnd
MTrk
0 Meta Text "Organ"
0 Par ch=13 c=6 v=0
0 Par ch=13 c=7 v=100
0 Par ch=13 c=64 v=0
0 Pb ch=13 v=8192
0 PrCh ch=13 p=16
480 On ch=13 n=55 v=87
960 On ch=13 n=74 v=85
960 On ch=13 n=70 v=97
1059 Off ch=13 n=74 v=53
1063 Off ch=13 n=70 v=78
1440 On ch=13 n=70 v=95
1440 On ch=13 n=74 v=85
1920 On ch=13 n=51 v=101
1934 Off ch=13 n=55 v=60
1999 Off ch=13 n=70 v=36
2002 Off ch=13 n=74 v=44
2400 On ch=13 n=70 v=95
2400 On ch=13 n=73 v=99
2505 Off ch=13 n=73 v=73
2508 Off ch=13 n=70 v=64
2880 On ch=13 n=70 v=103
2880 On ch=13 n=73 v=103
3360 On ch=13 n=55 v=99
3362 Off ch=13 n=51 v=85
3453 Off ch=13 n=73 v=56
3466 Off ch=13 n=70 v=57
3840 On ch=13 n=70 v=97
3840 On ch=13 n=74 v=90
3951 Off ch=13 n=70 v=72
3960 Off ch=13 n=74 v=57
4320 On ch=13 n=70 v=105
4320 On ch=13 n=74 v=92
4800 On ch=13 n=51 v=107
4810 Off ch=13 n=55 v=58
4920 Off ch=13 n=74 v=33
4932 Off ch=13 n=70 v=41
5280 On ch=13 n=70 v=111
5280 On ch=13 n=73 v=95
5383 Off ch=13 n=73 v=58
5392 Off ch=13 n=70 v=70
5760 On ch=13 n=73 v=92
5760 On ch=13 n=70 v=103
6178 Off ch=13 n=73 v=67
6178 Off ch=13 n=70 v=66
6192 Off ch=13 n=51 v=81
6240 On ch=13 n=55 v=82
6240 On ch=13 n=70 v=111
6240 On ch=13 n=74 v=103
6412 Off ch=13 n=70 v=87
6425 Off ch=13 n=74 v=65
6475 Off ch=13 n=55 v=59
6720 Pb ch=13 v=8192
6720 Par ch=13 c=64 v=0
6720 Par ch=13 c=7 v=100
6720 Par ch=13 c=6 v=0
6720 Meta TrkEnd
TrkEnd
MTrk
0 Meta Text "Fantasia"
0 Par ch=14 c=6 v=0
0 Par ch=14 c=7 v=100
0 Par ch=14 c=64 v=0
0 Pb ch=14 v=8192
0 PrCh ch=14 p=88
480 On ch=14 n=67 v=75
600 Off ch=14 n=67 v=36
600 On ch=14 n=68 v=83
720 Off ch=14 n=68 v=44
720 On ch=14 n=69 v=74
840 Off ch=14 n=69 v=46
840 On ch=14 n=70 v=81
960 Off ch=14 n=70 v=47
960 On ch=14 n=71 v=77
1080 Off ch=14 n=71 v=43
1080 On ch=14 n=72 v=71
1200 Off ch=14 n=72 v=34
1200 On ch=14 n=73 v=83
1320 Off ch=14 n=73 v=51
1320 On ch=14 n=74 v=80
1440 Off ch=14 n=74 v=38
1440 On ch=14 n=75 v=76
1560 Off ch=14 n=75 v=36
1560 On ch=14 n=76 v=69
1680 Off ch=14 n=76 v=44
1680 On ch=14 n=77 v=75
1800 Off ch=14 n=77 v=31
1800 On ch=14 n=78 v=74
1920 Off ch=14 n=78 v=41
1920 On ch=14 n=79 v=81
2040 Off ch=14 n=79 v=46
2040 On ch=14 n=78 v=71
2160 Off ch=14 n=78 v=48
2160 On ch=14 n=77 v=68
2280 Off ch=14 n=77 v=32
2280 On ch=14 n=76 v=71
2400 Off ch=14 n=76 v=35
2400 On ch=14 n=75 v=80
2520 Off ch=14 n=75 v=45
2520 On ch=14 n=74 v=71
2640 Off ch=14 n=74 v=28
2640 On ch=14 n=73 v=86
2760 Off ch=14 n=73 v=36
2760 On ch=14 n=72 v=73
2880 Off ch=14 n=72 v=27
2880 On ch=14 n=71 v=62
3000 Off ch=14 n=71 v=35
3000 On ch=14 n=72 v=66
3120 Off ch=14 n=72 v=30
3120 On ch=14 n=73 v=90
3240 Off ch=14 n=73 v=32
3240 On ch=14 n=74 v=86
3360 Off ch=14 n=74 v=44
3360 On ch=14 n=75 v=67
3480 Off ch=14 n=75 v=32
3480 On ch=14 n=76 v=67
3600 Off ch=14 n=76 v=38
3600 On ch=14 n=77 v=62
3720 Off ch=14 n=77 v=28
3720 On ch=14 n=78 v=72
3840 Off ch=14 n=78 v=44
3840 On ch=14 n=79 v=77
3960 Off ch=14 n=79 v=44
3960 On ch=14 n=80 v=85
4080 Off ch=14 n=80 v=40
4080 On ch=14 n=81 v=75
4200 Off ch=14 n=81 v=41
4200 On ch=14 n=82 v=83
4320 Off ch=14 n=82 v=55
4320 On ch=14 n=83 v=80
4440 Off ch=14 n=83 v=48
4440 On ch=14 n=84 v=62
4560 Off ch=14 n=84 v=33
4560 On ch=14 n=85 v=83
4680 Off ch=14 n=85 v=56
4680 On ch=14 n=86 v=85
4800 Off ch=14 n=86 v=31
4800 On ch=14 n=87 v=81
4920 Off ch=14 n=87 v=40
4920 On ch=14 n=86 v=64
5040 Off ch=14 n=86 v=39
5040 On ch=14 n=85 v=71
5160 Off ch=14 n=85 v=35
5160 On ch=14 n=84 v=72
5280 Off ch=14 n=84 v=35
5280 On ch=14 n=83 v=62
5400 Off ch=14 n=83 v=34
5400 On ch=14 n=82 v=62
5520 Off ch=14 n=82 v=40
5520 On ch=14 n=81 v=58
5640 Off ch=14 n=81 v=37
5640 On ch=14 n=80 v=71
5760 Off ch=14 n=80 v=38
5760 On ch=14 n=81 v=55
5880 Off ch=14 n=81 v=29
5880 On ch=14 n=80 v=68
6000 Off ch=14 n=80 v=25
6000 On ch=14 n=79 v=52
6120 Off ch=14 n=79 v=31
6120 On ch=14 n=78 v=87
6240 Off ch=14 n=78 v=45
6240 On ch=14 n=79 v=81
6360 Off ch=14 n=79 v=64
6720 Pb ch=14 v=8192
6720 Par ch=14 c=64 v=0
6720 Par ch=14 c=7 v=100
6720 Par ch=14 c=6 v=0
6720 Meta TrkEnd
TrkEnd
MTrk
0 Meta Text "Organ 2"
0 Par ch=1 c=6 v=0
0 Par ch=1 c=7 v=100
0 Par ch=1 c=64 v=0
0 Pb ch=1 v=8192
0 PrCh ch=1 p=16
480 On ch=1 n=55 v=87
960 On ch=1 n=74 v=85
960 On ch=1 n=70 v=97
1059 Off ch=1 n=74 v=53
1063 Off ch=1 n=70 v=78
1440 On ch=1 n=70 v=95
1440 On ch=1 n=74 v=85
1920 On ch=1 n=51 v=101
1934 Off ch=1 n=55 v=60
1999 Off ch=1 n=70 v=36
2002 Off ch=1 n=74 v=44
2400 On ch=1 n=70 v=95
2400 On ch=1 n=73 v=99
2505 Off ch=1 n=73 v=73
2508 Off ch=1 n=70 v=64
2880 On ch=1 n=70 v=103
2880 On ch=1 n=73 v=103
3360 On ch=1 n=55 v=99
3362 Off ch=1 n=51 v=85
3453 Off ch=1 n=73 v=56
3466 Off ch=1 n=70 v=57
3840 On ch=1 n=70 v=97
3840 On ch=1 n=74 v=90
3951 Off ch=1 n=70 v=72
3960 Off ch=1 n=74 v=57
4320 On ch=1 n=70 v=105
4320 On ch=1 n=74 v=92
4800 On ch=1 n=51 v=107
4810 Off ch=1 n=55 v=58
4920 Off ch=1 n=74 v=33
4932 Off ch=1 n=70 v=41
5280 On ch=1 n=70 v=111
5280 On ch=1 n=73 v=95
5383 Off ch=1 n=73 v=58
5392 Off ch=1 n=70 v=70
5760 On ch=1 n=73 v=92
5760 On ch=1 n=70 v=103
6178 Off ch=1 n=73 v=67
6178 Off ch=1 n=70 v=66
6192 Off ch=1 n=51 v=81
6240 On ch=1 n=55 v=82
6240 On ch=1 n=70 v=111
6240 On ch=1 n=74 v=103
6412 Off ch=1 n=70 v=87
6425 Off ch=1 n=74 v=65
6475 Off ch=1 n=55 v=59
6720 Pb ch=1 v=8192
6720 Par ch=1 c=64 v=0
6720 Par ch=1 c=7 v=100
6720 Par ch=1 c=6 v=0
6720 Meta TrkEnd
TrkEnd
MTrk
0 Meta Text "Fantasia 2"
0 Par ch=2 c=6 v=0
0 Par ch=2 c=7 v=100
0 Par ch=2 c=64 v=0
0 Pb ch=2 v=8192
0 PrCh ch=2 p=88
480 On ch=2 n=67 v=75
600 Off ch=2 n=67 v=36
600 On ch=2 n=68 v=83
720 Off ch=2 n=68 v=44
720 On ch=2 n=69 v=74
840 Off ch=2 n=69 v=46
840 On ch=2 n=70 v=81
960 Off ch=2 n=70 v=47
960 On ch=2 n=71 v=77
1080 Off ch=2 n=71 v=43
1080 On ch=2 n=72 v=71
1200 Off ch=2 n=72 v=34
1200 On ch=2 n=73 v=83
1320 Off ch=2 n=73 v=51
1320 On ch=2 n=74 v=80
1440 Off ch=2 n=74 v=38
1440 On ch=2 n=75 v=76
1560 Off ch=2 n=75 v=36
1560 On ch=2 n=76 v=69
1680 Off ch=2 n=76 v=44
1680 On ch=2 n=77 v=75
1800 Off ch=2 n=77 v=31
1800 On ch=2 n=78 v=74
1920 Off ch=2 n=78 v=41
1920 On ch=2 n=79 v=81
2040 Off ch=2 n=79 v=46
2040 On ch=2 n=78 v=71
2160 Off ch=2 n=78 v=48
2160 On ch=2 n=77 v=68
2280 Off ch=2 n=77 v=32
2280 On ch=2 n=76 v=71
2400 Off ch=2 n=76 v=35
2400 On ch=2 n=75 v=80
2520 Off ch=2 n=75 v=45
2520 On ch=2 n=74 v=71
2640 Off ch=2 n=74 v=28
2640 On ch=2 n=73 v=86
2760 Off ch=2 n=73 v=36
2760 On ch=2 n=72 v=73
2880 Off ch=2 n=72 v=27
2880 On ch=2 n=71 v=62
3000 Off ch=2 n=71 v=35
3000 On ch=2 n=72 v=66
3120 Off ch=2 n=72 v=30
3120 On ch=2 n=73 v=90
3240 Off ch=2 n=73 v=32
3240 On ch=2 n=74 v=86
3360 Off ch=2 n=74 v=44
3360 On ch=2 n=75 v=67
3480 Off ch=2 n=75 v=32
3480 On ch=2 n=76 v=67
3600 Off ch=2 n=76 v=38
3600 On ch=2 n=77 v=62
3720 Off ch=2 n=77 v=28
3720 On ch=2 n=78 v=72
3840 Off ch=2 n=78 v=44
3840 On ch=2 n=79 v=77
3960 Off ch=2 n=79 v=44
3960 On ch=2 n=80 v=85
4080 Off ch=2 n=80 v=40
4080 On ch=2 n=81 v=75
4200 Off ch=2 n=81 v=41
4200 On ch=2 n=82 v=83
4320 Off ch=2 n=82 v=55
4320 On ch=2 n=83 v=80
4440 Off ch=2 n=83 v=48
4440 On ch=2 n=84 v=62
4560 Off ch=2 n=84 v=33
4560 On ch=2 n=85 v=83
4680 Off ch=2 n=85 v=56
4680 On ch=2 n=86 v=85
4800 Off ch=2 n=86 v=31
4800 On ch=2 n=87 v=81
4920 Off ch=2 n=87 v=40
4920 On ch=2 n=86 v=64
5040 Off ch=2 n=86 v=39
5040 On ch=2 n=85 v=71
5160 Off ch=2 n=85 v=35
5160 On ch=2 n=84 v=72
5280 Off ch=2 n=84 v=35
5280 On ch=2 n=83 v=62
5400 Off ch=2 n=83 v=34
5400 On ch=2 n=82 v=62
5520 Off ch=2 n=82 v=40
5520 On ch=2 n=81 v=58
5640 Off ch=2 n=81 v=37
5640 On ch=2 n=80 v=71
5760 Off ch=2 n=80 v=38
5760 On ch=2 n=81 v=55
5880 Off ch=2 n=81 v=29
5880 On ch=2 n=80 v=68
6000 Off ch=2 n=80 v=25
6000 On ch=2 n=79 v=52
6120 Off ch=2 n=79 v=31
6120 On ch=2 n=78 v=87
6240 Off ch=2 n=78 v=45
6240 On ch=2 n=79 v=81
6360 Off ch=2 n=79 v=64
6720 Pb ch=2 v=8192
6720 Par ch=2 c=64 v=0
6720 Par ch=2 c=7 v=100
6720 Par ch=2 c=6 v=0
6720 Meta TrkEnd
TrkEnd';
if (isset($p['txt'])){
$txt = $p['txt'];
if (get_magic_quotes_gpc()==1) $txt = stripslashes($txt);
}else $txt = $test;
?>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<title>Text2Midi</title>
<style>
body {font-family:arial;font-size:11px;margin:5px;}
form {font-family:arial;font-size:11px;}
td {font-family:arial;font-size:11px}
input {font-family:arial;font-size:11px}
textarea {font-family:"courier new",courier;font-size:11px}
a,a:link,a:visited,a:active {font-family:arial;font-size:11px;color:#000000;}
a:hover {font-family:font-family:arial;font-size:11px;color:#666666;}
</style>
</head>
<body style="margin:5px;font-family:Courier">
<form action="txt2mid.php" method="POST">
<textarea name="txt" cols=60 rows=30><?php echo $txt?></textarea>
<br>
<input type="radio" name="engine" value="bk"<?php echo $engine=='bk'?' checked':''?>>Beatnik
<input type="radio" name="engine" value="qt"<?php echo $engine=='qt'?' checked':''?>>QuickTime
<input type="radio" name="engine" value="wm"<?php echo $engine=='wm'?' checked':''?>>Windows Media
<input type="radio" name="engine" value=""<?php echo $engine==''?' checked':''?>>other (default Player)<br><br>
<input type="submit" value=" send ">
</form>
<?php
if (isset($p['txt'])){
$midi = new Midi();
$midi->importTxt($txt);
$midi->saveMidFile($file);
$midi->playMidFile($file,1,1,0,$engine);
?>
<br><br><input type="button" name="download" value="Save as SMF (*.mid)" onClick="self.location.href='sequencer.php?download=<?php echo urlencode($file)?>'">
<?php
}
?>
</body>
</html>
|
Download
