testphys, for tracing, including scale option

diff --git a/layout/layout b/layout/layout
index b6c43e92648cd7638a2d5c415bcda61a7bb5b59c..f94dbc27da2d3573d9fbac8041c810ba4c154cd1 100755 (executable)
--- 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 (file)
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