let draw_curves () ~color ~lw (x0, y0) points =
    set_color color;
    set_line_width lw;
    moveto x0 y0;
    List.iter (function p0, p1, p2 -> curveto p0 p1 p2) points