let line_custom (ma_couleur:Resolution.couleur) (x1:int) (y1:int) (x2:int) (y2:int) () =
        let back_svg = Graphics.background in
        let pt_svg = Graphics.current_point () in
        Graphics.set_color ma_couleur;
        Graphics.moveto x1 y1;
        Graphics.lineto x2 y2;
        Graphics.set_color back_svg;
        Graphics.moveto (fst pt_svg) (snd pt_svg)