From 87fb4a8960e8c44b9ae291458d0c6fd1ac0a3ea2 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Sat, 4 Oct 2003 10:05:52 +0000
Subject: [PATCH] Adhere to temp settings.
---
exec/playmidi.js | 36 ++++++++++++++++++++++++++----------
1 file changed, 26 insertions(+), 10 deletions(-)
diff --git a/exec/playmidi.js b/exec/playmidi.js
index 2198dc33cb..1c998356ed 100644
--- a/exec/playmidi.js
+++ b/exec/playmidi.js
@@ -33,6 +33,8 @@ var note_start=0;
var note_on;
var note;
var last_delta=0;
+var tempo=500; /* msec/quarter-note (120 bbp) */
+var ticks_per_qnote=500;
function readVar(file)
{
@@ -51,6 +53,11 @@ function readVar(file)
return val;
}
+function ticks_per_msec()
+{
+ return(tempo/ticks_per_qnote);
+}
+
for(i=0;i<argc;i++) {
switch(argv[i]) {
case "-d":
@@ -73,7 +80,7 @@ if(!filename) {
if(!file_exists(filename))
filename=system.exec_dir + filename;
-file = new File(filename);
+file = new File(filename, true /* shareable */);
if(!file.open("rb")) {
alert("error " + file.error + " opening " + filename);
@@ -104,7 +111,8 @@ while(!file.eof && !js.terminated) {
fmat = file.readBin(2);
ntrks = file.readBin(2);
division = file.readBin(2);
-
+ if(!(division&0x8000))
+ ticks_per_qnote=division;
if(debug) {
writeln("\tformat: " + fmat);
writeln("\tntrks: " + ntrks);
@@ -172,13 +180,14 @@ while(!file.eof && !js.terminated) {
track_tempo |= file.readBin(1)<<8;
track_tempo |= file.readBin(1);
writeln("Tempo: " + track_tempo);
+ temp = track_tempo/1000; /* Convert from usec to msec */
break;
case EVENT_TYPE_TIME_SIGNATURE:
nn=file.readBin(1);
dd=file.readBin(1);
cc=file.readBin(1);
bb=file.readBin(1);
- writeln("Time Singature: " + format("%u/%u",nn,Math.pow(2,dd)));
+ writeln("Time Sigature: " + format("%u/%u",nn,Math.pow(2,dd)));
break;
default:
while(file.position < end_of_event) {
@@ -194,29 +203,36 @@ while(!file.eof && !js.terminated) {
switch(status&0xf0) {
case EVENT_TYPE_NOTE_ON:
note_start=delta;
- note_on=note=file.readBin(1);
+ note=file.readBin(1);
velocity=file.readBin(1);
- writeln("\t\tnote on: " + note + " velocity: " + velocity);
+ if(note_on)
+ break;
+ writeln("\t\tnote on: " + note);
if(delta)
- sleep(delta);
+ sleep(delta*ticks_per_msec());
+ note_on=note;
break;
case EVENT_TYPE_NOTE_OFF:
note=file.readBin(1);
velocity=file.readBin(1);
- writeln("\t\tnote off: " + note + " velocity: " + velocity);
+ writeln("\t\tnote off: " + note);
if(note!=note_on)
- alert("NOTE OFF/ON MISMATCH");
+ break;
if(delta) {
freq=523.50/32.0; /* Low 'C' */
freq*=Math.pow(2,note/12);
writeln("\t\tPlaying " + Math.floor(freq) + " for " + delta);
- beep(freq,delta);
+ beep(freq,delta*ticks_per_msec());
}
+ note_on=0;
break;
}
- } else if(status&0x80)
+ }
+ /*
+ else if(status&0x80)
writeln("Ignoring message for channel: " + format("%02X",status&0x0f));
+ */
} while(!file.eof && !js.terminated && file.position < end_of_track);
--
GitLab