input constantes;
input geometriepoint;
beginfig(1);
  affixe.C'(u*(1,1))s;
  affixe.P'(u*(2,1))s;
  affixe.H'(u*(7,1))s;
  affixe.C(u*(1,2))n;
  affixe.K(z.P' shifted (z.C-z.C'))se;
  affixe.H(z.H' shifted (z.C-z.C'))se;
  affixe.T(u*(7,5))n;
  affixe.P((abs(z.K-z.C)/abs(z.H-z.C))[z.C,z.T])n;
  draw z.C--z.C'--z.H'--z.T--cycle;
  draw z.P'--z.P;
  draw z.C--z.H;
  draw codeperp(C,C',H',5);
  draw codeperp(P,K,H,5);
  draw codeperp(C',H',T,5);
  draw codeperp(P,P',H',5);
  draw codeperp(C,H,T,5);
endfig;
end