require "sketchup.rb"

def cameraTiltRotate
	model=Sketchup.active_model
	view=model.active_view
	cam=view.camera
	deg1,deg2=UI.inputbox(["Camera tilt (degrees)","Camera rotate (degrees)"],[0,0],"Camera Tilt")
	rad1=(Math::PI/180)*deg1
	rad2=(Math::PI/180)*deg2
	eye=cam.eye
	target=cam.target
	up=cam.up
	perspective=cam.perspective?
	fov=cam.fov
	vec=eye-target
	t=Geom::Transformation.rotation(eye,vec,rad1)
	up.transform!(t)
	t=Geom::Transformation.rotation(eye,up,rad2)
	target.transform!(t)
	view.camera=Sketchup::Camera.new(eye,target,up,perspective,fov)
end

if (not file_loaded?("cameratilt.rb"))
	add_separator_to_menu("Camera")
	UI.menu("Camera").add_item("CameraTiltRotate") { cameraTiltRotate }
end

file_loaded("cameratilt.rb")