Нарисуйте Сферу на TImage контроля Delphi
Я хочу нарисовать сферу так:
Ниже код генерирует вершины круга и рисует круг на время, но я хочу это для сферы:
for i := 0 to 360 do begin
//Find value of X and Y
pntCordXY.X := Radius * Cos(DegToRad(i));
pntCordXY.Y := Radius * Sin(DegToRad(i));
if i = 0 then
image1.Canvas.MoveTo(Round(pntCordXY.X), Round(pntCordXY.Y))
else
image1.Canvas.LineTo(Round(pntCordXY.X), Round(pntCordXY.Y));
end;