Changeset 6716 for trunk/liquidsoap/src/tools/mutils.ml

Timestamp:

07/02/09 13:37:13 (14 months ago)

Author:

smimram

Message:

Warning for non-existent channels + more modular code.

Files:

• trunk/liquidsoap/src/tools/mutils.ml (copied) (copied from trunk/liquidsoap/src/tools/sutils.ml) (1 diff)

trunk/liquidsoap/src/tools/mutils.ml

@@ -21 +21 @@
  *****************************************************************************)
 
-let lin_of_dB x = 10. ** (x /. 20.)
+(** Convert a value into a channel number, checking that it actually exists. *)
+let to_chan v =
+  let n = Lang.to_int v in
+    if n >= Fmt.midi_channels () then
+      raise (Lang.Invalid_value (v, "channel number too big (try increasing lang.midi.channels)"))
+    else
+      n
 
-let dB_of_lin x = 20. *. log x /. log 10.
-
-let clip x = min 1. (max (-.1.) x)
+(** Convert delta-times to ticks. *)
+let ticks_of_delta division tempo delta =
+  match division with
+    | Midi.Ticks_per_quarter tpq ->
+        (* These computations sometimes overflow on 32 bits. *)
+        let tpq = Int64.of_int tpq in
+        let tempo = Int64.of_int tempo in
+        let tps = Int64.of_int (Fmt.ticks_per_second ()) in
+        let ten = Int64.of_int 1000000 in
+        let delta = Int64.of_int delta in
+        let ( * ) = Int64.mul in
+        let ( / ) = Int64.div in
+          Int64.to_int ((((delta * tempo) / tpq) * tps) / ten)
+    | Midi.SMPTE (fps,res) ->
+        (delta * Fmt.ticks_per_second ()) / (fps * res)