module AGL
	class TextHelper
		def initialize font, line_spacing = 0
			@font = font
			@line_spacing = line_spacing
		end
	
		def write_line text, x, y, mode = :left, color = 0xffffffff
			rel =
				case mode
				when :left then 0
				when :center then 0.5
				when :right then 1
				else 0
				end
			@font.draw_rel text, x, y, 0, rel, 0, 1, 1, color
		end
	
		def write_breaking text, x, y, width, mode = :left, color = 0xffffffff
			text.split("\n").each do |p|
				if mode == :justified
					y = write_paragraph_justified p, x, y, width, color
				else
					rel =
						case mode
						when :left then 0
						when :center then 0.5
						when :right then 1
						else 0
						end
					y = write_paragraph p, x, y, width, rel, color
				end
			end
		end
	
		def write_paragraph text, x, y, width, rel, color
			line = ""
			line_width = 0
			text.split(' ').each do |word|
				w = @font.text_width word
				if line_width + w > width
					@font.draw_rel line.chop, x, y, 0, rel, 0, 1, 1, color
					line = ""
					line_width = 0
					y += @font.height + @line_spacing
				end
				line += "#{word} "
				line_width += @font.text_width "#{word} "
			end
			@font.draw_rel line.chop, x, y, 0, rel, 0, 1, 1, color if not line.empty?
			y + @font.height + @line_spacing
		end
	
		def write_paragraph_justified text, x, y, width, color
			space_width = @font.text_width " "
			spaces = [[]]
			line_index = 0
			new_x = x
			words = text.split(' ')
			words.each do |word|
				w = @font.text_width word
				if new_x + w > x + width
					space = x + width - new_x + space_width
					index = 0
					while space > 0
						spaces[line_index][index] += 1
						space -= 1
						index += 1
						index = 0 if index == spaces[line_index].size - 1
					end
				
					spaces << []
					line_index += 1
				
					new_x = x
				end
				new_x += @font.text_width(word) + space_width
				spaces[line_index] << space_width
			end
		
			index = 0
			spaces.each do |line|
				new_x = x
				line.each do |s|
					@font.draw words[index], new_x, y, 0, 1, 1, color
					new_x += @font.text_width(words[index]) + s
					index += 1
				end
				y += @font.height + @line_spacing
			end
			y
		end
	end
end