-
Похожий контент
-
- 0 ответов
- 1 263 просмотра
-
- 0 ответов
- 1 156 просмотров
-
- 6 ответов
- 2 032 просмотра
-
- 4 ответа
- 1 175 просмотров
-
- 0 ответов
- 1 055 просмотров
-
- 2 ответа
- 2 115 просмотров
-
- 4 ответа
- 2 988 просмотров
-
- 1 ответ
- 5 945 просмотров
-
- 1 ответ
- 3 115 просмотров
-
- 5 ответов
- 4 197 просмотров
-
-
Последние посетители 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 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.