From 4a164095c2d537b9344a32fae7670bfe0bc55020 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 13 Mar 2005 20:07:23 +0000
Subject: [PATCH] make it work again - turn trace back to comment

---
 layout/extractgraph | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/layout/extractgraph b/layout/extractgraph
index c070dd9..90b074b 100755
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -118,7 +118,7 @@ sub find_node (@) {
 		$node->{"Layer$updlayer"}= $l;
 		$node->{LineInfo}.="($l<-$lni)";
 	    }
-	    trace("node $lni existing ".pnode($node)."/$back");
+	    comment("nodulated $lni ex.$node/$back");
 	    return ($node,$back);
 	}
     }
@@ -126,13 +126,13 @@ sub find_node (@) {
 	     LayerMin => $l, LayerMax => $l, LineInfo => $lni };
     $back= 0;
     push @nodes, $node;
-    trace("node $lni created ".pnode($node)."/$back");
+    comment("nodulated $lni new$node/$back");
     return ($node,$back);
 }
 
 sub readin () {
     my ($layerkind, $level, $subsegspec, $numbers, @numbers, $dist);
-    my ($pti,@nodeinfo);
+    my ($node,$back,$far,@nodeinfo,@endnums,$edge);
     while (<>) {
 	next unless m/^\%L /;
 	die unless m/^\%L (\w+)\b/;
@@ -143,23 +143,26 @@ sub readin () {
 	@numbers = map { $_ + 0 } split / /, $numbers;
 	$dist= shift @numbers;
 	@numbers == 6 or die;
-	$edge= { Dist = $dist, SubSegSpec= $subsegspec };
+	$edge= { Dist => $dist, SubSegSpec => $subsegspec };
 	for ($far=0; $far<2; $far++) {
 	    @endnums= @numbers[($far*3)..($far*3+2)];
 	    ($node,$back)= find_node("$.:$far",$far,$level,@endnums);
-	    $edge{"Node$far"}= [ $node, $back ];
+	    $edge->{"Node$far"}= [ $node, $back ];
 	    push @{ $node->{"Edges$back"} }, [ $edge, $far ];
 	}
 	push @edges, $edge;
     }
 }
 
-    
-
+sub writeout () {
+    my ($node);
+    for $node (@nodes) {
+	print "$node\n";
+    }
+}
 
 readin();
-splitcontin();
-elimtrivial();
+writeout();
 
 
 #    ($pts[0]{X}, $pts[0]{Y}, $pts[0]{A},
-- 
2.30.2