Sorry your browser is not supported!

// newImage = Blur_Image( oldImgID, 5 )
function Blur_Image( _imgID, _factor )
	
	if GetImageExists( _imgID ) = 0
		Message("Image '" + str( _imgID ) + "' doesn't exist." + chr( 10 ) + chr( 10 ) + "< Error from Blur_Image() >")
		end
	endif
	if _factor <= 0
		Message("Image was not blurred." + chr( 10 ) + chr( 10 ) + "< Error from Blur_Image() >")
		exitfunction _imgID
	endif
		
		
	_mbImg = CreateMemblockFromImage( _imgID )
	_width = GetMemblockInt( _mbImg, 0 )
	_height = GetMemblockInt( _mbImg, 4 )
	_size = GetMemblockSize( _mbImg )
	
	_newMB = CreateMemblock( _size )
	SetMemblockInt( _newMB, 0, _width )
	SetMemblockInt( _newMB, 4, _height )
	SetMemblockInt( _newMB, 8, 32 )
	
	_indSize = _size - 1
	
	_fBytes = _factor * 4
	_fDub = _factor * 2
	_offStep = _width * 4
	
	for i = 12 to _indSize step 4
		_totR = 0
		_totG = 0
		_totB = 0
		_totA = 0
		
		_xoffset = 0
		_totPix = 0
		
		for __y = 1 to _fDub
			
			_Xstart = clamp_int( ( i - _fBytes ) + _xoffset, 0, _indSize )
			_Xend = clamp_int( i + _fBytes + _xoffset, 0, _indSize - 1 )
			
			for __x = _Xstart to _Xend step 4
				inc _totR, GetMemblockByte( _mbImg, __x )
				inc _totG, GetMemblockByte( _mbImg, __x + 1 )
				inc _totB, GetMemblockByte( _mbImg, __x + 2 )
				inc _totA, GetMemblockByte( _mbImg, __x + 3 )
				inc _totPix
			next __x
			
			inc _xoffset, _offStep
		next __y
		
		if _totPix <= 0 then _totPix = 1
		
		SetMemblockByte( _newMB, i, clamp_int( _totR / _totPix, 0, 255 ) )
		SetMemblockByte( _newMB, i + 1, clamp_int( _totG / _totPix, 0, 255 ) )
		SetMemblockByte( _newMB, i + 2, clamp_int( _totB / _totPix, 0, 255 ) )
		SetMemblockByte( _newMB, i + 3, clamp_int( _totA / _totPix, 0, 255 ) )
	next i
	
	_imgID = CreateImageFromMemblock( _newMB )
	DeleteMemblock( _newMB )
	DeleteMemblock( _mbImg )
endfunction _imgID


function clamp_int( _val, _min, _max )
	if _val <= _min
		exitfunction  _min
	elseif _val >= _max
		exitfunction _max
	endif
endfunction _val

uniform sampler2D texture0;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
 
mediump vec2 uOff = vec2(1.0/512.0,0.0); // these can be changed to match the size of the texture/pixel size
mediump vec2 vOff = vec2(0.0,1.0/512.0);

float size = 5.0; // 5 gives 100 samples used to get ONE pixel!   (2x5x2x5 = 100)
float x;
float y;

float mult = 1.0/4.0/size/size; //scale factor

void main()
{

	for (y = -size; y<size; y++)  // a range of 2*size on y
	{
		for (x = -size; x<size; x++)  // a range of 2*size on x
		{
			gl_FragColor += texture2D(texture0, uvVarying+(x*uOff)+(y*vOff)); 
		}
	}
		
    gl_FragColor *= mult; // scale the colour down by 1/100th as we have added up 100 pxels worth!

    
}

LoadSpriteShader(1,"blurr.ps") 
SetSpriteShader(spr,1)
SetShaderConstantByName(1, "", 0, 0, 0,0 ) //I only call it this way because i dont know how else to update the image this may be the problem im having dont know
Sync()

ShaderID=LoadSpriteShader("blur.ps")

ImageID=LoadImage("bike.jpg")
SpriteID=CreateSprite(ImageID)



SetSpriteShader(SpriteID,ShaderID)




do
    

    Print( ScreenFPS() )
    Sync()
loop

createShader()
LoadSpriteShader(1,"blurr.ps") 
//img=LoadImage("noise.png")
sprite=CreateSprite(img)
SetSpriteSize(sprite,1024,768)
SetShaderConstantByName(1,"size",1024.0,768.0,2.0,0.0) //x sprite size, y sprite size, blur ammout ,0.0 needed
SetSpriteShader(sprite,1)
do
	
Sync()
loop

function createShader()
file = OpenToWrite("blurr.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec4 colorVarying;")
WriteLine(file,"uniform vec4 size; // ")
WriteLine(file,"mediump vec2 uOff = vec2(1.0/size.x,0.0); // these can be changed to match the size of the texture/pixel size")
WriteLine(file,"mediump vec2 vOff = vec2(0.0,1.0/size.y);")
WriteLine(file,"//float size = 1.0; // 5 gives 100 samples used to get ONE pixel!   (2x5x2x5 = 100)")
WriteLine(file,"float x;")
WriteLine(file,"float y;")
WriteLine(file,"float mult= 1.0/4.0/size.z/size.z; //scale factor")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	for (y = -size.z; y<size.z; y++)  // a range of 2*size on y")
WriteLine(file,"	{")
WriteLine(file,"		for (x = -size.z; x<size.z; x++)  // a range of 2*size on x")
WriteLine(file,"		{")
WriteLine(file,"			gl_FragColor += texture2D(texture0, uvVarying+(x*uOff)+(y*vOff)); ")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"	gl_FragColor *= mult; // scale the colour down by 1/100th as we have added up 100 pxels worth!")
WriteLine(file,"}")
CloseFile(file)
endfunction