be finer about min separation at various radii

diff --git a/layout/layout b/layout/layout
index bf38960f2bffb418920a9aac95618039b65ec2c3..16ad2e80bd1d541414e28e0824217071b473fae6 100755 (executable)
--- 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);