В прямоугольном параллелепипеде построить сечение - Pascal ABC

Формулировка задачи:

В прямоугольном параллелепипеде построить сечение, проходящее через одно из его ребер и точку пересечения диагоналей противолежащей этому ребру грани Pascal ABC

Решение задачи: «В прямоугольном параллелепипеде построить сечение»

Листинг программы

uses graphABC;
var cn,a,b,c,x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8:integer;
    s:array of point;
begin
setwindowsize(500,500);
centerwindow;
x:=200;
y:=300;
a:=100;
b:=150;
c:=150;
x1:=x-a;y1:=y-c;
x2:=x+a;y2:=y-c;
x3:=x+a;y3:=y+c;
x4:=x-a;y4:=y+c;
x5:=x-a+round(b*cos(pi/4));
y5:=y-c-round(b*sin(pi/4));
x6:=x+a+round(b*cos(pi/4));
y6:=y-c-round(b*sin(pi/4));
x7:=x-a+round(b*cos(pi/4));
y7:=y+c-round(b*sin(pi/4));
x8:=x+a+round(b*cos(pi/4));
y8:=y+c-round(b*sin(pi/4));
setpencolor(clBlue);
setbrushcolor(clBlue);
setbrushstyle(bsHatch);
Brush.Hatch:=bhBackwardDiagonal;
setlength(s,5);
s[0].x:=(x1+x5) div 2;s[0].y:=(y1+y5) div 2;
s[1].x:=x6;s[1].y:=y6 ;
s[2].x:=x8; s[2].y:=y8;
s[3].x:=(x4+x7) div 2;s[3].y:=(y4+y7)div 2;
s[4]:=s[0];
polygon(s);
setbrushstyle(bsClear);
setpencolor(clBlack);
rectangle(x1,y1,x3,y3);
moveto(x1,y1);
lineto(x5,y5);
lineto(x6,y6);
lineto(x2,y2);
moveto(x6,y6);
lineto(x8,y8);
lineto(x3,y3);
setpenstyle(psDash);
line(x7,y7,x5,y5);
line(x7,y7,x8,y8);
line(x7,y7,x4,y4);
line(x4,y4,x5,y5);
line(x1,y1,x7,y7);
end.

Объяснение кода листинга программы

Начинается с подключения модуля graphABC, который позволяет использовать функции для рисования графиков.
Задаются переменные cn, a, b, c, x, y, x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6, x7, y7, x8, y8 и s, которая является массивом точек.
Устанавливаются размеры окна и его центральное положение.
Задаются значения переменных x и y, которые представляют собой координаты центра прямоугольного параллелепипеда.
Вычисляются координаты вершин прямоугольного параллелепипеда, используя формулы для прямоугольного параллелепипеда.
Вычисляются координаты восьми точек, которые представляют собой вершины прямоугольного параллелепипеда, используя формулы для прямоугольного параллелепипеда и функции sin и cos для вычисления углов.
Устанавливаются цвет и стиль кисти и пера, а также цвет заливки.
Создается массив s, содержащий пять точек.
Первые четыре точки массива s задаются координатами вершин прямоугольного параллелепипеда.
Пятая точка массива s вычисляется как среднее значение между точками с индексами 0 и 4.
Шестая точка массива s задается координатами (x6, y6).
Седьмая точка массива s задается координатами (x8, y8).
Восьмая точка массива s вычисляется как среднее значение между точками с индексами 4 и 7.
Полигон рисуется с использованием массива s.
Стиль кисти сбрасывается, чтобы можно было рисовать линии.
Рисуется прямоугольник с координатами (x1, y1) до (x3, y3).
Перемещается перо к точке (x1, y1).
Рисуется линия от (x1, y1) до (x5, y5).
Рисуется линия от (x6, y6) до (x8, y8).
Рисуется линия от (x2, y2) до (x6, y6).
Рисуется линия от (x3, y3) до (x7, y7).
Устанавливается пунктирный стиль для линии.
Рисуется линия от (x7, y7) до (x5, y5).
Рисуется линия от (x7, y7) до (x8, y8).
Рисуется линия от (x7, y7) до (x4, y4).
Рисуется линия от (x4, y4) до (x5, y5).
Рисуется линия от (x1, y1) до (x7, y7).