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

input geometriesyr15;
u:=7.5mm;
figuremainlevee(0,-2u,15u,8u);
pair A,B,D,E,F,G;
A=u*(1,4);
E=u*(8,4);
G-E=u*(5,0);
F=cercles(G,3u) intersectionpoint cercles(E,4u);
B=9.6/4[F,E];
D=demidroite(E,B) intersectionpoint demidroite(A,rotation(B,A,-30));
trace polygone(D,A,G,F);
trace segment(A,B);
marque_a:=30;
trace marqueangle(D,A,B,0);
label.bot(btex 30\degres etex,w);
nomme.top(A);
nomme.bot(D);
nomme.lrt(B);
nomme.ulft(E);
nomme.lrt(G);
nomme.top(F);
trace codeperp(A,B,E,8);
finmainlevee;
figuremainlevee(0,0,6u,6u);
pair A,B,C,D,E;
A=u*(0.75,0.75);
E=u*(5.25,0.75);
C=u*(5.25,4.25);
D=2/5[A,E];
B=2/5[A,C];
trace triangle(A,C,E);
trace segment(B,D);
trace codeperp(B,D,A,8);
trace codeperp(C,E,A,8);
nomme.llft(A);
nomme.bot(D);
nomme.lrt(E);
nomme.top(B);
nomme.top(C);
finmainlevee;
end