Sourcetype 'a t = {from : 'a;to_ : 'a;start : float;duration : float;timing : Timing.t;
} Sourceval make : ?timing:Timing.t -> duration:float -> now:float -> 'a -> 'a -> 'a t Sourceval progress : 'a t -> now:float -> float Sourceval finished : 'a t -> now:float -> bool Sourceval value : lerp:('a -> 'a -> float -> 'a) -> 'a t -> now:float -> 'a Sourceval lerp_float : float -> float -> float -> float Sourceval keyed :
?timing:Timing.t ->
duration:float ->
lerp:('a -> 'a -> float -> 'a) ->
unit ->
('k, 'a) keyed Sourceval value_of : ('k, 'a) keyed -> now:float -> 'k -> 'a option