type skeleton = {}
val mk_skeleton : int -> int -> Mlpost.Num.t -> Mlpost.Num.t -> skeleton
type labels = int -> Mlpost.Num.t -> Mlpost.Picture.t optiontype ticks = (Mlpost.Num.t * Mlpost.Pen.t) option
val get_style : ('a -> Mlpost__.Types.dash * Mlpost__.Types.pen) option -> 'a -> Mlpost__.Types.dash * Mlpost__.Types.penval off_pattern : 'a -> Mlpost__.Types.dashval defpen : 'a -> Mlpost__.Types.penval get_borders : float -> float -> int -> int -> float * float * float * floatval draw_grid : ?hdash:(int -> Mlpost__.Types.dash) -> ?vdash:(int -> Mlpost__.Types.dash) -> ?hpen:(int -> Mlpost__.Types.pen) -> ?vpen:(int -> Mlpost__.Types.pen) -> ?color:Mlpost__.Types.color -> skeleton -> Mlpost__.Types.commandpicval label_scale : float -> floatval deflabel : int -> float -> Mlpost__.Types.commandpic optionval defticks : (float * Mlpost__.Types.pen) optionval get_corners : 'a -> 'b -> (float * 'a) * ('b * 'a) * (float * float) * ('b * float)val draw_axes : ?hpen:Mlpost__.Types.pen -> ?vpen:Mlpost__.Types.pen -> ?hlabel:(int -> Mlpost.Num.t -> Mlpost__.Types.commandpic option) -> ?vlabel:(int -> Mlpost.Num.t -> Mlpost__.Types.commandpic option) -> ?ticks:(float * Mlpost__.Types.pen) option -> ?closed:bool -> ?hcaption:Mlpost__.Types.commandpic -> ?vcaption:Mlpost__.Types.commandpic -> skeleton -> Mlpost__.Types.commandpicval draw_simple_axes : ?hpen:Mlpost__.Types.pen -> ?vpen:Mlpost__.Types.pen -> string -> string -> skeleton -> Mlpost__.Types.commandpic
type drawing =
val draw_func : ?pen:Mlpost__.Types.pen -> ?drawing:drawing -> ?style:Mlpost__.Types.joint -> ?dashed:Mlpost__.Types.dash -> ?color:Mlpost__.Types.color -> ?label:(Mlpost__.Types.commandpic * Mlpost__.Types.position * int) -> ?from_x:int -> ?to_x:int -> (int -> float) -> skeleton -> Mlpost__.Types.commandpic