indexing
	description	: "System's root class"
	note		: "Initial version automatically generated"

class
	UC
inherit
	EM_APPLICATION

	UC_SHARED_ITEMS

create
	make

feature -- Initialization

	make is
			-- Creation procedure.
		local
			first_scene: UC_INTERFACE
		do
			video_subsystem.set_video_surface_width (width)
			video_subsystem.set_video_surface_height (height)
			video_subsystem.set_video_bpp (resolution)
			initialize_screen
			set_window_icon ("./image/icon.png")
			set_window_title ("  UC - Under Construction")
			create first_scene
			set_scene (first_scene)
			launch
		end

end -- class ROOT_CLASS