%@Auteur:Véronique Glaçon

verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

input geometriesyr16;
%figure1
figuremainlevee(0,0,5.5u,5u);
pair A,B,C,D;
D=u*(1,2);
C=u*(4,2);
A=u*(2,4);
B=u*(5,4);
trace polygone(A,B,C,D);
nomme.top(A);
nomme.top(B);
nomme.bot(C);
nomme.bot(D);
trace appelation(A,B,3mm,btex 6~cm etex);
trace appelation(D,A,3mm,btex 4~cm etex);
trace Codeangle(D,A,B,0,btex 110\degres etex);
finmainlevee;

%figure2
figuremainlevee(0,0,5.5u,5u);
pair E,F,G,H;
E=u*(1,4);
F=u*(2,2.5);
G=u*(1.5,0.5);
H=u*(0.5,2);
trace polygone(E,F,G,H);
nomme.top(E);
nomme.rt(F);
nomme.bot(G);
nomme.lft(H);
trace appelation(H,E,2mm,btex 3,8~cm etex);
trace appelation(E,F,2mm,btex 2,5~cm etex);
trace Codeangle(H,E,F,0,btex 52\degres etex);
finmainlevee;

%figure3
figuremainlevee(0,0,5.5u,5u);
pair T,V,R,S;
T=u*(1,3.5);
V=u*(3.5,3);
R=u*(3,1);
S=u*(0.5,1.5);
trace polygone(T,V,R,S);
trace segment(V,S);
nomme.top(T);
nomme.urt(V);
nomme.rt(R);
nomme.llft(S);
trace appelation(S,V,2mm,btex 6~cm etex);
trace appelation(S,T,2mm,btex 4~cm etex);
trace appelation(T,V,2mm,btex 5,5~cm etex);
finmainlevee;

end