From: ian <ian>
Date: Sun, 13 Mar 2005 20:09:55 +0000 (+0000)
Subject: wip - go to plane
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=f1988af0d1222d1a27732af137ec4af099a2f1c1;p=trains.git

wip - go to plane
---

diff --git a/layout/extractgraph b/layout/extractgraph
index 90b074b..a021635 100755
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -154,10 +154,16 @@ sub readin () {
     }
 }
 
+sub pr ($$) {
+    my ($kind,$wh) = @_;
+    $ref= "$ref";
+    $ref =~ y/()/__/;
+    return $ref
+
 sub writeout () {
     my ($node);
     for $node (@nodes) {
-	print "$node\n";
+	print "Node ",pr(Node,$node),";\n";
     }
 }