1  Cercle passant par deux points et tangent à une droite
  2  %@GIAC:
  3  A:=point(0);
  4  B:=point(4+1/2*i);
  5  C:=point(3+2*i);
  6  D:=point(1+2/3*i);
  7  E:=droite(A,B);
  8  M:=mediatrice(C,D);
  9  H:=projection(E,C);
 10  P:=parabole(C,milieu(C,H));
 11  NT:=inter(P,M);
 12  N:=NT[0];
 13  C1:=cercle(N,C-N);
 14  C2:=cercle(NT[1],C-NT[1]); 
 15  Q:=parabole(D,milieu(D,projection(E,D)));
 16  %@STYLE:
 17  global:  clip=1 unite=1.1cm cadre=[-2,-1,6,4] courbe_e=0.5 courbe_c=0.5white cercle_c=blue
 18  M: e=0.5 c=0.5white
 19  NT: v=0