let draw_int ~x ~y ~i = 
        let back_svg = Graphics.background in
        let pt_svg = Graphics.current_point () in
        Graphics.moveto x y;
        Graphics.draw_string (string_of_int i) ;
        Graphics.set_color back_svg;
        Graphics.moveto (fst pt_svg) (snd pt_svg)