Show
Ignore:
Timestamp:
10/26/07 16:11:06 (1 year ago)
Author:
shans
Message:

Modified sounds to only accept start (not length as well). Makes shift and
repeat easier, and makes more sense overall.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • ocaml-remix/trunk/sound_test_sin.ml

    r499 r514  
    77 
    88let r = Remix.create 44000 2 120.;; 
    9 let four_second_A = Wave.sin (Volume.ramp 0. amp) rate;; 
    10 let envelope = Envelope.adsr (Time.Seconds 0.1) (Time.Seconds 0.4) 0.8 
    11                                                         (Time.Seconds 0.1);; 
     9let four_second_A = Wave.sin (Volume.ramp (Time.Seconds len) 0. amp) rate;; 
     10let envelope = Envelope.adsr (Time.Seconds len) (Time.Seconds 0.1)  
     11                            (Time.Seconds 0.4) 0.8 (Time.Seconds 0.1);; 
    1212 
    1313let env_a = Envelope.apply envelope four_second_A;; 
    …… 
    1919Sound.write r out env_a (Time.Seconds 0., Time.Seconds len);; 
    2020*) 
    21 Sound.preview r env_a (Time.Seconds 0.0, Time.Seconds len)  
    22                                   (Time.Seconds 0.0, Time.Seconds len);; 
     21Sound.preview r env_a (Time.Seconds 0.0) (Time.Seconds 0.0, Time.Seconds len);;