input geometriesyr16; figure(0,0,8u,6u); pair A,B,C,D; C=u*(1,2); D=u*(6,1); B=3/5[C,rotation(D,C,90)]; A=3/5[D,rotation(C,D,-90)]; trace droite(A,D); trace droite(B,C); trace droite(A,B) withcolor violet; trace droite(C,D) withcolor violet; trace codeperp(A,D,C,8); trace marque_para(droite(C,D),droite(A,B),0.2); nomme.ulft(A); nomme.urt(D); nomme.llft(B); nomme.lrt(C); fin; end