|
Revision 529, 458 bytes
(checked in by shans, 1 year ago)
|
Replacing sound implementation - WAS ocaml int arrays, IS native float
arrays. This has not yet been completely been debugged!
|
| Line | |
|---|
| 1 |
type soundDevice;; |
|---|
| 2 |
|
|---|
| 3 |
external sound_open : unit -> soundDevice = "c_ex_sound_open";; |
|---|
| 4 |
|
|---|
| 5 |
external sound_set_parms : soundDevice -> int -> int -> unit = |
|---|
| 6 |
"c_ex_sound_set_parms";; |
|---|
| 7 |
|
|---|
| 8 |
external sound_write_raw : soundDevice -> FB.buffer_raw -> int -> unit = |
|---|
| 9 |
"c_ex_sound_write";; |
|---|
| 10 |
|
|---|
| 11 |
let sound_write dev (b,l,c) = sound_write_raw dev b (l*c);; |
|---|
| 12 |
|
|---|
| 13 |
external sound_close : soundDevice -> unit = "c_ex_sound_close";; |
|---|
