[pax]

чет я накосячил

Procedure Rotate3D;
var 
  i: integer;
begin
	for i:=1 to numpoints do
 begin
 	RotatePoint(i);
 end;
end;

Замените эту функцию в проге... так у меня работает приблинительно со скоростью 4-6 кадров в секунду...