From 07c880687ea8a2aa912eb4e8aa46035807b1216e Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Wed, 4 Feb 2004 23:21:08 +0000
Subject: [PATCH] comment ok when arcline ok; allow join crit arcsline

---
 layout/layout | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/layout/layout b/layout/layout
index e7c265e..66188b4 100755
--- 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";
-- 
2.30.2