indexing

	description: "[

		A tunnel inspired by the optimum demo group.

	]"
	date: "$Date$"
	revision: "$Revision$"

class TUNNEL

inherit

	EM_APPLICATION

create

	make

feature {NONE} -- Initialization

	make is
			-- Create the main application.
		do
			-- Initialise screen
			set_window_width(256)
			set_window_height(256)
			set_screen_resolution(16)
			initialize_screen

			set_window_title ("EiffelMedia Tunnel Example Project")
			set_window_icon ("icon.png")
			set_application_id ("tunnel_example")

			-- set first scene to be shown
			set_scene (create {TUNNEL_SCENE}.make_scene)
			launch

			-- disable everything we have enabled
			-- this prevent some possible memory leakes by the OS
			video_subsystem.disable
		end
end