sig
  type svg
  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
  type class_name
  type css_style
  type id_name
  type svg_attr
  val add_line :
    Svg.svg ->
    x1:int ->
    y1:int ->
    x2:int ->
    y2:int ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_polyline :
    Svg.svg ->
    points:(int * int) list ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_polygon :
    Svg.svg ->
    points:(int * int) list ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> 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 ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> 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 ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_ellipse :
    Svg.svg ->
    cx:float ->
    cy:float ->
    r:float * float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> 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 ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_text :
    Svg.svg ->
    x:int ->
    y:int ->
    text:string ->
    ?text_anchor:string ->
    ?dominant_baseline:string ->
    ?font_family:string ->
    ?font_size:string ->
    ?font_weight:string ->
    ?font_style:string ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  module Float :
    sig
      val add_line :
        Svg.svg ->
        x1:float ->
        y1:float ->
        x2:float ->
        y2:float ->
        ?stroke:string ->
        ?stroke_width:float ->
        ?stroke_opacity:float ->
        ?attrs:Svg.svg_attr list ->
        ?id:Svg.id_name ->
        ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
      val add_polyline :
        Svg.svg ->
        points:(float * float) list ->
        ?stroke:string ->
        ?stroke_width:float ->
        ?stroke_opacity:float ->
        ?fill:string ->
        ?fill_opacity:float ->
        ?attrs:Svg.svg_attr list ->
        ?id:Svg.id_name ->
        ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
      val add_rect :
        Svg.svg ->
        x:float ->
        y:float ->
        width:float ->
        height:float ->
        ?rx:float ->
        ?ry:float ->
        ?fill:string ->
        ?fill_opacity:float ->
        ?stroke:string ->
        ?stroke_width:float ->
        ?stroke_opacity:float ->
        ?attrs:Svg.svg_attr list ->
        ?id:Svg.id_name ->
        ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
    end
  val add_circle_sector :
    Svg.svg ->
    cx:float ->
    cy:float ->
    r:float ->
    angle1:float ->
    angle2:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_donut_slice :
    Svg.svg ->
    cx:float ->
    cy:float ->
    r1:float ->
    r2:float ->
    angle1:float ->
    angle2:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_regular_polygon :
    Svg.svg ->
    c:float * float ->
    n:int ->
    r:float ->
    ?off:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  val add_star :
    Svg.svg ->
    c:float * float ->
    n:int ->
    rs:float * float ->
    ?off:float ->
    ?fill:string ->
    ?fill_opacity:float ->
    ?stroke:string ->
    ?stroke_width:float ->
    ?stroke_opacity:float ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> 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
  val begin_link : Svg.svg -> href:string -> ?title:string -> unit -> unit
  val end_link : Svg.svg -> unit
  val add_link :
    Svg.svg -> href:string -> ?title:string -> frag:Svg.svg -> unit -> unit
  type path
  val empty_path : Svg.path
  val new_path : unit -> 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 ->
    r:float * float ->
    ?rotation:float -> ?large_arc:bool -> ?clockwise:bool -> 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 ->
    ?attrs:Svg.svg_attr list ->
    ?id:Svg.id_name ->
    ?css:Svg.class_name -> ?style:Svg.css_style -> unit -> unit
  type cmd =
      M of float * float
    | L of float * float
    | H of float
    | V of float
    | Q of (float * float) * (float * float)
    | C of (float * float) * (float * float) * (float * float)
    | A of (float * float) * float * bool * bool * (float * float)
    | Z
  val to_path : Svg.cmd list -> Svg.path
  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 ->
        r:float * float ->
        ?rotation:float ->
        ?large_arc:bool -> ?clockwise:bool -> unit -> Svg.path
      val close_path : Svg.path -> Svg.path
      val to_path : Svg.cmd list -> Svg.path
    end
  val scale_path : float -> Svg.cmd list -> Svg.cmd list
  val translate_path : float * float -> Svg.cmd list -> Svg.cmd list
  val of_relative : Svg.cmd list -> Svg.cmd list
  val new_fragment : unit -> Svg.svg
  val add_fragment : Svg.svg -> frag:Svg.svg -> unit
  val fragment_from_file : filename:string -> Svg.svg
  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_style
  module Attrs :
    sig
      val stroke_dasharray : Svg.css_attr
      val stroke_dashoffset : Svg.css_attr
      val fill_rule : Svg.css_attr
      val evenodd : string
      val nonzero : string
      val sans_serif : string
      val serif : string
      val monospace : string
      val normal : string
      val italic : string
      val oblique : string
      val stroke_linecap : Svg.css_attr
      val butt : string
      val square : string
      val stroke_linejoin : Svg.css_attr
      val miter : string
      val round : string
      val bevel : string
      val hsl : int * int * int -> string
      val rgb : int * int * int -> string
    end
  type style_sheet
  val new_style_sheet : unit -> Svg.style_sheet
  val style_sheet_add :
    Svg.style_sheet ->
    class_name:string ->
    properties:(Svg.css_attr * string) list ->
    Svg.class_name * Svg.style_sheet
  val add_style_sheet : Svg.svg -> Svg.style_sheet -> unit
  val style_sheet_add_id :
    Svg.style_sheet ->
    id_name:string ->
    properties:(Svg.css_attr * string) list -> Svg.id_name * Svg.style_sheet
  val mk_id : string -> Svg.id_name
  type def
  val linear_gradient :
    p1:int * int ->
    p2:int * int ->
    stops:(float * string) list ->
    ?translate:int * int -> unit -> Svg.def * string
  val radial_gradient :
    c:int * int ->
    r:int ->
    stops:(float * string) list ->
    ?translate:int * int -> unit -> Svg.def * string
  val add_def : Svg.svg -> Svg.def -> unit
  val add_defs : Svg.svg -> Svg.def list -> unit
  val gaussian_blur : std_dev:float -> Svg.def * Svg.svg_attr
  val gaussian_blur2 : std_dev:float * float -> Svg.def * Svg.svg_attr
  val make_marker :
    marker_size:int * int ->
    ref_pos:int * int ->
    frag:Svg.svg -> Svg.def * Svg.svg_attr * Svg.svg_attr
  val make_pattern :
    width:int -> height:int -> frag:Svg.svg -> Svg.def * string
  val clip_path : frag:Svg.svg -> Svg.def * Svg.svg_attr
end