VividGL3D 2D_Example2

Include "Includes\VividGL_Lite.bb"
Graphics_Init(640,480,16)
glSetbuffer Graphics_Back()
;-

smokeTex=glLoadTexture("Media\full.jpg",glMipMap)
blurSkin=Skin_BlurTexture() ;Blur texture is a built in skin, using pixel shaders2.0


While Not KeyDown(1)
	glCls(False)

	skin_blurFactor(blurSkin,blurFactor#)
      blurFactor#=(MouseX()/640.)*0.02
	fxSkinOn(blurSkin) ;activate pixel shader fx for all following ops. (For meshes, you can set fx on a per surface basis or use this method. both have their advantages)
      Lock2D()
	      activate_Texture(smokeTex,0)
		Render_Quad(0,0,640,480)
	Unlock2D()
	fxSkinOff() ;Turn off shader
	
	glText 1,1,"Move mouse Left/Right to change blur factor"
	glFlip(False)
Wend

struct vertout
{
	float4 position : POSITION;
	float3 texcoord0 : TEXCOORD0;
};

struct pixel
{
	float4 color : COLOR;
};

pixel main(vertout IN,
	   uniform sampler2D Texture: TEXUNIT0,
	   uniform float4 blur)
{
pixel OUT;
float3 comb,final;
float2 tempUV1=IN.texcoord0.xy;
float2 tempUV2;
float blurFactor=blur.x;
	tempUV2.x=tempUV1.x-blurFactor;
	tempUV2.y=tempUV1.y-blurFactor;
	comb=tex2D(Texture,tempUV2);
	tempUV2.x+=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.y+=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.y+=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.x+=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.y-=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.x-=blurFactor*2;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.y+=blurFactor;
	comb+=tex2D(Texture,tempUV2);
	tempUV2.x+=blurFactor*2;
	tempUV2.y-=blurFactor*2;
	comb+=tex2D(Texture,tempUV2);
	OUT.color.rgb=comb/9;
	OUT.color.a=1;
	return OUT;
}