anchor.diff:          XAttribute(NsNone + "Target", target),
           XAttribute(NsNone + "Category", category))
   
  -let GraphNodes (antho : Anthology) (projects : Project set) =
  -    let allReferencedProjects = projects |> Set.map (fun x -> x.ProjectReferences)
  -                                         |> Set.unionMany
  -                                         |> Set.map (fun x -> antho.Projects |> Seq.find (fun y -> y.ProjectGuid = x))
  -    let importedProjects = Set.difference allReferencedProjects projects
  +let GraphNodes (projects : Project set) (allProjects : Project set) =
  +    let importedProjects = Set.difference allProjects projects
       let allPackageReferences = projects |> Seq.map (fun x -> x.PackageReferences)
                                           |> Seq.concat
       let allAssemblies = projects |> Seq.map (fun x -> x.AssemblyReferences)
                                    |> Seq.concat
   
  -    let repos = allReferencedProjects |> Set.map (fun x -> x.Repository)
  +    let repos = allProjects |> Set.map (fun x -> x.Repository)
   
       seq {
           for repo in repos do
  
positive.code:             yield GenerateNode (assembly.toString) (assembly.toString) "Assembly"
      }
  
  let GraphLinks (antho : Anthology) (projects : Project set) =
      let allReferencedProjects = projects |> Set.map (fun x -> x.ProjectReferences)
                                           |> Set.unionMany
                                           |> Set.map (fun x -> antho.Projects |> Seq.find (fun y -> y.ProjectGuid = x))
      let importedProjects = Set.difference allReferencedProjects projects
  
      seq {
          for project in projects do
  
negative.code:             XElement(NsDgml + "Setter", XAttribute(NsNone + "Property", "Icon"), XAttribute(NsNone + "Value", "CodeSchema_Method"))))
  
  
  let GraphContent (antho : Anthology) (projects : Project set) =
      let nonExeProjects = projects |> Set.filter (fun x -> x.RelativeProjectFile.toString.IndexOf(".test", System.StringComparison.InvariantCultureIgnoreCase) = -1)
  
      let allProjects = nonExeProjects |> Set.map (fun x -> x.ProjectReferences)
                                       |> Set.unionMany
                                       |> Set.map (fun x -> antho.Projects |> Seq.find (fun y -> y.ProjectGuid = x))
      let repos = allProjects |> Set.map (fun x -> x.Repository)
      let xNodes = XElement(NsDgml + "Nodes", GraphNodes nonExeProjects allProjects)
      let xLinks = XElement(NsDgml+"Links", GraphLinks nonExeProjects allProjects)
      let xCategories = XElement(NsDgml + "Categories", GraphCategories repos)
      let xProperties = XElement(NsDgml + "Properties", GraphProperties ())
      let xStyles = GraphStyles ()
  