diff options
| author | Olivier Andrieu <oandrieu@gmail.com> | 2004-11-01 15:40:36 +0000 |
|---|---|---|
| committer | Hezekiah M. Carty <hcarty@atmos.umd.edu> | 2009-06-18 13:56:59 -0400 |
| commit | 9e2da729a9333fa87ff5f57f1c7f75feaf0889af (patch) | |
| tree | babd439231a79df6a1dfb5fa0c254bb5044a5c85 | |
| parent | cc520b1118aa1cd5934f3070245c076fd837031a (diff) | |
use int instead of float for the width and height of the PNG target
| -rw-r--r-- | src/cairo.ml | 2 | ||||
| -rw-r--r-- | src/cairo.mli | 2 | ||||
| -rw-r--r-- | src/ml_cairo.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/cairo.ml b/src/cairo.ml index bc56f7a..c8e598e 100644 --- a/src/cairo.ml +++ b/src/cairo.ml @@ -33,7 +33,7 @@ external set_target_ps : x_pixels_per_inch:float -> y_pixels_per_inch:float -> unit = "ml_cairo_set_target_ps_bc" "ml_cairo_set_target_ps" external set_target_png : - cr:t -> file:Cairo_channel.t -> format -> width:float -> height:float -> unit = "ml_cairo_set_target_png" + cr:t -> file:Cairo_channel.t -> format -> width:int -> height:int -> unit = "ml_cairo_set_target_png" external suspend_exn : t -> unit = "ml_cairo_suspend_exn" external resume_exn : t -> unit = "ml_cairo_resume_exn" diff --git a/src/cairo.mli b/src/cairo.mli index 90af883..1ee700f 100644 --- a/src/cairo.mli +++ b/src/cairo.mli @@ -58,7 +58,7 @@ external set_target_ps : x_pixels_per_inch:float -> y_pixels_per_inch:float -> unit = "ml_cairo_set_target_ps_bc" "ml_cairo_set_target_ps" external set_target_png : - cr:t -> file:Cairo_channel.t -> format -> width:float -> height:float -> unit = "ml_cairo_set_target_png" + cr:t -> file:Cairo_channel.t -> format -> width:int -> height:int -> unit = "ml_cairo_set_target_png" external finalise_target : cr:t -> unit = "ml_cairo_finalise_target" (** {4 Renderer state} *) diff --git a/src/ml_cairo.c b/src/ml_cairo.c index 7da9afe..7d93c09 100644 --- a/src/ml_cairo.c +++ b/src/ml_cairo.c @@ -139,7 +139,7 @@ ml_cairo_set_target_png (value v_cr, value v_file, value v_format, { cairo_set_target_png (cairo_t_val (v_cr), FILE_val (v_file), cairo_format_t_val (v_format), - Double_val (v_width), Double_val (v_height)); + Int_val (v_width), Int_val (v_height)); check_cairo_status (v_cr); return Val_unit; } |