Function DrawTexturedPoly( image:TImage,xyuv:Float[],frame:Int=0, vertex:Int = -1)
	Local handle_x#,  handle_y#
	GetHandle handle_x#,  handle_y#
	Local origin_x#,  origin_y#
	GetOrigin origin_x#,  origin_y#	
	
	Local D3DDriver:TD3D7Max2DDriver = TD3D7Max2DDriver(_max2dDriver)
	
	Assert Image, "Image not found"
	
	If D3DDriver Then 
		DrawTexturedPolyD3D ..
			D3DDriver,..
			 TD3D7ImageFrame(image.Frame(frame)), ..
			 xyuv, handle_x, handle_y, origin_x,origin_y, vertex*4
		Return
	End If
	Local  OGLDriver:TGLMax2DDriver = TGLMax2DDriver(_max2dDriver)
	If OGLDriver Then
			DrawTexturedPolyOGL ..
				OGLDriver,..
				 TGLImageFrame(image.Frame(frame)), ..
				 xyuv, handle_x, handle_y, origin_x,origin_y,  vertex*4
		Return
	End If
	Print "NO Driver"
End Function

Import maxgui.drivers
SetGraphicsDriver(GLMax2DDriver() ) 
CreateWindow("" , 0 , 0 , 100 , 100 , Null) 
If TGLMax2DDriver( GetGraphicsDriver())<>Null Print "yeah!" 

Function DrawTexturedPolyD3D( Driver:TD3D7Max2DDriver,  Frame:TD3D7ImageFrame,xyuv#[],handlex#,handley#,tx#,ty# , vertex:Int)
	'If Driver.islost Return
	If xyuv.length<6 Return
	Local segs:Int=xyuv.length/4
	Local len_:Int = Len(xyuv)
	
	If vertex > - 1 Then
		segs = vertex / 4
		len_ = vertex
	End If
	Local uv#[] = New Float[segs*6] ' 6
	

	Local c:Int Ptr=Int Ptr(Float Ptr(uv))
	
	Local ii:Int = 0
	For Local i:Int=0 Until len_ Step 4
		Local x# =  xyuv[i+0]+handlex
		Local y# =  xyuv[i+1]+handley
		uv[ii+0] =  x*Driver.ix+y*Driver.iy+tx
		uv[ii+1] =  x*Driver.jx+y*Driver.jy+ty 
		uv[ii+2] =  0  ' *********** THIS IS THE Z-COORDINATE
		c[ii+3] = Driver.DrawColor
		uv[ii+4] =  xyuv[i+2]
		uv[ii+5] =  xyuv[i+3]
		ii:+6
	Next
	Driver.SetActiveFrame Frame
	Driver.device.DrawPrimitive(D3DPT_TRIANGLEFAN,D3DFVF_XYZ| D3DFVF_DIFFUSE | D3DFVF_TEX1,uv,segs,0)
End Function

Function DrawTexturedPolyOGL (Driver:TGLMax2DDriver, Frame:TGLImageFrame, xy#[],handle_x#,handle_y#,origin_x#,origin_y#, vertex:Int) 
	Private
	Global TmpImage:TImage
	Public
	
	If xy.length<6 Return
	
	Local rot#  = GetRotation()
	Local tform_scale_x#, tform_scale_y#
	GetScale tform_scale_x, tform_scale_y
	
	Local s#=Sin(rot)
	Local c#=Cos(rot)
	Local ix:Int= c*tform_scale_x
	Local iy:Int=-s*tform_scale_y
	Local jx:Int= s*tform_scale_x
	Local jy:Int= c*tform_scale_y
	
	glBindTexture GL_TEXTURE_2D, Frame.name
	glEnable GL_TEXTURE_2D
	
	glBegin GL_POLYGON
	For Local i:Int=0 Until Len xy Step 4
		If vertex > -1 And i >= vertex Then Exit
		Local x#=xy[i+0]+handle_x
		Local y#=xy[i+1]+handle_y
		Local u#=xy[i+2]
		Local v#=xy[i+3]
		glTexCoord2f u,v
		glVertex2f x*ix+y*iy+origin_x,x*jx+y*jy+origin_y
	Next
	glEnd
	If Not tmpImage Then tmpImage = CreateImage(1,1)
	DrawImage tmpImage, -100, - 100 ' Chtob zbit' flag texturi
End Function

Case EVENT_GADGETPAINT
		SetGraphics CanvasGraphics(canvs)
		SetClsColor( 32, 32, 32 )
		Cls
			SetColor( 64, 64, 64 )
			DrawRect( -startx, 0, 1, 600 )
			DrawRect( 0, -starty, 800, 1 )
			If tree Then animation.Draw( startx, starty, zoom, True )
			SetScale( 1, 1 )
			SetBlend( SOLIDBLEND )
			SetAlpha( 1 )
			SetColor( 255, 255, 255 )
			SetRotation( 0 )
			SetHandle( 0, 0 )
			
			'For i = 1 To 20
				'Local t:TKeyFrame = TKeyFrame.Get( i )
				'If t Then 
					't.tree.Draw( startx, starty, zoom )
				'EndIf
			'Next 	
			If selected Then
				Local p:Tvec2 = selected.GetPosition( 1 )
				SetColor( 255, 255, 32 )
				DrawOval_Ex( -startx+p.x*zoom, -starty+p.y*zoom, 9, 10 )
			EndIf 
			If imagejoint[0] Then 
				p = imagejoint[0].GetPosition( 1 )
				SetColor( 32, 32, 255 )
				DrawOval_Ex( -startx+p.x*zoom, -starty+p.y*zoom, 9, 10 )
				If imagejoint[1] And imagejoint[1] <> imagejoint[0] Then
					Local p2:TVec2 = imagejoint[1].GetPosition( 1 ) 
					DrawOval_ex( -startx+p2.x*zoom, -starty+p2.y*zoom, 9, 10 )
					SetColor( 255, 255, 32 )
					DrawLine( -startx+p.x*zoom, -starty+p.y*zoom, -startx+p2.x*zoom, -starty+p2.y*zoom )
				EndIf
			EndIf 
			Local time1:Int = Floor(animation.playTime)
			Local time2:Int = Ceil(animation.playTime)
			Local time:Float = animation.playTime-time1
			
			SetColor( 200, 200, 200 )
			
			DrawText( "FrameTime: "+animation.playTime, 0, 0 )
			DrawText( "FrameSpeed: "+animation.playSpeed, 0, 15 )
			DrawText( "Frame1: "+time1, 0, 30 )
			DrawText( "Frame2: "+time2, 0, 45 )
			DrawText( "Proz: "+time, 0, 60 )
		Flip 0