layout/parts.i4

   1 define(`def_thing_l_r',`
   2 dnl OBJNAME-EXCLUDING-L
   3  defpart $1r
   4   abs c 200 200 0
   5   objflip $1l c c =
   6  enddef
   7 ')
   8
   9 define(`def_point_ord',`
  10 dnl OBJNAME-EXCLUDING-PT-L ANGLE STRAIGHT-L CURVE-LONGER CURVE-DIVERGE-Y
  11  defpart pt_$1l
  12   abs c 200 200 0
  13   extend c a len $3
  14   rel a b $4 -$5 $2
  15   join c b 0
  16  enddef
  17  def_thing_l_r(`pt_$1')
  18 ')
  19
  20 define(`def_point_curve',`
  21 dnl OBJNAME-EXCLUDING-PT-L TIGHT-ANG TIGHT-RECT TIGHT-DIVERGE-Y SHALLOW...
  22  defpart pt_$1l
  23   abs c 200 200 0
  24   rel c a $6 -$7 $5
  25   rel c b $3 -$4 $2
  26   join c a 0
  27   join c b 0
  28  enddef
  29  def_thing_l_r(`pt_$1')
  30 ')
  31
  32 define(`def_point_y',`
  33 dnl OBJNAME-EXCLUDING-PT HALF-ANG RECT HALF-DIVERGE-Y
  34  defpart pt_$1
  35   abs c 200 200 0
  36   rel c l $3 -$4  $2
  37   rel c r $3  $4 -$2
  38   join c l 0
  39   join c r 0
  40  enddef
  41 ')
  42
  43 define(`def_crossing',`
  44 dnl OBJNAME-EXCLUDING-CROSS HALF-ANG HALF-LENGTH
  45  defpart cross_$1
  46   abs m 200 200 0
  47   rel m ml 0 0 $2
  48   rel m mr 0 0 -$2
  49   extend ml tl len $3
  50   extend mr tr len $3
  51   extend mr bl len -$3
  52   extend ml br len -$3
  53  enddef
  54 ')
  55
  56 def_point_ord(`peco_s', 22.5, 87,  -0.5, 17)
  57 def_point_ord(`peco_m', 14,  126.5,-1.55,13.21)
  58 def_point_ord(`peco_l',  8,  160,  -0.4, 13.21)
  59  # catalogue says 123.7 for STRAIGHT-L ?!
  60
  61 def_point_curve(`peco_c',  10, 154.4, 13.8,  3, 156.0, 0.8)
  62  dnl 163.2-  } dist to markings on paper cribsheet from c
  63  dnl 32.8-   }
  64
  65 def_point_y(`peco_y', 4, 127, 8.4)
  66
  67 def_crossing(`mythical',7,   80)
  68 def_crossing(`peco_l',  4,   93.75)
  69 def_crossing(`peco_s', 12.5, 46)
  70
  71
  72 define(`def_point_shino',`
  73 dnl OBJNAME-EXCLUDING-PT-L($1) A($2) B($3) Q($4)
  74 dnl not R($5)
  75  defpart pt_$1l
  76   abs c 200 200 0
  77   layer s
  78   rel c strintersect $3 0 $4
  79   rel strintersect strbackanal -$3
  80   layer =
  81   rel strbackanal b $2
  82   join c b 1 arcline
  83   extend c a len $2
  84  enddef
  85  def_thing_l_r(`pt_$1')
  86 ')
  87
  88 def_point_shino(`shino_4', 136, 45, 14.25)
  89 def_point_shino(`shino_6', 177, 49,  9.50)
  90 def_point_y(`shino_y', 7.125, 140, 10.9)
  91
  92 defpart pt_shino_x3
  93   abs c 200 200 0
  94   layer s
  95   rel c strintersectc  74 0   9.5
  96   rel c strintersectb 103 0 -12
  97   layer =
  98   rel strintersectc l 141
  99   rel strintersectb r 112
 100   extend c m len 215
 101   join c l 1 arcline
 102   join c r 1 arcline
 103 enddef
 104
 105 defpart pt_shino_cl
 106   abs c 200 200 -20
 107   extend c a len 268 -315
 108   rel a b -4 -18 10
 109   join c b 1 twoarcs
 110 #  extend c b upto a -285
 111 enddef
 112 defpart pt_shino_cr
 113   abs c 200 200 20
 114   objflip pt_shino_cl c c =
 115 enddef
 116
 117 defpart slip2_shino
 118  abs m 200 200 0
 119  rel m ml 0 0  4.75
 120  rel m mr 0 0 -4.75
 121  extend ml tl len 114
 122  extend mr tr len 114
 123  extend ml br len -114
 124  extend mr bl len -114
 125  join bl tl 500
 126  join br tr 500
 127 enddef