chiark / gitweb /
some indents, sort out for landscape, allow nonzero minradius
authorian <ian>
Tue, 3 Feb 2004 21:47:34 +0000 (21:47 +0000)
committerian <ian>
Tue, 3 Feb 2004 21:47:34 +0000 (21:47 +0000)
layout/testjoin.m4

index 71b3843e937add7eac7ae8806ffc210a0397a70d..13e46f0555c6e041b73c414d51a4fd2e135d60f0 100644 (file)
@@ -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)