let fill_poly () ~color points =
    set_color color;
    fill_poly (Array.of_list points)