Неправильно отображается 3D линия

[Jeysi Z]

Здравствуйте, для проекта понадобилось рисовать линии в 3d графике, но возникла такая проблема, можете подсказать, что не так?

Вот часть кода

procedure TForm2.Sphere1Render(Sender: TObject; Context: TContext3D);
var v1,v2:TPoint3D;
begin
  if Context.BeginScene then
  try
    v1:=TPoint3D.Create(Sphere1.Position.X,Sphere1.Position.Y,Sphere1.Position.Z);
    v2:=TPoint3D.Create(Sphere2.Position.X,Sphere2.Position.Y,Sphere2.Position.Z);
    Context.drawline(v1,v2,1,TAlphaColorRec.Black);
  finally
    Context.EndScene;
  end;
end;

На изображении результат работы программы.

[Alexander]

Координаты v1,2 в осях сцены, а рендер происходит для первой сферы. Таким образом, глобальные координаты сфер, вы привязываете к сфере1

[Jeysi Z]

Огромное спасибо, всё понял, теперь в центр Viewport3D ставлю Dummy и на нём делаю рендер.

Изменено 12 декабря, 2017 пользователем Jeysi Z