-
Похожий контент
-
- 0 ответов
- 1 275 просмотров
-
- 0 ответов
- 1 174 просмотра
-
- 6 ответов
- 2 068 просмотров
-
- 4 ответа
- 1 188 просмотров
-
- 0 ответов
- 1 071 просмотр
-
- 2 ответа
- 2 129 просмотров
-
- 4 ответа
- 3 059 просмотров
-
- 1 ответ
- 5 971 просмотр
-
- 1 ответ
- 3 140 просмотров
-
- 5 ответов
- 4 225 просмотров
-
-
Последние посетители 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 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.