From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 5 Dec 2010 11:05:29 +0000 (+0000)
Subject: layout/ours.m4: Add a scale to the diagrams.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=2572e95e7a33adcd31395c6cb6d8dcc0a3ee2be4;p=trains.git

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

diff --git a/layout/Makefile b/layout/Makefile
index 3b86ddf..69de4ce 100644
--- 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 603720b..cbd68cd 100644
--- 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