function Lot (P,g) {
  k = Kreis (P,25);
  A = g<k;
  B = g>k;
 ka = Kreis(A,30);
 kb = Kreis(B,30);
  X = ka < kb;
  Y = ka > kb;
  return X+Y;  
}//----------------------------------
r = 20;
A = Punkt(-r,0);
B = Punkt( r,0);
C = Kreis(A,2*r) > Kreis(B,2*r);
X = Kreis(A,2*r) > Lot  (A,A+B);
svg_open(60,100,30,60);
  svg_kreuz;
  svg_bogen(-r,0, 2*r,   0*PI,  1/3*PI
   ,'sf=blue' ,'sd=1  ');
  svg_bogen(-r,0, 2*r, 1/3*PI,  0.4*PI
   ,'sf=blue' ,'sd=0.1');
  svg_bogen( r,0, 2*r, 2/3*PI,    1*PI
   ,'sf=green','sd=1');
  svg_bogen( r,0, 2*r, 0.6*PI,    1*PI
   ,'sf=green','sd=0.1');
  svg_bogen( C,  2*r,  1.25*PI,1.75*PI
   ,'sf=red','sd=0.1');
  svg_bogen( A,  2*r,  1.45*PI,2   *PI
   ,'sf=red','sd=0.1');
  svg_bogen( B,  B-X,  1.20*PI,1.55*PI
   ,'sf=red','sd=0.1');
  svg_punkt(A,'text=A');
  svg_punkt(B,'text=B');
  svg_punkt(C,'text=C');
  svg_strecke(-r,0,-r,-2*r*wurzel 2
    ,'sf=black','sd=1');
  svg_strecke( r,0, r,-2*r*wurzel 2
    ,'sf=black','sd=1');
  svg_strecke(-r,-2*r*wurzel 2,r    
   ,-2*r*wurzel 2,'sf=black','sd=1');
svg_close 'gotisch.svg';