From: ian <ian>
Date: Sat, 30 May 2009 18:49:59 +0000 (+0000)
Subject: be finer about min separation at various radii
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=236ac7182f079235d90b63f5ccb4336517f084db;p=trains.git

be finer about min separation at various radii
---

diff --git a/layout/layout b/layout/layout
index bf38960..16ad2e8 100755
--- a/layout/layout
+++ b/layout/layout
@@ -210,7 +210,10 @@ sub allwidth2 ($) {
     my ($radius)= @_;
     return 27 unless defined $radius;
     $radius= abs($radius);
-    return ($radius >= 450 ? 33 :
+    return ($radius >= 1000 ? 27 :
+	    $radius >= 800 ? 29 :
+	    $radius >= 550 ? 31 :
+	    $radius >= 450 ? 33 :
 	    $radius >= 400 ? 35 :
 	    37);
 }
@@ -793,7 +796,7 @@ sub parametric_segment ($$$$$) {
     my ($tickpitch)=($psu_ulen / $psu_ticksperu);
     my ($sleeperctr)=($psu_ulen*0.5);
     my ($sleeperend)=($psu_sleeperlen*0.5);
-print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
+print DEBUG "ps $p0 $p1 $lenperp ($ppu) $allwidth\n";
     $draw= current_draw();
     if ($draw =~ m/[QGE]/) {
 	my ($pt,$going,$red,$csegbare,$movfeat,$movstroke);