Перейти к содержанию
Fire Monkey от А до Я
  • 0

Неправильно отображается 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;

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

Снимок1.PNG

Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...