32 |
lprintf "Warning: Gd support was not compiled (install libgd-dev to enable it)\n" |
lprintf "Warning: Gd support was not compiled (install libgd-dev to enable it)\n" |
33 |
|
|
34 |
let remove_files () = |
let remove_files () = |
35 |
( |
( |
36 |
disable_gfx_support (); |
disable_gfx_support (); |
37 |
show_nogd_debug_msg () |
show_nogd_debug_msg () |
38 |
) |
) |
42 |
(* main *) |
(* main *) |
43 |
|
|
44 |
let do_draw_pic ttl vl hl gdown gup = |
let do_draw_pic ttl vl hl gdown gup = |
45 |
( |
( |
46 |
disable_gfx_support (); |
disable_gfx_support (); |
47 |
show_nogd_debug_msg () |
show_nogd_debug_msg () |
48 |
) |
) |
60 |
) |
) |
61 |
|
|
62 |
let do_draw_h_pic ttl vl hl gdown gup = |
let do_draw_h_pic ttl vl hl gdown gup = |
63 |
( |
( |
64 |
disable_gfx_support (); |
disable_gfx_support (); |
65 |
show_nogd_debug_msg () |
show_nogd_debug_msg () |
66 |
) |
) |