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

class
	EM3D_POINT_LIGHT

inherit
	EM3D_SPOT_LIGHT
		export {NONE} -- you shouldn't change the cutoff and exponent of the point light
			exponent, set_exponent,
			cutoff, set_cutoff,
			-- A spotlight has also no target
			set_target, target
		redefine
			make
		end

create {EM3D_OBJECT_MANAGER}
	make
feature -- Status
	make(a_scene_manager: EM3D_SCENE_MANAGER) is
			-- Setup the pointlight
		do
			Precursor(a_scene_manager)
			set_exponent( 0 )
			set_cutoff( 180 )
		end

end