val pi : float val pos_infty : float val degrees_to_radians : float val radians_to_degrees : float val deg_cos : float -> float val deg_sin : float -> float val deg_acos : float -> float val deg_asin : float -> float val intern : string -> string val fudge_factor : float ref val set_fudge_factor : float -> unit val fudge : float -> float