comment ok when arcline ok; allow join crit arcsline

diff --git a/layout/layout b/layout/layout
index e7c265ec5da3ff411453d2e1afd67d36f5e5e2e9..66188b44c08b84c1719aea1b7810232fb59b06cf 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -684,6 +684,7 @@ sub joins_arcline ($$$$) {
            o("r_j=$rj r_b=$rb ");
            if ($rj * $rb < 0) { o(" backwards b\n"); next; }
            if (abs($rj) < $minradius) { o(" too-small\n"); next; }
+           o("ok\n");
            $j->{A}= $ap->{A};
            $c->{A}= 0;
            $path= [{ T => Line, A => $ap, B => $j, L => $aja },
@@ -738,7 +739,7 @@ sub cmd_join {
                elsif ($1 eq 'end') { $cs= $bends[$#bends]; }
                else { $cs=0; map { $cs += $_ } @bends; }
                $cs= -$cs if $2 eq 'left';
-           } elsif ($crit =~ m/^(\!?)(twoarcs|arcline|cross|loop)$/) {
+           } elsif ($crit =~ m/^(\!?)(twoarcs|arcs?line|cross|loop)$/) {
                $cs= !!(grep { $2 eq $_ } @$skl) != ($1 eq '!');
            } else {
                die "unknown sort criterion $crit";