Kelptos render to texture code

Hello, thanks for this code. I'm not sure if this is correct behavior or not but when rendering to a texture with alpha it doesn't seem to add the alpha up properly. I've been trying to save pngs with alpha and having the same problem, heres example code:

SuperStrict


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
	
	Function Init(Width:Int,Height:Int,Bit:Int=0,Mode:Int=60)
		SetGraphicsDriver(GLMax2DDriver())
		Graphics Width , Height,bit,Mode
		glewInit()
	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]) ; 
	   
	   
	 	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 
	          Print "all right" + " : " + Status
	       Case GL_FRAMEBUFFER_UNSUPPORTED_EXT
	          Print "choose different formats"
	       Default
	          End 
	    EndSelect 
   
	End Method
	
	Method BindBuffer()
		GetViewport(OrigX,OrigY,OrigW,OrigH)
		glBindFramebufferEXT(GL_FRAMEBUFFER_EXT , fb[0])
		glMatrixMode GL_PROJECTION
		glLoadIdentity
		glOrtho 0,Image.Width,Image.Width,0,-1,1
		glMatrixMode GL_MODELVIEW 
		glViewport(0 , 0 , Image.Width , Image.Height)
		glScissor 0,0, Image.Width , Image.Height
	End Method
	
	Method UnBindBuffer()
		glBindFramebufferEXT(GL_FRAMEBUFFER_EXT , 0)
		glMatrixMode GL_PROJECTION
		glLoadIdentity
		glOrtho 0,OrigW ,Origh,0,-1,1
		glMatrixMode GL_MODELVIEW 
		glViewport(0 , 0 , OrigW, OrigH)
		glScissor 0,0, OrigW ,OrigH
	End Method
	
	Method Cls(r#=0.0,g#=0.0,b#=0.0,a#=1.0)
		glClearColor r,g,b,a
		glClear GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT
	End Method
	
	Method BufferWidth:Int()
		Return Image.Width
	End Method
	
	Method BufferHeight:Int()
		Return Image.Height
	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




TImageBuffer.Init(800,600) 'Same as Graphics but set to GLDriver + glewinit


Global Img:TImage = CreateImage(512, 512)
MidHandleImage Img

Local IB:TImageBuffer = TImageBuffer.SetBuffer(Img) 

Local x:Float = 0
Local Speed:Float = 0.1

Local Angle:Float = 0
Local pixmap:TPixmap = CreatePixmap(512, 512, PF_BGRA8888) 
IB.BindBuffer() 
IB.Cls(0, 0, 0, 0) 

SetBlend ALPHABLEND
SetColor 255, 0, 0
For Local c:Float = 0 To 1 Step.1
	SetAlpha.1
	DrawRect 512 * c, 0, 512 - (512 * c), 512
Next
SetAlpha 1 

IB.UnBindBuffer() 
While Not KeyHit(KEY_ESCAPE) 
	SetClsColor2 0, 0, 0, 0

	Cls
		SetColor 255, 0, 0
		For Local c:Float = 0 To 1 Step.1
			SetAlpha.1
			DrawRect 512 * c, 0, 512 - (512 * c), 512
		Next
		SetBlend ALPHABLEND
		SetAlpha 1.0
		SetColor 255,255,255
		SetRotation Angle
		DrawImageRect Img, 256 + 144, 256 + 44, 512, 512
		SetRotation 0
		Angle:+0.3 
	Flip	
	
	SetViewport 0, 0, 800, 600
Wend

Function SetClsColor2(red:Int, green:Int, blue:Int, alpha:Float = 1.0) 
		red=Max(Min(red,255),0)
		green=Max(Min(green,255),0)
		blue=Max(Min(blue,255),0)
		alpha=Max(min(alpha,1.0),0.0)
		glClearColor red / 255.0, green / 255.0, blue / 255.0, alpha
End Function

Basically it draws 10 overlapping rectangles all with alpha set to .1 so that a gradient is created from .1 to 1 alpha. This is done on the back buffer with cls alpha 0 and it's also rendered to the image with cls alpha set to 0, but the image dosen't seem to be rendered properly. If anyone could figure out how to make the image look the same as how it's rendered to the screen it'd be much appreciated. :)

You have a...

SetAlpha .1

where you need a...

SetAlpha c

I think. :)

The code is just demonstrating that alpha isn't adding up. All the rects drawn overlap each other until the are 10 overlapping, so 10 rects overlapping with .1 alpha should mean that the image has an alpha value of 1 at that point. It behaves as you'd expect on the backbuffer but not on the image buffer.

Perhaps a driver issue. Perhaps an ATI.
Or it is because what you have behind the FBO when you draw it, so it seems different than it is on the backbuffer.

When rendering to your texture, try using

glEnable GL_BLEND
glBlendFunc(GL_ONE, GL_ONE_MINUS_SRC_ALPHA)
glDisable GL_ALPHA_TEST

instead of Setblend(ALPHABLEND).

Edit: Another problem is that you can't save the image. If you just use SavePixMapPNG(LockImage(img,1,0)) you'll get a pixmap with the approp size, but it's empty.