Make Movie from Page Layout

#pragma rtGlobals=3		// Use modern global access method.

Menu "Macros"
	"Make Movie From Top Layout", MakeMovieFromTopLayout(5)
End

Function ComputeNextFrame(frameNumber)		// You will need to customize this function
	Variable frameNumber
	
	Wave jack, joe
	
	jack = sin(x/(1+frameNumber))
	joe = cos(x/(1+frameNumber))
End

Function MakeMovieFromTopLayout(numFrames)	// Creates movie named "LayoutMovie.mov" in Igor Pro Folder.
	Variable numFrames
	
	String layoutName = WinName(0, 4)			// Name of top layout
	if (strlen(layoutName) == 0)
		Abort "There are no layouts"
	endif
	
	String tempDirFullPath = SpecialDirPath("Temporary", 0, 0, 0)
	NewPath/O/Q TempLayoutMoviePath, tempDirFullPath

	Variable frameNumber

	SavePICT/O/P=TempLayoutMoviePath/E=-5 as "TempLayoutPICT"
	LoadPICT/Q/O/P=TempLayoutMoviePath "TempLayoutPICT", TempLayoutPICT			// Sets S_info
	Variable pictWidth = NumberByKey("PHYSWIDTH", S_info)			// Width of picture in points
	Variable pictHeight = NumberByKey("PHYSHEIGHT", S_info)		// Height of picture in points
		
	Display/W=(5,42,5+pictWidth,42+pictHeight); DoWindow/C TempMovieGraph

	SetDrawEnv xcoord= abs,ycoord= abs
	DrawPICT 0,0,1,1,TempLayoutPICT

	NewMovie/P=TempLayoutMoviePath/L as "LayoutMovie.mov"

	for(frameNumber=0; frameNumber<numFrames; frameNumber+=1)
		ComputeNextFrame(frameNumber)
		
		DoWindow/F $layoutName				// Activate the layout
		DoUpdate								// Make sure it is up-to-date.
	
		SavePICT/O/P=TempLayoutMoviePath/E=-5 as "TempLayoutPICT"
		LoadPICT/Q/O/P=TempLayoutMoviePath "TempLayoutPICT", TempLayoutPICT
		
		DoWindow/F TempMovieGraph			// Activate the graph
		DoUpdate								// Make sure it is up-to-date.						

		AddMovieFrame
	endfor

	CloseMovie
	
	DoWindow/K TempMovieGraph

	PlayMovie/P=TempLayoutMoviePath as "LayoutMovie.mov"
	
	KillPath/Z TempLayoutMoviePath
EndMacro