[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]