|
Revision 529, 341 bytes
(checked in by shans, 1 year ago)
|
Replacing sound implementation - WAS ocaml int arrays, IS native float
arrays. This has not yet been completely been debugged!
|
| Line | |
|---|
| 1 |
type deck = {mutable tracks : Track.track list};; |
|---|
| 2 |
|
|---|
| 3 |
let empty _ = { tracks = [] };; |
|---|
| 4 |
|
|---|
| 5 |
let add_track deck track = deck.tracks <- track::deck.tracks;; |
|---|
| 6 |
|
|---|
| 7 |
let to_note deck undersound remix extent (st,le) = |
|---|
| 8 |
let raws = List.map |
|---|
| 9 |
(fun l -> Track.to_note l undersound remix extent (st,le)) deck.tracks in |
|---|
| 10 |
FB.average (Array.of_list raws);; |
|---|
| 11 |
|
|---|
