Курсовая работа: Моделирование геометрического паркета из пятиугольников и шестиугольников

xx:=xx+a+a3+a5+a11; yy:=yy-a4-a6-a12;

for i:=1 to 10 do begin

xe:=x; ye:=y;

xa:=x+a; ya:=y;

xd:=x+a1; yd:=y-a2;

xc:=x+a1+a3; yc:=y-a2-a4;

xb:=x+a1+a3+a5; yb:=y-a2-a4-a6;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xe:=x+a+a1+a3+a5; ye:=y-a2-a4-a6;

xa:=x+a1+a3+a5; ya:=y-a2-a4-a6;

xd:=x+a+a3+a5; yd:=y-a4-a6;

xc:=x+a+a5; yc:=y-a6;

xb:=x+a; yb:=y;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xe:=x+a1+a3+a5+a7; ye:=y-a2-a4-a6-a8;

xa:=x+a1+2*a3+a5+a7; ya:=y-a2-2*a4-a6-a8;

xd:=x+a1+a3+a5; yd:=y-a2-a4-a6;

xc:=x+a+a1+a3+a5; yc:=y-a2-a4-a6;

xb:=x+a+a1+a3+a5+a9; yb:=y-a2-a4-a6-a10;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xd:=x+a; yd:=y;

xc:=x; yc:=y;

xe:=x+a-a7; ye:=y+a8;

xa:=x+a-a3-a7; ya:=y+a4+a8;

xb:=x-a11; yb:=y+a12;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);