Gl.glGenTextures(1, out this.textureID);

<...>
<Hier erstelle ich den Frame- udn Renderbuffer>

int oglWidth;
int oglHeight;
GetOGLTexSize(this.width, this.height, out oglWidth, out oglHeight);

Gl.glGenFramebuffersEXT(1, out this.framebufferID);
Gl.glGenRenderbuffersEXT(1, out this.renderbufferID);

Gl.glBindTexture(Gl.GL_TEXTURE_2D, this.textureID);
Gl.glTexImage2D(Gl.GL_TEXTURE_2D, 0, Gl.GL_RGBA, oglWidth, oglHeight, 0, Gl.GL_RGBA, Gl.GL_UNSIGNED_INT, null);
Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, this.framebufferID);

Gl.glFramebufferTexture2DEXT(Gl.GL_FRAMEBUFFER_EXT, Gl.GL_COLOR_ATTACHMENT0_EXT, Gl.GL_TEXTURE_2D, this.textureID, 0);
Gl.glBindRenderbufferEXT(Gl.GL_RENDERBUFFER_EXT, this.renderbufferID);
Gl.glRenderbufferStorageEXT(Gl.GL_RENDERBUFFER_EXT, Gl.GL_DEPTH_COMPONENT24, oglWidth, oglHeight);
Gl.glFramebufferRenderbufferEXT(Gl.GL_FRAMEBUFFER_EXT, Gl.GL_DEPTH_ATTACHMENT_EXT, Gl.GL_RENDERBUFFER_EXT, this.renderbufferID);

Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, 0);
Gl.glBindTexture(Gl.GL_TEXTURE_2D, 0);

<...>
<Hier "bind"e ich ihn>

Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, this.framebufferID);

<...>
<Hier "unbind"e ich ihn>

Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, 0);

SuperStrict


Type TKLGUI
   Global Container:TList = New TList
   
   Function RegisterITEM(Item:TKLITEM)
      TKLGUI.Container.Addlast(Item)
   End Function
   
   Function Sort()
   End Function
   
   Function Update()
   End Function
End Type

Type TKLITEM Abstract
End Type

Type TKLEVENT
End Type

Type TImageBuffer
   Field Image:TImage
   Field rb:Int[1]
   Field fb:Int[1]
   Field Imageframe:TGLImageframe
   Field Frame:Int = 0
   Field OrigX:Int
   Field OrigY:Int
   Field OrigW:Int
   Field OrigH:Int

   Function SetBuffer:TImageBuffer(Image:TImage,Frame:Int = 0 )
      Local IB:TImageBuffer = New TImageBuffer
      IB.Image = Image
      IB.Frame = Frame
      IB.GenerateFBO()
      IB.BindBuffer()
      Return IB
   End Function
   
   Method GenerateFBO()
      ImageFrame = TGLImageFrame(Image.frame(Frame) )
         
      imageframe.v0 = imageframe.v1
      imageframe.v1 = 0.0
   
      Local W:Int = Image.width
      Local H:Int = Image.Height
     
      AdjustTexSize(W , H)

     
      glGenFramebuffersEXT(1, fb )
       glGenRenderbuffersEXT(1 , rb)
     
       glBindTexture(GL_TEXTURE_2D, Imageframe.name);
       glBindFramebufferEXT(GL_FRAMEBUFFER_EXT , fb[0]) ;
     
      '
       'glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, W, H, 0, GL_RGBA, GL_UNSIGNED_INT, Null);
       'glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
       'glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
      '
       glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D,  Imageframe.name, 0);
       glBindRenderbufferEXT(GL_RENDERBUFFER_EXT, rb[0]);
       glRenderbufferStorageEXT(GL_RENDERBUFFER_EXT, GL_DEPTH_COMPONENT24, W, H);
       glFramebufferRenderbufferEXT(GL_FRAMEBUFFER_EXT , GL_DEPTH_ATTACHMENT_EXT , GL_RENDERBUFFER_EXT , rb[0])
     
       Local status:Int =  glCheckFramebufferStatusEXT(GL_FRAMEBUFFER_EXT)
     
       Select status
          Case GL_FRAMEBUFFER_COMPLETE_EXT
             DebugLog ("all right" + " : " + Status)
          Case GL_FRAMEBUFFER_UNSUPPORTED_EXT
             DebugLog ("choose different formats")
          Default
          DebugLog status
             End
       EndSelect
   
   End Method
   
   Method BindBuffer(Fullscreen:Byte = False)
      GetViewport(OrigX,OrigY,OrigW,OrigH)   
      glBindFramebufferEXT(GL_FRAMEBUFFER_EXT , fb[0])
      'If Fullscreen = True Then
         'glViewport(0 , 0 , -Image.Width , -Image.Height) ;
      'EndIf
      glViewport(0 , 0 , Image.Width , Image.Height)
      'SetScale 1,-1
      'SetOrigin 0 , Float(Image.Height) * (GraphicsHeight() / 600.0)
      'Print (Image.Height * (GraphicsHeight()/600.0))

   End Method
   
   Method UnBindBuffer()
      glBindFramebufferEXT(GL_FRAMEBUFFER_EXT , 0)
      glViewport(OrigX , OrigY , OrigW , OrigH)
      SetOrigin 0 , 0
      SetScale 1,1
   End Method
   
   Method Cls()
      glClearColor 0.0,0.0,0.0,0.0
      glClear GL_COLOR_BUFFER_BIT
   End Method

End Type


Function AdjustTexSize( width:Int Var,height:Int Var )
   'calc texture size
   width=Pow2Size( width )
   height=Pow2Size( height )
   Repeat
      Local t:Int
      glTexImage2D GL_PROXY_TEXTURE_2D,0,4,width,height,0,GL_RGBA,GL_UNSIGNED_BYTE,Null
      glGetTexLevelParameteriv GL_PROXY_TEXTURE_2D,0,GL_TEXTURE_WIDTH,Varptr t
      If t Return
      If width=1 And height=1 RuntimeError "Unable to calculate tex size"
      If width>1 width:/2
      If height>1 height:/2
   Forever
End Function

Function Pow2Size:Int( n:Int )
   Local t:Int=1
   While t<n
      t:*2
   Wend
   Return t
End Function




SetGraphicsDriver GLMax2DDriver()

Graphics 800 , 600 , 0, - 1
glewinit()


Global iFPSCounter:Int
Global iFPSLastCheck:Int
Global iFPS:Int

Global TextImg:TImage = LoadImage("Charset1.png")

SetMaskColor 255,0,255
Global Img:TImage = CreateImage(400, 300)


Local IB:TImageBuffer = TImageBuffer.SetBuffer(Img)

Local x:Float = 0
Local Speed:Float = 0.01

Local OX:Float = 200
Local OY:Float = 150

UpdateImage(IB,OX,OY)


While Not KeyHit(Key_Escape)
   SetClsColor 0 , 0 , 255

   Cls
      SetColor 255,255,255
      DrawRect 256,256,256,256
      SetBlend ALPHABLEND
      SetAlpha 1.0
      SetColor 255,255,255
      SetRotation 360 * Sin(X/10.0)
      DrawImage Img , 200 + X ,150
      SetRotation 0
      SetAlpha 1.0
     
      x:+ Speed
      If x > 800 -400 Then Speed = - 0.01
      If x < 0 Then Speed = 0.01
     
      If KeyDown(KEY_RIGHT)
         OX:+0.1
         UpdateImage(IB , OX , OY)
      EndIf
     
      If KeyDown(KEY_LEFT)
         OX:-0.1
         UpdateImage(IB , OX , OY)
      EndIf
     
      If KeyDown(KEY_UP)
         OY:-0.1
         UpdateImage(IB , OX , OY)
      EndIf
     
      If KeyDown(KEY_DOWN)
         OY:+0.1
         UpdateImage(IB , OX , OY)
      EndIf
     
      CalcFPS()

      DrawText OX + " : " + OY ,20,20
      DrawText iFPS ,20,30
   Flip   
Wend

Function CalcFPS:Byte()
   iFPSCounter:+1
   If iFPSLastCheck = 0 Then iFPSLastCheck = MilliSecs()
   If (MilliSecs() - iFPSLastCheck) >= 1000 Then
      iFPS = iFPSCounter
      iFPSCounter = 0
      iFPSLastCheck = MilliSecs()
   End If
   
   Return True
End Function

Function UpdateImage(IB:TImageBuffer , X:Float , Y:Float)
         IB.BindBuffer()
          IB.Cls()
         SetLineWidth 4
         DrawLine 0 , 0 , 800 , 0
         DrawLine 798 , 0 , 798 , 600
         DrawLine 800 , 598 , 0 , 598
         DrawLine 0 , 600 , 0 , 0
         
         SetColor 255, 0 , 0
         SetScale 5,5
         DrawText "Hello World" , GraphicsWidth()/2-(TextWidth("Hello World")*5)/2 , GraphicsHeight()/2
         SetScale 1,1
         DrawOval X , Y , 20 , 20
         SetColor 255 , 255 , 255
         SetBlend ALPHABLEND
         SetAlpha 1.0
         DrawRect 600, 50, 100, 100
         SetAlpha 0.5
         DrawRect 620, 70, 40, 40
         IB.UnBindBuffer()   
End Function