Sourcetype t = {target : Vec3.t;distance : float;azimuth : float;elevation : float;fov : float;
} Sourcetype area = {cx : float;cy : float;w : float;h : float;
} Sourceval polygon :
t ->
area ->
(Vec3.t * bool) list ->
((float * float) * bool) list Sourceval orbit : t -> float -> float -> t