let draw_lines () ~color ~lw = function
      [] -> ()
    | (x0, y0) :: points ->
        set_color color;
        set_line_width lw;
        moveto x0 y0;
        List.iter (function x, y -> lineto x y) points