function Theorafile_Open(filename)
{
	var address = TheorafileGMS_Open(filename);
	if (address == 0)
	{
		show_debug_message("Could not open theora video at filename: " + filename);	
		return;
	}
	
	var _yWidth = TheorafileGMS_Width(filename);
	var _yHeight = TheorafileGMS_Height(filename);
	var _frames_per_second = TheorafileGMS_FPS(filename);
	var _uvWidth = TheorafileGMS_UVWidth(filename);
	var _uvHeight = TheorafileGMS_UVHeight(filename);
	
	return {
		handle: ptr(address),
		yWidth: _yWidth,
		yHeight: _yHeight,
		uvWidth: _uvWidth,
		uvHeight: _uvHeight
		framesPerSecond: _frames_per_second,
	};
}

function Theorafile_Close(pointer)
{
	TheorafileGMS_Close(pointer)	
}

function Theorafile_Play(pointer)
{

}