--Lukas Lepicovsky
--Vray Target Light

macroscript vRayTargetLight
		category:"Lukashi"
(
	local thePoint
	local theLight
	tool create 	
	(
		on mousePoint click do
		case click of
		(
			1: (
					theLight=vRayLight()
					thePoint=point box:true
					thePoint.cross = off
					controller=theLight.rotation.controller = LookAt_Constraint StoUP_axis:1 target_axis:2 target_axisFlip:on
					controller.appendTarget thePoint 100
					thePoint.name=theLight.name + "target"
					thePoint.constantscreensize = on
					thePoint.size = 8
					controller.viewline_length_abs = off
					theLight.pos=worldPoint
					thePoint.pos=worldPoint
				) 			
			3:(
				thePoint.pos=worldPoint
				#stop
			   )	
		)
		
		on mouseMove clickno do
		(
			thePoint.pos=worldPoint
		)
	)
	
	starttool create
	
	
)