Помогите кто может!Задание для вращающегося куба реализовать алгоритм Робертса .Процедура вращения у меня выполнена отдельно . Это фрагмент именно алгоритма,но он не работает((
procedure TForm1.Button9Click(Sender: TObject);
Function Visibleverge(i:integer): boolean;
Var V1,V2,N: array[1..3] of real;
scalar: real;
j:integer;
Begin
for j:=1 to 3 do begin
V1[j]:=Point [Line[i,2],j]-Point[Line[i,1],j]; // 2 вектора принадлежащие грани куба
V2[j]:=Point[Line[i,3],j]-Point [Line[i,1],j];
End;
N[1]:=V1[2]*V2[3]-V2[2]*V1[3]; // нормали
N[2]:=V1[3]*V2[1]-V2[3]*V1[1];
N[3]:=V1[1]*V2[2]-V2[1]*V1[2];
scalar:=N[1]-N[2]-N[3];
If scalar>0 then
Visibleverge:=true
else
Visibleverge:=false;
END;
Procedure Draw; // рисование
Var
gran: array[1..4] of TPoint;
Matrix:B3; // матрица из процедуры поворота (но не знаю как указать что она из той самой процедуры ,а не из других)
i,j:integer;
begin
for i:=1 To 6 do
begin
If Visibleverge(i) then
begin
for j:=1 to 4 do
begin
gran[j].x:=Matrix[Line[i,j],1];
gran[j].y:=Matrix[Line[i,j],2];
end;
Image1.Picture.Bitmap.Canvas.Pen.Style:=psDot;
end;
End;
end;