input geometriesyr16; pair A,B,C,D; figure(0,0,5u,5u); A=u*(0.5,0.5); B-A=u*(1,0.5); C-B=u*(0,3); D-A=C-B; trace polygone(A,B,C,D); fin; figure(-2u,-1u,5u,5.5u); A:=u*(0.5,3.5); B:=u*(3,1); C:=3/5[B,rotation(A,B,90)]; D:=A-B+C; trace polygone(A,B,C,D); fin; figure(0,0,5u,5u); A:=u*(0.5,3); B:=A+u*(1,-2); C:=u*(1,0)+B; D:=A+u*(1,1); trace polygone(A,B,C,D); fin; end