|
Revision 488, 401 bytes
(checked in by shans, 5 years ago)
|
initial import of ocaml port of remix
|
| Line | |
|---|
| 1 |
(* the remix type contains the samplerate, which specifies a time -> raw_time |
|---|
| 2 |
* mapping, and the number of channels, which specifies a sound -> time |
|---|
| 3 |
* mapping |
|---|
| 4 |
*) |
|---|
| 5 |
type remix = {re_samplerate:int; re_channels:int; re_bpm:float};; |
|---|
| 6 |
|
|---|
| 7 |
let create sr ch bpm = {re_samplerate=sr; re_channels=ch; re_bpm=bpm};; |
|---|
| 8 |
|
|---|
| 9 |
let samplerate r = r.re_samplerate;; |
|---|
| 10 |
|
|---|
| 11 |
let channels r = r.re_channels;; |
|---|
| 12 |
|
|---|
| 13 |
let bpm r = r.re_bpm;; |
|---|
