Построение 2D изображений. 2D аффинные преобразования Продолжение

[Cill]

for i := Low(arrow) to High(arrow) do
arrow2[i] := arrow[i];

SetLength(wall, 8);
//|
wall[0].Xn := pbOut.Width - 50; wall[0].Yn := 120;
wall[0].Xk := pbOut.Width - 50; wall[0].Yk := wall[0].Yn + WallHeight;

wall[1].Xn := pbOut.Width - 50; wall[1].Yn := wall[0].Yn;
wall[1].Xk := pbOut.Width; wall[1].Yk := wall[1].Yn - Round(WallHeight * cos(70* 3.14 / 180));

wall[2].Xn := pbOut.Width - 50; wall[2].Yn := wall[0].Yn;
wall[2].Xk := pbOut.Width; wall[2].Yk := wall[0].Yn;

wall[3].Xn := pbOut.Width - 50; wall[3].Yn := wall[0].Yn + WallHeight;
wall[3].Xk := pbOut.Width; wall[3].Yk := wall[0].Yn + WallHeight;

wall[4].Xn := wall[0].Xn + 10; wall[4].Yn := wall[0].Yn + 10;
wall[4].Xk := wall[4].Xn; wall[4].Yk := wall[4].Yn + 15;

wall[5].Xn := wall[0].Xn + 10 + 15; wall[5].Yn := wall[0].Yn + 10;
wall[5].Xk := wall[5].Xn; wall[5].Yk := wall[5].Yn + 15;

wall[6].Xn := wall[0].Xn + 10; wall[6].Yn := wall[0].Yn + 10;
wall[6].Xk := wall[6].Xn + 15; wall[6].Yk := wall[6].Yn;

wall[7].Xn := wall[0].Xn + 10; wall[7].Yn := wall[0].Yn + 10 + 15;
wall[7].Xk := wall[7].Xn + 15; wall[7].Yk := wall[7].Yn;

Trans(wall[4].Xn, wall[4].Yn);
for i := Low(arrow) to High(arrow) do
arrow[i] := arrow2[i];

ReSize(5.5);
for i := Low(arrow) to High(arrow) do
arrow[i] := arrow2[i];

Turn(40 * 3.14/ 180, (arrow2[0].Xn + arrow2[0].Xk) div 2, (arrow2[0].Yn + arrow2[0].Yk) div 2);
for i := Low(arrow) to High(arrow) do
arrow[i] := arrow2[i];

y1 := Round(0.0002 * (wall[4].Xn - 1) * (wall[4].Xn - 1) ) + 92;
SetLength(traek, Length(traek) + 1);
traek[High(traek)].X := wall[4].Xn - 1;
traek[High(traek)].y := y1;
for i := wall[4].Xn - 1 downto wall[4].Xn - 50 do
begin
SetLength(traek, Length(traek) + 1);
y2 := Round(0.0002 * i * i ) + 92;
traek[High(traek)].X := i;
traek[High(traek)].y := y2;
y1 := y2;
end;

y1 := Round(10000 / (wall[4].Xn - 50) )+ 100;;
SetLength(traek, Length(traek) + 1);
traek[High(traek)].X := wall[4].Xn - 50;
traek[High(traek)].y := y1;
for i := wall[4].Xn - 50 downto 40 do
begin
SetLength(traek, Length(traek) + 1);
y2 := Round(10000 / i )+ 100;
traek[High(traek)].X := i;
traek[High(traek)].y := y2;
y1 := y2;
end;
end;

[Stilet]

Кросспост наказуем.
продолжай в предидущей теме