indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	EM3D_CAMERA_MANAGER
inherit
	EM3D_OBJECT_MANAGER[EM3D_CAMERA]
		redefine
			create_new, create_new_unnamed,make
		end

create
	make
feature -- Object creatation
	create_new (a_name: STRING ) : EM3D_CAMERA is
			-- Create a new camera
		do
			result := precursor( a_name )
			result.set_aspect( aspect )
		end
	create_new_unnamed : EM3D_CAMERA is
			-- Create a new camera
		do
			result := precursor
			result.set_aspect( aspect )
		end
	make( a_scene_manager: EM3D_SCENE_MANAGER ) is
			-- Create the manager
		do
			precursor( a_scene_manager )
			aspect := 1.3333
		end

feature -- Status
	aspect: REAL
	set_aspect( a_value : like aspect ) is
			-- Specify the aspect ratio = widht / height
		do
			aspect := a_value
		end

end