layout/dualjn.m4

   1 define(pt_circ, pt_peco_sr)
   2 define(radius_circ, 230)
   3
   4 include(parts.i4)
   5 include(circles.i4)
   6
   7 abs pt_i_c 400 800 130
   8 part pt_i pt_peco_cl c
   9 extend pt_i_a x_bl ang 1 -315
  10 # len 0.0001
  11 # 30
  12 part x cross_peco_l bl
  13 #part x cross_mythical bl
  14 extend -x_br -pt_o_b ang 0.0030 315
  15 part pt_o pt_peco_ml b
  16
  17 extend x_tl o_end uptoang 180 -315
  18
  19 #extend pt_i_b i_end uptoang 180 -315
  20 rel o_end i_end 0 -37
  21 #extend pt_i_b i_mid upto x_tl
  22 #extend -i_end -i_mid_ ang 60 315
  23 #join pt_i_b i_end 315
  24
  25 extend x_tr si_end uptoang 180 -315
  26 extend -pt_i_c -i_begin uptoang 180 315
  27 extend -pt_o_c -o_begin uptoang 180 315
  28 #extend pt_o_a so_end uptoang 180 -315
  29 rel si_end so_end 0 37
  30
  31 abs tcp0_p_c 1500 1100 90
  32 part tcp0 tricirpair p_c
  33
  34 abs tcp1_p_c 1500 400 90
  35 part tcp1 ^tricirpair p_c
  36
  37 circle(600,800)