macro MakeMovie;
{ Makes a QuickTime movie of a 3D rendered plot }
var
	str255 : name,fileName;
	longint : count;
	real : phi;
begin
	DisposeUnclose;
	name:='NewData';
	NewData(name,64,64,0,FALSE);
	SetRoiRect(name,30,30,38,34);
	FillRoi(name,1);
	FFT2D(name,'',64,64,0,'plot','phase');
	DisposeData('phase');
	DisposeData(name);
	name:='plot';
	SetGeneral(name,1,1,1,1,1,1,FALSE,FALSE,TRUE);
	Set3DLight(name,45.000,0.000,0.000,0.000,0.800,0);
	Set3DView(name,-45,70,1,1,1,0.3);
	SetWindowSize(name,240,240,FALSE);
	Set3DFillType(name,'RENDERED',FALSE);
	SetClut('Gray Scale');
	phi:=-45;
	StartMovie('Rotate',240,240,1);
	SetPlot(name,'3D Plot');
	for(count,0,10)
		Set3DView(name,phi,70,1,1,1,0.3);
		MoviePlot(name);
		inc(phi,12);
	endfor;
	StopMovie;
	PlotData(name,'Color Contour Plot',TRUE);
end;
