Fichier equerre.mp (figure 2) — Modifié le 24 Mars 2008 à 16 h 38

equerre.mp (figure 2)
Source

prologues:=2;

input geometriesyr16
input outilssyr

figure(0,0,10u,10u);
pair A,B;
A=u*(2,2);
B-A=u*(5,0);
trace equerre(A,B,A,1,1.5);
fin;

figure(0,0,15u,12u);
pair A,B;
A=u*(1,5);
B-A=u*(5,-2);
trace equerre(A,B,B,1,1.5);
fin;

end