|
Revision 512, 0.7 kB
(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 |
(** raw time units are always in samples *) |
|---|
| 2 |
type raw_time = int;; |
|---|
| 3 |
|
|---|
| 4 |
(** time can be specified in a number of possible formats *) |
|---|
| 5 |
type time = Seconds of float |
|---|
| 6 |
| Samples of int |
|---|
| 7 |
| Beats of float |
|---|
| 8 |
| Hertz of float |
|---|
| 9 |
| Forever;; |
|---|
| 10 |
|
|---|
| 11 |
type raw_extent = raw_time * raw_time;; |
|---|
| 12 |
|
|---|
| 13 |
type extent = time * time;; |
|---|
| 14 |
|
|---|
| 15 |
(** time_to_raw_time converts user specified time to raw_time *) |
|---|
| 16 |
val time_to_raw_time : Remix.remix -> time -> raw_time;; |
|---|
| 17 |
val extent_to_raw_time : Remix.remix -> extent -> raw_extent;; |
|---|
| 18 |
|
|---|
| 19 |
val time_to_raw_samples : Remix.remix -> time -> int;; |
|---|
| 20 |
val extent_to_raw_samples : Remix.remix -> extent -> (int * int);; |
|---|
| 21 |
|
|---|
| 22 |
val overlap : Remix.remix -> extent -> extent -> extent;; |
|---|
| 23 |
|
|---|
| 24 |
val to_string : time -> string;; |
|---|
