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
#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)