val scale_radius : float -> (float * float) list -> (float * float) listval scale_radius_2 : float -> (float * float) list list -> (float * float) list listval maxlist : 'a list list -> 'a list
type direction = | Horizontal |
| Vertical |
| Other |
val make_paths : float -> (float * float) list -> float -> direction -> (float * float) list list -> float -> (float * float) list listval draw_ticks : float -> (float * float) list -> float -> float -> float -> Mlpost__.Types.commandpicval draw_label : (float * float) list -> string -> float -> Mlpost__.Types.commandpicval draw_skeleton : Mlpost__.Types.commandpic -> ?label:string list -> float -> float list -> (float * float) list list -> float -> float -> Mlpost__.Types.commandpicval empty_radar_coords : int -> (float * float) list listval list_coord : float list -> float list -> (float * float) list list -> (float * float) listval radar : Mlpost.Color.t -> float list -> float list -> (float * float) list list -> Mlpost__.Types.pen -> bool -> Mlpost__.Types.dash -> float -> Mlpost__.Types.commandpicval default_radius : floatval default_style : Mlpost__.Types.dash listval default_pen : Mlpost__.Types.penval init : float -> ?scale:'a list -> 'a list list -> float * 'a list * (float * float) list listval stack : ?radius:float -> ?color:Mlpost.Color.t list -> ?pen:Mlpost__.Types.pen -> ?style:Mlpost__.Types.dash list -> ?ticks:float -> ?label:string list -> ?scale:float list -> float list list -> Mlpost__.Types.commandpicval compare : ?radius:float -> ?color:Mlpost.Color.t list -> ?fill:bool -> ?pen:Mlpost__.Types.pen -> ?style:Mlpost__.Types.dash list -> ?ticks:float -> ?label:string list -> ?scale:float list -> float list list -> Mlpost__.Types.commandpic list