SuperStrict

Graphics( 800, 600, 0 )

Local image:TImage = LoadImage( "test.bmp" )

Global driver:TD3D7Max2DDriver = D3D7Max2DDriver( )
Global dev:IDirect3DDevice7 = driver.device

While( Not( KeyDown( KEY_ESCAPE ) Or AppTerminate( ) ) )
   Cls
   
   DrawFreeformImage( image, [100.0, 100.0], [500.0, 100.0], [700.0, 500.0], [300.0, 500.0], 0 )

   Flip
Wend

Function DrawFreeformImage( image:TImage, v1:Float[], v2:Float[], v3:Float[], v4:Float[], frame:Int )
   If Not image Return

   Local verts:Float[24]
   Local color:Int = driver.drawcolor
   
   verts[0] = v1[0]; verts[1] = v1[1]
   verts[2] = 0
   verts[3] = Float Ptr( Varptr color )[0]
   verts[4] = 0; verts[5] = 0
   
   verts[6] = v2[0]; verts[7] = v2[1]
   verts[8] = 0
   verts[9] = Float Ptr( Varptr color )[0]
   verts[10] = 1; verts[11] = 0
   
   verts[12] = v3[0]; verts[13] = v3[1]
   verts[14] = 0
   verts[15] = Float Ptr( Varptr color )[0]
   verts[16] = 1; verts[17] = 1
   
   verts[18] = v4[0]; verts[19] = v4[1]
   verts[20] = 0
   verts[21] = Float Ptr( Varptr color )[0]
   verts[22] = 0; verts[23] = 1
   
   driver.SetActiveFrame( TD3D7ImageFrame( image.frame( frame ) ) )
   dev.DrawPrimitive( D3DPT_TRIANGLEFAN, D3DFVF_XYZ | D3DFVF_DIFFUSE | D3DFVF_TEX1, verts, 4, 0 )
End Function