+define(pt_circ, pt_peco_sr)
+define(radius_circ, 230)
+
include(parts.i4)
+include(circles.i4)
abs pt_i_c 400 800 130
part pt_i pt_peco_cl c
#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(600,800)