input geometriesyr16;
u:=0.45cm;
figure(0,0,5u,5u);
pair A,B,C,D;
A=u*(0.75,0.75);
B=u*(4.25,0.75);
C=rotation(A,B,-90);
D-A=C-B;
trace A--B--C--D--cycle;
trace cotationmil(D,C,3mm,10,btex $c$ etex);
trace codeperp(A,B,C,5);
trace codeperp(B,C,D,5);
trace codeperp(C,D,A,5);
trace codesegments(A,B,B,C,2);
trace codesegments(C,D,D,A,2);
fin;
figure(0,0,8u,6u);
pair A,B,C,D;
A=u*(0.75,0.75);
B=u*(7.25,0.75);
C=3/5[B,rotation(A,B,-90)];
D-A=C-B;
trace A--B--C--D--cycle;
trace cotationmil(D,C,3mm,10,btex $L$ etex);
trace cotationmil(A,D,3mm,10,btex $\ell$ etex);
trace codeperp(A,B,C,5);
trace codeperp(B,C,D,5);
trace codeperp(C,D,A,5);
fin;
figure(0,0,8u,6u);
pair A,B,C,D,H;
A=u*(0.75,0.75);
B=u*(7.25,0.75);
C=3/5[B,rotation(A,B,-60)];
D-C=u*(-3,0);
H=projection(D,A,B);
trace A--B--C--D--cycle;
trace cotationmil(D,C,3mm,10,btex $b$ etex);
trace cotationmil(A,B,-2mm,10,btex $B$ etex);
trace cotationmil(D,H,4mm,10,btex $h$ etex);
trace D--H;
trace codeperp(C,D,H,5);
trace codeperp(D,H,B,5);
fin;
figure(0,0,8u,4u);
%draw feuillet withcolor blanc;
pair A,B,C,D,H;
A=u*(0.75,0.75);
B=u*(5.25,0.75);
C=3/5[B,rotation(A,B,-100)];
D-C=A-B;
H=projection(D,A,B);
trace A--B--C--D--cycle;
trace cotationmil(A,B,-2mm,10,btex $c$ etex);
trace cotationmil(D,H,4mm,10,btex $h$ etex);
trace D--H;
trace codeperp(C,D,H,5);
trace codeperp(D,H,B,5);
fin;
figure(0.5u,0,10u,4u);
%draw feuillet withcolor blanc;
pair A,B,C,D,H;
A=u*(0.75,0.75);
B=u*(5.25,0.75);
C=rotation(A,B,-140);
D=symetrie(B,A,C);
H=iso(A,C);
trace A--B--C--D--cycle;
trace cotationmil(A,C,-0.3cm,10,btex $D$ etex);
trace cotationmil(D,B,-5mm,10,btex $d$ etex);
fin;
figure(0,0,8u,6u);
pair A,B,C,H;
A=u*(0.75,0.75);
B=u*(7.25,1.75);
C=u*(3,5);
H=projection(C,A,B);
trace A--B--C--cycle;
trace C--H;
trace codeperp(C,H,B,5);
trace cotationmil(A,B,-2mm,10,btex $c$ etex);
trace cotationmil(C,H,2mm,10,btex $h$ etex);
fin;
figure(0,0,8u,6u);
pair A,B;
A=u*(4,3);
path cc;
cc=cercles(A,u*2.5);
B=point(0.15*length cc) of cc;
trace cc;
marque_p:="croix";
MarquePoint(A);
trace cotationmil(A,B,0,10,btex $r$ etex);
fin;
end