Link to home
Start Free TrialLog in
Avatar of 3dStudent
3dStudent

asked on

2d to 3d

Hello,
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..

_____________________________start_________________________________

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  inc(numPoints2d);
 
      if numPoints2d > 50 then
      ShowMessage ('Too many points');

    points2d[numPoints2d] := point(X, Y);
      canvas.lineTo(x, y);

     end;

______________________________End__________________________________________

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

Mark Bowles
Avatar of Slavak
Slavak

Use OpenGL. It should be simple

 
ASKER CERTIFIED SOLUTION
Avatar of Slavak
Slavak

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
3dStudent:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.