input geometriesyr16; figure(0,0,15u,4u); u:=7.5mm; pair A,B,C,D; picture im[]; A=u*(1,1); B=u*(4,1); C=u*(4,3); D=u*(1,3); path cc; cc=polygone(A,B,C,D); im1=image( trace cc; trace segment(1.25[D,B],1.25[B,D]) dashed evenly; ); im2=image( trace cc; trace perpendiculaire(A,B,iso(C,D)) dashed evenly; ); im3=image( trace cc; trace segment(1.25[iso(A,D),iso(B,C)],1.25[iso(B,C),iso(A,D)]) dashed evenly; ); im4=image( trace cc; trace segment(1.25[A,C],1.25[C,A]) dashed evenly; ); for k=0 upto 3: trace im[k+1] shifted (k*u*(4,0)); endfor; fin; end