input geometriesyr12;
beginfig(1);
  pair C',P',H',C,K,H,T,P;
  C'=u*(1,1);nomme.bot(C');
  P'=u*(2,1);nomme.bot(P');
  H'=u*(7,1);nomme.bot(H');
  C=u*(1,2);nomme.top(C);
  K-P'=C-C';nomme.lrt(K);
  H-H'=C-C';nomme.lrt(H);
  T=u*(7,5);nomme.top(T);
  P=(abs(K-C)/abs(H-C))[C,T];nomme.top(P);
  draw C--C'--H'--T--cycle;
  draw P'--P;
  draw C--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