How to draw a closed 3D surface ?
Posted: Sun Jul 08, 2007 4:24 pm
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
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