input geometriesyr12;
input outilssyr;
%%Macro à trouver à l'adresse www.melusine.eu.org/syracuse/poulecl/macros/
figure(0,0,19u,27u);
  pair A,B,C,D,E,F,G;
  A=u*(1,1);
  B=u*(1,15);
  trace regle(A,B,1);
  C=u*(10,3);
  D=u*(16,2);
  trace rapporteurdouble(C,D,1);
  E=u*(12,10);
  F=u*(15,12);
  G=u*(12,19);
  marque_p:="plein";
  pointe(E,F,G);
  trace equerre(E,F,E,1,4);
fin;
end