From: ian <ian>
Date: Sun, 8 Feb 2004 22:12:23 +0000 (+0000)
Subject: more circles
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b7d14d1f25eef6a5f368d62462ba2cbc6d3d18f2;p=trains.git

more circles
---

diff --git a/layout/dualjn.m4 b/layout/dualjn.m4
index fc6a170..87d5547 100644
--- a/layout/dualjn.m4
+++ b/layout/dualjn.m4
@@ -1,6 +1,6 @@
 include(parts.i4)
 
-abs pt_i_c 600 800 130
+abs pt_i_c 400 800 130
 part pt_i pt_peco_cl c
 extend pt_i_a x_bl ang 1 -315
 # len 0.0001
@@ -24,5 +24,15 @@ 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
 
-abs c230l 1500 600 90
-extend c230l c230ll ang 359 230
+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)