Representar coordenadas 3D

[lpmlpm]

Código Delphi [-]
{determina el Punto Tridimensional en el canvas bidimensional... }
function  TForm1.Get2DPoint(X, Y, Z: Extended): TPoint;
begin
  Result := Point(Round(XCen + Ratio * (X - Y * 1/sqrt(2))),
                  Round(YCen + Ratio * (-Z + y *1/sqrt(2))));
end;

Con esta funcion jugando con las variables internas puedes dibujar en un lienzo 2D coordenadas en 3D, cambiando el valor de las constantes y variables que se usan en la funcion se puede escalar, trasladar, y cambiar la perspectiva de manera un tanto dinámica... las variables XCen y YCen pueden ser las coordenadas del centro de tu formulario para que se dibuje a partir del centro....

Ojalá te sirva para comenzar...

http://cgarcia.blogspot.com

[blueicaro]

Hola he estado probando la función que puso en su respuesta lpmlpm, y acabo de ver como funciona.

He hecho un programita que pinta un recta en un componente TImage, la recta es "paralela al horizonte" ya que el punto de partida es 100,30 y el final 400,30

Como la función del compañero lpmlpm convierte coordenadas 3D en 2D, de partida he puesto 0 en Z, y salió la recta que os comento.

He experimentado con las variables XCen y YCen, y definen el desplazamiento del origen de coordenadas respecto al origen de TImage, que está arriba a la izquierda. Esto no tiene problema

Luego Ratio, lo puse a 1, porque creo que es un "Ratio" osea la relación.

Mi duda viene que luego he ido variando la coordenada Z del punto final de la recta, y si pongo valores positivos la recta pierde en lugar de dibujarse paralela como antes, ahora se representa diagonal hacia arriba si los valores son positivos.

Vamos que no tengo muy claro donde esta punto de vista, osea como está el sistema de coordenadas.

Aquí os dejo lo que he escrito para probar, os dejo la rutina donde se dibuja todo, es fácil reconstruir el resto del programa por si alguien quiere esperimentar, y si alguien lo quiere, que me lo pida.

Saludos
/BlueIcaro

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
Var
 Punto1 ,
 Punto2 : Tpoint;
 Z : integer;
begin
 Xcen := StrToInt (Edit1.Text); // Desplazamiento X
 YCen := StrToInt (Edit2.Text); // Desplazamiento Y
 Z := StrToInt (Edit3.text); // Z del segundo Punto
 Punto1 := Get2DPoint (100,30,0);
 Punto2 := Get2DPoint (400,30,Z);

  Image1.Canvas.MoveTo(Punto1.X,Punto1.Y);
  Image1.Canvas.Lineto(Punto2.x,punto2.y);
end;

[OSKR]

blueicaro:

te refieres a convertirlas a polares?

Pos claro!! para rotar un punto tantos grados puedes hacerlo de esa manera, aunq si te sienta mejor la solucion de lpmlpm ....pues usa esa, hasta cierto punto implementa a lo q me refiero pero siempre rota en 45º ya q es el equivalente pal seno y el coseno de ese angulo