let fill_ellipse () ~color ~x ~y ~rx ~ry =
    set_color color;
    fill_ellipse x y rx ry