From: ian <ian>
Date: Sat, 24 Jan 2004 14:10:44 +0000 (+0000)
Subject: angs mandatory
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=7111592af9a551e047a831a10b6d1f2bc9e09a31;p=trains.git

angs mandatory
---

diff --git a/layout/layout b/layout/layout
index 76f9697..c2107e8 100755
--- a/layout/layout
+++ b/layout/layout
@@ -8,7 +8,7 @@ use POSIX;
 #  $ctx->{LocsMade}[]= $id
 #  $ctx->{Loc}{$id}{X}
 #  $ctx->{Loc}{$id}{Y}
-#  $ctx->{Loc}{$id}{A}  may be undef
+#  $ctx->{Loc}{$id}{A}
 #  $ctx->{Trans}{X0}                  } transformation
 #  $ctx->{Trans}{Y0}                  }  matrix
 #  $ctx->{Trans}{XY}                  }
@@ -100,7 +100,7 @@ sub cmd_abs {
     $x= can(\&cva_len);
     $y= can(\&cva_len);
     ($nl->{X}, $nl->{Y})= input_abscoords($x,$y);
-    $nl->{A}= cano(\&cva_absang, undef);
+    $nl->{A}= can(\&cva_absang);
 }
 
 sub cmd_rel {
@@ -291,7 +291,6 @@ sub cmd_extend {
     $from= can(\&cva_idex);
     $to= can(\&cva_idnew);
     printf DEBUG "from $from->{X} $from->{Y} $from->{A}\n";
-    die "no ang" unless defined $from->{A};
     $how= can(cvam_enum(qw(len upto ang uptoang parallel)));
     if ($how eq 'len') { $len= can(\&cva_len); }
     elsif ($how =~ m/ang$/) { $ang= can(\&cva_ang); }