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