Figures à main levée

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

input geometriesyr15;

%Figure:1
figuremainlevee(0,0,8u,6u);
pair A,B,C;
A=u*(0.75,0.75);
B=u*(7.25,0.75);
C=demidroite(B,rotation(A,B,-60)) intersectionpoint demidroite(A,rotation(B,A,50));
trace polygone(A,B,C);
trace Marqueangle(demidroite(B,C),demidroite(B,A),0);
label.lft(btex 60\degres etex,w);
trace Marqueangle(demidroite(A,B),demidroite(A,C),0);
label.rt(btex 50\degres etex,w);
nomme.llft(A);
nomme.lrt(B);
nomme.top(C);
finmainlevee;

%Figure:2
figuremainlevee(0,0,7u,5u);
pair K,L,M,N;
N=u*(0.75,0.75);
M=u*(6.25,0.75);
L=u*(6.25,4);
K=u*(0.75,4);
trace polygone(K,L,M,N);
trace segment(K,M);
trace appelation(K,L,2mm,btex $6\,cm$ etex);
trace Marqueangle(segment(K,N),segment(K,M),0);
label.lrt(btex 70\degres etex,w);
nomme.llft(N);
nomme.lrt(M);
nomme.urt(L);
nomme.ulft(K);
finmainlevee;

%Figure:3
figuremainlevee(0,0,8u,8u);
pair A,B,C,I,H;
trace triangleqcq(A,B,C);
I=milieu(A,B);
H=projection(C,A,B);
trace segment(C,H);
trace codesegments(B,I,I,A,2);
trace codeperp(C,H,B,8);
trace codeangle.ulft(C,B,A,1,btex 45\degres etex);
trace marqueangle(A,C,B,2);
trace Marqueangle(demidroite(A,B),demidroite(A,C),0);
nomme.llft(A);
nomme.lrt(B);
nomme.ulft(C);
marque_p:="plein";
pointe(I);
marque_p:="non";
finmainlevee;

%Figure:4
figuremainlevee(0,0,12u,12u);
pair A,B,C,O,H,G,I;
A=u*(1,1);
B=u*(11,1);
C=u*(5,8);
trace triangle(A,B,C);
O=CentreCercleC(A,B,C);
H=Orthocentre(A,B,C);
G=iso(A,B,C);
I=CentreCercleI(A,B,C);
marque_p:="plein";
nomme.top(G);
nomme.llft(H);
nomme.top(O);
nomme.top(I);
trace cercles(A,B,C);
trace C--projection(C,A,B) dashed evenly;
trace B--projection(B,A,C) dashed evenly;
trace codeperp(B,projection(B,A,C),C,5);
trace codeperp(C,projection(C,A,B),B,5);
trace cercles(I,projection(I,A,B));
marque_p:="non";
nomme.llft(A);
nomme.lrt(B);
nomme.top(C);
finmainlevee;

%Figure:5
figuremainlevee(-3u,-u,8u,10u);
pair A,B,C,D,E,O;
O=u*(3.5,3.5);
A=u*(1,1);
path cc,cd;
cc=cercles(O,A);
trace cc withcolor orange;
B=pointarc(cc,330);
trace cercledia(A,B) withcolor rouge;
trace cercles(B,1cm) withcolor bleu;
cd=cercles(A,B);
C=pointarc(cd,75);
D=pointarc(cd,120);
E=CentreCercleC(D,O,C);
trace arccercle(C,D,E) withcolor violet;
trace D--E--C dashed evenly;
marque_p:="plein";
nomme.lrt(E);
nomme.top(A);
nomme.top(B);
nomme.top(C);
nomme.top(D);
nomme.top(O);
finmainlevee;

%Figure:6
figuremainlevee(0,0,8u,8u);
pair A,B,C,D;
A=u*(1,1);
B=u*(7,4);
C=u*(4,6);
trace droite(A,B);
trace parallele(A,B,C);
trace mediatrice(A,B);
D=u*(2,5);
trace perpendiculaire(A,B,D);
nomme.top(A);
nomme.top(B);
nomme.top(C);
nomme.top(D);
finmainlevee;

%Figure:7
figuremainlevee(0,0,8u,6u);
pair A,B,C,I,J,P;
trace triangleqcq(A,B,C);
I=iso(A,B);
path cc;
cc=parallele(B,C,I);
trace cc;
J=milieu(A,C);
trace codesegments(A,I,I,B,2);
trace codesegments(A,J,J,C,4);
P=cc intersectionpoint segment(A,C);
marque_p:="plein";
pointe(I,J,P);
nomme.llft(A);
nomme.lrt(B);
nomme.llft(I);
nomme.ulft(J);
nomme.urt(P);
nomme.top(C);
finmainlevee;

%Figure:8
figuremainlevee(0,0,8u,6u);
trace grille(1) withcolor gris;
origine((4,2));
trace axes;
pair A,B,C;
A=placepoint(-2,-1);
B=placepoint(3,1);
C=placepoint(1,3);
trace polygone(A,B,C);
trace cercles(A,B,C) withcolor rouge;
nomme.llft(A);
nomme.lrt(B);
nomme.top(C);
finmainlevee;

end