sig
  type svg
  type css
  val new_svg_document :
    width:int -> height:int -> ?unit:string -> unit -> Svg.svg
  val finish_svg : Svg.svg -> unit
  val add_comment : Svg.svg -> s:string -> unit -> unit
  val add_newline : Svg.svg -> unit
  val get_svg_document : Svg.svg -> string
  val write_svg_file : Svg.svg -> filename:string -> unit
  val print_svg_document : Svg.svg -> unit
  val add_line :
    Svg.svg ->
    x1:int ->
    y1:int ->
    x2:int ->
    y2:int ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_polyline :
    Svg.svg ->
    points:(int * int) list ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_rect :
    Svg.svg ->
    x:int ->
    y:int ->
    width:int ->
    height:int ->
    ?rx:float ->
    ?ry:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_circle :
    Svg.svg ->
    cx:float ->
    cy:float ->
    r:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_ellipse :
    Svg.svg ->
    cx:float ->
    cy:float ->
    rx:float ->
    ry:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_triangle :
    Svg.svg ->
    p1:int * int ->
    p2:int * int ->
    p3:int * int ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val add_text :
    Svg.svg ->
    x:int ->
    y:int ->
    text:string ->
    ?text_anchor:string ->
    ?font_family:string ->
    ?font_size:float ->
    ?font_weight:string ->
    ?font_style:string ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  val begin_group :
    Svg.svg ->
    ?translate:float * float ->
    ?rotate:float * int * int -> ?scale:float * float -> unit -> unit
  val end_group : Svg.svg -> unit
  type path
  val empty_path : Svg.path
  val move_to : Svg.path -> x:float -> y:float -> Svg.path
  val line_to : Svg.path -> x:float -> y:float -> Svg.path
  val h_line : Svg.path -> x:float -> Svg.path
  val v_line : Svg.path -> y:float -> Svg.path
  val quad_curve :
    Svg.path -> x1:float -> y1:float -> x:float -> y:float -> Svg.path
  val cubic_curve :
    Svg.path ->
    x1:float ->
    y1:float -> x2:float -> y2:float -> x:float -> y:float -> Svg.path
  val arc_to :
    Svg.path ->
    x:float ->
    y:float ->
    rx:int -> ry:int -> ?rotation:int -> ?flags:int * int -> unit -> Svg.path
  val close_path : Svg.path -> Svg.path
  val add_path :
    Svg.svg ->
    path:Svg.path ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:string -> ?css:Svg.css -> ?style:string -> unit -> unit
  module Relative :
    sig
      val move_to : Svg.path -> x:float -> y:float -> Svg.path
      val line_to : Svg.path -> x:float -> y:float -> Svg.path
      val h_line : Svg.path -> x:float -> Svg.path
      val v_line : Svg.path -> y:float -> Svg.path
      val quad_curve :
        Svg.path -> x1:float -> y1:float -> x:float -> y:float -> Svg.path
      val cubic_curve :
        Svg.path ->
        x1:float ->
        y1:float -> x2:float -> y2:float -> x:float -> y:float -> Svg.path
      val arc_to :
        Svg.path ->
        x:float ->
        y:float ->
        rx:int ->
        ry:int -> ?rotation:int -> ?flags:int * int -> unit -> Svg.path
      val close_path : Svg.path -> Svg.path
    end
  type css_attr
  val fill : Svg.css_attr
  val fill_opacity : Svg.css_attr
  val stroke : Svg.css_attr
  val stroke_width : Svg.css_attr
  val stroke_opacity : Svg.css_attr
  val text_anchor : Svg.css_attr
  val font_family : Svg.css_attr
  val font_size : Svg.css_attr
  val font_weight : Svg.css_attr
  val font_style : Svg.css_attr
  val letter_spacing : Svg.css_attr
  val word_spacing : Svg.css_attr
  val to_style : styles:(Svg.css_attr * string) list -> Svg.css
end