%%HP: T(1)A(G)F(,);
 "XA YA RA" "" INPUT
OBJ "XB YB RB" ""
INPUT OBJ  XA YA RA
XB YB RB
   2, NEG XA * 2,
NEG YA * XA 2, ^ YA
2, ^ + RA 2, ^ - 2,
NEG XB * 2, NEG YB *
XB 2, ^ YB 2, ^ + RB
2, ^ -  a b c a1 b1
c1
     b1 b - a a1 - /
c1 c - a a1 - /  A B
       A 2, ^ 1, +
2, A * B * A a * + b
+ B 2, ^ B a * + c +
 A3 B3 C3
         B3 2, ^ 4,
A3 * C3 NEG * +  
D3
           B3 NEG D3
+ 2, A3 * / B3 NEG D3
- 2, A3 * /  Y1 Y2
             A Y1 *
B + A Y2 * B +  X1
X2
               X1
"X1" TAG Y1 "Y1"
TAG X2 "X2" TAG Y2
"Y2" TAG
              
            
          
        
      
    
  
