Changeset 491

Show
Ignore:
Timestamp:
07/30/07 20:07:40 (1 year ago)
Author:
shans
Message:

Added envelopes to sounds

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • ocaml-remix/trunk/track_test_sins.ml

    r488 r491  
    33 
    44let remix = Remix.create 44000 2 120.;; 
     5let env = Sound.adsr_envelope (Time.Seconds 0.2) (Time.Seconds 0.6) 0.7  
     6                                    (Time.Seconds 0.1);; 
    57let a = Sound.sin_wave 30000. (Time.Hertz 440.);; 
    68let e = Sound.sin_wave 20000. (Time.Hertz 660.);; 
    7  
     9let [a; e] = List.map (Sound.apply_envelope env) [a; e];; 
    810 
    911(* AAAA  AAAA EEEE