diff options
| author | Olivier Andrieu <oandrieu@gmail.com> | 2004-02-27 22:44:30 +0000 |
|---|---|---|
| committer | Hezekiah M. Carty <hcarty@atmos.umd.edu> | 2009-06-18 13:54:40 -0400 |
| commit | f5e031703ac1f8e15cdd5900b7c4f2e150c472ad (patch) | |
| tree | d415827004a300909f9ed05ad2a64bb0c458628c | |
| parent | 6070638c302fe5bcc5dfdb1ce6ff206761c8644b (diff) | |
current_path methods
| -rw-r--r-- | src/ocairo.ml | 4 | ||||
| -rw-r--r-- | src/ocairo.mli | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ocairo.ml b/src/ocairo.ml index 9494a9c..9cf73d9 100644 --- a/src/ocairo.ml +++ b/src/ocairo.ml @@ -137,6 +137,10 @@ class cairo cairo = method close_path = Cairo.close_path c method stroke = Cairo.stroke c method fill = Cairo.fill c + method current_path : 'a 'b. ('a -> ([> Cairo.basic_path] as 'b) -> 'a) -> 'a -> 'a = + Cairo.fold_current_path c + method current_path_flat : 'a 'b. ('a -> ([> Cairo.flat_path] as 'b) -> 'a) -> 'a -> 'a = + Cairo.fold_current_path_flat c method in_stroke x y = Cairo.in_stroke c x y method in_fill x y = Cairo.in_fill c x y diff --git a/src/ocairo.mli b/src/ocairo.mli index 0471b6a..6f4cff0 100644 --- a/src/ocairo.mli +++ b/src/ocairo.mli @@ -79,6 +79,8 @@ class cairo : method concat_matrix : matrix -> unit method copy : cairo method copy_page : unit + method current_path : ('a -> [> Cairo.basic_path] -> 'a) -> 'a -> 'a + method current_path_flat : ('a -> [> Cairo.flat_path] -> 'a) -> 'a -> 'a method current_point : point method curve_to : float -> float -> float -> float -> float -> float -> unit |