Поиск сообщества
Показаны результаты для тегов 'line'.
Найдено: 2 результата
-
Здравствуйте, для проекта понадобилось рисовать линии в 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; На изображении результат работы программы.
-
Здравствуйте, Как можно рисовать линии в 3D (как например в канвасе MoveTo и LineTo) у меня есть две точки A(x1,y1,z1) и B(x2,y2,z2)
