working on fixing nodulation

diff --git a/layout/extractgraph b/layout/extractgraph
index b7b18ed0cee1f7360ee66fa1da416918c0aaa808..c29b0b0fd0d035f5bb9c6a0b326bd48c9f8a31a3 100755 (executable)
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -44,6 +44,7 @@
 #        or distance by which it is outside that range.
 
 use strict qw(vars);
+use POSIX;
 
 our %conf;
 $conf{MinClearLayer}= 6;
@@ -86,6 +87,7 @@ sub find_node (@) {
     my ($lni,$isdest,$l,$x,$y,$a) = @_;
     my ($any_outside_toler, $any_outside_clear, $updlayer);
     my ($ni, $node, %diff, $back, $d, $k);
+    $a -= 360.0 * floor($a / 360.0);
     for $node (@nodes) {
        $diff{Layer}= (($d = $l - $node->{LayerMin}) < 0 ? $d :
                       ($d = $l - $node->{LayerMax}) > 0 ? $d :
@@ -124,7 +126,7 @@ sub find_node (@) {
                $node->{"Layer$updlayer"}= $l;
                $node->{LineInfo}.="($l<-$lni)";
            }
-           comment("nodulated $lni ex.$node/$back");
+           comment("nodulated $lni ex.$node/$back ($x $y $a)");
            return ($node,$back);
        }
     }
@@ -132,7 +134,7 @@ sub find_node (@) {
             LayerMin => $l, LayerMax => $l, LineInfo => $lni };
     $back= 0;
     push @nodes, $node;
-    comment("nodulated $lni new$node/$back");
+    comment("nodulated $lni new$node/$back ($x $y $a)");
     return ($node,$back);
 }