Лозовский Даниил ДЗ1(Asymptote) рисунок 7

import geometry;
defaultpen(fontsize(8pt));
dotfactor=5;
size(9cm,0);
point A, B, C, D, A1, B1, K, L, M, N1, M1, F;
D=(0,0); A=1.75*dir(75); C=3*dir(0); B=2.5*dir(30);

M=point(A--B, 1/4);
N1=point(C--D, 2/5);
K=intersectionpoint(D--M,A--N1);
L=intersectionpoint(M--C,B--N1);

line DC=line(D,C);
line dA=perpendicular(A,DC);
line dM=perpendicular(M,DC);
line dB=perpendicular(B,DC);

A1=intersectionpoint(dA,DC);
M1=intersectionpoint(dM,DC);
B1=intersectionpoint(dB,DC);

F=intersectionpoint(A1--B,M--M1);

fill(D--A--K--cycle^^B--C--L--cycle,  white+0.2blue);
fill(K--M--L--N1--cycle,  white+0.3red);

markrightangle(size=7, A, A1, D);
markrightangle(size=7, M, M1, D);
markrightangle(size=7, B, B1, D);

draw(A--B--C--D--cycle);
draw(D--M--C^^A--N1--B);
draw(A--A1^^M--M1^^B--B1);
draw(A1--B);

dot(A^^B^^C^^D);
dot(M^^N1^^K^^L);
dot(A1^^M1^^B1);
dot(F);

label("$A$", A, NW);
label("$B$", B, NE);
label("$C$", C, SE);
label("$D$", D, SW);
label("$M$", M, NE);
label("$N$", N1, S);
label("$K$", K, 2*S);
label("$L$", L, 2*NNW);
label("$A_1$", A1, S);
label("$B_1$", B1, S);
label("$M_1$", M1, S);
label("$F$", F, WNW);