Thompson's Anchors Visualized

We construct a diagram seeded with Thompson's Anchors used five or more times. enlarge

We follow the outline from Dump a Structure into Graphviz

We call plot(page) for each anchor. This adds a node for this page (gold) and a node for every page it cites (blue). We weave within these the newly edited pages (green). Nodes are clickable and link to wiki pages they represent.

def plot page return if page.nil? @dot << "#{from = quote page['title']}" page['links'].each do |slug, title| to = quote @export[slug]['title'] @dot << "#{to} [URL=#{url title}]" @dot << "#{from} -> #{to}" end end

Full source available. github

See Meta-Meaning for Thompson's reflection.