Module Mlpost__.Compute

module P = Mlpost__.Point_lib
module M = Mlpost__.Matrix
val default_labeloffset : float
val default_pen : M.t
val bbox_offset : P.t
val pi : float
val pi_div_180 : float
val deg2rad : float -> float
module S = Mlpost__.Spline_lib
module Pi = Mlpost__.Picture_lib
module MP = Mlpost__.Metapath_lib
val memoize : ('a -> 'b) -> string -> (int, 'b) Stdlib.Hashtbl.t -> 'a Mlpost__.Hashcons.hash_consed -> 'b
val nop : Mlpost__.Picture_lib.t
val option_compile : ('a -> 'b) -> 'a option -> 'b option
val option_def_compile : 'a -> ('b -> 'a) -> 'b option -> 'a
val middle : float -> float -> float
val point_of_position : float -> (P.t * P.t) -> Mlpost__.Types.position -> P.t
val anchor_of_position : Mlpost__.Types.position -> [> `Center | `East | `North | `Northeast | `Northwest | `South | `Southeast | `Southwest | `West ]
val metapath_memoize : (int, MP.direction * MP.t * MP.direction) Stdlib.Hashtbl.t
val path_memoize : (int, Mlpost__.Spline_lib.path) Stdlib.Hashtbl.t
val picture_memoize : (int, Mlpost__.Picture_lib.t) Stdlib.Hashtbl.t
val command_memoize : (int, Mlpost__.Picture_lib.t) Stdlib.Hashtbl.t
val clear : unit -> unit
val float_to_metapost : float -> float
val num : Mlpost__.Types.num -> Mlpost__.Types.num
val point : Mlpost__.Types.point -> Mlpost__.Types.point
val knot : Mlpost__.Types.knot_node Mlpost__.Hashcons.hash_consed -> MP.direction * MP.knot * MP.direction
val joint : MP.direction -> Mlpost__.Types.joint_node Mlpost__.Hashcons.hash_consed -> MP.direction -> MP.joint
val direction : Mlpost__.Types.direction -> MP.direction
val metapath' : Mlpost__.Types.metapath_node -> MP.direction * MP.t * MP.direction
val metapath : Mlpost__.Types.metapath -> MP.direction * MP.t * MP.direction
val path' : Mlpost__.Types.path_node -> Mlpost__.Spline_lib.path
val path : Mlpost__.Types.path -> Mlpost__.Spline_lib.path
val picture' : Mlpost__.Types.picture_node -> Mlpost__.Picture_lib.t
val picture : Mlpost__.Types.picture_node Mlpost__.Hashcons.hash_consed -> Mlpost__.Picture_lib.t
val transform : Mlpost__.Types.transform -> Mlpost__.Matrix.t
val commandpic : Mlpost__.Types.commandpic -> Mlpost__.Picture_lib.t
val dash : Mlpost__.Types.dash_node Mlpost__.Hashcons.hash_consed -> Mlpost__.Picture_lib.Dash.t
val dash_pattern : Mlpost__.Types.on_off -> Mlpost__.Picture_lib.Dash.input_dash
val command' : Mlpost__.Types.command_node -> Mlpost__.Picture_lib.t
val spec : Mlpost__.Types.spec_image -> [ `Exact of Mlpost__.Types.num * Mlpost__.Types.num | `Height of Mlpost__.Types.num | `Inside of Mlpost__.Types.num * Mlpost__.Types.num | `None | `Width of Mlpost__.Types.num ]
val pen : Mlpost__.Types.pen -> M.t
val command : Mlpost__.Types.command -> Mlpost__.Picture_lib.t
val commandl_error : ((Mlpost__.Types.command -> Mlpost__.Picture_lib.t) -> 'a -> 'b) -> 'a list -> 'b list
val commandpicl_error : ((Mlpost__.Types.commandpic -> Mlpost__.Picture_lib.t) -> 'a -> 'b) -> 'a list -> 'b list
val numl_error : ((Mlpost__.Types.num -> Mlpost__.Types.num) -> 'a -> 'b) -> 'a list -> 'b list
val pointl_error : ((Mlpost__.Types.point -> Mlpost__.Types.point) -> 'a -> 'b) -> 'a list -> 'b list
val pathl_error : ((Mlpost__.Types.path -> Mlpost__.Spline_lib.path) -> 'a -> 'b) -> 'a list -> 'b list
val metapathl_error : ((Mlpost__.Types.metapath -> MP.direction * MP.t * MP.direction) -> 'a -> 'b) -> 'a list -> 'b list
val picturel_error : ((Mlpost__.Types.picture_node Mlpost__.Hashcons.hash_consed -> Mlpost__.Picture_lib.t) -> 'a -> 'b) -> 'a list -> 'b list