Polaire réciproque: reciprocation polaire

10.19.6 Polaire réciproque: reciprocation polaire_reciproque

polaire_reciproque a comme argument un cercle C et une liste de points et de droites.
polaire_reciproque renvoie la liste obtenue en remplacant dans la liste argument un point (resp une droite) par sa polaire (resp son pôle) par rapport au cercle C.
On tape :

polaire_reciproque(cercle(0,1),[point((1+i)/2), droite(1,-1+i)])

On obtient :

[pnt([[2,2*i],0]),pnt(1+2*i,0)] et dessine cette droite et ce point