Dim rgb(1,1),rgbnew(1,1),target(2)
Timer = CreateTimer(30)

;TestImage = LoadImage("Image.png")
TestImage = CreateImage(30,30)
SetBuffer ImageBuffer(TestImage)
Rect 0,0,29,29,1

Graphics 800,600,0,2

SetBuffer BackBuffer()
While Not KeyHit(1)
  Cls
  Ang = Ang+10
  Now = MilliSecs()
  DrawImageR(TestImage ,400,300,Ang)
  DebugLog(MilliSecs()-Now)
  WaitTimer(Timer)
  Flip
Wend

Function DrawImageR(Image,X,Y,Angle)
  Width=ImageWidth(Image):Height=ImageHeight(Image)
  Dim rgb(Width,Height)
  ImageNewWidth = Int(Sqr((Width)^2+(Height)^2))
  ImageNewHeight = Int(Sqr((Width)^2+(Height)^2))
  Dim rgbnew(ImageNewWidth,ImageNewHeight)
  ImageNew = CreateImage(ImageNewWidth,ImageNewHeight)
  LockBuffer ImageBuffer(Image)
  For ix=0 To Width-1
    For iy=0 To Height-1
      rgb(ix,iy) = ReadPixelFast(ix,iy,ImageBuffer(Image))
    Next
  Next
  UnlockBuffer ImageBuffer(Image)
  LockBuffer ImageBuffer(ImageNew)
  For ix=0 To Width-1
    For iy=0 To Height-1
      target(0) = Int(Sin((Angle+ATan2(iy-height/2,ix-Width/2)) Mod 360)*Sqr((ix-Width/2)^2+(iy-Height/2)^2))+ImageNewWidth/2
      target(1) = Int(Cos((Angle+ATan2(iy-height/2,ix-Width/2)) Mod 360)*Sqr((ix-Width/2)^2+(iy-Height/2)^2))+ImageNewHeight/2
      WritePixelFast(target(0),target(1),rgb(ix,iy),ImageBuffer(ImageNew))
    Next
  Next
  UnlockBuffer ImageBuffer(ImageNew)
  DrawImage ImageNew,X,Y
  FreeImage ImageNew
End Function