anchor.diff:              XAttribute(NsNone + "Id", key), 
               XAttribute(NsNone + "Background", value))
   
  -    allCategories |> Seq.map generateCategory
  +    let res = (allCategories |> Seq.map generateCategory)
  +    seq {
  +        yield! (allCategories |> Seq.map generateCategory)
  +        yield XElement(NsDgml + "Category", 
  +                XAttribute(NsNone + "Id", "Contains"), 
  +                XAttribute(NsNone + "Label", "Contains"), 
  +                XAttribute(NsNone + "IsContainment", "True"),
  +                XAttribute(NsNone + "CanBeDataDriven", "False"),
  +                XAttribute(NsNone + "CanLinkedNodesBeDataDriven", "True"),
  +                XAttribute(NsNone + "IncomingActionLabel", "Contained By"),
  +                XAttribute(NsNone + "OutgoingActionLabel", "Contains"))
  +    }
   
   let GraphContent (antho : Anthology) (viewName : string) =
       let projects = FindViewProjects viewName |> Set
       let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho projects)
       let xLinks = XElement(NsDgml+"Links", GraphLinks projects)
       let xCategories = XElement(NsDgml + "Categories", GraphCategories ())
  -    let xGraphDir = XAttribute(NsNone + "GraphDirection", "LeftToRight")
  +    let xGraphDir = XAttribute(NsNone + "GraphDirection", "TopToBottom")
       let xLayout = XAttribute(NsNone + "Layout", "Sugiyama")
       XDocument(
           XElement(NsDgml + "DirectedGraph", xLayout, xGraphDir, xNodes, xLinks, xCategories))
  
positive.code:     slnDefines.Save (slnDefineFile.FullName)
  
  
  let GraphNodes (antho : Anthology) (projects : Project set) =
      let allReferencedProjects = projects |> Seq.map (fun x -> x.ProjectReferences)
                                           |> Seq.concat
  
negative.code:     let allAssemblies = projects |> Seq.map (fun x -> x.AssemblyReferences)
                                  |> Seq.concat
      seq {
          yield XElement(NsDgml + "Node",
                  XAttribute(NsNone + "Id", "Projects"),
                  XAttribute(NsNone + "Label", "Projects"),
                  XAttribute(NsNone + "Group", "Expanded"))
  
          yield XElement(NsDgml + "Node",
                  XAttribute(NsNone + "Id", "Packages"),
                  XAttribute(NsNone + "Label", "Packages"),
                  XAttribute(NsNone + "Group", "Expanded"))
  
          yield XElement(NsDgml + "Node",
                  XAttribute(NsNone + "Id", "Assemblies"),
                  XAttribute(NsNone + "Label", "Assemblies"),
                  XAttribute(NsNone + "Group", "Expanded"))
  
          for project in projects do
              yield GenerateNode project.ProjectGuid (project.Output.Print()) "Project"
  
          for project in importedProjects do
              yield GenerateNode project.ProjectGuid (project.Output.Print()) "ProjectImport"
  
          for package in allPackageReferences do
              yield GenerateNode (package.Print()) (package.Print()) "Package"
  
          for assembly in allAssemblies do
              yield GenerateNode (assembly.Print()) (assembly.Print()) "Assembly"
      }
  
  let GraphLinks (projects : Project seq) =
      seq {
          for project in projects do
              for projectRef in project.ProjectReferences do
                  yield GenerateLink (project.ProjectGuid) (projectRef.Print()) "ProjectRef"
  
          for project in projects do
              for package in project.PackageReferences do
                  yield GenerateLink (project.ProjectGuid) (package.Print()) "PackageRef"
  
          for project in projects do
              for assembly in project.AssemblyReferences do
                  yield GenerateLink (project.ProjectGuid) (assembly.Print()) "AssemblyRef"
  
          for project in projects do
                  yield GenerateLink "Projects" (project.ProjectGuid) "Contains"
  
          for project in projects do
              for package in project.PackageReferences do
                  yield GenerateLink "Packages" (package.Print()) "Contains"
  
          for project in projects do
              for assembly in project.AssemblyReferences do
                  yield GenerateLink "Assemblies" (assembly.Print()) "Contains"
  
      }
  
  let GraphCategories () =
  