anchor.diff:              |+> Instance [
                   "source" =@ t
                   "target" =@ t
  +                "x" =@ t
  +                "y" =@ t
  +                "context" =@ t
               ]
   
       addToClassList Link
  +
  +
   
       let BundleNode =
           let self = Type.New()
  
positive.code:                 Generic - fun tData -> "area.radial" => O ^-> RadialArea.[tData]
                  Generic - fun tData -> "arc"         => O ^-> Arc.[tData]
                  "symbol"          => O ^-> Symbol
                  "symbolTypes"     =? !|SymbolType
                  Generic - fun tData -> "chord"       => O ^-> Chord.[tData]
                  "diagonal"        => O ^-> Diagonal
  
negative.code:     let Brush =
          ChainedClassNew "Brush" <| fun chained ->
          [
              "apply" => (Selection.[Obj] + Transition.[Obj])?selection ^-> O |> WithInline "$this($selection)"
              "x" => getSetVal chained Scale.Type
              "y" => getSetVal chained Scale.Type
              "extent" => getSetVal chained (Int2T + Int2x2T)
  