input constantes;
input geometriepoint;
beginfig(1);
  affixe.T(u*(6,1))se;
  affixe.N(u*(5,4))n;
  affixe.M(u*(0,4))no;
  draw hachure(60,0.5,0);
  clip currentpicture to triangle(M,N,T);
  affixe.T(u*(6,1))se;
  affixe.N(u*(5,4))ne;
  affixe.M(u*(0,4))no;
  draw triangle(M,N,T);
  affixe.R(projet(T,M,N))n;
  draw z.N--z.R--z.T dashed evenly;
  draw codeperp(T,R,N,5);
  cotation(M,T,-2mm,-2mm,btex $10\,cm$ etex);
  cotation(M,N,2mm,2mm,btex $7\,cm$ etex);
  cotation(R,T,2mm,2mm,btex $6\,cm$ etex);
endfig;
beginfig(2);
  affixe.A(u*(1,1))so;
  affixe.B(u*(5,1))se;
  affixe.C(u*(5,5))ne;
  affixe.D(u*(1,5))no;
  affixe.I(3/7[z.A,z.B])s;
  affixe.J(3/7[z.B,z.C])e;
  affixe.K(3/7[z.C,z.D])n;
  affixe.L(3/7[z.D,z.A])o;
  draw hachure(30,0.5,2);
  clip currentpicture to (z.I--z.J--z.K--z.L--cycle);
    draw codeperp(A,B,C,5);
  draw codeperp(B,C,D,5);
  draw codeperp(C,D,A,5);
  draw codesegments(A,I,B,J,2);
  draw codesegments(C,K,D,L,2);
  draw codesegments(I,B,J,C,4);
  draw codesegments(K,D,L,A,4);  
  affixe.A(u*(1,1))so;
  affixe.B(u*(5,1))se;
  affixe.C(u*(5,5))ne;
  affixe.D(u*(1,5))no;
  affixe.I(3/7[z.A,z.B])so;
  affixe.J(3/7[z.B,z.C])e;
  affixe.K(3/7[z.C,z.D])n;
  affixe.L(3/7[z.D,z.A])o;
  draw z.A--z.B--z.C--z.D--cycle;
  draw z.I--z.J--z.K--z.L--cycle;
  cotation(A,B,-6mm,-2mm,btex $7\,cm$ etex);
  cotation(I,B,-2mm,-2mm,btex $4\,cm$ etex);
endfig;
end