to_text = function(x,y)
	for _,node in ipairs(Surface) do
		if node.type == 'text' then
			if x >= vx(node.x) and node.w and x < vx(node.x + node.w) then
				if y >= vy(node.y) and node.h and y < vy(node.y + node.h) then
					return node
				end
			end
		end
	end
end

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

{"on.text_input":388,"font":353,"scale":7,"Cursor_node":172,"on.draw":418,"A":426,"vx":5,"add_thick_line":400,"Viewport":303,"Surface":422,"update_editor_box":430,"vy":8,"line_height":365,"to_text":180,"copy_shape":396,"fw_parent":429,"on.mouse_press":179,"Page2":429,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.initialize":350,"y_of_schema1":364,"on.code_change":306,"Page":381,"on":1,"schema1_of_y":366,"B":379}

update_editor_box = function(node, preserve_screen_top_of_cursor_node)
	if node.editor == nil then return end
	if node.y > Viewport.y then
		if not preserve_screen_top_of_cursor_node or node ~= Cursor_node then
			node.editor.screen_top1.line = 1
			node.editor.screen_top1.pos = 1
		end
		node.editor.top = vy(node.y)
	else
		node.editor.screen_top1, node.editor.top = schema1_of_y(node.editor, Viewport.y - node.y)
	end
	node.editor.left = math.floor(vx(node.x))
	node.editor.right = math.ceil(vx(node.x+node.w))
	edit.update_font_settings(node.editor, scale(20))
	Text.redraw_all(node.editor)
end

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		A(--[[preserve screen_top of cursor node]] true)
	end
end

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
		obj.editor = edit.initialize_state(vy(obj.y), math.floor(vx(obj.x)), math.ceil(vx(obj.x+obj.w)), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

schema1_of_y = function(editor, y)
	-- return line/pos of screen line starting near a given y offset,
	-- and the (negative) offset remaining after the calculation
	-- invariants:
	-- 	- 0 >= y_offset >= -Line_height
	-- 	- let loc, y_offset = schema1_of_y(pane, y)
	-- 		y + y_offset == y_of_schema1(pane, loc)
	assert(y >= 0)
	local y_offset = y
	for i=1,#editor.lines do
		Text.populate_screen_line_starting_pos(editor, i)
		local height = line_height(editor, i)
		if y_offset < height then
			local line = editor.lines[i]
			local nlines = math.floor(y_offset/editor.line_height)
			assert(nlines >= 0 and nlines < #editor.line_cache[i].screen_line_starting_pos)
			local pos = editor.line_cache[i].screen_line_starting_pos[nlines+1]  -- switch to 1-indexing
			y_offset = y_offset - nlines*editor.line_height
			return {line=i, pos=pos}, -y_offset
		end
		y_offset = y_offset - height
	end
	-- y is below the pane
	return {line=#editor.lines+1, pos=1}, y_offset  -- positive value
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":429,"vx":5,"font":353,"fw_parent":428,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":426,"on.draw":418,"Cursor_node":172}

on.update = function(dt)
	if Pan then
	end
	if App.mouse_down(1) then
		B()
	end
end
		Viewport.x = Pan.x - App.mouse_x()
		Viewport.y = Pan.y - App.mouse_y()

B = function()
	-- recompute various aspects based on the current viewport settings
	love.graphics.setFont(love.graphics.newFont(scale(20)))  -- editor objects implicitly depend on current font so update it
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				initialize_editor(obj)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

B = function()
	-- recompute various aspects based on the current viewport settings
	love.graphics.setFont(love.graphics.newFont(scale(20)))  -- editor objects implicitly depend on current font so update it
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				update_editor_box(obj)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

box_height = function(node)
	-- return the height of a node. The result is scaled.
	print('computing box height based on font size', node.scaled_fontsize, node.editor.font_height, node.editor.line_height)
	if #node.editor.lines > 1 then Box_heights = {} end
  local y = 0
  for i=1,#node.editor.lines do
    local line = node.editor.lines[i]
    if node.editor.line_cache[i] == nil then
      node.editor.line_cache[i] = {}
    end
    node.editor.line_cache[i].fragments = nil
    node.editor.line_cache[i].screen_line_starting_pos = nil
    Text.compute_fragments(node.editor, i)
    Text.populate_screen_line_starting_pos(node.editor, i)
    y = y + math.floor(node.editor.line_height)*#node.editor.line_cache[i].screen_line_starting_pos
	if #node.editor.lines > 1 then
		table.insert(Box_heights, y)
	end
    Text.clear_screen_line_cache(node.editor, i)
  end
  return y
end

on.update = function(dt)
	if Pan then
	end
	if App.mouse_down(1) then
		B()
		clip_all()
	end
end
		Viewport.x = Pan.x - App.mouse_x()
		Viewport.y = Pan.y - App.mouse_y()

update_editor_box = function(obj)
	if obj.editor == nil then return end
	obj.editor.top = vy(obj.y)
	obj.editor.left = math.floor(vx(obj.x))
	obj.editor.right = math.ceil(vx(obj.x+obj.w))
	edit.update_font_settings(obj.editor, scale(20))
	Text.redraw_all(obj.editor)
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":428,"vx":5,"font":353,"fw_parent":427,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":426,"on.draw":418,"Cursor_node":172}

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		A(--[[preserve screen_top of cursor node]] true)
	else
		if chord == 'up' then
			Viewport.y = Viewport.y - scale(20)
			B()
		elseif chord == 'down' then
			Viewport.y = Viewport.y + scale(20)
			B()
		elseif chord == 'left' then
			Viewport.x = Viewport.x - scale(50)
			B()
		elseif chord == 'right' then
			Viewport.x = Viewport.x + scale(50)
			B()
		elseif chord == 'pageup' then
			Viewport.y = Viewport.y - App.screen.height/Viewport.zoom
			B()
		elseif chord == 'S-up' then
			Viewport.y = Viewport.y - App.screen.height/Viewport.zoom
			B()
		elseif chord == 'pagedown' then
			Viewport.y = Viewport.y + App.screen.height/Viewport.zoom
			B()
		elseif chord == 'S-down' then
			Viewport.y = Viewport.y + App.screen.height/Viewport.zoom
			B()
		elseif chord == 'S-left' then
			Viewport.x = Viewport.x - App.screen.width/Viewport.zoom
			B()
		elseif chord == 'S-right' then
			Viewport.x = Viewport.x + App.screen.width/Viewport.zoom
			B()
		end
	end
end

on.text_input = function(t)
	if Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.text_input(Cursor_node.editor, t)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		A(--[[preserve screen_top of cursor node]] true)
	end
end

Page2 = {
	x=500, y=300,
    -- page
		type='text',
        data={
"Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me."
		},
        width=400, bg={r=0,g=0.8,b=0}
}

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
----[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), math.floor(vx(obj.x)), math.ceil(vx(obj.x+obj.w)), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

Page = {
    -- page
	type='cols', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

on.initialize = function()
	A()
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":427,"vx":5,"font":353,"fw_parent":426,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":426,"on.draw":418,"Cursor_node":172}

line_height = function(editor, line_index)
	local line = editor.lines[line_index]
	local line_cache = editor.line_cache[line_index]
	return editor.line_height*#line_cache.screen_line_starting_pos
end

on.draw = function()
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
				obj.text = love.graphics.newText(font(obj, scaled_fontsize), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, true) -- hide cursor
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":425,"vx":5,"font":353,"fw_parent":425,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":426,"on.draw":418,"Cursor_node":172}

y_of_schema1 = function(editor, loc)
	local result = 0
	if loc.line == 1 and loc.pos == 1 then
		return result
	end
	for i=1,loc.line-1 do
		Text.populate_screen_line_starting_pos(editor, i)
		result = result + line_height(editor, i)
	end
	Text.populate_screen_line_starting_pos(editor, loc.line)
	for i,screen_line_starting_pos in ipairs(editor.line_cache[loc.line].screen_line_starting_pos) do
		if screen_line_starting_pos >= loc.pos then
			break
		end
		result = result + editor.line_height
	end
	return result
end

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			local scaled_fontsize = scale(node.fontsize or 20)
			node.w = 0
			for _,s in ipairs(node.data) do
				local text = love.graphics.newText(font(scaled_fontsize), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

A = function(preserve_screen_top_of_cursor_node)
	-- translate Page to Surface
	while #Surface > 3 do table.remove(Surface) end  -- HACK
	compute_layout(Page, Page.x,Page.y, Surface, preserve_screen_top_of_cursor_node)
	-- continue the pipeline
	B(preserve_screen_top_of_cursor_node)
	-- TODO: ugly that we're manipulating editor objects twice
end

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			if not child.width then
				child.width = node.width  -- HACK: should we set child.w or child.width? Neither is quite satisfactory.
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

on.draw = function()
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.width),scale(obj.height))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.scaled_fontsize ~= scaled_fontsize then
				obj.scaled_fontsize = scaled_fontsize
				if Font == nil then Font = {} end
				if Font[scaled_fontsize] == nil then
					Font[scaled_fontsize] = love.graphics.newFont(scaled_fontsize)
				end
				obj.text = love.graphics.newText(Font[scaled_fontsize], obj.data)
			end
			love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		end
	end
end

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				print(node.data[i], 'has width', width)
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			if not child.width then
				child.width = node.width  -- HACK: should we set child.w or child.width? Neither is quite satisfactory.
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

B = function()
	-- editor objects implicitly depend on current font so update it
	love.graphics.setFont(love.graphics.newFont(scale(20)))
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				initialize_editor(obj)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
----[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), math.ceil(vx(obj.x+obj.w)), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":425,"vx":5,"font":353,"fw_parent":424,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":421,"on.draw":418,"Cursor_node":172}

Page = {
    -- page
	type='cols', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

Page2 = {
	x=500, y=300,
    -- page
		type='text',
        data={
"Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me."
		},
        width=400, bg={r=0.8,g=0,b=0.8}
}

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		A(--[[preserve screen_top of cursor node]] true)
	else
		if chord == 'up' then
			Viewport.y = Viewport.y - scale(20)
		elseif chord == 'down' then
			Viewport.y = Viewport.y + scale(20)
		elseif chord == 'left' then
			Viewport.x = Viewport.x - scale(50)
		elseif chord == 'right' then
			Viewport.x = Viewport.x + scale(50)
		elseif chord == 'pageup' then
			Viewport.y = Viewport.y - App.screen.height/Viewport.zoom
		elseif chord == 'S-up' then
			Viewport.y = Viewport.y - App.screen.height/Viewport.zoom
		elseif chord == 'pagedown' then
			Viewport.y = Viewport.y + App.screen.height/Viewport.zoom
		elseif chord == 'S-down' then
			Viewport.y = Viewport.y + App.screen.height/Viewport.zoom
		elseif chord == 'S-left' then
			Viewport.x = Viewport.x - App.screen.width/Viewport.zoom
		elseif chord == 'S-right' then
			Viewport.x = Viewport.x + App.screen.width/Viewport.zoom
		end
	end
end

font = function(fontsize)
	if Font == nil then Font = {} end
	if Font[fontsize] == nil then
		Font[fontsize] = love.graphics.newFont(fontsize)
	end
	return Font[fontsize]
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"on.text_input":388,"vy":8,"scale":7,"y_of_schema1":364,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"on.code_change":306,"on":1,"Page":381,"Page2":424,"vx":5,"font":353,"fw_parent":422,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"A":421,"on.draw":418,"Cursor_node":172}

A = function(preserve_screen_top_of_cursor_node)
	-- translate Page to Surface
	while #Surface > 3 do table.remove(Surface) end  -- HACK
	compute_layout(Page, Page.x,Page.y, Surface, preserve_screen_top_of_cursor_node)
	-- continue the pipeline
	B()
end

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
		print('init', obj.data[1], obj.w)
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), vx(obj.x+obj.w), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

Page = {
    -- page
	type='rows', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

schema1_of_y = function(editor, y)
	-- return line/pos of screen line starting near a given y offset,
	-- and the (negative) offset remaining after the calculation
	-- invariants:
	-- 	- 0 >= y_offset >= -Line_height
	-- 	- let loc, y_offset = schema1_of_y(pane, y)
	-- 		y + y_offset == y_of_schema1(pane, loc)
	assert(y >= 0)
	local y_offset = y
	for i=1,#editor.lines do
		Text.populate_screen_line_starting_pos(editor, i)
		local height = line_height(editor, i)
		if y_offset < height then
			local line = editor.lines[i]
			local nlines = math.floor(y_offset/editor.line_height)
			assert(nlines >= 0 and nlines < #editor.line_cache[i].screen_line_starting_pos)
			local pos = editor.line_cache[i].screen_line_starting_pos[nlines+1]  -- switch to 1-indexing
			y_offset = y_offset - nlines*editor.line_height
			return {line=i, pos=pos}, -y_offset
		end
		y_offset = y_offset - height
	end
	-- y is below the pane
	return {line=#pane.lines+1, pos=1}, y_offset  -- positive value
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"B":379,"vy":8,"scale":7,"A":421,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"Page2":423,"vx":5,"font":353,"fw_parent":422,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

box_height = function(node)
	-- return the height of a node. The result is scaled.
	print('computing box height based on font size', node.scaled_fontsize, node.editor.font_height, node.editor.line_height)
	if #node.editor.lines > 1 then Box_heights = {} end
  local y = 0
  for i=1,#node.editor.lines do
    local line = node.editor.lines[i]
    if node.editor.line_cache[i] == nil then
      node.editor.line_cache[i] = {}
    end
    node.editor.line_cache[i].fragments = nil
    node.editor.line_cache[i].screen_line_starting_pos = nil
    Text.compute_fragments(node.editor, i)
    Text.populate_screen_line_starting_pos(node.editor, i)
--    y = y + node.scaled_fontsize*#node.editor.line_cache[i].screen_line_starting_pos
    y = y + math.floor(node.editor.line_height)*#node.editor.line_cache[i].screen_line_starting_pos
	if #node.editor.lines > 1 then
		table.insert(Box_heights, y)
	end
  end
  return y
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":421,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":421,"to_text":180,"line_height":365,"Surface":422,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

on.draw = function()
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
				love.graphics.setFont(font(scaled_fontsize))
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

on.draw = function()
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 1, obj.g or 1, obj.b or 1)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.width),scale(obj.height))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.scaled_fontsize ~= scaled_fontsize then
				obj.scaled_fontsize = scaled_fontsize
				if Font == nil then Font = {} end
				if Font[scaled_fontsize] == nil then
					Font[scaled_fontsize] = love.graphics.newFont(scaled_fontsize)
				end
				obj.text = love.graphics.newText(Font[scaled_fontsize], obj.data)
			end
			love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":421,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":420,"to_text":180,"line_height":365,"Surface":420,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			local scaled_fontsize = scale(node.fontsize or 20)
			node.w = 0
			for _,s in ipairs(node.data) do
				local text = love.graphics.newText(font(node, scaled_fontsize), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

Page2 = {
	x=400, y=400,
    -- page
		type='text',
        data={
"Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me."
		},
        width=400, bg={r=0.8,g=0,b=0.8}
}

line_height = function(editor, line_index)
	local line = State.lines[line_index]
	local line_cache = State.line_cache[line_index]
	return editor.line_height*#line_cache.screen_line_starting_pos
end

Cursor_node = nil

B = function(preserve_screen_top_of_cursor_node)
	-- recompute various aspects based on the current viewport settings
	love.graphics.setFont(love.graphics.newFont(scale(20)))  -- editor objects implicitly depend on current font so update it
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				update_editor_box(obj, preserve_screen_top_of_cursor_node)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":417,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":419,"to_text":180,"line_height":365,"Surface":420,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

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

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				print(node.data[i], 'has width', width)
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			if node.width and not child.width then
				child.width = node.width  -- HACK: should we set child.w or child.width? Neither is quite satisfactory.
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				print(node.data[i], 'has width', width)
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

line_height = function(editor, line_index, left, right)
	local line = State.lines[line_index]
	local line_cache = State.line_cache[line_index]
	return editor.line_height*#line_cache.screen_line_starting_pos
end

Page = {
    -- page
	type='cols', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
--			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

box_height = function(node)
	-- return the height of a node. The result is scaled.
	print('computing box height based on font size', node.scaled_fontsize, node.editor.font_height, node.editor.line_height)
	if #node.editor.lines > 1 then Box_heights = {} end
  local y = 0
  for i=1,#node.editor.lines do
    local line = node.editor.lines[i]
    if node.editor.line_cache[i] == nil then
      node.editor.line_cache[i] = {}
    end
    node.editor.line_cache[i].fragments = nil
    node.editor.line_cache[i].screen_line_starting_pos = nil
    Text.compute_fragments(node.editor, i)
    Text.populate_screen_line_starting_pos(node.editor, i)
--    y = y + node.scaled_fontsize*#node.editor.line_cache[i].screen_line_starting_pos
    y = y + math.floor(node.editor.line_height)*#node.editor.line_cache[i].screen_line_starting_pos
	if #node.editor.lines > 1 then
		table.insert(Box_heights, y)
	end
  end
  return y
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":417,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":418,"to_text":180,"line_height":365,"Surface":419,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

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

A = function(preserve_screen_top_of_cursor_node)
	-- translate Page to Surface
	while #Surface > 3 do table.remove(Surface) end  -- HACK
	local red = false
	for x=-1000,2000,300 do
		for y=-10000,10000,200 do
			add_thick_line({type='line', data={x,y, x+200,y+200, x,y+400}, r=red and 1 or 0,g=red and 0 or 0.5,b=0}, 10)
			red = not red
		end
	end
	compute_layout(Page, Page.x,Page.y, Surface, preserve_screen_top_of_cursor_node)
	compute_layout(Page2, Page2.x,Page2.y, Surface, preserve_screen_top_of_cursor_node)
	-- continue the pipeline
	B(preserve_screen_top_of_cursor_node)
	-- TODO: ugly that we're manipulating editor objects twice
end

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

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":417,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":417,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":418,"Cursor_node":172}

compute_layout = function(node, x,y, nodes_to_render, preserve_screen_top_of_cursor_node)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		if node.editor == nil then
			initialize_editor(node)
		else
			update_editor_box(node, preserve_screen_top_of_cursor_node)
		end
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			if not child.width then
				child.width = node.width  -- HACK: should we set child.w or child.width? Neither is quite satisfactory.
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

B = function(preserve_screen_top_of_cursor_node)
	-- recompute various aspects based on the current viewport settings
	love.graphics.setFont(love.graphics.newFont(scale(20)))  -- editor objects implicitly depend on current font so update it
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				update_editor_box(obj, preserve_screen_top_of_cursor_node)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

schema1_of_y = function(editor, y)
	-- return line/pos of screen line starting near a given y offset,
	-- and the (negative) offset remaining after the calculation
	-- invariants:
	-- 	- 0 >= y_offset >= -Line_height
	-- 	- let loc, y_offset = schema1_of_y(pane, y)
	-- 		y + y_offset == y_of_schema1(pane, loc)
	assert(y >= 0)
	local y_offset = y
	for i=1,#editor.lines do
		Text.populate_screen_line_starting_pos(editor, i)
		local height = line_height(editor, i, editor.left, editor.right)
		if y_offset < height then
			local line = editor.lines[i]
			local nlines = math.floor(y_offset/editor.line_height)
			assert(nlines >= 0 and nlines < #editor.line_cache[i].screen_line_starting_pos)
			local pos = editor.line_cache[i].screen_line_starting_pos[nlines+1]  -- switch to 1-indexing
			y_offset = y_offset - nlines*editor.line_height
			return {line=i, pos=pos}, -y_offset
		end
		y_offset = y_offset - height
	end
	-- y is below the pane
	return {line=#pane.lines+1, pos=1}, y_offset  -- positive value
end

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

on.draw = function()
	for _,obj in ipairs(Surface) do
		color(obj.r or 1, obj.g or 1, obj.b or 1)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.width),scale(obj.height))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.scaled_fontsize ~= scaled_fontsize then
				obj.scaled_fontsize = scaled_fontsize
				if Font == nil then Font = {} end
				if Font[scaled_fontsize] == nil then
					Font[scaled_fontsize] = love.graphics.newFont(scaled_fontsize)
				end
				obj.text = love.graphics.newText(Font[scaled_fontsize], obj.data)
			end
			love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":417,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":416,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

to_text = function(x,y)
	for _,node in ipairs(Surface) do
		if node.type == 'text' then
			print(x, y, node.data[1], node.x, node.y, node.w, node.h)
			if x >= vx(node.x) and node.w and x < vx(node.x + node.w) then
				if y >= vy(node.y) and node.h and y < vy(node.y + node.h) then
					return node
				end
			end
		end
	end
end

update_editor_box = function(node, preserve_screen_top_of_cursor_node)
	if node.editor == nil then return end
	if node.y > Viewport.y then
		if not preserve_screen_top_of_cursor_node or node ~= Cursor_node then
			node.editor.screen_top1.line = 1
			node.editor.screen_top1.pos = 1
		end
		node.editor.top = vy(node.y)
	else
		node.editor.screen_top1, node.editor.top = schema1_of_y(node.editor, Viewport.y - node.y)
	end
	print('top', node.editor.top)
	print('screen_top1', node.editor.screen_top1.line, node.editor.screen_top1.pos)
	node.editor.left = math.floor(vx(node.x))
	node.editor.right = math.ceil(vx(node.x+node.w))
	edit.update_font_settings(node.editor, scale(20))
	Text.redraw_all(node.editor)
end

on.draw = function()
	love.graphics.setColor(1,0,0)
	for y=0,1000,100 do
		love.graphics.line(vx(-5),vy(y), vx(5),vy(y))
	end
	for x=0,1000,100 do
		love.graphics.line(vx(x),vy(-5), vx(x),vy(5))
	end
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":416,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":415,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

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

Page2 = {
	x=800, y=400,
    -- page
		type='text',
        data={
"Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me."
		},
        width=400, bg={r=0.8,g=0,b=0.8}
}

on.draw = function()
	love.graphics.setColor(1,0,0)
	for y=0,1000,100 do
		love.graphics.line(vx(-5),vy(y), vx(5),vy(y))
	end
	for x=0,1000,100 do
		love.graphics.line(vx(x),vy(-5), vx(x),vy(5))
	end
	love.graphics.setColor(0,1,0)
	for _,y in ipairs(Box_heights) do
		love.graphics.line(vx(0), vy(y), vx(10), vy(y))
	end
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":415,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":414,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

schema1_of_y = function(editor, y)
	-- return line/pos of screen line starting near a given y offset,
	-- and the (negative) offset remaining after the calculation
	-- invariants:
	-- 	- 0 >= y_offset >= -Line_height
	-- 	- let loc, y_offset = schema1_of_y(pane, y)
	-- 		y + y_offset == y_of_schema1(pane, loc)
	return {line=1, pos=1}, 0
	assert(y >= 0)
	local y_offset = y
	for i=1,#editor.lines do
		Text.populate_screen_line_starting_pos(editor, i)
		local height = line_height(editor, i, editor.left, editor.right)
		if y_offset < height then
			local line = editor.lines[i]
			local nlines = math.floor(y_offset/editor.line_height)
			assert(nlines >= 0 and nlines < #editor.line_cache[i].screen_line_starting_pos)
			local pos = editor.line_cache[i].screen_line_starting_pos[nlines+1]  -- switch to 1-indexing
			y_offset = y_offset - nlines*editor.line_height
			return {line=i, pos=pos}, -y_offset
		end
		y_offset = y_offset - height
	end
	-- y is below the pane
	return {line=#pane.lines+1, pos=1}, y_offset  -- positive value
end

on.draw = function()
				love.graphics.setColor(1,0,0)
				for y=0,1000,100 do
					love.graphics.line(vx(-5),vy(y), vx(5),vy(y))
				end
				for x=0,1000,100 do
					love.graphics.line(vx(x),vy(-5), vx(x),vy(5))
				end
love.graphics.setColor(0,1,0)
for _,y in ipairs(Box_heights) do
	love.graphics.line(vx(0), vy(y), vx(10), vy(y))
end
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
print('setting font', scaled_fontsize)
				love.graphics.setFont(font(scaled_fontsize))
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		B(--[[skip_cursor_node]] true)
	end
end

to_text = function(x,y)
	for _,node in ipairs(Surface) do
		if node.type == 'text' then
			print(x, y, node.data[1], node.x, node.y, node.w, node.h)
			if x >= node.x and node.w and x < node.x + node.w then
				if y >= node.y and node.h and y < node.y + node.h then
					return node
				end
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":414,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":413,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(20, node.data)
				local width = text:getWidth()
				print(node.data[i], 'has width', width)
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

box_height = function(node)
	-- return the height of a node. The result is scaled.
  local y = 0
  for i=1,#node.editor.lines do
    local line = node.editor.lines[i]
    if node.editor.line_cache[i] == nil then
      node.editor.line_cache[i] = {}
    end
    node.editor.line_cache[i].fragments = nil
    node.editor.line_cache[i].screen_line_starting_pos = nil
    Text.populate_screen_line_starting_pos(node.editor, i)
    y = y + node.editor.line_height*#node.editor.line_cache[i].screen_line_starting_pos
    Text.clear_screen_line_cache(node.editor, i)
  end
  return y
end

A = function()
	-- translate Page to Surface
	while #Surface > 3 do table.remove(Surface) end  -- HACK
	compute_layout(Page, Page.x,Page.y, Surface)
	-- continue the pipeline
	B()
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":413,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":412,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

update_editor_box = function(obj)
	if obj.editor == nil then return end
	if obj.y > Viewport.y then
		obj.editor.screen_top1.line = 1
		obj.editor.screen_top1.pos = 1
		obj.editor.top = vy(obj.y)
	else
		obj.editor.screen_top1, obj.editor.top = schema1_of_y(obj.editor, Viewport.y - obj.y)
	end
	print('top', obj.editor.top)
	print('screen_top1', obj.editor.screen_top1.line, obj.editor.screen_top1.pos)
	obj.editor.left = math.floor(vx(obj.x))
	obj.editor.right = math.ceil(vx(obj.x+obj.w))
	edit.update_font_settings(obj.editor, scale(20))
	Text.redraw_all(obj.editor)
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":412,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":411,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

compute_layout = function(node, x,y, nodes_to_render, preserve_screen_top_of_cursor_node)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			node.w = 0
			for i,s in ipairs(node.data) do
				local text = love.graphics.newText(font(20), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		if node.editor == nil then
			initialize_editor(node)
		else
			update_editor_box(obj, preserve_screen_top_of_cursor_node)
		end
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			if not child.width then
				child.width = node.width  -- HACK: should we set child.w or child.width? Neither is quite satisfactory.
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
----[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), vx(obj.x+obj.w), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			print('before', Viewport.y)
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
			print('after', Viewport.y)
		end
		B(--[[skip_cursor_node]] true)
	end
end

Surface = {
  -- test data
  {type='line', data={0,0, 0,600}},
  {type='line', data={0,0, 800,0}},
  {type='text', data={'0'}, x=-20,y=-20},
  {type='rectangle', x=50,y=50, w=20,h=80, r=1,g=0,b=0},
  {type='text', data={'abc', 'def'}, x=150, y=50, w=50,h=50, fg={r=0,g=0.4, b=0.9}},
  {type='circle', x=300,y=200, radius=40, r=1,g=0,b=1},
  {type='arc', x=0,y=0, radius=50, angle1=0, angle2=math.pi*2/3},
  {type='ellipse', x=100,y=100, radiusx=10, radiusy=50},
  {type='bezier', data={25,25, 25,125, 75,25, 125,25}},
}

Page2 = {
    -- page
		type='text',
        data={
"Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me."
		},
        width=400, bg={r=0.8,g=0,b=0.8}
}

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		-- leaf node containing raw text
		print(x,y, node.data[1])
		node.x = x
		node.y = y
		-- render background if necessary
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- render contents
		if node.width then
			node.w = node.width
		else
			local scaled_fontsize = scale(node.fontsize or 20)
			node.w = 0
			for _,s in ipairs(node.data) do
				local text = love.graphics.newText(font(scaled_fontsize), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end

on.draw = function()
	for _,obj in ipairs(Surface) do
		color(obj.r or 1, obj.g or 1, obj.b or 1)
		if obj.type == 'rect' then
			rect(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.width),scale(obj.height))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			circ(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.scaled_fontsize ~= scaled_fontsize then
				obj.scaled_fontsize = scaled_fontsize
				if Font == nil then Font = {} end
				if Font[scaled_fontsize] == nil then
					Font[scaled_fontsize] = love.graphics.newFont(scaled_fontsize)
				end
				obj.text = love.graphics.newText(Font[scaled_fontsize], obj.data)
			end
			love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			line(unpack(obj.zdata))
		end
	end
end

on.draw = function()
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			print('draw rectangle', obj.x)
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
				obj.text = love.graphics.newText(font(obj, scaled_fontsize), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, true) -- hide cursor
			end
		end
	end
end

to_text = function(x,y)
	for _,node in ipairs(Surface) do
		if node.type == 'text' then
			print(x, y, node.data[1], node.x, node.y, node.w, node.h)
			if x >= node.x and x < node.x + node.w then
				if y >= node.y and y < node.y + node.h then
					return node
				end
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":411,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":410,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

B = function()
	for _,obj in ipairs(Surface) do
		if obj.type == 'line' then
			obj.zdata = {}
			for i=1,#obj.data,2 do
				table.insert(obj.zdata, vx(obj.data[i]))
				table.insert(obj.zdata, vy(obj.data[i+1]))
			end
		elseif obj.type == 'bezier' then
			zdata = {}
			for i=1,#obj.data,2 do
				table.insert(zdata, vx(obj.data[i]))
				table.insert(zdata, vy(obj.data[i+1]))
			end
			obj.zdata = love.math.newBezierCurve(zdata):render()
		elseif obj.type == 'text' then
			if obj.w then
				initialize_editor(obj)
			else
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
			end
		end
	end
end

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		B(--[[preserve screen_top of cursor node]] true)
	end
end

font = function(fontsize)
	if Font == nil then Font = {} end
	if Font[fontsize] == nil then
		print(fontsize)
		Font[fontsize] = love.graphics.newFont(fontsize)
	end
	return Font[fontsize]
end

Surface = {
  -- test data
  {type='rect', x=50,y=50, width=20,height=80, r=1,g=0,b=0},
  {type='line', data={0,0, 0,600}},
  {type='line', data={0,0, 800,0}},
  {type='text', data='0', x=-20,y=-20},
  {type='circle', x=300,y=200, radius=40, r=1,g=0,b=1},
  {type='arc', x=0,y=0, radius=50, angle1=0, angle2=math.pi*2/3},
  {type='ellipse', x=100,y=100, radiusx=10, radiusy=50},
  {type='bezier', data={25,25, 25,125, 75,25, 125,25}},
}

	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
	end
end
		edit.keychord_press(Cursor_node.editor, chord, key)
on.keychord_press = function(chord, key)

to_text = function(x,y)
	for _,node in ipairs(Surface) do
		if node.type == 'text' then
			print(node.data[1])
			if x >= node.x and x < node.x + node.w then
				if y >= node.y and y < node.y + node.h then
					return node
				end
			end
		end
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":410,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":409,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
----[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), vx(obj.x+obj.w), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

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

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		B(--[[skip_cursor_node]] true)
	end
end

Page = {
    -- page
	type='cols', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

Surface = {
  {type='rect', x=50,y=50, width=20,height=80, r=1,g=0,b=0},
  {type='line', data={0,0, 0,600}},
  {type='line', data={0,0, 800,0}},
  {type='text', data='0', x=-20,y=-20},
  {type='circle', x=300,y=200, radius=40, r=1,g=0,b=1},
  {type='arc', x=0,y=0, radius=50, angle1=0, angle2=math.pi*2/3},
  {type='ellipse', x=100,y=100, radiusx=10, radiusy=50},
  {type='bezier', data={25,25, 25,125, 75,25, 125,25}},
}

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":409,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":408,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

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

on.text_input = function(t)
	if Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.text_input(Cursor_node.editor, t)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.editor.screen_top1)
		end
		B(--[[preserve screen_top of cursor node]] true)
	end
end

on.draw = function()
				love.graphics.setColor(1,0,0)
				for y=0,1000,100 do
					love.graphics.line(vx(-5),vy(y), vx(5),vy(y))
				end
				for x=0,1000,100 do
					love.graphics.line(vx(x),vy(-5), vx(x),vy(5))
				end
love.graphics.setColor(0,1,0)
for _,y in ipairs(Box_heights) do
	love.graphics.line(vx(0), vy(y), vx(10), vy(y))
end
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
print('setting font', scaled_fontsize)
				love.graphics.setFont(font(scaled_fontsize))
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

Page2 = {
    -- page
		type='text',
        data={
'Call me Ishmael.  Some years ago--never mind how long precisely--having little or no money in my purse, and nothing particular to interest me on shore, I thought I would sail about a little and see the watery part of the world.  It is a way I have of driving off the spleen and regulating the circulation.  Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the rear of every funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's hats off--then, I account it high time to get to sea as soon as I can.  This is my substitute for pistol and ball.  With a philosophical flourish Cato throws himself upon his sword; I quietly take to the ship.  There is nothing surprising in this.  If they but knew it, almost all men in their degree, some time or other, cherish very nearly the same feelings towards the ocean with me.'
		},
        width=400, bg={r=0.8,g=0,b=0.8}
}

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":408,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":407,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
----[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), vx(obj.x+obj.w), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

on.keychord_press = function(chord, key)
	if chord == 'C-=' then
		-- zoom in
		Viewport.zoom = Viewport.zoom+0.1
		B()
	elseif chord == 'C--' then
		-- zoom out
		Viewport.zoom = Viewport.zoom-0.1
		B()
	elseif chord == 'C-0' then
		-- reset zoom
		Viewport.zoom = 1.0
		B()
	elseif Cursor_node then
		local old_top = {line=Cursor_node.editor.screen_top1.line, pos=Cursor_node.editor.screen_top1.pos}
		edit.keychord_press(Cursor_node.editor, chord, key)
		if not eq(Cursor_node.editor.screen_top1, old_top) then
			Viewport.y = Cursor_node.y + y_of_schema1(Cursor_node.editor, Cursor_node.screen_top1)
		end
		B(--[[skip_cursor_node]] true)
	end
end

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":407,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":406,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

Surface = {
  -- test data
  {type='line', data={0,-1000, 0,1000}},
  {type='line', data={-10000,0, 10000,0}},
  {type='text', data={'0'}, x=-20,y=-30},
  {type='rectangle', x=50,y=50, w=20,h=80, r=1,g=0,b=0},
  {type='text', data={'abc', 'def'}, x=150, y=50, w=50,h=50, fg={r=0,g=0.4, b=0.9}},
  {type='circle', x=300,y=200, radius=40, r=1,g=0,b=1},
  {type='arc', x=0,y=0, radius=50, angle1=0, angle2=math.pi*2/3},
  {type='ellipse', x=100,y=100, radiusx=10, radiusy=50},
  {type='bezier', data={25,25, 25,125, 75,25, 125,25}},
}

	print('code changed')
	A()  -- just in case we edited Page
end
on.code_change = function()

{"update_editor_box":377,"copy_shape":396,"Viewport":303,"vy":8,"scale":7,"A":406,"on.text_input":388,"schema1_of_y":366,"on.mouse_press":179,"on.initialize":350,"on.mouse_release":367,"initialize_editor":338,"on.update":368,"box_height":345,"on.keychord_press":391,"compute_layout":385,"Page":381,"on":1,"on.code_change":306,"B":379,"vx":5,"font":353,"fw_parent":405,"to_text":180,"line_height":365,"Surface":196,"add_thick_line":400,"y_of_schema1":364,"on.draw":346,"Cursor_node":172}

on.draw = function()
	love.graphics.setColor(1,0,0)
	for y=0,1000,100 do
		love.graphics.line(vx(-5),vy(y), vx(5),vy(y))
	end
	for x=0,1000,100 do
		love.graphics.line(vx(x),vy(-5), vx(x),vy(5))
	end
	love.graphics.setColor(0,1,0)
	for _,y in ipairs(Box_heights) do
		love.graphics.line(vx(0), vy(y), vx(10), vy(y))
	end
	for _,obj in ipairs(Surface) do
		love.graphics.setColor(obj.r or 0, obj.g or 0, obj.b or 0)
		if obj.type == 'rectangle' then
			love.graphics.rectangle(obj.drawmode or 'fill', vx(obj.x),vy(obj.y), scale(obj.w),scale(obj.h))
		elseif obj.type == 'line' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.zdata = {}
				for i=1,#obj.data,2 do
					table.insert(obj.zdata, vx(obj.data[i]))
					table.insert(obj.zdata, vy(obj.data[i+1]))
				end
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'circle' then
			love.graphics.circle(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radius))
		elseif obj.type == 'arc' then
			love.graphics.arc(obj.drawmode or 'line', obj.arctype or 'open', vx(obj.x), vy(obj.y), scale(obj.radius), obj.angle1, obj.angle2, obj.segments)
		elseif obj.type == 'ellipse' then
			love.graphics.ellipse(obj.drawmode or 'fill', vx(obj.x), vy(obj.y), scale(obj.radiusx), scale(obj.radiusy))
		elseif obj.type == 'bezier' then
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				zdata = {}
				for i=1,#obj.data,2 do
					table.insert(zdata, vx(obj.data[i]))
					table.insert(zdata, vy(obj.data[i+1]))
				end
				obj.zdata = love.math.newBezierCurve(zdata):render()
			end
			love.graphics.line(unpack(obj.zdata))
		elseif obj.type == 'text' then
			local scaled_fontsize = scale(obj.fontsize or 20)
			if obj.saved_zoom ~= Viewport.zoom or obj.saved_x ~= Viewport.x or obj.saved_y ~= Viewport.y or obj.scaled_fontsize ~= scaled_fontsize then
				obj.saved_zoom = Viewport.zoom
				obj.saved_x = Viewport.x
				obj.saved_y = Viewport.y
				obj.scaled_fontsize = scaled_fontsize
print('setting font', scaled_fontsize)
				love.graphics.setFont(font(scaled_fontsize))
				obj.text = love.graphics.newText(love.graphics.getFont(), obj.data)
				initialize_editor(obj)
			end
			if obj.w == nil then
				love.graphics.draw(obj.text, vx(obj.x), vy(obj.y))
			else
				edit.draw(obj.editor, obj.fg or {r=0,g=0,b=0}, not obj.show_cursor)
			end
		end
	end
end

initialize_editor = function(obj)
	if obj.w then
		-- use an editor to wrap the text
		local scaled_fontsize = scale(20)
		local scaled_lineheight = math.floor(scaled_fontsize*1.3)
--[[
		print('init', obj.data[1], obj.w)
		print('at zoom', Viewport.zoom)
		print('width', obj.w, 'scales to', scale(obj.w))
		print('left', vx(obj.x))
		print('right', vx(obj.x+obj.w))
		print('width', vx(obj.x+obj.w)-vx(obj.x))
-- ]]
		obj.editor = edit.initialize_state(vy(obj.y), vx(obj.x), vx(obj.x+obj.w), scaled_fontsize, scaled_lineheight)
		obj.editor.lines = load_array(obj.data)
		Text.redraw_all(obj.editor)
	end
end

Page = {
    -- page
	type='cols', x=0, y=0,
    width=800, data={
      -- editor covering left side
      {
		type='text',
        name='editor',
        doc='prose goes here, on the left half of the window',
        margin=Margin_left,
        data={
--			"Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.",
			'1',
			'2',
			'3',
			'mno',
			'Acb',
			'g',
			'hij',
			'klm',
			'nop',
		},
        width=400, bg={r=1,g=1,b=0}
      },
      -- a table on the right
      { type='rows', name='searches', margin=50, data={
        { type='text', data={''},},
        { type='cols', data={
          { type='text', data={'search:'},},
          { type='text', name='search', bg={r=0.8,g=0.8,b=0.8}, data={''}, width=90,},
        }},
		{ type='text', data={'table:'},},
        { type='cols', bg={r=0.8,g=0.8,b=0.8}, data={
            { type='rows', width=90, data={
              {type='text', data={'abc'},},
              {type='text', data={'abc'},},
            }},
            { type='rows', width=90, data={
              {type='text', data={'def'},},
              {type='text', data={'def'},},
            }},
        }},
      }},
    },
}

compute_layout = function(node, x,y, nodes_to_render)
	-- append to nodes_to_render flattened instructions to render a hierarchy of nodes
	-- return x,y rendered until (surface coordinates)
	if node.type == 'text' then
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- leaf node containing raw text
		node.x = x
		node.y = y
		if node.width then
			node.w = node.width
		else
			local scaled_fontsize = scale(node.fontsize or 20)
			node.w = 0
			for _,s in ipairs(node.data) do
				local text = love.graphics.newText(font(node, scaled_fontsize), node.data)
				local width = text:getWidth()
				if node.w < width then node.w = width end
			end
		end
		initialize_editor(node)
	    node.h = box_height(node)
		table.insert(nodes_to_render, node)
		if node_to_render then
			node_to_render.w = node.w
			node_to_render.h = node.h
		end
	elseif node.type == 'rows' then
		node.x = x
		node.y = y
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		-- lay out children top to bottom
		local subx,suby = x,y
		local w,h = 0,0
		local subnodes
		for _,child in ipairs(node.data) do
			if child.margin then
				suby = suby+child.margin
				h = h+child.margin
			end
			subx,suby = compute_layout(child, x,suby, nodes_to_render)
			if w < child.w then
				w = child.w
			end
			h = h+child.h
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	elseif node.type == 'cols' then
		node.x = x
		node.y = y
		-- lay out children left to right
		local node_to_render
		if node.bg then
			node_to_render = {type='rectangle', r=node.bg.r, g=node.bg.g, b=node.bg.b, x=node.x, y=node.y}
			table.insert(nodes_to_render, node_to_render)
		end
		local subx,suby = x,y
		local w,h = 0,0
		for _,child in ipairs(node.data) do
			if child.margin then
				subx = subx+child.margin
				w = w+child.margin
			end
			subx,suby = compute_layout(child, subx,y, nodes_to_render)
			w = w + child.w
			if h < child.h then
				h = child.h
			end
		end
		node.w = w
		node.h = h
		if node_to_render then
			node_to_render.w = w
			node_to_render.h = h
		end
	end
	return x+node.w,y+node.h
end