sig
external plasma_image :
Magick.image_handle ->
x1:int ->
y1:int -> x2:int -> y2:int -> attenuate:int -> depth:int -> unit
= "imper_plasmaimage_bytecode" "imper_plasmaimage_native"
external flip : Magick.image_handle -> unit = "imper_flipimage"
external flop : Magick.image_handle -> unit = "imper_flopimage"
external magnify : Magick.image_handle -> unit = "imper_magnifyimage"
external minify : Magick.image_handle -> unit = "imper_minifyimage"
external enhance : Magick.image_handle -> unit = "imper_enhanceimage"
external trim : Magick.image_handle -> unit = "imper_trimimage"
external despeckle : Magick.image_handle -> unit = "imper_despeckle"
val negate :
Magick.image_handle -> ?grayscale:Magick.magick_boolean -> unit -> unit
external contrast :
Magick.image_handle -> sharpen:Magick.magick_boolean -> unit
= "imper_contrastimage"
external equalize : Magick.image_handle -> unit = "imper_equalizeimage"
external normalize : Magick.image_handle -> unit = "imper_normalizeimage"
external white_threshold : Magick.image_handle -> threshold:string -> unit
= "imper_whitethresholdimage"
external black_threshold : Magick.image_handle -> threshold:string -> unit
= "imper_blackthresholdimage"
external cyclecolormap : Magick.image_handle -> displace:int -> unit
= "imper_cyclecolormapimage"
external solarize : Magick.image_handle -> threshold:float -> unit
= "imper_solarizeimage"
external modulate' : Magick.image_handle -> factors:string -> unit
= "imper_modulateimage"
val modulate :
Magick.image_handle ->
?brightness:int -> ?saturation:int -> ?hue:int -> unit -> unit
val blur :
Magick.image_handle -> ?radius:float -> sigma:float -> unit -> unit
val gaussian_blur :
Magick.image_handle -> ?radius:float -> sigma:float -> unit -> unit
val motion_blur :
Magick.image_handle ->
?radius:float -> sigma:float -> angle:float -> unit -> unit
val charcoal :
Magick.image_handle -> ?radius:float -> sigma:float -> unit -> unit
external edge : Magick.image_handle -> radius:float -> unit
= "imper_edgeimage"
val emboss :
Magick.image_handle -> ?radius:float -> sigma:float -> unit -> unit
external implode : Magick.image_handle -> amount:float -> unit
= "imper_implodeimage"
external medianfilter : Magick.image_handle -> radius:float -> unit
= "imper_medianfilterimage"
external oilpaint : Magick.image_handle -> radius:float -> unit
= "imper_oilpaintimage"
external reduce_noise : Magick.image_handle -> radius:float -> unit
= "imper_reducenoiseimage"
external roll : Magick.image_handle -> x:int -> y:int -> unit
= "imper_rollimage"
val shade :
Magick.image_handle ->
?gray:Magick.magick_boolean ->
azimuth:float -> elevation:float -> unit -> unit
external spread : Magick.image_handle -> radius:float -> unit
= "imper_spreadimage"
external swirl : Magick.image_handle -> degrees:float -> unit
= "imper_swirlimage"
val sharpen :
Magick.image_handle -> ?radius:float -> sigma:float -> unit -> unit
external unsharpmask :
Magick.image_handle ->
radius:float -> sigma:float -> amount:float -> threshold:float -> unit
= "imper_unsharpmaskimage"
external wave :
Magick.image_handle -> amplitude:float -> wave_length:float -> unit
= "imper_waveimage"
external rotate : Magick.image_handle -> degrees:float -> unit
= "imper_rotateimage"
external shear : Magick.image_handle -> x:float -> y:float -> unit
= "imper_shearimage"
val affine_transform :
Magick.image_handle ->
?tx:float ->
?ty:float ->
?sx:float -> ?sy:float -> ?rx:float -> ?ry:float -> unit -> unit
external adaptive_threshold :
Magick.image_handle -> width:int -> height:int -> offset:int -> unit
= "imper_adaptivethresholdimage"
external crop :
Magick.image_handle -> x:int -> y:int -> width:int -> height:int -> unit
= "imper_cropimage"
external chop :
Magick.image_handle -> x:int -> y:int -> width:int -> height:int -> unit
= "imper_chopimage"
external splice :
Magick.image_handle -> x:int -> y:int -> width:int -> height:int -> unit
= "imper_spliceimage"
external colorize :
Magick.image_handle -> string -> int -> int -> int -> int -> unit
= "imper_colorizeimage_bytecode" "imper_colorizeimage_native"
external acquire_pixel :
Magick.image_handle -> int -> int -> int * int * int * int
= "imper_acquireonepixel"
val composite_image :
Magick.image_handle ->
Magick.image_handle ->
compose:Magick.composite_operator -> ?x:int -> ?y:int -> unit -> unit
external texture_image : Magick.image_handle -> Magick.image_handle -> unit
= "imper_textureimage"
external bilevel_channel :
Magick.image_handle -> channel:Magick.channel_type -> float -> unit
= "imper_bilevelimagechannel"
val blur_channel :
Magick.image_handle ->
channel:Magick.channel_type ->
?radius:float -> sigma:float -> unit -> unit
val gaussian_blur_channel :
Magick.image_handle ->
channel:Magick.channel_type ->
?radius:float -> sigma:float -> unit -> unit
external radial_blur : Magick.image_handle -> angle:float -> unit
= "imper_radialblurimage"
external radial_blur_channel :
Magick.image_handle -> channel:Magick.channel_type -> angle:float -> unit
= "imper_radialblurimagechannel"
val sharpen_image_channel :
Magick.image_handle ->
channel:Magick.channel_type ->
?radius:float -> sigma:float -> unit -> unit
external add_noise : Magick.image_handle -> Magick.noise_type -> unit
= "imper_addnoiseimage"
external resize :
Magick.image_handle ->
width:int ->
height:int -> filter:Magick.resize_filter -> blur:float -> unit
= "imper_resizeimage"
external sample : Magick.image_handle -> width:int -> height:int -> unit
= "imper_sampleimage"
external scale : Magick.image_handle -> width:int -> height:int -> unit
= "imper_scaleimage"
external thumbnail : Magick.image_handle -> width:int -> height:int -> unit
= "imper_thumbnailimage"
external set_image_colors : Magick.image_handle -> int -> unit
= "imper_setimagecolors"
external set_compression_quality : Magick.image_handle -> int -> unit
= "imper_setcompressionquality"
external set_image_type :
Magick.image_handle -> image_type:Magick.image_type -> unit
= "imper_setimagetype"
external set_type : Magick.image_handle -> unit = "imper_setimagetype__"
external strip_image : Magick.image_handle -> unit = "imper_stripimage"
external level : Magick.image_handle -> string -> unit = "imper_levelimage"
external level_channel :
Magick.image_handle ->
channel:Magick.channel_type -> float -> float -> float -> unit
= "imper_levelimagechannel"
external gamma_channel :
Magick.image_handle -> channel:Magick.channel_type -> gamma:float -> unit
= "imper_gammaimagechannel"
external negate_channel :
Magick.image_handle ->
channel:Magick.channel_type -> Magick.magick_boolean -> unit
= "imper_negateimagechannel"
external ordered_dither : Magick.image_handle -> unit
= "imper_orderedditherimage"
external compress_colormap : Magick.image_handle -> unit
= "imper_compressimagecolormap"
external posterize :
Magick.image_handle -> levels:int -> dither:Magick.magick_boolean -> unit
= "imper_posterizeimage"
external map_image :
Magick.image_handle ->
map_image:Magick.image_handle -> dither:Magick.magick_boolean -> unit
= "imper_mapimage"
external is_gray : Magick.image_handle -> bool = "imper_isgrayimage"
external is_monochrome : Magick.image_handle -> bool
= "imper_ismonochromeimage"
external is_opaque : Magick.image_handle -> bool = "imper_isopaqueimage"
external is_palette : Magick.image_handle -> bool = "imper_ispaletteimage"
external is_taint : Magick.image_handle -> bool = "imper_istaintimage"
external is_equal :
Magick.image_handle ->
Magick.image_handle -> bool * float * float * float
= "imper_isimagesequal"
type line_cap = UndefinedCap | ButtCap | RoundCap | SquareCap
type line_join = UndefinedJoin | MiterJoin | RoundJoin | BevelJoin
type color = int * int * int * int
val channels_of_color : Magick.Imper.color -> int * int * int * int
external acquire_pixel_opacity :
Magick.image_handle -> int -> int -> int * int * int * int
= "imper_acquireonepixel_opacity"
external set_image_opacity : Magick.image_handle -> opacity:int -> unit
= "imper_setimageopacity"
external color_of_string : string -> Magick.Imper.color
= "imper_querycolordatabase"
val color_of_rgbo_tuple : int * int * int * int -> Magick.Imper.color
val rgbo_tuple_of_color : Magick.Imper.color -> int * int * int * int
val max_color_map : int
val add_colors :
Magick.Imper.color -> Magick.Imper.color -> Magick.Imper.color
val sub_colors :
Magick.Imper.color -> Magick.Imper.color -> Magick.Imper.color
val mul_colors :
Magick.Imper.color -> Magick.Imper.color -> Magick.Imper.color
val dump_color : Magick.Imper.color -> unit
val div_colors :
Magick.Imper.color -> Magick.Imper.color -> Magick.Imper.color
val rgb_string_of_color : Magick.Imper.color -> string
val rgba_string_of_color : Magick.Imper.color -> string
val hexa_string_of_color : Magick.Imper.color -> string
val color_of_hex : string -> int * int * int * int
val black : Magick.Imper.color
val transparent : Magick.Imper.color
type affine_matrix = {
sx : float;
rx : float;
ry : float;
sy : float;
tx : float;
ty : float;
}
val identity_matrix : Magick.Imper.affine_matrix
val tuple_of_matrix :
affine_matrix:Magick.Imper.affine_matrix ->
float * float * float * float * float * float
external set_pixel :
Magick.image_handle ->
x:int -> y:int -> red:int -> green:int -> blue:int -> opacity:int -> unit
= "imper_draw_point_bytecode" "imper_draw_point_native"
val draw_point :
Magick.image_handle -> x:int -> y:int -> color:Magick.Imper.color -> unit
val draw_line :
Magick.image_handle ->
x0:int ->
y0:int ->
x1:int ->
y1:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float -> ?line_cap:Magick.Imper.line_cap -> unit -> unit
val draw_circle :
Magick.image_handle ->
x0:int ->
y0:int ->
x1:int ->
y1:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_width:float ->
?stroke_antialias:Magick.magick_boolean ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_rectangle :
Magick.image_handle ->
x0:int ->
y0:int ->
x1:int ->
y1:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_width:float ->
?stroke_antialias:Magick.magick_boolean ->
?line_join:Magick.Imper.line_join ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_round_rectangle :
Magick.image_handle ->
x0:int ->
y0:int ->
x1:int ->
y1:int ->
wc:int ->
hc:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_arc :
Magick.image_handle ->
x0:int ->
y0:int ->
x1:int ->
y1:int ->
a0:int ->
a1:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?line_cap:Magick.Imper.line_cap ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_ellipse :
Magick.image_handle ->
cx:int ->
cy:int ->
rx:int ->
ry:int ->
?a0:int ->
?a1:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_polyline :
Magick.image_handle ->
coords:(int * int) array ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?line_join:Magick.Imper.line_join ->
?line_cap:Magick.Imper.line_cap ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_polygon :
Magick.image_handle ->
coords:(int * int) array ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?line_join:Magick.Imper.line_join ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_bezier :
Magick.image_handle ->
coords:(int * int) array ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?line_cap:Magick.Imper.line_cap ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
val draw_path :
Magick.image_handle ->
path:string ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?stroke_antialias:Magick.magick_boolean ->
?stroke_width:float ->
?line_join:Magick.Imper.line_join ->
?line_cap:Magick.Imper.line_cap ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
type style_type =
Undefined_Style
| Normal_Style
| Italic
| Oblique
| Any_Style
type decoration_type =
Undefined_Decoration
| No_Decoration
| Underline
| Overline
| LineThrough
type stretch_type =
Undefined_Stretch
| Normal_Stretch
| UltraCondensed
| ExtraCondensed
| Condensed
| SemiCondensed
| SemiExpanded
| Expanded
| ExtraExpanded
| UltraExpanded
| Any_Stretch
val draw_text :
Magick.image_handle ->
text:string ->
?font:string ->
x:int ->
y:int ->
point_size:float ->
?density_x:int ->
?density_y:int ->
?style:Magick.Imper.style_type ->
?weight:int ->
?fill_color:Magick.Imper.color ->
?stroke_color:Magick.Imper.color ->
?decoration:Magick.Imper.decoration_type ->
?stretch:Magick.Imper.stretch_type ->
?stroke_width:float ->
?stroke_antialias:Magick.magick_boolean ->
?text_antialias:Magick.magick_boolean ->
?encoding:string ->
?affine_matrix:Magick.Imper.affine_matrix -> unit -> unit
type metrics_infos = {
ascent : float;
descent : float;
text_width : float;
text_height : float;
max_advance : float;
underline_position : float;
underline_thickness : float;
pixels_per_em_x : float;
pixels_per_em_y : float;
bounds_x1 : float;
bounds_y1 : float;
bounds_x2 : float;
bounds_y2 : float;
}
val get_metrics :
Magick.image_handle ->
text:string ->
?font:string ->
x:int ->
y:int ->
point_size:float ->
?density_x:int ->
?density_y:int ->
?style:Magick.Imper.style_type ->
?weight:int ->
?decoration:Magick.Imper.decoration_type ->
?stretch:Magick.Imper.stretch_type ->
?stroke_width:float -> unit -> Magick.Imper.metrics_infos
val transform_metrics :
metrics:Magick.Imper.metrics_infos ->
affine_matrix:Magick.Imper.affine_matrix -> Magick.Imper.metrics_infos
external draw_text_devel : Magick.image_handle -> text:string -> unit
= "imper_draw_text_new1"
external draw_mvg : Magick.image_handle -> mvg:string -> unit
= "imper_draw_mvg"
external get_raw :
Magick.image_handle -> (int * int * int * int) array array
= "imper_get_raw"
external get_raw' :
Magick.image_handle -> (int * int * int * int) array array
= "imper_get_raw2"
external get_raw_opacity :
Magick.image_handle -> (int * int * int * int) array array
= "imper_get_raw_opacity"
external get_raw_without_alpha :
Magick.image_handle -> (int * int * int) array array
= "imper_get_raw_without_alpha"
external get_raw_gl_indexed :
Magick.image_handle -> (int * int * int * int) array
= "imper_get_raw_gl_indexed"
external get_raw_gl_indexed_without_alpha :
Magick.image_handle -> (int * int * int) array
= "imper_get_raw_gl_indexed_without_alpha"
val set_raw :
raw:(int * int * int * int) array array -> Magick.image_handle
val set_raw_c :
raw:(int * int * int * int) array array -> Magick.image_handle
type image_list_handle
external new_image_list : unit -> Magick.Imper.image_list_handle
= "imper_new_image_list"
external no_op : Magick.image_handle -> unit = "imper_no_op"
external display_images : Magick.Imper.image_list_handle -> unit
= "im_displayimages"
val append_image_to_list :
Magick.Imper.image_list_handle ->
Magick.image_handle -> ?delay:int -> unit -> unit
external image_list_length : Magick.Imper.image_list_handle -> int
= "imper_getimagelistlength"
external deconstruct_images : Magick.Imper.image_list_handle -> unit
= "imper_deconstructimages"
external coalesce_images : Magick.Imper.image_list_handle -> unit
= "imper_coalesceimages"
external flatten_images : Magick.Imper.image_list_handle -> unit
= "imper_flattenimages"
val average_images : Magick.Imper.image_list_handle -> Magick.image_handle
external animate_images : Magick.Imper.image_list_handle -> unit
= "imper_animateimages"
external write_images : Magick.Imper.image_list_handle -> string -> unit
= "im_writeimage"
external get_last_image_in_list :
Magick.Imper.image_list_handle -> Magick.image_handle
= "imper_getlastimageinlist"
external get_first_image_in_list :
Magick.Imper.image_list_handle -> Magick.image_handle
= "imper_getfirstimageinlist"
external has_link : Magick.image_handle -> bool = "imper_has_link"
type stack = Left_to_right | Top_to_bottom
val stack_dir_of_string : stack:string -> Magick.Imper.stack
val append_images :
Magick.Imper.image_list_handle ->
stack:Magick.Imper.stack -> Magick.image_handle
end