input geometriesyr16; figureespace(-10u,-10u,10u,10u); Initialisation(5,30,20,500); color A,B,C,D,O,H; H=(0,0,0); A=(1/2,-1/2,0); B=(1/2,1/2,0); C=(-1/2,1/2,0); D=(-1/2,-1/2,0); O=(0,0,1); trace chemin(B,A,O,C,B,O); trace chemin(B,D,A,C,D,O,H) dashed evenly; nomme.lft(A); nomme.lrt(B); nomme.rt(C); nomme.ulft(D); nomme.top(O); trace codeperp(O,H,A,8); finespace; figure(0,0,6u,6u); pair A,B,C,D,E; E=u*(0.75,0.75); C-E=u*(4,0); B-C=u*(0,3); A-B=u*(-2.25,0); D=projection(A,E,C); trace polygone(E,C,B,A); trace segment(A,D) dashed evenly; trace codeperp(A,D,C,5); trace codeperp(D,C,B,5); trace codeperp(C,B,A,5); nomme.llft(E); nomme.bot(D); nomme.lrt(C); nomme.urt(B); nomme.top(A); fin; end