Changeset 6718

Timestamp:

07/03/09 00:26:32 (14 months ago)

Author:

smimram

Message:

Dummy hammond emulation.

Location:

trunk/liquidsoap/src

Files:

• operators/flanger.ml (modified) (1 diff)
• synth/synth.ml (modified) (1 diff)
• synth/synth_op.ml (modified) (1 diff)

trunk/liquidsoap/src/operators/flanger.ml

@@ -37 +37 @@
   method abort_track = source#abort_track
 
-  val past = Array.init (Fmt.channels()) (fun _ -> Array.make past_len 0.)
+  val past = Array.init (Fmt.channels ()) (fun _ -> Array.make past_len 0.)
 
   val mutable past_pos = 0

trunk/liquidsoap/src/synth/synth.ml

@@ -204 +204 @@
 end
 
+let hammond_coef = [|0.5; 1.5; 1.; 2.; 3.; 4.; 5.; 6.; 8.|]
+
+class hammond ?adsr drawbar =
+object
+  inherit simple ?adsr
+    (fun x ->
+       let y = ref 0. in
+         for i = 0 to 8 do
+           y := !y +. sin (x *. 2. *. pi *. hammond_coef.(i) *. drawbar.(i) /. 10.)
+         done;
+    !y)
+end
+
 (*
 (** Read a GUS pat file. *)

trunk/liquidsoap/src/synth/synth_op.ml

@@ -125 +125 @@
 let () = register (fun adsr -> (new Synth.square ~adsr () :> Synth.synth)) "square" "Square synthesizer."
 let () = register (fun adsr -> (new Synth.saw ~adsr () :> Synth.synth)) "saw" "Saw synthesizer."
+let () = register (fun adsr -> (new Synth.hammond ~adsr (* [|4.; 6.; 8.; 3.; 6.; 4.; 8.; 7.; 6.|] *) [|0.; 0.; 6.; 5.; 4.; 5.; 4.; 5.; 6.|] :> Synth.synth)) "hammond" "Hammond synthsizer."