if fg == nil then
    initialize_color()
  end

    App.color(fg)

    if fg then
      App.color(fg)
    else
      select_color(frag)
    end

              App.color(fg)

              App.color(fg or Text_color)

            Text.draw_cursor(State, x+Text.x(frag, State.cursor1.pos-pos+1), y, Cursor_color, fg)

            Text.draw_cursor(State, x+Text.x(frag, State.cursor1.pos-pos+1), y, Cursor_color, fg or Text_color)

      Text.draw_cursor(State, x, y, Cursor_color, fg)

      Text.draw_cursor(State, x, y, Cursor_color, fg or Text_color)

442

443

require 'colorize'

-- State transitions while colorizing a single line.
-- Just for comments and strings.
-- Limitation: each fragment gets a uniform color so we can only change color
-- at word boundaries.
Next_state = {
  normal={
    {prefix='--', target='comment'},
    {prefix='"', target='dstring'},
    {prefix="'", target='sstring'},
  },
  dstring={
    {suffix='"', target='normal'},
  },
  sstring={
    {suffix="'", target='normal'},
  },
  -- comments are a sink
}
Comments_color = {r=0, g=0, b=1}
String_color = {r=0, g=0.5, b=0.5}
Divider_color = {r=0.7, g=0.7, b=0.7}
Colors = {
  normal=Text_color,
  comment=Comments_color,
  sstring=String_color,
  dstring=String_color
}
Current_state = 'normal'
function initialize_color()
--?   print('new line')
  Current_state = 'normal'
end
function select_color(frag)
--?   print('before', '^'..frag..'$', Current_state)
  switch_color_based_on_prefix(frag)
--?   print('using color', Current_state, Colors[Current_state])
  App.color(Colors[Current_state])
  switch_color_based_on_suffix(frag)
--?   print('state after suffix', Current_state)
end
function switch_color_based_on_prefix(frag)
  if Next_state[Current_state] == nil then
    return
  end
  frag = rtrim(frag)
  for _,edge in pairs(Next_state[Current_state]) do
    if edge.prefix and find(frag, edge.prefix, nil, --[[plain]] true) == 1 then
      Current_state = edge.target
      break
    end
  end
end
function switch_color_based_on_suffix(frag)
  if Next_state[Current_state] == nil then
    return
  end
  frag = rtrim(frag)
  for _,edge in pairs(Next_state[Current_state]) do
    if edge.suffix and rfind(frag, edge.suffix, nil, --[[plain]] true) == #frag then
      Current_state = edge.target
      break
    end
  end
end

on.draw = function()
	love.graphics.setColor(1,0,0)
	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, not obj.show_cursor)
			end
		end
	end
end

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