Openb3d wrapper (Part 4)

texCoord0/gl_TexCoord[0] = gl_TextureMatrix[0] * gl_MultiTexCoord0;

Local mesh1:TMesh , mesh2:TMesh
Local surface1:TSurface , surface2:TSurface
mesh1    = CreateMesh()
surface1 = CreateSurface( mesh1 )
mesh2    = CreateMesh()
surface2 = CreateSurface( mesh2 )
EntityBlend( mesh1, 1 )
EntityBlend( mesh2, 3 )
EntityFX   ( mesh1, 1+8+16+32 )
EntityFX   ( mesh2, 1+8+16+32 )

	HideEntity terrain
	ShowEntity cube
	CameraClsMode camera,0,1 ' don't clear color buffer so we can draw over rest of scene
	RenderWorld
	
	HideEntity cube
	ShowEntity terrain
	RenderWorld
	
	Flip(1)

' alpha.bmx

Strict

Framework Openb3d.B3dglgraphics

Graphics3D 800,600,0,2
ClearTextureFilters

Local camera:TCamera=CreateCamera()
CameraClsColor camera,80,160,240

Local light:TLight=CreateLight()

Local tex:TTexture=LoadTexture("../media/Smoke.png",1)
'Local tex:TTexture=LoadTextureAlpha("../media/Smoke.png",1,$FF00)
Local sprite:TMesh=CreateCube()
'Local sprite:TSprite=CreateSprite()
PositionEntity sprite,0.1,0.1,0.1
EntityAlpha sprite,0.5
'EntityFX sprite,1+32
EntityTexture sprite,tex
'EntityBlend sprite,3

Local cube:TMesh=CreateCube()
PositionEntity cube,1,1,10
EntityAlpha cube,0.5
'EntityFX cube,1+32
EntityTexture cube,tex

Local sphere:TMesh=CreateSphere()
PositionEntity sphere,1,1,-10
'EntityFX sphere,32

Local frame%

' fps code
Local old_ms%=MilliSecs()
Local renders%, fps%

While Not KeyHit(KEY_ESCAPE)

	frame :+ 10
	PositionEntity camera, Cos(frame * 0.1) * 8, 3, Sin(frame * 0.1) * 8
	PointEntity camera, sprite
	
	'UpdateWorld
	RenderWorld
	
	' calculate fps
	renders=renders+1
	If MilliSecs()-old_ms>=1000
		old_ms=MilliSecs()
		fps=renders
		renders=0
	EndIf
	
	Text 0,0,"FPS: "+fps
	
	Flip
		
Wend
End

void Shader::FreeShader(){
	if(!arb_program) return;
	arb_program.DeActivate(); // Ensure the shader is not used
	
	list<ShaderObject*>::iterator it;
	for(it=arb_program.vList.begin();it!=arb_program.vList.end();it++){
		ShaderObject* obj=*it;
		obj->DeleteVertShader(obj);
	}
	for(it=arb_program.fList.begin();it!=arb_program.fList.end();it++){
		ShaderObject* obj=*it;
		obj->DeleteFragShader(obj);
	}
	
	glDeleteProgram(arb_program);
	arb_program=0;
	delete this;
}

void Shader::FreeShader(){
	if(!arb_program) return;
	arb_program->DeActivate(); // Ensure the shader is not used
	
	list<ShaderObject*>::iterator it;
	for(it=arb_program->vList.begin();it!=arb_program->vList.end();it++){
		ShaderObject* obj=*it;
		obj->DeleteVertShader(obj);
	}
	for(it=arb_program->fList.begin();it!=arb_program->fList.end();it++){
		ShaderObject* obj=*it;
		obj->DeleteFragShader(obj);
	}
	
	glDeleteProgram(arb_program->Program);
	//arb_program=0;
	delete this;
}

ProgramObject::~ProgramObject(){
	if(!program) return;
	glUseProgram(0); // Ensure the shader is not used
	for(ShaderObject *shader : shaderobjects){
		shader->attached.remove(this);
		shader->DestroyRef();
	}
	shaderobjects.clear();
	glDeleteProgram(program);
#if defined(BLITZMAX_DEBUG)
	DebugLog("Deleted ProgramObject %s",name.c_str());
#endif
	program=0;
}

SuperStrict

'Import sidesign.minib3d
Import openb3d.b3dglgraphics

Include "TExportMesh.bmx"

Graphics3D 1024, 768

Local mesh:TMesh = CreateMesh()
Local brush:TBrush

For Local i:Int = 0 To 9

	Local cube:TMesh = CreateCube()

	brush = LoadBrush("texture_" + (i Mod 3) + ".jpg")
	PaintMesh(cube, brush)
	PositionMesh(cube, i * 3, 0, 0)
	AddMesh (cube, mesh)
	HideEntity(cube)
	FreeEntity(cube)

Next

Local camera:TCamera = CreateCamera()
camera.PositionEntity(0, 0, -15)
camera.PointEntity(mesh)

Local export:TExportMesh = New TExportMesh
export.mesh = mesh
export.SaveMesh("tester.b3d")

Compiling:openb3dsdl.bmx
Compile Error: Can't find interface for module 'pub.opengles'
[D:/BlitzMax/mod/openb3d.mod/openb3dsdl.mod/openb3dsdl.bmx;38;1]
Build Error: failed to compile D:/BlitzMax/mod/openb3d.mod/openb3dsdl.mod/openb3dsdl.bmx

void main() {
	V = vec3(gl_ModelViewMatrix * gl_Vertex);
	VInverse = gl_ModelViewMatrixInverse * gl_Vertex;
	N = normalize(gl_NormalMatrix * gl_Normal);
	
	vLightdir = normalize(gl_LightSource[0].position.xyz);
	
	vLightpos = (gl_ModelViewMatrix * vec4(gl_LightSource[0].position.xyz,1.0)).xyz;
	
	vHalfvector = gl_LightSource[0].halfVector.xyz;
	
	vView = -gl_ModelViewMatrix[3].xyz;
	
	gl_TexCoord[0] = gl_MultiTexCoord0;
	
	refView = gl_ModelViewProjectionMatrix * gl_Vertex - vView;
	vReflection = reflect(refView, gl_Normal);
	
	gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex;
}

For i =0 To 14
	cube[i]=CreateCube
	PositionEntity cube[i],Rnd(-50,50),Rnd(-20,20),Rnd(5,200)
Next

depth_tex=CreateTexture(800,600,1+256)
ScaleTexture depth_tex,1.0,-1.0
DepthBufferToTex depth_tex,Camera
	
fx_sprite=CreateSprite()
ScaleSprite fx_sprite,1.0,0.75
EntityOrder fx_sprite,0
EntityParent fx_sprite,camera
MoveEntity fx_sprite,0,0,1.0 
EntityTexture fx_sprite,depth_tex


### LOOP ###


        updateworld
        HideEntity Camera
        ShowEntity fx_cam

        DepthBufferToTex depth_tex,fx_cam
        EntityTexture fx_sprite,depth_tex

        HideEntity fx_cam
        ShowEntity Camera
        renderworld