1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function x3d2d(x,z:real):real;
begin
  //result:=(x+1*z); //funktioniert gut, aber probleme beim rotieren
  result:=ZOOMFAKTOR * (x / (1 + z)); //funktioniert überhaupt nicht
end;
function y3d2d(y,z:real):real;
begin
//  result:=(y+1*z); //funktioniert gut, aber probleme beim rotieren
  result:=ZOOMFAKTOR * (y / (1 + z) ); //funktioniert überhaupt nicht
end;					

1:

  (y + 1 * z)					

1:

y+z					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type 
 TVek3d=record
  x,y,z:real;
  end;

//...//

procedure TMATHE.ZeichnePunkt(pkt1:TVek3d);
begin
CANVAS.PutPixel(VNULLX+x3d2d(pkt1.x,pkt1.z),VNULLY-y3d2d(pkt1.y,pkt1.z),RED,fxBlend);
end;					

1:
2:
3:
4:
5:

function TMatrixrechnung.Auf2DProjizieren(a:TVektor;P:TProjektionsMatrix):TPoint;
begin
result.X := round(fVR.mal(fVR.Vektor(P.x1,P.x2,P.x3),a));
result.Y := round(fVR.mal(fVR.Vektor(P.y1,P.y2,P.y3),a));
end;					

1:
2:

V2d.x := -0.5 * V3d.x +  V3d.y;
V2d.x := -0.5 * V3d.x +  V3d.z;					

1:
2:
3:
4:
5:
6:
7:

     y |   .
       |  .
       | .
-------.---------- x
      .|
     . | 
   z.  |					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function x3d2d(x,z:real):real;
begin
  result:=(x*ZOOMFAKTOR)/(z+ZOOMFAKTOR);
end;

function y3d2d(y,z:real):real;
begin
  result:=(y*ZOOMFAKTOR)/(z+ZOOMFAKTOR);
end;