zoomstretch.lua

function init()
    setName("Zoom&Stretch")
    setDesc("X and Y stretching")
    setSize(120,18+18+24+64+8+8+7+4+18+18+18)
    addOutput(24+32)
	addInput("Texture",24+64+8+8)
    addInputParameter("X pos","X position",18+24+64+8+8,0,0,64)
	addInputParameter("Y pos","Y position",18+18+24+64+8+8,0,0,64)
	addInputParameter("H fac","Horizontal stretching factor",18+18+18+24+64+8+8,1,1,64)
	addInputParameter("V fac","Vertical stretching factor",18+18+18+18+24+64+8+8,1,1,64)
	addInputParameter("Smooth","Smoothness",18+18+18+18+18+24+64+8+8,0,0,10)
end
-- Ugly way to use channels
function apply()
	x = 0
	y = 0
    tileSize = getTileSize()
    for i=0, tileSize*tileSize-1 do
		x = i%tileSize
		y = math.floor(i/tileSize)
        xnew = math.floor(x/getValue(3, 0, 0, 1)) + getValue(1, 0, 0, 1)
		ynew = math.floor(y/getValue(4, 0, 0, 1)) + getValue(2, 0, 0, 1)
		out = getValue(0, xnew, ynew, 1)
		if (getValue(5, 0, 0, 1) > 0)then
			for i=0, getValue(5, 0, 0, 1) do
				out = out+getValue(0, xnew+i, ynew+i, 1)
				out = out+getValue(0, xnew-i, ynew-i, 1)
			end
			out = out/(1+ 2*getValue(5, 0, 0, 1))
		end
		
		setPixel(0,x,y,out,out,out)
    end
end