input geometriesyr.mp ; %---------------------------------------------------------------------------- % Exercice 2 géométrique %---------------------------------------------------------------------------- u:=0.75cm; figure (-8u,-8u,10u,20u); pair A,S,B,C,D,E,F,G,H; A=(0,0); S=(0,5u); B=(0,8u); C=(0,14u); D=(0,17u); E=(-u,8u); F=(u,8u); G=(-3u,14u); H=(3u,14u); path cc; cc:= cercles(A,u); cc := cc yscaled 0.2; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; cc := cc shifted B; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; draw (-u,0)--E; draw (u,0)--F; draw E--S--F dashed evenly; draw E--G; draw F--H; cc :=cercles(C,3u); draw subpath(0,length cc /2) of cc; cc := cercles(A,3u); cc := cc yscaled 0.2; cc:= cc shifted C; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; cotation(H,G,16u,2mm,btex 6cm etex rotated 180); cotation((u,0),(-u,0),5mm,2mm,btex 2cm etex rotated 180); cotation(A,S,35mm,8mm,btex 5cm etex rotated -90); cotation(S,B,35mm,8mm,btex 3cm etex rotated -90); cotation(B,C,35mm,8mm,btex 6cm etex rotated -90); cotation(C,D,35mm,8mm,btex 3cm etex rotated -90); fin; %--------------------------------------------------------------------------- %--------------------------------------------------------------------------- end ;