How to draw a closed 3D surface ?

[Theo]

Hi,

anybody with an idea how to draw a closed 3D surface, like torus or Moebius strip ?

TTriSurfaceSeries does very poor job, you can try the example below:

procedure TForm1.ToolButton1Click(Sender: TObject);
var i,j,k: integer; q,r,u,v: double;
begin
q:= 10; r:= 2;
for i:=-31 to 31 do
for j:=-31 to 31 do
begin
u:= i/10; v:= j/10;
Series1.AddXYZ(
(q+r*cos(v))*cos(u),
(q+r*cos(v))*sin(u),
r*sin(v)
)
end;
end;

thank you
Teodor

[Pep]

Hi Teodor,

this feature is not yet available, however it's on our wish list to be considered for the next TeeChart Pro releases.

[Theo]

Hi Josep,

I knew that, what I meant was: Do you know 3rd party product which does that OR well explained algo ?
In general, any alternatives to simply wait ?

Theo

[Pep]

Hi Theo,

I'm sorry, I don't know anyone, if I hear something about that I'll let you know.