#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3		// Use modern global access method and strict wave access.


FUNCTION Sample_Video()

	Make/O/D/N=100 wX=p, wXy=2*p
	
	Variable vMake_Cels=0
	
	String strCel_Base_Name="Movie_Frame_"
	String strCel_Path="My Computer:Pictures:Pictures_For_Movie"
	String strCel_Number
	
	Variable iDex
	FOR(iDex=0;iDex<numpnts(wX);iDex+=1)
		IF(iDex==0)
			Display wY[0,iDex] vs wX[0,iDex]
		ELSE
			AppendToGraph  wY[0,iDex] vs wX[0,iDex]		//The trace name for this will be wY#1
			RemoveFromGraph wY									//Removes the old trace, and now the new trace has the name wY
		ENDIF		//End checking to see if we are on the first point or not
		
		DoUpdate			//VERY important!  Must have this for the code to work
		
		IF(vMake_Cels)
			sprintf strCel_Number, "%08d", iDex		//Using %08d so we (hopefully) don't have to worry about running out of digits
			SavePICT/O/E=6/B=144 as strCel_Path+strCel_Base_Name+strCel_Number+".jpg"
		ELSE
			Sleep/T 20		//If not making the cels, pause execution briefly
		ENDIF		//End checking to see if we are making cels or not
	ENDFOR		//End looping over the points in the wave
	
END