#Construit les tangentes à un cercle passant par un point
import GCercle
import GPoint
#Cherche le centre du cercle
{invisible} Point @10000(123,456) sur cercle #1
{invisible} @10001= droite (#2@10000)
{invisible} @10002= intersection(0) de @10001 et de #1
{invisible} @10003= intersection(1) de @10001 et de #1
{invisible} @10004= droite perpendiculaire a @10001 passant par @10003
{invisible} @10005= intersection(0) de @10004 et de #1
{invisible} @10006= intersection(1) de @10004 et de #1
{invisible} @10007= mediatrice de [@10002@10003]
{invisible} @10008= mediatrice de [@10005@10006]
#@10009 est le centre du cercle
{invisible} @10009= intersection(0) de @10007 et de @10008

iflikepoint #2=@10009
  return Impossible : pas de tangente depuis le centre du cercle
endif

{invisible} @10020= droite (#2@10009)
@10021= intersection(0) de @10020 et de #1
@10022= intersection(1) de @10020 et de #1
#Teste si le point est sur le cercle
iflikepoint (#2=@10021) | (#2=@10022)
  @10011= droite perpendiculaire a @10020 passant par #2
  export @10000 @10001 @10002 @10003 @10004 @10005 @10006 @10007 @10008 @10009 @10020 @10011
endif

#Deux tangentes
{invisible} @10010= cercle de diametre [#2@10009]
@10011= intersection(0) de @10010 et de #1
@10012= intersection(1) de @10010 et de #1
@10013= droite (#2@10011)
@10014= droite (#2@10012)
export @10000 @10001 @10002 @10003 @10004 @10005 @10006 @10007 @10008 @10009 @10010 @10011 @10012 @10013 @10014
return