layout/ours.m4

   1 include(`parts.i4')
   2
   3 abs midx_m 830 500 90
   4 part midx cross_peco_l m
   5
   6 define(`pt_main_r',`pt_peco_mr')
   7
   8 defobj demos
   9   abs right 200 200 0
  10   part main_up   ^pt_main_r c right b right_main_up
  11   part main_down  pt_main_r c right b right_main_down
  12   abs up 200 200 90
  13   part main_left  ^pt_main_r c up b up_main_left
  14   part main_right  pt_main_r c up b up_main_right
  15 enddef
  16
  17 abs demos_right 200 1200 0
  18 part demos demos right
  19
  20 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
  21 part l0_jtr ^pt_main_r b
  22
  23 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
  24 part l0_jtl pt_main_r b
  25 extend -l0_jtl_c -l0_lst uptoang -90 -315
  26 rel l0_lst l2_lst 0 -37
  27 rel l2_lst l3_lst 0 -37
  28
  29 extend -l0_jtr_c l0_rst uptoang -90 315
  30 rel l0_rst l2_rst 0 -37
  31
  32 defobj dualjn_peco_r
  33   abs ic 200 200 0
  34   part pt_i pt_peco_lr c ic
  35   part x cross_peco_l br pt_i_a
  36   part pt_o pt_peco_lr b x_bl
  37   rel pt_o_c oc
  38   rel x_tl ia
  39   extend pt_o_a oa upto ia
  40   rel x_tr ob
  41   rel pt_i_b ib
  42 enddef
  43
  44 #rel l0_rst -l23_dj_ic 37 -37
  45 rel -l0_jtr_c -l23_dj_ic 37 -37 -8
  46 part l23_dj ^dualjn_peco_r ic
  47 extend l23_dj_oa l3_sh uptoang 180 -315
  48
  49
  50 #rel l2_rst l3_rst 0 -37
  51
  52 #rel -l2_rst l2_jr_c
  53
  54
  55 #rel l2_jr_c l3_jr_c 0 37
  56 #part l2_jr pt_peco_ll c
  57 #part l23_jrx cross_peco_l bl l2_jr_a
  58 #part l3_jr pt_peco_ll c
  59
  60 eof
  61 rel lst1 lst2 0 -37
  62 rel lst2 lst3 0 -37
  63
  64 extend midx_tr trj0_b parallel dem_trjp_b 315
  65
  66 obj pt_peco_ml -trj0_b b trj0_
  67 obj pt_peco_mr -trj0_c c trj0b_
  68 extend trj0b_a trj1_b ang 60 315
  69 #extend -trj0_c trj1_b ang 60 315
  70 obj pt_peco_ml -trj1_b b trj1_
  71
  72 #obj cross_peco_s trj0_b br trj0_
  73 #extend trj0_tr rst0 uptoang -90 315
  74 #rel rst0 rst1 0 -37
  75 #rel rst1 rst2 0 -37
  76 #rel rst2 rst3 0 -37
  77
  78 #extend trj0_tl trj1_b_ uptoang 14 315
  79 #obj pt_peco_ml -trj1_b_ b trj1_
  80
  81 #extend -trj1_c rst1b uptoang -90 315
  82 extend -trj1_c rst1b uptoang -90 315
  83 rel rst1b rst2b 0 -37
  84 rel rst2b rst3b 0 -37
  85
  86
  87 #join tlj0_a trj0_bl 0
  88
  89 #obj cross_peco_s
  90
  91 #obj pt_peco_mr tlj_cross_i_bl b tlj_pt_o_
  92 #obj pt_peco_mr -tlj_pt_i_b_ b tlj_pt_i_