anchor.diff:                  "fitHeight" => Int * Obj ^-> TSelf
                   "fitWidth" => Int * Obj ^-> TSelf
               ]
  -            @ propF2 self "center"
  -            @ propF2 self "translate"
  -            @ propF3 self "rotate"
  -            @ propF3 self "angle"
  +            @ propF2 TSelf "center"
  +            @ propF2 TSelf "translate"
  +            @ propF3 TSelf "rotate"
  +            @ propF3 TSelf "angle"
  +
  +    let Path =
  +        ChainedClassNew "Path" <| fun chained ->
  +        [
  +            "call" => Obj?feature ^-> String
  +            |> WithInline "$0($1)"
  +            "call" => Obj?feature * Int?ix ^-> String
  +            |> WithInline "$0($1,$2)"
  +            "projection"  => getSetVal chained ((Float2T ^-> Float2T) + Projection)
  +            "context"     => getSetVal chained (PathContext.Type + Obj)
  +            "pointRadius" => getSetVal chained Float
  +            "area"        => Feature ^-> Int
  +            "centroid"    => Feature ^-> Int2T
  +            "bounds"      => Feature ^-> Int2x2T
  +        ]
  +
   
       let AlbersProjection =
           Class "AlbersProjection"
  
positive.code:     let Feature =
          ChainedClassNew "Feature" <| fun chained -> []
  
      let ProjectionType = Type.New()
  
      let Path =
          ChainedClassNew "Path" <| fun chained ->
          [
              "call" => Obj?feature ^-> String
              |> WithInline "$0($1)"
              "call" => Obj?feature * Int?ix ^-> String
              |> WithInline "$0($1,$2)"
              "projection"  => getSetVal chained ((Float2T ^-> Float2T) + ProjectionType)
              "context"     => getSetVal chained (PathContext.Type + Obj)
              "pointRadius" => getSetVal chained Float
              "area"        => Feature ^-> Int
              "centroid"    => Feature ^-> Int2T
              "bounds"      => Feature ^-> Int2x2T
          ]
  
      let MultiLineString =
          ChainedClassNew "MultiLineString" <| fun chained -> []
  
      let LineString =
          ChainedClassNew "LineString" <| fun chained -> []
  
      let Polygon = Type.New()
  
      let Graticule =
          ChainedClassNew "Graticule" <| fun chained ->
              [
                  "lines" => O ^-> !|LineString
                  "outline" => O ^-> Polygon
                  "precision" => getSetVal chained Float
              ]
              @ propF4 TSelf "extent"
              @ propF4 TSelf "minorExtent"
              @ propF4 TSelf "majorExtent"
              @ propF2 TSelf "step"
              @ propF2 TSelf "majorStep"
              @ propF2 TSelf "minorStep"
  
      let Circle =
          ChainedClassNew "Circle" <| fun chained ->
  
negative.code:         ]
  
      let PolygonClass =
          ChainedClassNew "Polygon" (fun chained ->
              [
                  "area"     => O ^-> Float
                  "centroid" => O ^-> Float2T
                  "hull"     => chained TSelf
                  "contains" => Int * Int ^-> Bool
                  "length" => O ^-> Int
              ]
          )
  
      let Graticule =
          ChainedClassNew "Graticule" <| fun chained ->
              [
                  "lines" => O ^-> !|LineString
                  "outline" => O ^-> PolygonClass
                  "precision" => getSetVal chained Float
              ]
              @ propF4 TSelf "extent"
              @ propF4 TSelf "minorExtent"
              @ propF4 TSelf "majorExtent"
              @ propF2 TSelf "step"
              @ propF2 TSelf "majorStep"
              @ propF2 TSelf "minorStep"
  
      let Hull =
          ChainedClassNew "Hull" <| fun chained ->
  