input geometriesyr15; figure(0,0,2u,2u) ; vardef carre(expr g,h)= x:=g*cm; y:=h*cm; fill (x,y)--(x+.5*u,y)--(x+.5*u,y+.5*u)--(x,y+.5*u)--cycle withcolor gris; enddef; carre(1,1.5); carre(.5,1); carre(0,.5); carre(1.5,0); trace grille(.5); fin ; figure(0,0,2u,2u) ; vardef trig(expr g,h)= x:=g*cm; y:=h*cm; fill (x,y)--(x+.5*u,y)--(x,y+.5*u)--cycle withcolor gris; enddef; vardef trsd(expr g,h)= x:=g*cm; y:=h*cm; fill (x,y)--(x-.5*u,y)--(x,y-.5*u)--cycle withcolor gris; enddef; vardef trid(expr g,h)= x:=g*cm; y:=h*cm; fill (x,y)--(x-.5*u,y)--(x,y+.5*u)--cycle withcolor gris; enddef; vardef trsg(expr g,h)= x:=g*cm; y:=h*cm; fill (x,y)--(x+.5*u,y)--(x,y-.5*u)--cycle withcolor gris; enddef; trsd(1,1.5); trsg(.5,1); trid(1,1.5); trig(1.5,0); trig(1,.5); trid(1.5,1); %trig(.5,0); trace grille(.5); trace (0,1u)--(1u,0)--(2u,1u)--(1u,2u)--cycle; trace (0,0)--(2u,2u); trace (0,2u)--(2u,0); fin ; figure(0,0,2u,2u) ; carre(0,1); carre(1,0); carre(0,1.5); carre(1,.5); for i:=0 step .5 until 2: trace (i*u,0)--(i*u,2u); endfor; for j:=0 step 1 until 2: trace (0,j*u)--(2u,j*u); endfor; fin ; figure(0,0,2u,2u) ; fill (0,2u)--(1u,0)--(2u,2u)--cycle withcolor gris; for i:=0 step 1 until 2: trace (i*u,0)--(i*u,2u); endfor; for j:=0 step 2 until 2: trace (0,j*u)--(2u,j*u); endfor; trace (1u,0)--(2u,2u); trace (0,2u)--(1u,0); fin ; figure(0,0,1.5u,1.5u) ; carre(0,1); carre(.5,1); carre(0,.5); carre(.5,.5); trace grille(.5); fin ; figure(0,0,3u,1.5u) ; carre(0,1); carre(2.5,1); carre(0,.5); carre(1.5,.5); carre(3,0); carre(.5,0); carre(2,0); trace grille(.5); fin ; figure(0,0,6u,6u) ; trace grille(.5) withcolor blue; origine((0.41,0.41)); unites(1,1); marque_axe:="complete"; trace axes; graduantx.lrt; graduanty.ulft; path pp,ss,triangle; pair A,B,C,D,E,F,G,H,I,O; O=(0,0); a:=4 ; b:=4 ; c:=-a ; d:=-b ; A=u*(c,b) ; B=u*(c,-2) ; C=u*(a,2) ; drawoptions(withcolor rouge); D=CentreCercleC(A,B,C) ; nomme.ulft(A); nomme.lft(B); nomme.rt(C); triangle=A--B--C--cycle; trace triangle; E=symetrie(A,O); F=symetrie(D,O); marque_p:="croix"; nomme.ulft(D); nomme.lrt(E); nomme.llft(F); trace cercles(D,B); trace cercles(F,B) withcolor violet; fin ; end