anchor.diff:              |+> Static [
                   "voronoi"  => O ^-> Voronoi
                   "quadtree" => O ^-> Quadtree
  -                "polygon"  => (!|Float2T)?vertices ^-> Polygon
  +                "polygon"  => (!|Float2T)?vertices ^-> PolygonClass
                   "hull"     => O ^-> Hull
               ]
               Class "d3.behavior"
               |+> Static [
                   "drag" => O ^-> Drag
  -                "dragDisable" => (* TODO Window ^->*)O
  -                "dragEnable" => (* Window ^->*)O
  +                "dragDisable" => T<JavaScript.Window> ^-> O
  +                "dragEnable" => T<JavaScript.Window> ^-> O
                   "zoom" => O ^-> Zoom
               ]
           ]
  
positive.code:         |>! addToClassList
  
      let Projection =
          let self = ProjectionType
          ChainedClass "Projection" self <| fun chained ->
              [
                  "apply"      => Float2T?location ^-> Float2T |> WithInline "$this($location)"
                  "invert"     => Float2T?location ^-> Float2T
  
negative.code:     let ChainedClassNewInherits name inherits members =
          Class name |=> Inherits inherits |> Chained members
  
      let ChainedClassInheritsG name (t: CodeModel.TypeParameter) inherits members =
          Class name |=> Inherits inherits |> ChainedG t members
  
  //    let Selection = Type.New()
  
  