[cairo-commit] cairo-ocaml/src cairo.ml,1.6,1.7 cairo.mli,1.6,1.7

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/src
In directory pdx:/tmp/cvs-serv27923/src

Modified Files:
	cairo.ml cairo.mli 
Log Message:
add Cairo.line_to_point and Cairo.curve_to_point

Index: cairo.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo.ml,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** a/cairo.ml	27 Feb 2004 22:49:12 -0000	1.6
--- b/cairo.ml	24 Mar 2004 10:57:27 -0000	1.7
***************
*** 102,108 ****
--- 102,110 ----
  let move_to_point ~cr { x = x ; y = y } = move_to ~cr ~x ~y
  external line_to : cr:t -> x:float -> y:float -> unit = "ml_cairo_line_to"
+ let line_to_point ~cr { x = x ; y = y } = line_to ~cr ~x ~y
  external curve_to :
    cr:t -> x1:float -> y1:float -> x2:float -> y2:float -> x3:float ->
      y3:float -> unit = "ml_cairo_curve_to_bc" "ml_cairo_curve_to"
+ let curve_to_point ~cr {x=x1; y=y1} {x=x2; y=y2} {x=x3; y=y3} = curve_to ~cr ~x1 ~y1 ~x2 ~y2 ~x3 ~y3
  external arc :
    cr:t -> xc:float -> yc:float -> radius:float -> angle1:float ->

Index: cairo.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo.mli,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** a/cairo.mli	27 Feb 2004 22:49:12 -0000	1.6
--- b/cairo.mli	24 Mar 2004 10:57:27 -0000	1.7
***************
*** 121,124 ****
--- 121,125 ----
  val move_to_point : cr:t -> point -> unit
  external line_to : cr:t -> x:float -> y:float -> unit = "ml_cairo_line_to"
+ val line_to_point : cr:t -> point -> unit
  external curve_to :
    cr:t ->
***************
*** 126,129 ****
--- 127,131 ----
    y1:float -> x2:float -> y2:float -> x3:float -> y3:float -> unit
    = "ml_cairo_curve_to_bc" "ml_cairo_curve_to"
+ val curve_to_point : cr:t -> point -> point -> point -> unit
  external arc :
    cr:t ->