Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
package vecosek-engine
Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
module Id_map : sig ... endmodule Ticked_action_sequence : sig ... endmodule Handlers_table : sig ... endtype track = {name : string;mutable active : int option;(*The starting tick.
*)length : int;events : Ticked_action_sequence.t;
}val make_track :
length:int ->
name:string ->
?active:int ->
events:Ticked_action_sequence.t ->
unit ->
tracktype t = {mutable bpm : int;mutable ppqn : int;tracks : track Id_map.t;handlers : Handlers_table.t;
}val make :
bpm:int ->
ppqn:int ->
tracks:track Id_map.t ->
handlers:Handlers_table.t ->
tval of_scene : Vecosek_scene.Scene.t -> tval current_tick :
t ->
current_date:float ->
previous_date:float ->
previous_tick:int ->
[> `Tick of int ] * [> `Elapsed of float ] * [> `Pulse of float ]Returns the current “tick” by counting how many of them should have happened since the previous iteration.
It also returns the readjusted “elapsed” time, that accounts for int_of_float imprecisions.
The pulse_length is just for debug display.
val interesting_events_at_tick :
t ->
tick:int ->
[> `Action of Vecosek_scene.Scene_format_t.action
| `Event of Vecosek_scene.Scene.Event.t ]
list
listval set_track_on_off : t -> id:Id_map.M.key -> int option -> unitval set_all_tracks_off : t -> unitval all_active_tracks : t -> (Id_map.M.key * int) list