indexing

	description: "[

		A drawable that moves across the screen at a constant speed.
		The movement is not influenced by the framerate. As drawable we
		chose a string here.

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

class NORMALIZED_SPEED_STRING

inherit

	EM_STRING

	EM_NORMALIZED_SPEED

	EM_SHARED_STANDARD_FONTS
		export {NONE} all end

create

	make_normalized_string

feature -- Initialization

	make_normalized_string is
			-- Initialization
		local
			a_font: EM_FONT
		do
			a_font := standard_bmp_fonts.small_vera_font
			make ("EiffelMedia", a_font)
		end
end