define(`def_thing_l_r',`
dnl OBJNAME-EXCLUDING-L
 defpart $1r
  abs c 200 200 0
  objflip $1l c c =
 enddef
')

define(`def_point_ord',`
dnl OBJNAME-EXCLUDING-PT-L ANGLE STRAIGHT-L CURVE-LONGER CURVE-DIVERGE-Y
 defpart pt_$1l
  abs c 200 200 0
  extend c a len $3
  rel a b $4 -$5 $2
  join c b 0
 enddef
 def_thing_l_r(`pt_$1')
')

define(`def_point_curve',`
dnl OBJNAME-EXCLUDING-PT-L TIGHT-ANG TIGHT-RECT TIGHT-DIVERGE-Y SHALLOW...
 defpart pt_$1l
  abs c 200 200 0
  rel c a $6 -$7 $5
  rel c b $3 -$4 $2
  join c a 0
  join c b 0
 enddef
 def_thing_l_r(`pt_$1')
')

define(`def_point_y',`
dnl OBJNAME-EXCLUDING-PT HALF-ANG RECT HALF-DIVERGE-Y
 defpart pt_$1
  abs c 200 200 0
  rel c l $3 -$4  $2
  rel c r $3  $4 -$2
  join c l 0
  join c r 0
 enddef
')

define(`def_crossing',`
dnl OBJNAME-EXCLUDING-CROSS HALF-ANG HALF-LENGTH
 defpart cross_$1
  abs m 200 200 0
  rel m ml 0 0 $2
  rel m mr 0 0 -$2
  extend ml tl len $3
  extend mr tr len $3
  extend mr bl len -$3
  extend ml br len -$3
 enddef
')

def_point_ord(`peco_s', 22.5, 87,  -0.5, 17)
def_point_ord(`peco_m', 14,  126.5,-1.55,13.21)
def_point_ord(`peco_l',  8,  160,  -0.4, 13.21)
 # catalogue says 123.7 for STRAIGHT-L ?!

def_point_curve(`peco_c',  10, 154.4, 13.8,  3, 156.0, 0.8)
 dnl 163.2-  } dist to markings on paper cribsheet from c
 dnl 32.8-   }

def_point_y(`peco_y', 4, 127, 8.4)

def_crossing(`mythical',7,   80)
def_crossing(`peco_l',  4,   93.75)
def_crossing(`peco_s', 12.5, 46)


define(`def_point_shino',`
dnl OBJNAME-EXCLUDING-PT-L($1) A($2) B($3) Q($4)
dnl not R($5)
 defpart pt_$1l
  abs c 200 200 0
  layer s
  rel c strintersect $3 0 $4
  rel strintersect strbackanal -$3
  layer =
  rel strbackanal b $2
  join c b 1 arcline
  extend c a len $2
 enddef
 def_thing_l_r(`pt_$1')
')

def_point_shino(`shino_4', 136, 45, 14.25)
def_point_shino(`shino_6', 177, 49,  9.50)
def_point_y(`shino_y', 7.125, 140, 10.9)

defpart pt_shino_x3
  abs c 200 200 0
  layer s
  rel c strintersectc  74 0   9.5
  rel c strintersectb 103 0 -12
  layer =
  rel strintersectc l 141
  rel strintersectb r 112
  extend c m len 215
  join c l 1 arcline
  join c r 1 arcline
enddef

defpart pt_shino_cl
  abs c 200 200 -20
  extend c a len 268 -315
  rel a b -4 -18 10
  join c b 1 twoarcs
#  extend c b upto a -285
enddef
defpart pt_shino_cr
  abs c 200 200 20
  objflip pt_shino_cl c c =
enddef

defpart slip2_shino
 abs m 200 200 0
 rel m ml 0 0  4.75
 rel m mr 0 0 -4.75
 extend ml tl len 114
 extend mr tr len 114
 extend ml br len -114
 extend mr bl len -114
 join bl tl 500
 join br tr 500
enddef