Strict

?Win32
   Import brl.d3d7max2d
?
Import brl.glmax2d


Function drawimagearea (image:TImage, x#, y#, l#, t#, w#, h#, frame=0)
   Assert l < image.width Else "l muss kleiner als die Bildbreite sein"
   Assert t < image.height Else "t muss kleiner als die Bildhöhe sein"
   Local origin_x#,origin_y#
   GetOrigin (origin_x,origin_y)
   Local l1#   = l + w
   Local h1#   = t + h
   Local x0#=-image.handle_x,x1#=x0+w
   Local y0#=-image.handle_y,y1#=y0+h

   If l1 > image.width
      x1 = x0 + w + image.width - l1
      l1 = image.width
   EndIf
   If h1 > image.height
      y1 = y0 + h + image.height - h1
      h1 = image.height
   EndIf

   If TGLIMAGEFRAME (image.frame(frame))
      Local imgFrame:TGLImageFrame    = TGLImageFrame (image.Frame(Frame))
                       
      imgFrame.u0 = l / image.Width
      imgFrame.v0 = t / image.Height
      imgFrame.u1 = (l1) / image.Width
      imgFrame.v1 = (h1) / image.Height
      image.Frame(Frame).Draw x0,y0,x1,y1,X+origin_x,Y+origin_y
     
      imgFrame.u0   = 0
      imgFrame.v0   = 0
      imgFrame.u1   = 1
      imgFrame.v1   = 1
   Else
      Local imgFrame:TD3D7ImageFrame    = TD3D7ImageFrame (image.Frame(Frame))
      imgFrame.SetUV (l/image.Width, t/image.Height, (l1) / image.Width, (h1) / image.Height)
      image.Frame(frame).Draw x0,y0,x1,y1,x+origin_x,y+origin_y
     
      imgFrame.SetUV (0,0,1,1)
   EndIf
   
End Function

Building untitled2
Compiling:untitled2.bmx
Compile Error: Unable to convert from 'TGLIMAGEFRAME' to 'Int'
[C:/Programme/BlitzMax/tmp/untitled2.bmx;35;7]

Process complete

Function DrawImageArea(Image:TImage, x:Float, y:Float,..
                  l:Float, t:Float, w:Float, h:Float, Frame:Int=0)
                  
   Local tx:Int, ty:Int
   Local tw:Int, th:Int

   GetViewport(tx, ty, tw, th)
   SetViewport(l, h, w, h)
   DrawImage Image, x, y, Frame
   SetViewport(tx, ty, tw, th)
End Function