scenes={}

function store_scene(scn)
	for x=0,15 do
		for y=0,15 do
			local t={}
			local sp=mget(x,y)
			add(t,{x,y,sp})
			add(scn,t)
		end
	end
end

function draw_scene(scn)
	--for min,max,index do ...
	local j=0
	for k,v in pairs(scn) do
		--loop through the screen and place the sprites e.g.
        spr(k.sp,k.x,k.y)
	end
end