input geometriesyr16; u:=0.5cm; 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; u:=4mm; 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; u:=5mm; 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; end