layout/parts.i4

   1 define(`def_ord_pt',`
   2  dnl OBJNAME-EXCLUDING-PT-L STRAIGHT-L CURVE-SHORTER CURVE-DIVERGE-Y
   3  defobj pt_$1l
   4   abs c 200 200 0
   5   extend c a len $3
   6   rel a b $4 $5 $2
   7   join c b 0
   8  enddefobj
   9  defobj pt_$1r
  10   abs c 200 200 0
  11   objflip pt_$1l c c =
  12  enddefobj
  13 ')
  14
  15 def_ord_pt(`peco_228',22.5, 87,  -0.5, -17)
  16 def_ord_pt(`peco_457',14,  126.5,-1.55,-13.21)
  17 def_ord_pt(`peco_914', 8,  160,  -0.4, -13.21)
  18  # catalogue says 123.7 for STRAIGHT-L ?!
  19
  20 abs o 200 200 30
  21 obj pt_peco_914r o c =
  22
  23 #extend c bx ang 22.5 -239.797
  24 #extend c b len 94.168 -239.797