input geometriesyr; u:=0.5cm; 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; 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; cotationmil(D,C,3mm,10,btex $L$ etex); cotationmil(A,D,3mm,10,btex $l$ 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; cotationmil(D,C,3mm,10,btex $b$ etex); cotationmil(A,B,-2mm,10,btex $B$ etex); 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; cotationmil(A,B,-2mm,10,btex $c$ etex); 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; cotationmil(A,C,-0.3cm,10,btex $D$ etex); 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); cotationmil(A,B,-2mm,10,btex $c$ etex); 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); cotationmil(A,B,0,10,btex $r$ etex); fin; figure(0,0,8u,6u); pair A,B,C,D,E,F,G,H; A=u*(0.75,0.75); B=u*(6,0.75); C=u*(7.25,1.5); D-A=C-B; E=u*(0.75,3); F-E=B-A; G-F=C-B; H-G=D-C; trace A--B--C--G--H--E--cycle; trace E--F--G; trace F--B; trace A--D--H dashed evenly; trace D--C dashed evenly; nomme.llft(A); nomme.lrt(B); nomme.rt(C); nomme.ulft(D); nomme.ulft(E); nomme.lrt(F); nomme.rt(G); nomme.ulft(H); fin; figure(0,0,8u,6u); pair A,B,C,D,E,F,G,H,I,J; A=u*(0.75,1); B=u*(2.25,0.5); C=u*(7,2); D=u*(5,2.5); E=u*(3,2.5); F=A shifted(u*(0,3)); G-B=F-A; H-C=F-A; I-D=F-A; J-E=F-A; trace A--B--C--H--I--J--F--cycle; trace F--G--H; trace G--B; trace A--E--D--C dashed evenly; trace J--E dashed evenly; trace I--D dashed evenly; trace hachurage(A--B--C--D--E--cycle,60,0.2,0); fin; figure(0,0,8u,6u); pair A,O,B,O',C,D; O=u*(7,3); O'=u*(1,3); path cc,cd; cc=cercles((0,0),2u); cd=cc xscaled 0.25; draw cd shifted O; A=(point(3*length cd/4) of cd) shifted O; B-A=O'-O; trace droite(O,O') dashed dashpattern(on12bp off6bp on3bp off6bp); C=symetrie(A,O); D=symetrie(B,O'); trace (subpath(3*length cd/4,5*length cd/4) of cd shifted O') dashed evenly; trace (subpath(1*length cd/4,3*length cd/4) of cd shifted O'); trace A--B; trace C--D; draw hachurage(cd shifted O',60,0.2,0) withcolor noir; nomme.top(O); nomme.lrt(A); nomme.llft(B); fin; figure(0,0,8u,6u); pair A,O,B,O',D; O=u*(7,3); O'=u*(1,3); path cc,cd; cc=cercles((0,0),2u); cd=cc xscaled 0.25; A=(point(3*length cd/4) of cd) shifted O; B-A=O'-O; trace droite(O,O') dashed dashpattern(on12bp off6bp on3bp off6bp); D=symetrie(B,O'); trace (subpath(3*length cd/4,5*length cd/4) of cd shifted O') dashed evenly; trace (subpath(1*length cd/4,3*length cd/4) of cd shifted O'); trace D--O--B; draw hachurage(cd shifted O',60,0.2,0) withcolor noir; fin; figure(0,0,8u,8u); pair A,B,C,D,E,F,H; A=u*(0.75,1); B=u*(3.25,0.5); C=u*(7,2); D=u*(5,2.5); E=u*(2.5,2.5); H=iso(A,B,C,D,E) shifted (u*(1,0)); F=H shifted(u*(0,6)); trace hachurage(A--B--C--D--E--cycle,60,0.2,0) withcolor gris; trace F--H; trace codeperp(F,H,C,5) withpen pencircle scaled 1.5bp; trace A--B--C--F--cycle; trace F--B; trace E--F--D dashed evenly; trace A--E--D--C dashed evenly; fin; figure(0,0,6u,6u); pair O,E; path cc,cd; O=u*(3,3); cc=cercles((0,0),2.5u); cd=cc yscaled 0.15 shifted O; trace cc shifted O; trace subpath(0,length cd/2) of cd dashed evenly; trace subpath(length cd/2,length cd) of cd; trace droite(O,O shifted(u*(0,1))) dashed dashpattern(on12bp off6bp on3bp off6bp); E=point(0.15*length cc) of (cc shifted O); currentpicture:=rotation(currentpicture,O,10); marque_p:="croix"; nomme.urt(E); nomme.lft(O); fin; figure(0,0,9.5u,7.5u); pair A,B,C,D,E,F; A=u*(1,6); F=u*(1,1); E=u*(8,1); D=u*(8,6); C=u*(3,4); B=u*(3,6); trace A--B--C--D--E--F--cycle; trace D--B dashed evenly; trace codeperp(B,A,F,5); trace codeperp(A,F,E,5); trace codeperp(F,E,D,5); trace codeperp(C,B,A,5); cotation(A,B,2mm,2mm,btex $14\,m$ etex); cotation(B,D,2mm,2mm,btex $16\,m$ etex); cotation(D,E,2mm,2mm,btex $48\,m$ etex); cotation(B,C,-3mm,-2mm,btex $12\,m$ etex); cotation(C,D,0,2mm,btex $20\,m$ etex); nomme.ulft(A); nomme.llft(F); nomme.bot(E); nomme.urt(D); nomme.bot(C); labeloffset:=3*labeloffset; nomme.top(B); labeloffset:=labeloffset/3; fin; figure(0,0,8u,10u); pair A,B,C,O; O=u*(4,4); path cc,cd; cc=cercles(O,3u); B=point(length cc/2) of cc; C=point(0) of cc; A-O=u*(0,5); trace A--B--arccercle(B,C,O)--cycle; cd=cercles((0,0),3u) yscaled 0.25 shifted O; trace subpath(0,length cd/2) of cd dashed evenly; trace subpath(length cd/2,length cd) of cd; trace B--C dashed evenly; trace A--O dashed evenly; trace codeperp(A,O,C,5); marque_p:="non"; nomme.lft(B); nomme.rt(C); nomme.ulft(O); nomme.top(A); fin; end