input geometriesyr16; figureespace(-10u,-10u,10u,10u); Initialisation(5,30,20,500); color A,B,C,D,S; A=(0,0,0); D-A=(0.75,0,0); B-A=(0,0.75,0); C-D=B-A; S-A=(0,0,0.5); trace polygone(S,D,C,B); trace segment(S,C); trace chemin(D,A,B) dashed evenly; trace segment(S,A) dashed evenly; nomme.top(S); nomme.llft(D); nomme.lrt(C); nomme.rt(B); nomme.ulft(A); finespace; figure(0,0,10u,10u); pair A,B,C,D,E; A=u*(1,5); D-A=u*(7,-3); C-A=u*(1,-4); E=7/16.1[A,D]; B=23/10[C,E]; trace segment(A,D); trace segment(B,C); trace marquesegment(A,D); trace marquesegment(B,C); nomme.top(E); nomme.top(A); nomme.top(B); nomme.bot(D); nomme.bot(C); fin; figureespace(-10u,-10u,10u,10u); Initialisation(5,0,10,500); color A,O,B; A=(0,0,1); O=(0,0,0); B=symetrie(A,O); path cc; cc=cercles(O,(0,1/3,0),O,(0,1/3,0),(1,0,0)); trace subpath(0,length cc/2) of cc; trace subpath(length cc/2,length cc) of cc dashed evenly; trace Projette(A)--(point(0) of cc)--Projette(B)--(point(length cc/2) of cc)--cycle; trace cotationmil(O,A,-2cm,15,btex 40~cm etex); trace cotationmil(B,O,-2cm,15,btex 40~cm etex); trace cotationmil(point(length cc/2) of cc,point(0) of cc,4cm,15,btex 24~cm etex); marque_p:="croix"; pointe(O); finespace end