From: ian <ian>
Date: Sat, 19 Mar 2005 21:39:54 +0000 (+0000)
Subject: working on fixing nodulation
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=471675280cb1d18426572f262d66be7eb8369160;p=trains.git

working on fixing nodulation
---

diff --git a/layout/extractgraph b/layout/extractgraph
index b7b18ed..c29b0b0 100755
--- 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);
 }