local oldprint = print
function print(t,x,y,col1,col2)
	if col2 then
		for i=-1,1 do
			for j=-1,1 do
				oldprint(t, x+i, y+j, col2)
			end
		end
	end
	oldprint(t, x, y, col1)
end

function str_width(str)
	return print(str,0,-8)
end

function print_shade(t,x,y,col1,col2)
	print(t,x,y+1,col2)
	print(t,x+1,y+1,col2)
	print(t,x,y,col1)
end

function set_state(state, ...)
	local args = {...}
	if gs and gs._leave then gs._leave() end
	gs = state
	if gs and gs._enter then gs._enter(unpack(args)) end
end