layout/ours.m4: Add a scale to the diagrams.

diff --git a/layout/Makefile b/layout/Makefile
index 3b86ddf37bdc26326348256132b7a3439f8ecbc0..69de4ce591e55c1d1fdcb48364a945246bb462b0 100644 (file)
--- a/layout/Makefile
+++ b/layout/Makefile
@@ -8,9 +8,11 @@ LAYOUT=                ./layout -R$(ROTATE)
 
 E_TRACK=       ArsCLMNo
 LAYOUTOPTS_ALL=        -ep=*Cm
-LAYOUTOPTS=    -E=*$(E_TRACK) $(LAYOUTOPTS_ALL)
+LAYOUTOPTS_ALLFINAL= -Eg=*aRqesclDmnog
+LAYOUTOPTS=    -E=*$(E_TRACK) $(LAYOUTOPTS_ALL) $(LAYOUTOPTS_ALLFINAL)
 LAYOUTOPTS_PHYS= -S1.0 $(LAYOUTOPTS) '-e*A' -CS=\#888
-LAYOUTOPTS_PS= -e'[sp]=*rm' -e'p=5C' $(LAYOUTOPTS_COLOUR)
+LAYOUTOPTS_PS= -e'[sp]=*rm' -e'p=5C' \
+               $(LAYOUTOPTS_ALLFINAL) $(LAYOUTOPTS_COLOUR)
 XLAYOUTOPTS_LAYER= -e'=5AND' -E'*~=5rsml' -e'p~=5r' -e'*~=9C' \
                $(LAYOUTOPTS_PS)
 LAYOUTOPTS_COLOUR= -CA=\#f00 -CC=\#dd0 -CrpLD=\#00f -Ci=\#c0c
@@ -21,7 +23,7 @@ LAYOUTOPTS_BS=        -S2.828
 LAYOUTOPTS_B=  $(LAYOUTOPTS_BS) $(LAYOUTOPTS_MB) -Cl=-
 LAYOUTOPTS_E=   -E'=*aRsclMno' \
                -e'=5RN' -E'*~=5rsm' -e'p~=5r' -e'*=*l' \
-               -e'[sp]=*rm'
+               -e'[sp]=*rm' $(LAYOUTOPTS_ALLFINAL)
 
 PLANUI_PSDPI= 72
 PLANUI_WIDTH= 595
@@ -176,7 +178,7 @@ testphys-l%.ps:     testphys.d4 layout
 
 ours-s%.ps:    layout ours.redacted.segjoins ours.d4
                $(LAYOUT) -l$* -e'*=*rldm' -E'=5QE' -e'segjoin=5M' \
-                       -e'l=*C' \
+                       -e'l=*C' $(LAYOUTOPTS_ALLFINAL) \
                        $(filter-out layout, $^) $o
 
 ours-m%.ps:    ours.d4 layout

diff --git a/layout/ours.m4 b/layout/ours.m4
index 603720b1825971f8511c8c5cfb5e06ee74f4addf..cbd68cd80829304f3c2e1445c8df5b6078c07d91 100644 (file)
--- a/layout/ours.m4
+++ b/layout/ours.m4
@@ -141,6 +141,23 @@ rel sq_br_o sq_br_i 0 0 -90
 
 extend sq_br_i sq_bl_o2 upto sq_bl_o
 
+#---------- scale
+
+layer g*
+
+rel -sq_bl_o scale_0a 10 40
+
+define(`morescale',`
+extend scale_$1a scale_$1b len $3
+rel scale_$1b scale_$2a 0 $4
+')
+
+morescale(0,1,20,-5)
+morescale(1,2,50,5)
+morescale(2,3,100,5)
+morescale(3,4,200,-5)
+morescale(4,5,500,5)
+
 #---------- bottom junction between main loop, main-8
 
 layer p4