[Back to MATH SWAG index]  [Back to Main SWAG index]  [Original]

{
> Could someone please explain how to plot a 3-D points? How do you convert
> a 3D XYZ value, to an XY value that can be plotted onto the screen?
}

Function x3d(x1, z1 : Integer) : Integer;
begin
  x3d := Round(x1 - (z1 * Cos(Theta)));
end;

Function y3d(y1, z1 : Integer) : Integer;
begin
  y3d := Round(y1 - (z1 * Sin(Theta)));
end;

{
So a Function that plots a 3d pixel might look like this:

Procedure plot3d(x, y, z : Integer);
begin
  plot(x3d(x, z), y3d(y, z));
end;

The theta above is the angle on the screen on which your are "simulating"
your z axis.  This is simplistic, but should get you started.  Just remember
you are simulating 3 dimensions on a 2 dimension media (the screen).  Trig
helps. ;-)
}

[Back to MATH SWAG index]  [Back to Main SWAG index]  [Original]