From: ian <ian>
Date: Sat, 26 Apr 2008 22:58:16 +0000 (+0000)
Subject: get forwards/backwards for poscomb links the right way round
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=7203cec81996cbff43ed4cb6c2e574dac4a141fa;p=trains.git

get forwards/backwards for poscomb links the right way round
---

diff --git a/layout/data2safety b/layout/data2safety
index bfb7330..febe243 100755
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -499,13 +499,13 @@ sub writeout () {
 	    for ($end=0; $end<2; $end++) {
 		o(", ") if $end;
 		o("{");
-		$otherend= $segr->{Ends}[$comb][$end];
+		$otherend= $segr->{Ends}[$comb][!$end];
 		defined $otherend or die "$seg $comb $end ?";
 		($node,$side) = @$otherend;
 		$nodeotherside= $nodes{$node}[1-$side];
 		if (defined $nodeotherside) {
 		    $otherseg= $nodeotherside->{Seg};
-		    $otherbackrelus= $nodeotherside->{End} ^ $end ^ 1;
+		    $otherbackrelus= $nodeotherside->{End} ^ $end;
 		    o(sprintf "/*%4s.%d*/ %d,%4s",
 		      $node,$side,
 		      $otherbackrelus,