Changeset 6703

Timestamp:

06/30/09 18:13:03 (14 months ago)

Author:

smimram

Message:

Dirty trick.

Files:

• trunk/liquidsoap/src/formats/midiformat.ml (modified) (2 diffs)

trunk/liquidsoap/src/formats/midiformat.ml

@@ -133 +133 @@
             let n = get_byte () in
             let v = get_byte () in
-              Some chan, Midi.Note_on (n, float v /. 127.)
+              Some chan,
+              if v = 0 then
+                Midi.Note_off (n, 0.) (* I have seen notes at 0. used as note off...... *)
+              else
+                Midi.Note_on (n, float v /. 127.)
         | 0xa ->
             let n = get_byte () in
@@ -264 +268 @@
             (fun (d,(c,e)) ->
                let d = (d * !tempo / tpq) * Fmt.ticks_per_second () / 1000000 in
-               let d = d * 2 in (* TODO: remove this! *)
+               let d = d * 1 in (* TODO: remove this! *)
                  (
                    match e with