From: ian <ian>
Date: Sun, 13 Jun 2004 18:27:26 +0000 (+0000)
Subject: testphys, for tracing, including scale option
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=c856d72eec98f966dacca0e379946f339a1f51e6;p=trains.git

testphys, for tracing, including scale option
---

diff --git a/layout/layout b/layout/layout
index b6c43e9..f94dbc2 100755
--- a/layout/layout
+++ b/layout/layout
@@ -5,6 +5,12 @@ use strict;
 no strict 'subs';
 
 our $scale= 7.0;
+
+if (@ARGV && $ARGV[0] =~ m/^\-S([0-9.]+)$/) {
+    $scale= $1 * 1.0;
+    shift @ARGV;
+}	
+
 our $ptscale= 72/25.4 / $scale;
 
 our $psu_ulen= 4.5;
@@ -1274,6 +1280,8 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
 	    $eo->{DrawMods}= $ccc;
 #print STDERR "created eo $eo re $eo->{GlobRe} n=$n d=$d v=$v c=$c limit=$limit cc=$cc\n";
 	    push @eopts, $eo;
+	} elsif (m/^S/) {
+	    die "-S option must come right at the start and have numeric arg";
 	} else {
 	    die "unknown option -$_";
 	}
diff --git a/layout/testphys.m4 b/layout/testphys.m4
new file mode 100644
index 0000000..1c97fb8
--- /dev/null
+++ b/layout/testphys.m4
@@ -0,0 +1,5 @@
+abs a 50 50 0
+extend a b ang 13.116 -230
+extend b c uptoang 0 230
+extend c d ang 13.116 230
+extend d e uptoang 0 -230