Page 1 of 1

How to draw a closed 3D surface ?

Posted: Sun Jul 08, 2007 4:24 pm
by 9240636
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

Posted: Mon Jul 09, 2007 9:14 am
by 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.

3rd party ?

Posted: Tue Jul 10, 2007 11:06 pm
by 9240636
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

Posted: Fri Jul 13, 2007 10:57 am
by Pep
Hi Theo,

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