162 |
external do_draw_stru: t -> font -> int -> int -> string -> int -> unit |
external do_draw_stru: t -> font -> int -> int -> string -> int -> unit |
163 |
= "ml_image_stru" "ml_image_stru_native" |
= "ml_image_stru" "ml_image_stru_native" |
164 |
|
|
165 |
|
external png_version : unit -> int32 = "ml_image_pngversion" |
166 |
|
|
167 |
|
let png_version_num () = |
168 |
|
begin |
169 |
|
try |
170 |
|
let s = Int32.to_string(png_version ()) in |
171 |
|
let len = String.length s in |
172 |
|
let major_version = String.sub s 0 1 in |
173 |
|
let minor_version = String.sub s 1 2 in |
174 |
|
let release_version = String.sub s 3 (len-3) in |
175 |
|
Printf.sprintf "%ld.%ld.%ld" |
176 |
|
(Int32.of_string(major_version)) |
177 |
|
(Int32.of_string(minor_version)) |
178 |
|
(Int32.of_string(release_version)) |
179 |
|
with e -> "" |
180 |
|
end |
181 |
|
|
182 |
module Font = |
module Font = |
183 |
struct |
struct |
184 |
let tiny = do_get_font 0 |
let tiny = do_get_font 0 |