Changeset 6702

Timestamp:

06/30/09 18:12:51 (14 months ago)

Author:

smimram

Message:

More polyphony.

Files:

• trunk/liquidsoap/src/synth/synth.ml (modified) (1 diff)

trunk/liquidsoap/src/synth/synth.ml

@@ -46 +46 @@
   method note_on n v =
     (* Limit the number of notes for now. TODO: parameter *)
-    if List.length notes > 8 then notes <- List.rev (List.tl (List.rev notes));
+    if List.length notes > 16 then notes <- List.rev (List.tl (List.rev notes));
     notes <- (n, ref (self#note_init n v))::notes