[Delphi] Calcolare la posizione 3D di un poligono

[DanieleC88]

Sto cercando di fare un motore 3D con GDI, solo per capire un pò come funziona il 3D.

Ecco il codice che uso:

type
    {Point}
    Point3D =        record
                       X,           //X coordinate
                       Y,           //Y coordinate
                       Z: LongInt;  //Profondity
                     end;
    {Face}
    Face3D =         record
                       Points:  array[1..4] of Point3D;
                       Colour:  TColor;
                       Texture: TPicture;
                     end;
    {Box}
    Box3D  =         record
                       Faces: array[1..6] of Face3D;
                     end;
    {Position}
    Position3D =     record
                       W: Point3D;  //Looking point
                       X,           //X coordinate
                       Y,           //Y coordinate
                       Z: LongInt;  //Profondity
                     end;

procedure DrawBox(const C: TCanvas; const B: Box3D; const pP: Position3D); overload;
var
   F,                        //Faces
   P,                        //Points
   pMax,                     //Z-Point Max
   pMin: LongInt;            //Z-Point Min
   zDiff,                    //Difference
   T,                        //Temp
   S: Extended;              //Step
   pARR: array of TPoint;    //Point array
begin
     C.FillRect(C.ClipRect);
     for F:=1 to 5 do //Low(B.Faces) to High(B.Faces) do
     begin
          SetLength(pARR, High(B.Faces[F].Points));
          pARR[Low(B.Faces[F].Points)].X:=0;
          pARR[Low(B.Faces[F].Points)].Y:=0;
          for P:=Low(B.Faces[F].Points) to High(B.Faces[F].Points) do
          begin
               zDiff:=(pP.Z - B.Faces[F].Points[P].Z);
               S:=GetLowerThan(zDiff, 1);
               //S:=1;
               T:=(B.Faces[F].Points[P].X - pP.X);
               T:=(T + zDiff);
               T:=(T * S);
               pARR[P-1].X:=B.Faces[F].Points[P].X;
               pARR[P-1].X:=Trunc(T); //mod fWidth);

               T:=(B.Faces[F].Points[P].Y - pP.Y);
               T:=(T + zDiff);
               T:=(T * S);
               pARR[P-1].Y:=B.Faces[F].Points[P].Y;
               pARR[P-1].Y:=Trunc(T); //mod fHeight);
          end;
          //SetDCBrushColor(DC, B.Faces[F].Colour);

          C.Polygon(pARR);
          (* C.Brush.Color:=0;
          C.FloodFill(
                      (pARR[Low(B.Faces[F].Points)].X - 1),
                      (pARR[Low(B.Faces[F].Points)].Y - 1),
                      B.Faces[F].Colour,
                      fsBorder
                     ); *)
          {FloodFill(DC,
                    (pARR[Low(B.Faces[F].Points)].X + 1),
                    (pARR[Low(B.Faces[F].Points)].Y + 1),
                    B.Faces[F].Colour
                   );}
     end;
end;

Questo codice non funziona un granchè... Ma non riesco a trovare gli errori: sono nuovo a questo tipo di programmazione grafica e non saprei proprio da dove cominciare. Cercate di aiutarmi, siate buoni !

[cionci]

Non mi sembra ilc aso di rimettersi ad inventare l'acqua calda...
OpenGL gestisce perfettamente le matrici di traslazione e rotazione per posizionare gli oggetti nello spazio 3D...

[verloc]

vai qua

http://homepages.borland.com/efg2lab/index.html

alla sezione grafica.

Devi imparare come si trasformano le coord reali in coordinate device.
Comunque una volta capito il meccanismo teorico,dovresti usare un componente.

[cionci]

http://www.makegames.com/3drotation/

[DanieleC88]

Vi ringrazio infinitamente, i link sono utilissimi. Cmq, cionci, semplicemente (come avevo già scritto) mi serve per capire come funzionano i motori 3D... le mie intenzioni sono ben distanti dalla creazione di un motore 3D...