|
Revision 498, 504 bytes
(checked in by shans, 1 year ago)
|
Simple volume specs and ramping implemented for sounds. Not correct for
instruments yet.
|
| Line | |
|---|
| 1 |
type instrument;; |
|---|
| 2 |
|
|---|
| 3 |
type length = float;; (* measure length in beats *) |
|---|
| 4 |
type amplitude = Volume.volume;; |
|---|
| 5 |
|
|---|
| 6 |
val add_note : instrument -> Layer.layer -> amplitude -> Tone.tone -> length -> |
|---|
| 7 |
unit;; |
|---|
| 8 |
|
|---|
| 9 |
val add_notes : instrument -> Layer.layer -> amplitude -> |
|---|
| 10 |
(Tone.tone * length) list -> unit;; |
|---|
| 11 |
|
|---|
| 12 |
type soundFunction = amplitude -> Tone.tone -> Sound.sound;; |
|---|
| 13 |
|
|---|
| 14 |
val from_sound_function : ?start:float -> soundFunction -> instrument;; |
|---|
