input geometriesyr16; figure(-2u,-2u,10u,10u); pair G,F,A,B,C; G=(0,0); F=u*(5.5,0); A=u*(1.8,3.9); B=u*(4.6,3.9); C=segment(G,B) intersectionpoint segment(F,A); trace polygone(G,B,A,F); nomme.lft(G); nomme.rt(F); nomme.rt(B); nomme.lft(A); nomme.bot(C); fin; figureespace(-10u,-10u,10u,10u); Initialisation(5,30,20,500); color O,A,B,C,D,S,O'; D=(0,0,0); A-D=(3/6,0,0); C-D=(0,4/6,0); B-C=A-D; O=1/2[D,B]; S-O=(0,0,1); O'=1/2[S,O]; trace polygone(A,B,C,S); trace segment(S,B); trace polygone(A,D,C) dashed evenly; trace chemin(B,D,S,O) dashed evenly; trace polygone(1/2[A,S],1/2[B,S],1/2[C,S],1/2[D,S]) dashed evenly; trace segment(1/2[B,S],1/2[D,S]) dashed evenly; trace segment(1/2[A,S],1/2[C,S]) dashed evenly; nomme.lft(A); nomme.lrt(B); nomme.rt(C); nomme.ulft(D); nomme.top(S); nomme.bot(O); nomme.llft(O'); finespace; end