prologues:=2;

input geometriesyr16
input outilssyr

figure(-10u,-10u,10u,10u);
pair A,B;
A=u*(2,2);
B-A=u*(6,0);
trace rapporteurdouble(A,B,1);
fin;

figure(-10u,-10u,10u,10u);
pair A,B;
A=u*(1,5);
B-A=u*(6,-2);
trace rapporteurdouble(A,B,-1);
fin;

figure(-10u,-10u,10u,10u);
pair A,B;
A=u*(1,5);
B-A=u*(5,-2);
marque_p:="plein";
nomme.bot(A);
nomme.bot(B);
marque_p:="non";
trace rapporteurequerre(A,B,1);
fin;

end