|
Revision 512, 453 bytes
(checked in by shans, 1 year ago)
|
Moved "plugin" to "note" in line with original remix
Set up envelopes as notes
Started work on "continuous" (0, Forever) sounds and plugins
Added some repeat and shift utilities for notes
|
| Line | |
|---|
| 1 |
type layer;; |
|---|
| 2 |
|
|---|
| 3 |
val empty : unit -> layer;; |
|---|
| 4 |
|
|---|
| 5 |
(** add_sound remix layer sound start length *) |
|---|
| 6 |
val add_note : layer -> Note.note -> Time.extent -> unit;; |
|---|
| 7 |
|
|---|
| 8 |
val to_note : layer -> Sound.sound -> Sound.sound;; |
|---|
| 9 |
|
|---|
| 10 |
val add_transparency : layer -> Transparency.transparency -> |
|---|
| 11 |
Time.extent -> unit |
|---|
| 12 |
|
|---|
| 13 |
val transparency_list : layer -> |
|---|
| 14 |
(Time.extent * Transparency.transparency) list;; |
|---|
| 15 |
|
|---|
| 16 |
val print : layer -> unit;; |
|---|
