chiark / gitweb /
single track for fig-8, improving plausibility, still strange
authorian <ian>
Fri, 30 Jan 2004 02:45:46 +0000 (02:45 +0000)
committerian <ian>
Fri, 30 Jan 2004 02:45:46 +0000 (02:45 +0000)
layout/ours.m4

index 85c2964237274558f5cfeee90152f9cde633abbe..aeb5a602097a5e0f94201e4e84a4d45c7e2d7f0b 100644 (file)
@@ -1,16 +1,38 @@
 include(`parts.i4')
 
-abs mid_x_l_m 800 500 90
-obj cross_peco_s mid_x_l_m m mid_x_l_
-obj cross_peco_s mid_x_l_tr bl mid_x_t_
-obj cross_peco_s mid_x_l_br tl mid_x_b_
-obj cross_peco_s mid_x_t_br tl mid_x_r_
+abs midx_m 830 500 90
+obj cross_peco_s midx_m m midx_
 
 abs dem_tljp_m 200 200 0
 obj pt_peco_mr dem_tljp_m c dem_tljp_
 
-extend mid_x_t_tl tlj_o_b_ parallel dem_tljp_b -315
-obj cross_mythical -tlj_o_b_ tr tlj_cross_i_
+obj cross_peco_s dem_tljp_m bl dem_trjp_
+
+extend midx_tl tlj0_b_ parallel dem_tljp_b -315
+obj pt_peco_mr -tlj0_b_ b tlj0_
+extend -tlj0_c lst0_ uptoang -90 -315
+rel lst0_ lst1 0 37 180
+rel lst1 lst2 0 -37
+rel lst2 lst3 0 -37
+
+extend midx_tr trj0_b parallel dem_trjp_tl 315
+obj cross_peco_s trj0_b br trj0_
+extend trj0_tr rst0 uptoang -90 315
+rel rst0 rst1 0 -37
+rel rst1 rst2 0 -37
+rel rst2 rst3 0 -37
+
+extend trj0_tl trj1_b_ uptoang 14 315
+obj pt_peco_ml -trj1_b_ b trj1_
+extend -trj1_c rst1b uptoang -90 315
+
+rel rst1b rst2b 0 -37
+rel rst2b rst3b 0 -37
+
+
+#join tlj0_a trj0_bl 0
+
+#obj cross_peco_s 
 
 #obj pt_peco_mr tlj_cross_i_bl b tlj_pt_o_
 #obj pt_peco_mr -tlj_pt_i_b_ b tlj_pt_i_