anchor.diff:                  "separation" => getSetVal chained (ClusterNode * ClusterNode ^-> Int)
                   "value"      => getSetVal chained (Obj ^-> Float)
               ]
  -            @ propF2 self "nodeSize"
  -            @ propF2 self "size"
  +            @ propF2 TSelf "nodeSize"
  +            @ propF2 TSelf "size"
   
       let ForceNode =
           DefineRecord "ForceNode" [
  
positive.code:             "ticks"  => chained !+Obj
              "tickValues" => getSetVal chained !|Obj
              "tickSize"  => getSetVal chained Int
              "innerTickSize" => getSetVal chained Int
              "outerTickSize" => getSetVal chained Int
              "tickPadding" => getSetVal chained Int
              "tickFormat" => getSetVal chained (Obj ^-> String)
          ]
  
      let BrushEvent =
          EnumStrings "BrushEvent" [
              "brushstart"
              "brush"
              "brushend"
          ]
  
      let Brush =
  
negative.code:         ChainedClassNew "ChordLayout" <| fun chained ->
          [
              "matrix"  => getSetVal chained (!| !|Float)
              "sortGroups"    => getSetVal chained Comparator
              "sortSubgroups" => getSetVal chained Comparator
              "sortChords"    => getSetVal chained Comparator
              "padAngle" => getSetVal chained Float
          ]
  
      let Ribbon =
          ChainedClassNew "Ribbon" <| fun chained ->
          [
              "source" => getSetVal chained Obj
              "target" => getSetVal chained Obj
              "radius" => getSetVal chained Int
              "sourceRadius" => getSetVal chained Int
              "targetRadius" => getSetVal chained Int
              "startAngle" => getSetVal chained Float
              "endAngle" => getSetVal chained Float
              "padAngle" => getSetVal chained Float
              "context" => getSetVal chained Obj
          ]
  
      let RibbonArrow =
          ChainedClassNew "RibbonArrow" <| fun chained ->
          [
              "headRadius" => getSetVal chained Int
          ]
  
      let ClusterNode =
  