indexing

	description: "[

		TODO: write description

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

class EM_NORMALIZED_SPEED_2D

create

	make

feature {NONE} -- Initialization

	make is
		-- Create a EM_NORMALIZED_SPEED_2D
		do
			create impl_speed_x
			create impl_speed_y
		end

feature -- Element Change

	set_speed_x (i: INTEGER) is
			-- Sets the speed to `i' pixels per second
		do
			impl_speed_x.set_speed(i)
		end

	speed_x: INTEGER is
		-- The speed in pixels per sec in x direction
		do
			result := impl_speed_x.speed
		end

	get_delta_x: INTEGER is
		do
			result := impl_speed_x.get_delta
		end

	set_speed_y (i: INTEGER) is
			-- Sets the speed to `i' pixels per second
		do
			impl_speed_y.set_speed(i)
		end

	speed_y: INTEGER is
		-- The speed in pixels per sec in y direction
		do
			result := impl_speed_y.speed
		end

	get_delta_y: INTEGER is
		do
			result := impl_speed_y.get_delta
		end

feature {NONE} -- Implementation

	impl_speed_x: EM_NORMALIZED_SPEED
	impl_speed_y: EM_NORMALIZED_SPEED

end