chiark / gitweb /
failing to fit in 4
authorian <ian>
Fri, 30 Jan 2004 23:29:19 +0000 (23:29 +0000)
committerian <ian>
Fri, 30 Jan 2004 23:29:19 +0000 (23:29 +0000)
layout/ours.m4

index aeb5a602097a5e0f94201e4e84a4d45c7e2d7f0b..c4a8964d3048619a8d5029caaacc045e497b815e 100644 (file)
@@ -1,12 +1,12 @@
 include(`parts.i4')
 
 abs midx_m 830 500 90
-obj cross_peco_s midx_m m midx_
+obj cross_peco_l midx_m m midx_
 
 abs dem_tljp_m 200 200 0
 obj pt_peco_mr dem_tljp_m c dem_tljp_
 
-obj cross_peco_s dem_tljp_m bl dem_trjp_
+obj pt_peco_ml dem_tljp_m c dem_trjp_
 
 extend midx_tl tlj0_b_ parallel dem_tljp_b -315
 obj pt_peco_mr -tlj0_b_ b tlj0_
@@ -15,17 +15,25 @@ 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 midx_tr trj0_b parallel dem_trjp_b 315
 
-extend trj0_tl trj1_b_ uptoang 14 315
-obj pt_peco_ml -trj1_b_ b trj1_
-extend -trj1_c rst1b uptoang -90 315
+obj pt_peco_ml -trj0_b b trj0_
+obj pt_peco_mr -trj0_c c trj0b_
+extend trj0b_a trj1_b ang 60 315
+#extend -trj0_c trj1_b ang 60 315
+obj pt_peco_ml -trj1_b b trj1_
+
+#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
+extend -trj1_c rst1b uptoang -90 315
 rel rst1b rst2b 0 -37
 rel rst2b rst3b 0 -37