Desenhe Esfera no controle TImage do Delphi
Eu quero desenhar a esfera assim:
Abaixo do código é gerado Vértices do Círculo e Desenhando um Círculo no TIMAGE MAS eu quero para SPHERE:
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;