icons/svg_to_data.ml


(*
   Create a bitmap from a svg file, containing raw data suitable to be
   loaded using GdkPixbuf.from_data.

   Usage:
    lablgtk2 svg_data.ml U.svg > /tmp/U.data
*)

let buf = Rsvg.render_from_file Sys.argv.(1)
let _ =
Format.printf "\"";
let s = Gpointer.string_of_region (GdkPixbuf.get_pixels buf) in
for i = 0 to 575 do
  Format.printf "%s" (String.escaped (String.sub s (i * 16) 16));
  if i = 575 then Format.printf "\"@." else Format.printf "\\@. "
done