2d to 3d
Posted on 2003-03-28
As part of a project i have been asked to create a program to produce 3d objects from 2 dimentional profiles via a volume sweep.
Can you tell me how to do this in Delphi, the code i am using to create the 2d line drawings is below..
procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
if numPoints2d > 50 then
ShowMessage ('Too many points');
points2d[numPoints2d] := point(X, Y);
I am storing the points data in an array
points2d : array[1..50] of Tpoint;
In addition to the above i will need to draw a 3d sphere but i have no idea how to do this, can you help?
Thanking you in advance