indexing

	description: "[

		Animation example.

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

class ANIMATION

inherit

	EM_APPLICATION

create

	make

feature {NONE} -- Initialization

	make is
			-- Create the main application.
		do
			-- Initialize `video_subsystem' and `screen'.
			set_window_height (600)
			set_window_width (800)
			initialize_screen

			-- Set global options
			set_window_icon ("icon.png")
			set_window_title ("EiffelMedia Animation Example")
			set_application_id ("animation")

			create animation_scene.make_scene
			set_scene (animation_scene)
			launch
		end

feature {NONE} -- Implementation

	animation_scene: ANIMATION_SCENE

end