Перенос Параллелепипеда по осям

[stscolt]

Я написал прогу, где рисуется параллелепипед. Теперь мне нужно его переносить по осям XOY, XOZ, ZOY. Кто знает подскажите. Прога во вложенному архиве. Заранее благодарен.

[Stilet]

Я бы сделал так:
Оформил твое

ax:=0; ay:=h; az:=w;
 a.X:=round(x_n(ax,az));
 a.Y:=round(y_n(ay,az));
 bx:=0; by:=h; bz:=0;
 b.X:=round(x_n(bx,bz));
 b.Y:=round(y_n(by,bz));
 cx:=l; cy:=h; cz:=0;
 c.X:=round(x_n(cx,cz));
 c.Y:=round(y_n(cy,cz));
 dx:=l; dy:=h; dz:=w;
 d.X:=round(x_n(dx,dz));
 d.Y:=round(y_n(dy,dz));
 a1x:=0; a1y:=0; a1z:=w;
 a1.X:=round(x_n(a1x,a1z));
 a1.Y:=round(y_n(a1y,a1z));
 b1.X:=round(x_n(0,0));
 b1.Y:=round(y_n(0,0));
 c1x:=l; c1y:=0; c1z:=0;
 c1.X:=round(x_n(c1x,c1z));
 c1.Y:=round(y_n(c1y,c1z));
 d1x:=l; d1y:=0; d1z:=w;
 d1.X:=round(x_n(d1x,d1z));
 d1.Y:=round(y_n(d1y,d1z));

отдельной роцедурой. А в кнопке переноса вызывал эту процедуру увеличивая соответственно нужную координату, и запускал процедуру отрисовки.
И еще: отрисовку я бы делал в OnPaint

[Utkin]

Я не рассматривал твою прогу, но могу предложить вариант смещения любой фигуры. Для этого ее нужно рисовать всегда относительно одной точки. Ну скажем какого-нибудь нижнего угла паралллепипеда. То есть для его построения задается только одна координата х, у, z. Все остальное строиться исходя из данной координаты.

[Stilet]

То есть для его построения задается только одна координата х, у, z

Судя по коду у автора есть точка опоры:ax:=0; ay:=h; az:=w;