let fill_custom (ma_couleur:Resolution.couleur) (mes_points:(int * int) array) () =
        let back_svg = Graphics.background in
        let pt_svg = Graphics.current_point () in
        Graphics.set_color ma_couleur;
        Graphics.fill_poly mes_points;
        Graphics.set_color back_svg;
        Graphics.moveto (fst pt_svg) (snd pt_svg)