input geometriesyr16 k:=-0.833; figuremainlevee(-3u,-4u,3u,3u); pair A,B,S,C,D; S=u*(0,0); A=u*(-2,-2); B=u*(1,-2.75); D-S=k*(A-S); C-S=k*(B-S); trace polygone(A,B,S); trace polygone(S,C,D); trace appelation(A,S,3mm,btex 6 cm etex); trace appelation(A,B,-3mm,btex 108 mm etex); trace appelation(S,B,3mm,btex 72 mm etex); trace appelation(S,D,-3mm,btex 5 cm etex); trace appelation(S,C,3mm,btex 6 cm etex); trace appelation(C,D,3mm,btex 9 cm etex); nomme.llft(A); nomme.lrt(B); nomme.lft(S); nomme.rt(D); nomme.lft(C); finmainlevee; figuremainlevee(-3u,-4u,2u,3u); pair A,B,S,C,D; S=u*(0,0); A=u*(-1,-2); B=u*(1,-3.25); D-S=k*(A-S); C-S=k*(B-S); trace polygone(A,B,S); trace polygone(S,C,D); trace appelation(A,S,3mm,btex 5 cm etex); trace appelation(A,B,-3mm,btex 6 cm etex); trace appelation(S,B,3mm,btex 8 cm etex); trace appelation(S,D,-3mm,btex 4,1 cm etex); trace appelation(S,C,3mm,btex 6,4 cm etex); trace appelation(C,D,3mm,btex 4,8 cm etex); nomme.llft(A); nomme.lrt(B); nomme.lft(S); nomme.rt(D); nomme.lft(C); finmainlevee; figuremainlevee(-3u,-3u,3u,3u); pair A,B,S,C,D; S=u*(0,0); A=u*(-2,0); B-S=(A-S) rotated 60; D-S=k*(A-S); C-S=k*(B-S); trace polygone(A,B,S); trace polygone(S,C,D); trace appelation(B,S,-3mm,btex 3 m etex); trace appelation(S,C,3mm,btex 4 m etex); trace codesegments(A,B,B,S,1); trace codesegments(A,S,B,S,1); trace codesegments(S,D,S,C,2); trace codesegments(S,D,C,D,2); nomme.llft(A); nomme.lrt(B); nomme.top(S); nomme.rt(D); nomme.lft(C); finmainlevee; end