layout/ours.m4

   1 include(`parts.i4')
   2
   3 abs midx_m 930 700 90
   4 part midx cross_peco_s m
   5
   6 define(`pt_main_r',`pt_peco_mr')
   7
   8 defobj dualjn_peco_r
   9   abs ic 200 200 0
  10   part pt_i pt_peco_lr c ic
  11   part x cross_peco_l br pt_i_a
  12   part pt_o pt_peco_lr b x_bl
  13   rel pt_o_c oc
  14   rel x_tl ia
  15   extend pt_o_a oa upto ia
  16   rel x_tr ob
  17   rel pt_i_b ib
  18 enddef
  19
  20 defobj demos
  21   abs right 200 200 0
  22   part main_up   ^pt_main_r  c right b right_main_up
  23   part main_down  pt_main_r  c right b right_main_down
  24   part short_down pt_peco_sr c right b right_short_down
  25   abs up 200 200 90
  26   part main_left  ^pt_main_r c up b up_main_left
  27   part main_right  pt_main_r c up b up_main_right
  28   part dualjn_tr ^dualjn_peco_r ib -right
  29 enddef
  30
  31 #abs demos_right 200 1200 0
  32 #part demos demos right
  33
  34 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
  35 part l0_jtr ^pt_main_r b
  36
  37 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
  38 part l0_jtl pt_main_r b
  39 rel l0_jtl_c l2_ptl 0 -37
  40 rel l2_ptl l3_ptl 0 -37
  41 rel l3_ptl l4_ptl 0 -37
  42 rel l4_ptl l5_ptl 0 -37
  43
  44 extend -midx_bl -hj_a len 10 315
  45 part hj ^pt_peco_sr a
  46
  47 #rel l0_jblx_c l2_pblx 0 37
  48 #rel l2_pblx l3_pblx 0 37
  49 #extend -l0_lst l0_jblx_c uptoang 0 -315
  50
  51 extend -hj_c -l0_jbl_b parallel demos!right_main_up 315
  52 part l0_jbl ^pt_main_r b
  53
  54 extend -l0_jbl_c l0_lst uptoang 90 315
  55 rel l0_lst l2_lst 0 -37
  56 rel l2_lst l3_lst 0 -37
  57 #rel l3_lst l4_lst 0 -37
  58 #rel l4_lst l5_lst 0 -37
  59
  60 rel -l0_jbl_c l2_pbl 0 -37
  61 rel l2_pbl l3_pbl 0 -37
  62
  63 extend -l0_jtr_c l0_rst uptoang -90 315
  64 rel l0_rst l2_rst 0 -37
  65 rel l2_rst l3_rst 0 -37
  66
  67 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315
  68 rel l0p_dj -l23_dj_ic 0 -37
  69 part l23_dj ^dualjn_peco_r ic
  70
  71 extend l23_dj_oa l3_sh uptoang 180 -315
  72
  73 #thinlines:
  74 extend l3_pbl sq_bl_o upto l3_lst
  75 rel sq_bl_o sq_bl_i 0 0 -90
  76
  77 extend sq_bl_i sq_tl_o upto l5_ptl
  78 rel sq_tl_o sq_tl_i 0 0 -90
  79
  80 extend sq_tl_i sq_tr_o upto l3_rst
  81 rel sq_tr_o sq_tr_i 0 0 -90
  82
  83 extend sq_tr_i sq_br_o upto sq_bl_i
  84 rel sq_br_o sq_br_i 0 0 -90
  85
  86 extend sq_br_i sq_bl_o2 upto sq_bl_o
  87 #endthinlines
  88
  89 rel sq_tl_i l4_ct 352 37 180
  90 rel l4_ct l5_ct 0 37
  91 extend l4_ct l4_cl ang 90 -315
  92 extend l5_ct l5_cl ang 90 -352
  93
  94 extend l3_lst l3_tlc5 ang 30 389
  95 extend l2_lst l2_tlc5 ang 30 352
  96 extend l0_lst l0_tlc5 ang 30 315
  97
  98 extend -l3_ptl -l3_tlc7 ang 60 -389
  99 extend -l2_ptl -l2_tcl7 ang 60 -352
 100 extend -l0_jtl_c -l0_tcl7 ang 60 -315
 101
 102 # top level
 103
 104
 105 extend -sq_bl_o h_bbll_c len 150
 106 part h_bbll ^pt_peco_sr c
 107 extend h_bbll_b -h_bll_b uptoang 80 -230
 108 part h_bll pt_peco_sr b
 109
 110 eof
 111
 112 #silent:
 113 extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230
 114 part demo_h_bbl pt_peco_sr b
 115
 116 extend hj_b hj_s1 len 0.0040
 117 extend hj_s1 hj_s2 uptoang 135 -230
 118 #extend hj_s2 hj_ct uptoang 180 -230
 119
 120 extend -h_bll_c -hj_s9 ang 40 -230
 121 #join hj_s2 hj_s9 230
 122 #join hj_s2 hj_s9 0
 123
 124 extend -hj_s9 -hj_s9_e ang 180 230
 125
 126 eof