|
Revision 502, 456 bytes
(checked in by shans, 5 years ago)
|
Added ladspa tree implementation and demonstration in ladspa_test. This
is probably not going to be the final abstraction for ladspa.
|
| Line | |
|---|
| 1 |
type mapping = (int * int) list;; |
|---|
| 2 |
|
|---|
| 3 |
(* a plugin has a list of trees which plug into the input/output slots, and |
|---|
| 4 |
an int list which refers to the output slots which the tree represents. If |
|---|
| 5 |
the output slots are not empty, then their trees are rendered and added |
|---|
| 6 |
to *) |
|---|
| 7 |
type tree = |
|---|
| 8 |
| Control of float |
|---|
| 9 |
| Audio of Sound.sound |
|---|
| 10 |
| Plugin of (string * (tree * mapping) list * bool * int list) |
|---|
| 11 |
| EmptySlot;; |
|---|
| 12 |
|
|---|
| 13 |
val render_tree : tree -> Sound.sound;; |
|---|
