Changeset 492

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

Fixed preview to render only requested length

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • ocaml-remix/trunk/sound_test_sin.ml

    r488 r492  
    2121Sound.write r out env_a (Time.Seconds 0., Time.Seconds len);; 
    2222*) 
    23 Sound.preview r env_a (Time.Seconds 0.0, Time.Seconds 4.0)  
    24                                   (Time.Seconds 0.0, Time.Seconds 4.0);; 
     23Sound.preview r env_a (Time.Seconds 0.0, Time.Seconds len)  
     24                                  (Time.Seconds 0.0, Time.Seconds len);;