class
	EL_SVG_PIXMAP

inherit
	EL_PIXMAP
		rename
			pixmap_path as pixmap_path,
			background_color as pixmap_background_color
		redefine
			make_from_other, initialize, set_background_color
		end

	EV_BUILDER

	EL_MODULE_FILE_SYSTEM; EL_MODULE_FILE

	EL_MODULE_SCREEN

	EL_MODULE_LIO

	EL_MODULE_DIRECTORY

	EL_SHARED_PROGRESS_LISTENER

create
	default_create, make_from_other,

	make_with_width_cms, make_with_height_cms,
	make_with_width, make_with_height,
	make_with_path_and_width, make_with_path_and_height,

	make_transparent_with_width, make_transparent_with_height,
	make_transparent_with_width_cms, make_transparent_with_height_cms,
	make_transparent_with_path_and_width, make_transparent_with_path_and_height

feature {NONE} -- Initialization

	initialize
		do
			Precursor
			create svg_path
			create png_output_path
		end

	make_from_other (other: like Current)
			--
		do
			default_create
			is_width_scaled := other.is_width_scaled
			dimension := other.dimension
			svg_path := other.svg_path
			png_output_path := other.png_output_path
			pixmap_path := other.pixmap_path
			create text_origin.make (other.text_origin.x, other.text_origin.y)
			set_background_color (other.background_color)
			update_pixmap (svg_path)
			is_made := update_pixmap_on_initialization
		end

	make_transparent_with_height (a_svg_path: like svg_path; a_height: INTEGER)
			--
		do
			make_with_height (a_svg_path, a_height, Transparent_color)
		end

	make_transparent_with_height_cms (a_svg_path: like svg_path; a_height_cms: REAL)
			--
		do
			make_with_height_cms (a_svg_path, a_height_cms, Transparent_color)
		end

	make_transparent_with_path_and_height (a_svg_path: like svg_path; a_height: INTEGER)
			--
		do
			make_with_path_and_height (a_svg_path, a_height, Transparent_color)
		end

	make_transparent_with_path_and_width (a_svg_path: like svg_path; a_width: INTEGER)
			--
		do
			make_with_path_and_width (a_svg_path, a_width, Transparent_color)
		end

	make_transparent_with_width (a_svg_path: like svg_path; a_width: INTEGER)
			--
		do
			make_with_width (a_svg_path, a_width, Transparent_color)
		end

	make_transparent_with_width_cms (a_svg_path: like svg_path; a_width_cms: REAL)
			--
		do
			make_with_width_cms (a_svg_path, a_width_cms, Transparent_color)
		end

	make_with_path_and_height (a_svg_path: like svg_path; a_height: INTEGER; a_background_color: EL_COLOR)
			--
		do
			default_create
			svg_path := a_svg_path
			create text_origin
			is_width_scaled := False
			set_dimension (a_height)
			set_background_color (a_background_color)
			is_made := update_pixmap_on_initialization
			update_pixmap_if_made
		end

	make_with_path_and_width (a_svg_path: like svg_path; a_width: INTEGER; a_background_color: EL_COLOR)
			--
		do
			default_create
			svg_path := a_svg_path
			create text_origin
			is_width_scaled := True
			set_dimension (a_width)
			set_background_color (a_background_color)
			is_made := update_pixmap_on_initialization
			update_pixmap_if_made
		end

feature {EL_FACTORY_CLIENT} -- Initialization

	make_with_height (a_svg_path: like svg_path; a_height: INTEGER; a_background_color: EL_COLOR)
			--
		do
			make_with_path_and_height (a_svg_path, a_height, a_background_color)
		end

	make_with_height_cms (a_svg_path: like svg_path; a_height_cms: REAL; a_background_color: EL_COLOR)
			--
		do
			make_with_path_and_height (
				a_svg_path, Screen.vertical_pixels (a_height_cms), a_background_color
			)
		end

	make_with_width (a_svg_path: like svg_path; a_width: INTEGER; a_background_color: EL_COLOR)
			--
		do
			make_with_path_and_width (a_svg_path, a_width, a_background_color)
		end

	make_with_width_cms (a_svg_path: like svg_path; a_width_cms: REAL; a_background_color: EL_COLOR)
			--
		do
			make_with_path_and_width (a_svg_path, Screen.horizontal_pixels (a_width_cms), a_background_color)
		end

feature -- Access

	background_color: EL_COLOR
		do
			if is_transparent then
				create Result.make_transparent
			else
				create Result.make (pixmap_background_color)
			end
		end

	dimension: INTEGER
		-- pixel dimension width or height depending on is_width_scaled

	png_output_path: FILE_PATH
		-- png output path

	svg_path: FILE_PATH

feature -- Status report

	is_transparent: BOOLEAN

	is_width_scaled: BOOLEAN

feature -- Element change

	set_background_color (a_background_color: like background_color)
			--
		do
			Precursor (a_background_color)
			is_transparent := a_background_color.is_transparent
			update_pixmap_if_made
		end

	set_dimension (a_dimension: INTEGER)
			--
		do
			dimension := a_dimension
			update_pixmap_if_made
		end

	set_dimension_cms (a_dimension_cms: REAL)
			--
		do
			if is_width_scaled then
				dimension := Screen.horizontal_pixels (a_dimension_cms)
			else
				dimension := Screen.vertical_pixels (a_dimension_cms)
			end
			update_pixmap_if_made
		end

	set_svg_path (a_svg_path: like svg_path)
		do
			svg_path := a_svg_path
			update_pixmap_if_made
		end

	set_transparent_background_color
		do
			is_transparent := True
		end

feature {EL_SVG_PIXMAP} -- Implementation

	is_made: BOOLEAN

	png_output_dir: DIR_PATH
		local
			base_path, pixmap_base_path: DIR_PATH
		do
			base_path := Directory.Application_installation
			if base_path.is_parent_of (svg_path) then
				pixmap_base_path := Directory.App_cache
			else
				base_path := svg_path.parent
				pixmap_base_path := base_path
			end
			Result := pixmap_base_path #+ svg_path.relative_path (base_path).parent
		end

	render_svg: PROCEDURE [EL_PNG_IMAGE_FILE, EL_FILE_URI_PATH, STRING, INTEGER, INTEGER]
		do
			if is_width_scaled then
				Result := agent {EL_PNG_IMAGE_FILE}.render_svg_of_width
			else
				Result := agent {EL_PNG_IMAGE_FILE}.render_svg_of_height
			end
		end

	rendering_variables: EL_ARRAYED_MAP_LIST [STRING, INTEGER]
		do
			create Result.make (5)
			if is_width_scaled then
				Result.extend (Initial_w, dimension)
			else
				Result.extend (Initial_h, dimension)
			end
			Result.extend (Initial_c, background_color.rgb_32_bit)
		end

	set_centered_text_origin (a_width, a_height, left_offset, right_offset: INTEGER)
			--
		do
			create text_origin.make (((width - a_width) / 2).rounded, ((height - a_height) / 2).rounded)
		end

	set_pixmap_path_from_svg
		do
			png_output_path := png_output_dir + unique_png_path
			pixmap_path := png_output_path.to_path
		end

	svg_xml (a_svg_path: FILE_PATH): STRING
		do
			Result := File.plain_text (a_svg_path)
		end

	text_origin: EV_COORDINATE

	unique_png_path: FILE_PATH
			-- name that is unique for combined rendering variables
		local
			hex_string, base: ZSTRING; buffer: EL_ZSTRING_BUFFER_ROUTINES
		do
			base := buffer.empty
			across rendering_variables as modifier loop
				if modifier.cursor_index > 1 then
					base.append_character ('.')
				end
				base.append_string_general (modifier.key)
				hex_string := modifier.value.to_hex_string
				hex_string.prune_all_leading ('0')
				if hex_string.is_empty then
					base.append_character ('0')
				else
					base.append (hex_string)
				end
			end
			create Result.make (base)
			Result.append_step (svg_path.base)
			Result.replace_extension (Extension_png)
		end

	update_pixmap (a_svg_path: like svg_path)
			--
		local
			png_dir: DIR_PATH; png_image_file: EL_PNG_IMAGE_FILE
			l_svg_xml: like svg_xml; svg_uri: EL_FILE_URI_PATH
		do
--			log.enter_no_header ("update_pixmap")
			if a_svg_path.exists and then not png_output_path.exists then
				l_svg_xml := svg_xml (a_svg_path)

				png_dir := png_output_path.parent
				File_system.make_directory (png_dir)
--				log_or_io.put_string_field ("Writing", png_output_path.to_string)
--				log_or_io.put_new_line
				svg_uri := a_svg_path
				create png_image_file.make_open_write (png_output_path)
				render_svg (png_image_file, svg_uri, l_svg_xml, dimension, background_color.rgb_32_bit)
				png_image_file.close
				progress_listener.notify_tick
			end
			if png_output_path.exists then
				set_with_named_path (pixmap_path)
				pixmap_exists := True
			end
--			log.exit_no_trailer
		ensure
			write_succeeded: a_svg_path.exists implies pixmap_exists
		end

	update_pixmap_if_made
		do
			if is_made then
				set_pixmap_path_from_svg
				update_pixmap (svg_path)
			end
		end

	update_pixmap_on_initialization: BOOLEAN
		do
			Result := True
		end

feature -- Conversion

	to_pixmap: EV_PIXMAP
		local
			pixel_buffer: EV_PIXEL_BUFFER
		do
			create pixel_buffer.make_with_pixmap (Current)
			create Result.make_with_pixel_buffer (pixel_buffer)
		end

feature -- Constants

	Transparent_color: EL_COLOR
		once ("PROCESS")
			create Result.make_transparent
		end

feature {NONE} -- Constants

	Extension_png: ZSTRING
		once
			Result := "png"
		end

	Initial_c: STRING = "c"

	Initial_h: STRING = "h"

	Initial_w: STRING = "w"

	Png_format: EV_PNG_FORMAT
		once
			create Result
		end

end