sig
type 'a curve
val curve : (float -> float) -> 'a -> 'a Mlpost.Real_plot.curve
val curve_opt : (float -> float option) -> 'a -> 'a Mlpost.Real_plot.curve
val curve_l :
(float -> float option) list -> 'a -> 'a Mlpost.Real_plot.curve
val draw :
?logarithmic:bool ->
?curve_brush:('a -> Mlpost.Brush.t) ->
?label:('a -> string) ->
?ymin:float ->
?ymax:float ->
xmin:float ->
xmax:float ->
pitch:float ->
width:Mlpost.Num.t ->
height:Mlpost.Num.t -> 'a Mlpost.Real_plot.curve list -> Mlpost.Command.t
end