Show
Ignore:
Timestamp:
11/19/07 15:39:53 (1 year ago)
Author:
shans
Message:

Replacing sound implementation - WAS ocaml int arrays, IS native float
arrays. This has not yet been completely been debugged!

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • ocaml-remix/trunk/oss.ml

    r488 r529  
    66                                                    "c_ex_sound_set_parms";; 
    77 
    8 external sound_write : soundDevice -> int array -> unit = "c_ex_sound_write";; 
     8external sound_write_raw : soundDevice -> FB.buffer_raw -> int -> unit =  
     9        "c_ex_sound_write";; 
     10 
     11let sound_write dev (b,l,c) = sound_write_raw dev b (l*c);; 
    912 
    1013external sound_close : soundDevice -> unit = "c_ex_sound_close";;