better, and configurable, line widths on colourful gui plan

diff --git a/layout/Makefile b/layout/Makefile
index 4948e66df5cb0c05037c465fb1146732d633e368..e7a216fed177ba49b2c16a4c6f05025719a2d393 100644 (file)
--- a/layout/Makefile
+++ b/layout/Makefile
@@ -11,7 +11,7 @@ LAYOUTOPTS_PS=        -e'[sp]=*rm' -e'p=5C'
 XLAYOUTOPTS_LAYER= -e'=5AN' -E'*~=5rsm' -e'p~=5r' -e'*~=9C' -e'*=*l' \
                $(LAYOUTOPTS_PS)
 
-LAYOUTOPTS_SEGS= '-e*=*rm'
+LAYOUTOPTS_SEGS= '-e*=*rm' -Lsubseglwm=80 -Lsubseglwe=150 -Lsubseglwq=50
 
 LAYERS_LS=     0 4 10 26 30
 LAYERS_PS=     $(addsuffix .ps, $(LAYERS_LS))

diff --git a/layout/layout b/layout/layout
index 4109dbe5cf11d7e1e73ec691b2d1d176fac6ad80..40e723501a635c3e5ffb88c19d5f47283043fc32 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -47,6 +47,11 @@ our %chdraw_emap= qw(A ARScgd
                     m mnol
                     G Garsclmno);
 
+our %psu_subseglw;
+$psu_subseglw{'e'}= 20.0;
+$psu_subseglw{'m'}= 15.0;
+$psu_subseglw{'q'}= 20.0;
+
 while (@ARGV && $ARGV[0] =~ m/^\-/) {
     last if $ARGV[0] eq '-';
     $_= shift @ARGV;
@@ -59,7 +64,10 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
        elsif (s/^l(\d+|\*)//) { $output_layer=$1; }
        elsif (s/^S([0-9.]+)$//) { $scale= $1 * 1.0; }
        elsif (s/^P(\d+)x(\d+)$//) { $page_x= $1; $page_y= $2; }
-       elsif (s/^GR//) { $subsegcmapreq=1; }
+       elsif (s/^Lsubseglw(\w)\=(\d+)$//) {
+           exists $psu_subseglw{$1} or die "unknown -L<spec> spec";
+           $psu_subseglw{$1}= $2*0.1;
+       } elsif (s/^GR//) { $subsegcmapreq=1; }
        elsif (s/^GP(\d+|f)$//) { $subsegmovfeatpos=$1; }
        elsif (s/^GL(.*)$//) {
            my ($sscmfn) = $1;
@@ -164,11 +172,7 @@ our $psu_sleeperlen= 17;
 our $psu_sleeperlw= 15;
 our $psu_raillw= 1.0;
 our $psu_thinlw= 1.0;
-our %psu_subseglw;
 
-$psu_subseglw{'e'}= 20.0;
-$psu_subseglw{'m'}= 15.0;
-$psu_subseglw{'q'}= 20.0;
 our $lmu_segtpt= 25;
 our $lmu_segtxtoff= -8;