let width, height = (float size_x), (float size_y) in
let buffer = open_out outfile in
let surface = Cairo.SVG.create_for_stream ~output:(output_string buffer) ~width ~height in
let ctx = Cairo.create surface in
let _ = Cairo.set_line_width ctx 1. in

... do stuff ...

Cairo.stroke ctx ;
close_out buffer