-
Похожий контент
-
- 0 ответов
- 1 111 просмотр
-
- 0 ответов
- 1 016 просмотров
-
- 6 ответов
- 1 764 просмотра
-
- 4 ответа
- 1 022 просмотра
-
- 0 ответов
- 907 просмотров
-
- 2 ответа
- 1 937 просмотров
-
- 4 ответа
- 2 701 просмотр
-
- 1 ответ
- 5 777 просмотров
-
- 1 ответ
- 2 956 просмотров
-
- 5 ответов
- 4 025 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
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;
На изображении результат работы программы.
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.