root/ocaml-remix/trunk/track_test_sins.ml

(* middle A has a frequency of 440 Hz.  at a samplerate of 44 kHz, that is
   a period of 100 samples *)

let env t = Envelope.adsr t (Time.Seconds 0.2) (Time.Seconds 0.6) 0.7 
                                                           (Time.Seconds 0.1);;
let a = Wave.sin (Volume.constant 1.) (Tone.note Tone.a 0);;
let e = Wave.sin (Volume.constant 0.7) (Tone.note Tone.e 1);;
let a t = Envelope.apply (env t) a;;
let e t = Envelope.apply (env t) e;;
let a t = Note.from_sound (a t);;
let e t = Note.from_sound (e t);;

let add layer note start length =
  Layer.add_note layer (note (Time.Seconds length)) 
          (Time.Seconds start, Time.Seconds length);;

(* AAAA  AAAA EEEE 
   .oO0    .oO00Oo.
   EEEE EEEEEE AAAA
*)
let layer1 = Layer.empty ();;
let trans1 = Transparency.linear_ramp 0.0 1.0;;
let trans2 = Transparency.linear_ramp 1.0 0.0;;
add layer1 a 0.0 4.0;;
add layer1 a 6.0 4.0;;
add layer1 e 11.0 4.0;;

let noise = Ladspa_raw.open_plugin "noise:noise_white";;
let setup_noise _ = 1.0;;
let noise_p = Note.from_ladspa noise (Note.ladspa_init setup_noise);;
Layer.add_note layer1 noise_p (Time.Seconds 4.0, Time.Seconds 2.0);;

Layer.add_transparency layer1 trans1 (Time.Seconds 0.0, Time.Seconds 4.0);;
Layer.add_transparency layer1 trans1 (Time.Seconds 8.0, Time.Seconds 4.0);;
Layer.add_transparency layer1 trans2 (Time.Seconds 12.0, Time.Seconds 4.0);;

let layer2 = Layer.empty ();;
add layer2 e 0.0 4.0;;
add layer2 e 5.0 6.0;;
add layer2 a 12.0 4.0;;

let layer3 = Layer.empty();;
let ladspa = Ladspa_raw.open_plugin "tap_vibrato:tap_vibrato";;
let setup_plugin v = match v with
  | 0 -> 5.0
  | 1 -> 5.0
  | 2 -> -90.0
  | _ -> 0.0;;
let plugin = Note.from_ladspa ladspa (Note.ladspa_init setup_plugin);;
Layer.add_note layer3 plugin (Time.Seconds 2.0, Time.Seconds 7.0);;
let trans = Transparency.constant 1.0;;
Layer.add_transparency layer3 trans (Time.Seconds 0.0, Time.Seconds 2.0);;
Layer.add_transparency layer3 trans (Time.Seconds 9.0, Time.Seconds 16.0);;

let track = Track.empty ();;
Track.add_layer track layer3;;
Track.add_layer track layer1;;
Track.add_layer track layer2;;

let sound = Track.to_note track Sound.silence;;
let extent = (Time.Seconds 0.0, Time.Seconds 16.0);;

let remix = Remix.create 44000 2 120.;;
Sound.preview remix sound (Time.Seconds 0.0) extent;;