define(`def_ord_pt',`
 dnl OBJNAME-EXCLUDING-PT-L STRAIGHT-L CURVE-SHORTER CURVE-DIVERGE-Y
 defobj pt_$1l
  abs c 200 200 0
  extend c a len $3
  rel a b $4 $5 $2
  join c b 0
 enddefobj
 defobj pt_$1r
  abs c 200 200 0
  objflip pt_$1l c c =
 enddefobj
')

def_ord_pt(`peco_228',22.5, 87,  -0.5, -17)
def_ord_pt(`peco_457',14,  126.5,-1.55,-13.21)
def_ord_pt(`peco_914', 8,  160,  -0.4, -13.21)
 # catalogue says 123.7 for STRAIGHT-L ?!

abs o 200 200 30
obj pt_peco_914r o c =

#extend c bx ang 22.5 -239.797
#extend c b len 94.168 -239.797