geo1 174 Bytes
//mediatrice d'un segment
1;
A:=point(-1.0-2.0*i);
B:=point(2.0+3.0*i);
segment(A,B);
C1:=cercle(A,B-A);
C2:=cercle(B,A-B);
D:=droite(inter(C1,C2));
M:=inter(segment(A,B),D);