root/ocaml-remix/trunk/continuous_sound_test.ml

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

let s n = Time.Seconds n;;

let note = Note.from_sound (Wave.sin (Volume.constant 30000.) 440.);;
let envelope = Note.from_envelope 
    (Envelope.adsr (s 0.75) (s 0.1) (s 0.4) 0.8 (s 0.1));;
let envelope2 = Note.from_envelope 
    (Envelope.adsr (s 0.8) (s 0.2) (s 0.2) 0.9 (s 0.3));;
let envelope3 = Note.from_envelope 
    (Envelope.adsr (s 0.85) (s 0.3) (s 0.3) 0.9 (s 0.2));;

let continuous = (Time.Seconds 0.0, Time.Forever);;

let sound_layer = Layer.empty ();;
Layer.add_note sound_layer note continuous;;

let env_layer = Layer.empty ();;
Layer.add_note env_layer 
          (NoteUtil.repeat (Time.Seconds 0.75) envelope) continuous;;
Layer.add_transparency env_layer (Transparency.constant 0.5) continuous;;

let env_layer2 = Layer.empty ();;
Layer.add_note env_layer2
          (NoteUtil.repeat (Time.Seconds 0.8) envelope2) continuous;;
Layer.add_transparency env_layer2 (Transparency.constant 0.33) continuous;;

let env_layer3 = Layer.empty ();;
Layer.add_note env_layer3
          (NoteUtil.repeat (Time.Seconds 0.85) envelope3) continuous;;
Layer.add_transparency env_layer3 (Transparency.constant 0.5) continuous;;

let track = Track.empty ();;
Track.add_layer track env_layer3;;
Track.add_layer track env_layer2;;
Track.add_layer track env_layer;;
Track.add_layer track sound_layer;;

let r = Remix.create 44000 2 120.;;
Sound.preview r (Track.to_note track Sound.silence) (s 0.) continuous;;