input geometriesyr16
figuremainlevee(0,0,10u,10u);
pair A,B,C,D,O;
A=u*(2,2);
B-A=u*(6,1);
D=3/5[A,rotation(B,A,90)];
C-D=B-A;
O=iso(A,C);
trace polygone(A,B,C,D);
trace codeperp(A,B,C,5);
trace codeperp(B,C,D,5);
trace codeperp(C,D,A,5);
trace codeperp(D,A,B,5);
trace cercles(O,A) dashed evenly;
finmainlevee;
end