indexing

	description: "[

		Bitmap_font example for EiffelMedia using EM_BMP_FONT.

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

class BITMAP_FONT

inherit

	EM_APPLICATION

create

	make

feature {NONE} -- Initialization

	make is
			-- Start main application.
		do
			-- Initiliase subsystems
			initialize_screen

			-- Check subsystem initialisation
			if Video_subsystem.is_enabled then

				-- Set global options
				set_window_title ("EiffelMedia bitmap_font")
				set_window_icon ("icon.png")
				set_application_id ("bitmap_font_example")

				-- Set first scene and launch it
				set_scene (create {FIRST_SCENE}.make_scene)

				launch

				-- Disable subsystems
				Video_subsystem.disable
			else
				io.error.put_string ("Unable to initialise video subsystem.%N")
			end
		end

end