anchor.diff:      let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho)
       let xLinks = XElement(NsDgml+"Links", GraphLinks antho)
       let xCategories = XElement(NsDgml + "Categories", GraphCategories ())
  -    let xLayout = XAttribute(NsNone + "Layout", "ForceDirected")
  +    let xLayout = XAttribute(NsNone + "Layout", "Sugiyama")
       XDocument(
           XElement(NsDgml + "DirectedGraph", xLayout, xNodes, xLinks, xCategories))
   
  
positive.code:             for package in project.PackageReferences do
                  yield generateLink (package.Print()) "PackageRef"
  
              for assembly in project.AssemblyReferences do
                  yield generateLink (assembly.Print()) "AssemblyRef"
      }
  
  let GraphCategories () =
  
negative.code:                       XAttribute(NsNone + "Label", package.Id.Print()),
                        XAttribute(NsNone + "Category", "Package"))
  
  //        let assemblies = antho.Projects |> Seq.map (fun x -> x.AssemblyReferences)
  //                                        |> Seq.concat
  //                                        |> set
  //        for assembly in assemblies do
  //             yield XElement(NsDgml + "Node",
  //                      XAttribute(NsNone + "Id", assembly.Print()),
  //                      XAttribute(NsNone + "Label", assembly.Print()),
  //                      XAttribute(NsNone + "Category", "Assembly"))
      }
  
  let GraphLinks (antho : Anthology) =
  