input geometriesyr16; figureespace(-10u,-10u,10u,10u); Initialisation(5,30,25,500); color S,A,B,C,D,E,F,G,H; S=(0,0,1); A=(0,0,0); D=(1/2,0,0); C=(1/2,1/2,0); B=(0,1/2,0); E=1/3[A,S]; H=1/3[D,S]; F=1/3[B,S]; G=1/3[C,S]; trace chemin(C,D,S,B,C,S); trace chemin(H,G,F); trace chemin(D,A,S) dashed evenly; trace chemin(A,B) dashed evenly; trace chemin(F,E,H) dashed evenly; nomme.lft(S); nomme.rt(F); nomme.bot(B); nomme.bot(C); nomme.bot(D); nomme.lft(H); nomme.lrt(A); nomme.urt(E); nomme.llft(G); finespace; figure(0,0,5u,5u); pair A,M,B,C; C=u*(1,1); A-C=u*(0,3); B-A=u*(2.5,0); M=2/5[A,B]; trace triangle(A,B,C); trace segment(M,C); trace codeperp(C,A,B,5); nomme.top(A); nomme.top(M); nomme.top(B); nomme.bot(C); fin; figure(0,0,5u,5u); pair A,M,B,C,N; C=u*(1,1); A-C=u*(0,3); B-A=u*(2.5,0); M=4/5[A,B]; N=4/5[A,C]; trace triangle(A,B,C); trace segment(M,N); trace codeperp(C,A,B,5); nomme.top(A); nomme.top(M); nomme.lft(N); nomme.top(B); nomme.bot(C); fin; end