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