sig
  type color
  type point = float * float
  type shape = Dom.canvasRenderingContext2D -> unit
  val color : ?a:int -> int -> int -> int -> Froc_dom_anim.color
  val disk :
    Froc_dom_anim.point ->
    float -> Froc_dom_anim.color -> Froc_dom_anim.shape
  val filled_poly :
    Froc_dom_anim.point list -> Froc_dom_anim.color -> Froc_dom_anim.shape
  val attach : Dom.canvas -> Froc_dom_anim.shape list Froc.behavior -> unit
end