macroScript createCameraFromView
	category:"DaniTools" 
	internalcategory:"DaniTools"
	tooltip:"Create Camera from View"
	buttontext:"Create Camera from View"
	Icon:#("Cameras",1)
(
-- Dani Rosen - 02/2005 - added camera naming functionality
-- place on the toolbar and press to make a camera
-- out of the perpective view

	on isEnabled return viewport.getType () ==#view_persp_user 
		
	on Execute do
	(
		
		global cnw

		rollout RolCamName "Enter Camera Name"
		(
			edittext newcamName "Camera Name:" text:"ViewCamera" fieldWidth:70 align:#center
			radiobuttons camTypeLabels labels:#("FreeCamera", "TargetCamera")
			button OK_button "OK" align:#center width:48 height:24
			on OK_button pressed do
			(
				if camTypeLabels.state == 1 then camType = freecamera
				if camTypeLabels.state == 2 then camType = targetcamera
				viewTM = inverse (viewport.getTM())
				newcam = camType transform:viewTM name:newcamName.text
				viewport.setCamera newcam
				removerollout RolCamName cnw
				closerolloutfloater cnw
			)
		)
		
		cnw = newRolloutFloater "Camera From View" 220 110
		addRollout RolCamName cnw

	)
)