-- only used during zoom animations
-- contains width and height in surface units
Global_bounds = nil

		result.x = math.random(Viewport.x, Viewport.x+iscale(App.screen.width))
		result.y = math.random(Viewport.y, Viewport.y+iscale(App.screen.height))
		if _ == 10 or not overlaps_any_definition(result) then
			result.w, result.h = nil
		result.x = round(result.x/100)*100

	Global_viewport = {x=minx, y=miny, zoom=zoom}
	Global_bounds = {w=cw, h=ch}
	return cw, ch
end

-- only used during zoom animations
-- contains x,y in surface coordinates and zoom as a fraction from 0 to 1.
Global_viewport = nil

--?   print('$'..color_escape(--[[bold]]1, --[[blue]]4))
--?   print(msg)
--?   print(reset_terminal())
--?   print('=>'..color_escape(0, --[[green]]2))
--?   print(result)
--?   print(reset_terminal())
--?   print('=>'..color_escape(0, --[[red]]1))
--?   print(result)
--?   print(reset_terminal())
  Run_time_error = result
  if result:match('^ERROR ') then
    Load_time_error = result:sub(#('ERROR '))
end
-- look for a message from outside, and return nil if there's nothing

	print('Viewport before survey animation', Viewport.x, Viewport.y, Viewport.zoom)
	local cw, ch = initialize_global_viewport()
	snapshot_canvas(cw, ch)
	print('Viewport at start of survey animation', Viewport.x, Viewport.y, Viewport.zoom)
	print('start animating towards', Global_viewport.x, Global_viewport.y, Global_viewport.zoom)
end
	-- initialize animation
	Animating = {
		copy_viewport(Global_viewport),
		copy_viewport(Viewport),
	}
	Viewport.x = -App.screen.width/2
	Viewport.y = -App.screen.height/2
---[[  '--' at start to disable animation, '---' to enable

end
	local globalw, globalh = initialize_global_viewport()
	snapshot_canvas(globalw, globalh)
	Animating = {
		Save_viewport,
	}
	Save_viewport = nil
	Zoomed_out = nil

	local globalw, globalh = initialize_global_viewport()
	snapshot_canvas(globalw, globalh)
	Animating = {
		{
			x=sx(x)-App.screen.width/Save_viewport.zoom/2,
			y=sy(y)-App.screen.height/Save_viewport.zoom/2,
			w=App.screen.width/Save_viewport.zoom,
			h=App.screen.height/Save_viewport.zoom,
			zoom=Save_viewport.zoom,
		},
	}
	Zoomed_out = nil
	Save_viewport = nil	
end

		print('animation frame: Viewport is now', Viewport.x, Viewport.y, Viewport.zoom)
		B()
	end
end

			print('Viewport at end of survey animation', Viewport.x, Viewport.y, Viewport.zoom)
			Global_viewport = nil
end
			A()
			return
		end
	end
	animate_next_frame(Animating[1], dt)
			Animating = nil
			Canvas = nil

snapshot_canvas = function(new_width, new_height)
	App.screen.width, App.screen.height = new_width, new_height
	local w = math.min(16000, App.screen.width)
	local h = math.min(16000, App.screen.height)
	print('creating canvas', w, h)
end
	Canvas = love.graphics.newCanvas(w, h)
	local saved_viewport = Viewport
	Viewport = copy_viewport(Global_viewport)
	Viewport.zoom = 1.0
	A()
	-- Render the canvas at pixel perfect resolution.

	local globalw, globalh = initialize_global_viewport()
	snapshot_canvas(globalw, globalh)
	Animating = {
		copy_viewport(Global_viewport),
	}
	Zoomed_out = true
end

  local settings = settings()
  print('writing settings for', App_name)
  print('window', settings.x, settings.y, settings.width, settings.height)
  local viewport = settings.app[App_name].viewport
  print('viewport', viewport.x, viewport.y, viewport.zoom)
  love.filesystem.write('config', json.encode(settings))

  love.filesystem.write('config', json.encode(settings()))

	Viewport.h = h
end

	Viewport = {x=-50, y=-50, w=800,h=600, zoom=1.0}

	Viewport = {x=-50, y=-50, zoom=1.0}

end
	print('saving Viewport to config', Viewport.x, Viewport.y, Viewport.zoom)

		local q = love.graphics.newQuad(
			(Viewport.x-Global_viewport.x)*Viewport.zoom,
			(Viewport.y-Global_viewport.y)*Viewport.zoom,
			App.screen.width,
			App.screen.height,
			Global_bounds.w*Viewport.zoom,
			Global_bounds.h*Viewport.zoom)
	end
	if Save_viewport then
		-- special Expose-like 'zoom mode' in progress
		love.graphics.setColor(0,0,0,0.2)
		love.graphics.rectangle('fill', vx(Save_viewport.x), vy(Save_viewport.y),
			scale(App.screen.width/Save_viewport.zoom), scale(App.screen.height/Save_viewport.zoom))

end

end

		if not Zoomed_out then

end

end

end

end

-- Viewport width,height should match screen/window width,height at all times.
Viewport = {}
Viewport = {
	x=-50, y=-50,  -- surface coordinate
	zoom=1.0
}

Viewport = {}