Масшабирование при рисовании фигур Опции

[samec]

Добрый день.
есть пара функций:

{функции перевода из 3d в 2d}
function CoordX(P: tPoint;zoom:real): integer;
begin
 CoordX:=Trunc(centerX+(zoom*P.Y-zoom*P.X));
end;
function CoordY(P: TPoint;zoom:real): integer;
begin
 CoordY:=Trunc(centerY-(zoom*P.Z-zoom*P.X));
end;

все точки для рисования фигуры пользователь вводит сам в массив точек tPoint. Хотелось бы узнать, как в зависимости от того, какие значения координат точек ввел пользователь правильно выбрать zoom? Подскажите