1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
(**************************************************************************)
(* Lablgtk - Examples *)
(* *)
(* This code is in the public domain. *)
(* You may freely copy parts of it in your application. *)
(* *)
(**************************************************************************)
let zoom = ref None
let dpi = ref None
let fname = ref ""
let _ =
let cli_args = [
( "-zoom", Arg.Float (fun v -> zoom := Some v), "zoom factor" ) ;
( "-dpi" , Arg.Float (fun v -> dpi := Some v), "") ] in
let usg_msg =
Printf.sprintf "usage: %s [options] <file>\n"
(Filename.basename Sys.executable_name) in
Arg.parse cli_args ((:=) fname) usg_msg ;
if not (Sys.file_exists !fname)
then begin
Arg.usage cli_args usg_msg ;
exit 2
end
let pb =
let size_cb = match !zoom with
| None -> None
| Some z -> Some (Rsvg2.at_zoom z z) in
Rsvg2.render_from_file ?dpi:!dpi ?size_cb !fname
let w = GWindow.window ~title:!fname ()
let i = GMisc.image ~packing:w#add ()
let () =
i#set_pixbuf pb ;
w#connect#destroy GMain.quit;
w#show ();
GMain.main ()
|
