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