let
fill_rect () ~color ~x ~y ~w ~h =
set_color color;
fill_rect x y w h