layout/circles.i4

   1
   2 defobj tricirpair
   3  abs p_c 200 200 0
   4  part p pt_circ c
   5  extend p_a e_a ang 270 -radius_circ
   6  extend p_b e_b ang 270 radius_circ
   7 enddef
   8
   9 define(`circle',`
  10 abs circcircl$1x$2 $1 $2 90
  11 extend circcircl$1x$2 circcircll$1x$2 ang 359 radius_circ
  12 ')