From: ian <ian>
Date: Tue, 3 Feb 2004 21:47:34 +0000 (+0000)
Subject: some indents, sort out for landscape, allow nonzero minradius
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=8682f6f216c5d115afae421029fb9d51f6f773b5;p=trains.git

some indents, sort out for landscape, allow nonzero minradius
---

diff --git a/layout/testjoin.m4 b/layout/testjoin.m4
index 71b3843..13e46f0 100644
--- a/layout/testjoin.m4
+++ b/layout/testjoin.m4
@@ -1,28 +1,31 @@
 #!/usr/bin/m4 -Dchoice=
 
-dnl run with -Dchoice='...'
+dnl run with -Dchoice='...' -Dminradius=NNN
+
+layer l
 
 define(`simple',`
 rel b$2 b$2x$1 0 0 $1
-join a$2 -b$2x$1 0 choice
+join a$2 -b$2x$1 minradius choice
 ')
 
 define(`complex',`
 abs org$1 $2 $3 0
 rel org$1 a$1 0 0 $4
 rel org$1 b$1 200 0 0
-simple(0,$1)
-simple(30,$1)
-simple(60,$1)
-simple(90,$1)
-simple(135,$1)
-simple(230,$1)
-simple(300,$1)
-simple(345,$1)
+ simple(0,$1)
+ simple(30,$1)
+ simple(60,$1)
+ simple(90,$1)
+ simple(135,$1)
+ simple(230,$1)
+ simple(300,$1)
+ simple(345,$1)
 ')
 
-complex(0,    200,300,  0   )
-complex(30,   200,800,  30  )
-complex(60,   200,1400, 60  )
-complex(m130,     1000,500,  -130 )
-complex(m165, 1000,1500, -165)
+ complex(0,     200,  400,    0)
+ complex(30,    200, 1200,   30)
+ complex(60,    800,  400,   60)
+ complex(130,   800, 1200,  130)
+ complex(m130, 1500,  400, -130)
+ complex(m165, 1500, 1200, -165)