Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 154
  • Last Modified:

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
0
3dStudent
Asked:
3dStudent
  • 2
1 Solution
 
SlavakCommented:
Use OpenGL. It should be simple

 
0
 
SlavakCommented:
Additional point:

Youn can use Polygon function to draw this series of lines.
It should be faster.

regards.
0
 
CleanupPingCommented:
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.
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now