[M.A.D.M.A.N.]

Код:

procedure LineToXYZ(x,y,z:real);
begin
 form1.canvas.lineto(trunc(((y*cos(alf)-x*sin(alf))*cos(gam)+(z*cos(bet)
  +(x*cos(alf)+y*sin(alf))*sin(bet))*sin(gam))*zum+form1.Width/2),
  trunc(-((z*cos(bet)+(x*cos(alf)+y*sin(alf))*sin(bet))*cos(gam)-(y*cos(alf)-
  x*sin(alf))*sin(gam))*zum+form1.Height/2));
end;

procedure MoveToXYZ(x,y,z:real);
begin
 form1.canvas.moveto(trunc(((y*cos(alf)-x*sin(alf))*cos(gam)+(z*cos(bet)
  +(x*cos(alf)+y*sin(alf))*sin(bet))*sin(gam))*zum+form1.Width/2),
  trunc (-((z*cos(bet)+(x*cos(alf)+y*sin(alf))*sin(bet))*cos(gam)-(y*cos(alf)-
  x*sin(alf))*sin(gam))*zum+form1.Height/2));

Была уже по моему подобная тема.
end;
[/code]