layout/testjoin.m4

   1 #!/usr/bin/m4 -Dchoice=
   2
   3 dnl run with -Dchoice='...' -Dminradius=NNN
   4
   5 layer l
   6
   7 define(`simple',`
   8 rel b$2 b$2x$1 0 0 $1
   9 join a$2 -b$2x$1 minradius choice
  10 ')
  11
  12 define(`complex',`
  13 abs org$1 $2 $3 0
  14 rel org$1 a$1 0 0 $4
  15 rel org$1 b$1 200 0 0
  16  simple(0,$1)
  17  simple(30,$1)
  18  simple(60,$1)
  19  simple(90,$1)
  20  simple(135,$1)
  21  simple(230,$1)
  22  simple(300,$1)
  23  simple(345,$1)
  24 ')
  25
  26  complex(0,     200,  400,    0)
  27  complex(30,    200, 1200,   30)
  28  complex(60,    800,  400,   60)
  29  complex(130,   800, 1200,  130)
  30  complex(m130, 1500,  400, -130)
  31  complex(m165, 1500, 1200, -165)
  32
  33 #abs a 400 400 90
  34 #abs b 300 700 30
  35 #join a b minradius choice