From: ian <ian>
Date: Tue, 10 Feb 2004 20:09:46 +0000 (+0000)
Subject: linked circles properly
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=8f445ea185c3d0c9209ea2a930e1c080bb78e160;p=trains.git

linked circles properly
---

diff --git a/layout/dualjn.m4 b/layout/dualjn.m4
index 87d5547..9688bf2 100644
--- a/layout/dualjn.m4
+++ b/layout/dualjn.m4
@@ -24,15 +24,22 @@ extend -pt_o_c -o_begin uptoang 180 315
 #extend pt_o_a so_end uptoang 180 -315
 rel si_end so_end 0 37
 
+defobj tricirpair
+ abs p_c 200 200 0
+ part p pt_peco_sr c
+ extend p_a e_a ang 270 -230
+ extend p_b e_b ang 270 230
+enddef
+
+abs tcp0_p_c 1500 1100 90
+part tcp0 tricirpair p_c
+
+abs tcp1_p_c 1500 400 90
+part tcp1 ^tricirpair p_c
+
 define(`circle',`
 abs c230l$1x$2 $1 $2 90
 extend c230l$1x$2 c230ll$1x$2 ang 359 230
 ')
 
-circle(1500,400)
-circle(1040,400)
-
-circle(1500,1200)
-circle(1040,1200)
-
 circle(600,800)