|
Revision 529, 321 bytes
(checked in by shans, 5 years ago)
|
Replacing sound implementation - WAS ocaml int arrays, IS native float
arrays. This has not yet been completely been debugged!
|
| Line | |
|---|
| 1 |
(* a volume and a frequency as input *) |
|---|
| 2 |
type wave = Volume.volume -> float -> Sound.sound;; |
|---|
| 3 |
|
|---|
| 4 |
(* generator amplitude period(in samples) start(in samples) time(in samples) *) |
|---|
| 5 |
type generator = float -> float -> int -> int -> float;; |
|---|
| 6 |
|
|---|
| 7 |
val generate : generator -> wave;; |
|---|
| 8 |
|
|---|
| 9 |
val sin : wave;; |
|---|
| 10 |
val square : wave;; |
|---|
| 11 |
val tri : wave;; |
|---|
