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