anchor.diff:                  XAttribute(NsNone + "Group", "Expanded"))
   
           for project in projects do
  -            if project.RelativeProjectFile.toString.Contains(".Test.") || project.RelativeProjectFile.toString.Contains(".Tests.") then
  -                yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "TestProject"
  -            else yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "Project"
  +            yield GenerateProjectNode project
   
           for project in importedProjects do
               yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "ProjectImport"
  
positive.code:                 XAttribute(NsNone + "OutgoingActionLabel", "Contains"))
      }
  
  let GraphContent (antho : Anthology) (viewName : ViewId) =
      let projects = FindViewProjects viewName |> Set
      let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho projects)
      let xLinks = XElement(NsDgml+"Links", GraphLinks antho projects)
      let xCategories = XElement(NsDgml + "Categories", GraphCategories ())
      let xGraphDir = XAttribute(NsNone + "GraphDirection", "LeftToRight")
      let xLayout = XAttribute(NsNone + "Layout", "Sugiyama")
      XDocument(
          XElement(NsDgml + "DirectedGraph", xLayout, xGraphDir, xNodes, xLinks, xCategories))
  
  let Graph (viewName : ViewId) =
      let antho = Configuration.LoadAnthology ()
  
negative.code:     slnDefines.Save (slnDefineFile.FullName)
  
  
  let GenerateProjectNode (project : Project) =
      let isTest = project.RelativeProjectFile.toString.Contains(".Test.") || project.RelativeProjectFile.toString.Contains(".Tests.")
      let cat = if isTest then "TestProject"
                else "Project"
  
      XElement(NsDgml + "Node",
          XAttribute(NsNone + "Id", project.ProjectGuid.toString),
          XAttribute(NsNone + "Label", project.Output.toString),
          XAttribute(NsNone + "Category", cat),
          XAttribute(NsNone + "Fx", project.FxTarget.toString),
          XAttribute(NsNone + "Guid", project.ProjectGuid.toString),
          XAttribute(NsNone + "IsTest", isTest))
  
  let GenerateNode (source : string) (label : string) (category : string) =
      XElement(NsDgml + "Node",
          XAttribute(NsNone + "Id", source),
  