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

class
	EM3D_SPOT_LIGHT
inherit
	EM3D_LIGHT
		redefine
			make
		end

create {EM3D_OBJECT_MANAGER}
	make
feature -- Status
	make(a_scene_manager: EM3D_SCENE_MANAGER) is
			-- Setup the spotlight
		do
			Precursor(a_scene_manager)
			-- 30 looks quite good
			set_cutoff( 30 )
		end
end