Capturing Max window to video example

' Include AVITool
Include "AVITool.bmx"

' Create AVI Writer class
Global AVIWriter:TAVIWriter = New TAVIWriter

' Never forget this one
If (Not AVITool_Init())

	Notify("Failed to init AVITool! See debug log for more info.")
	Return

End If

' Setup windowed graphics
Graphics 640,480

' HWND comes from DirectX. TODO: Fix to work in GL mode too.
Local hWnd:Int = Primarydevice.hwnd

' Init AVI writer
If (Not AVIWriter.Open("test.avi", 640, 480, 60, hWnd))

	Notify("Failed to open file for writing!")
	Return

End If


' Loop until escape, recording every step of the way
While(Not KeyHit(KEY_ESCAPE))
	
	' Random square color
	SetColor(Rand(0,255), Rand(0,255), Rand(0,255))
	
	' Random square
	DrawRect(Rand(0, 640), Rand(0, 480),10,10)
	
	' Set white color for text
	SetColor(255,255,255)
	
	' Draw text
	DrawText("Hello this!", Rand(0, 640), Rand(0, 480))
		
	' Update screen
	Flip()
	
	' Write to AVI
	AVIWriter.WriteFrame()

Wend

' Close AVI writer. Never forget this or file will be corrupt.
AVIWriter.Close()

' Include AVITool
Include "AVITool.bmx"

' Create AVI Reader class
Global AVIReader:TAVIReader = New TAVIReader

' Never forget this one
If (Not AVITool_Init())

	Notify("Failed to init AVITool! See debug log for more info.")
	Return

End If

' Setup windowed graphics
Graphics 640,480

' Init AVI reader and store number of frames
Global numFrames:Int = AVIReader.Open("test.avi", 640, 480)
If (numFrames = 0)

	Notify("Init error!")
	Return

End If

' Keep track of current frame
Global curFrame:Int = 0

' Loop until escape is pressed
While(Not KeyHit(KEY_ESCAPE))
	
	' Clear screen
	Cls
	
	' Read frame
	Local frame:Byte Ptr = AVIReader.ReadFrame(curFrame)
	
	' Bump frame count
	curFrame:+1
	
	' Beyond numframes? If so, reset
	If (curFrame > numFrames)
	
		curFrame = 0
	
	End If
	
	' Use software render
	AVIReader.DrawSoftware(frame)		
					
	' Update screen
	Flip()

Wend

' Close AVI reader
AVIReader.Close()