layout/dualjn.m4

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