/* un triangle et ses médiatrices : encore une méthode
   sans l'extension geometry. Mais je conseille de l'utiliser
   car on y trouve les fonctions bisector, circumcircle et circumcenter
   qui permettent le tracé des médiatrices, du cercle circonscrit et de
   son centre, beaucoup plus facilement. Voir exemples qui suivent.
*/
import math;
size(6cm,0);
// On définit une fonction qui va retourner le centre du cercle circonscrit 
// d'un triangle lorsque l'on donne ses sommets.
pair CentreCercleCirconscrit (pair Point1,
                              pair Point2,
                              pair Point3) {
    pair MilieuP1P2=(Point1+Point2)/2;
    pair MilieuP2P3=(Point2+Point3)/2;
 return extension(MilieuP1P2,
                  rotate(90,MilieuP1P2)*Point2,
                  MilieuP2P3,
                  rotate(90,MilieuP2P3)*Point3);
}
// Tracé du triangle
pair A=0, B=(3,1), C=(1.5,3);
pair O=CentreCercleCirconscrit(A,B,C);
path p=A--B--C--cycle;
draw(p);
// Tracé des médiatrices, avec une boucle
for (int i = 0; i <= 2; ++i)
{
  drawline(O,(point(p,i)+point(p,i+1))/2,
           1bp+green+dashed);
}
// Tracé du cercle circonscrit, de son centre
draw(shift(O)*scale(abs(O-A))*unitcircle,1bp+red);
dot(O,blue);