sig
  type window
  val draw_lines :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color -> lw:int -> Avl_draw.point list -> unit
  val draw_curves :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color ->
    lw:int ->
    Avl_draw.point ->
    (Avl_draw.point * Avl_draw.point * Avl_draw.point) list -> unit
  val draw_rect :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color ->
    lw:int -> x:int -> y:int -> w:int -> h:int -> unit
  val draw_ellipse :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color ->
    lw:int -> x:int -> y:int -> rx:int -> ry:int -> unit
  val fill_rect :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color -> x:int -> y:int -> w:int -> h:int -> unit
  val fill_ellipse :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color -> x:int -> y:int -> rx:int -> ry:int -> unit
  val fill_poly :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color -> Avl_draw.point list -> unit
  val draw_text :
    Avl_draw.DRAW.window ->
    color:Avl_draw.color ->
    ?name:string -> size:int -> x:int -> y:int -> string -> unit
  val text_size :
    Avl_draw.DRAW.window -> ?name:string -> size:int -> string -> int * int
end