Проэкции точек на экран

Диметрическая и изометрическая проэкции.

type
point3d = record
x,y,z:real;
end;
point2d = record
x,y:real;
end;

function Dimetric(p3d:point3d):point2d;
with p3d do begin
result.x:=x*cos(w)+z*sin(w);
result.y:=x*sin(q)*cos(w)+y*cos(w)-z*sin(w)*cos(q);
end;
end;

function Izometric(p3d:point3d):point2d;
begin
with p3d do begin
result.x:=x+z*cos(pi/4)/2;
result.y:=y+z*cos(pi/4)/2;
end;
end;