LÖVE

Code: Select all

if not love then os.execute "love ." os.exit() end
local app,g={ P=3, CL=8 }, love.graphics
app.pixel_shader=string.format([[
#define CL %d
#define W %d
uniform float noise[W*W];
vec4 effect(vec4 c,Image tex,vec2 uv,vec2 xy){
	vec4 p=Texel(tex,uv);
	int idx=int(mod(floor(xy.x),W)+W*mod(floor(xy.y),W));
	float e=noise[idx]/CL;
	vec4 q=p*c+vec4(e,e,e,0);
	q=floor(q*CL)/(CL-1);
	return q;
}
]],app.CL,2^app.P)

function love.load()
	app.shader=g.newShader(app.pixel_shader)
	app.shader:send("noise",unpack(gen_noise_table(app.P)))
	app.image=g.newImage "image.png"
end

function love.draw()
	g.draw(app.image,8,8)
	g.setShader(app.shader) g.draw(app.image,app.image:getWidth()+16,8) g.setShader()
end

function love.keypressed(key)
	if key=='escape' then love.event.quit() end
end

function gen_noise_table(p)
	local function f(x,y,n) local r=0
		for i=1,n do r=r+r+x%2 x=bit.rshift(x,1) r=r+r+y%2 y=bit.rshift(y,1) end
		return r
	end
	local r,n,k = {}, 2^p, 2/(4^p-1)
	for y=0,n-1 do for x=0,n-1 do table.insert(r,f(bit.bxor(x,y),y,p)*k-1) end end
	return r
end