let remove_graphics_obj (() : unit) : unit = 
        if((!tag_number) >=0) then
        (Canvas.delete canvas [`Tag ("tag"^(string_of_int (!tag_number)))])