'vbscript example demonstrating how to access all Cameras in the

'scene.

'Create a sample scene with different cameras

NewScene ,false

GetPrimCamera

GetPrimCamera "Telephoto.Preset", "Telephoto"

GetPrimCamera "Orthographic.Preset", "Ortho"

'Put the orthographic camera inside a model

CreateModel

GetPrimCamera "Wide_Angle.Preset", "WideAngle"

'Hide one of the cameras underneath a cone

GetPrim "Cone"

CopyPaste "WideAngle_Root", ,"cone", 1

GetPrimCamera "Wide_Angle.Preset", "WideAngle"

'Perform a recursive search for all the cameras in the scene

set oCamerasCollection = ActiveSceneRoot.FindChildren( ,siCameraFilter )

'Print out some information about the Cameras in the scene 

logmessage "The scene contains " & oCamerasCollection.count & " cameras"

for i = 0 to oCamerasCollection.count - 1

	set oCamera = oCamerasCollection.Item( i )

	PrintCameraInfo oCamera		

next

sub PrintCameraInfo( in_obj )

	dim oCamera

	set oCamera = in_obj

	logmessage "-----------------------Camera " & i & "------------------------"

	logmessage "Camera Name: " & oCamera.Name

	logmessage "Camera Root: " & oCamera.Parent

	logmessage "Camera Primitive: " & oCamera.ActivePrimitive

	'The Interest a "sibling" of the Camera so

	'we find it via the parent

	set oChildrenOfParent = oCamera.Parent.Children

	dim oInterest

	for each o in oChildrenOfParent

		if ( o.type = "CameraInterest" ) then

			set oInterest = o

			exit for

		end if

	next

	logmessage "Camera Interest: " & oInterest	

	'Many aspects of the camera can be manipulated by reading and

	'writing the parameters on these various objects

	if ( oCamera.ActivePrimitive.Parameters("proj").Value = 1 ) then

		logmessage "Projection: Perspective"

	else

		logmessage "Projection: Orthographic"

	end if

	logmessage "Field of View: " & oCamera.ActivePrimitive.Parameters("fov").Value

	'Although these parameters actual belong to the local kinematic property,

	'these shortforms are available to vbscript to make it even more convenient

	logmessage "Interest Pos(local): (" & oInterest.posx.Value & _

						"," & oInterest.posy.Value & _

						"," & oInterest.posz.Value & ")"

	set oGlobalKine = oInterest.Kinematics.Global

	logmessage "Interest Pos(global): (" & oGlobalKine.Parameters("posx").Value & _

						"," & oGlobalKine.Parameters("posy").Value & _

						"," & oGlobalKine.Parameters("posz").Value & ")"

end sub

'This is part of the output from running this example:

'INFO : "-----------------------Camera 2------------------------"

'INFO : "Camera Name: Telephoto"

'INFO : "Camera Root: Telephoto_Root"

'INFO : "Camera Primitive: Telephoto.camera"

'INFO : "Camera Interest: Telephoto_Interest"

'INFO : "Projection: Perspective"

'INFO : "Field of View: 6.662"

'INFO : "Interest Pos(local): (0,-2,-20)"

'INFO : "Interest Pos(global): (0,0,0)"

'INFO : "-----------------------Camera 3------------------------"

'INFO : "Camera Name: Ortho"

'INFO : "Camera Root: Model.Ortho_Root"

'INFO : "Camera Primitive: Model.Ortho.camera"

'INFO : "Camera Interest: Model.Ortho_Interest"

'INFO : "Projection: Orthographic"

'INFO : "Field of View: 53.638"

'INFO : "Interest Pos(local): (0,-2,-20)"

'INFO : "Interest Pos(global): (0,0,0)"

'etc.....

'VBScript example : display the properties of a camera

Option Explicit

CreateCamera()

sub CreateCamera()

	dim oCam

	set oCam = ActiveProject.ActiveScene.Root.AddCameraRig( "Camera" ).camera

	LogMessage "camera interest"

	LogMessage oCam.name & ".interest.name: " & oCam.interest.name

	LogMessage "camera parameters"

	oCam.near.value = oCam.near.value * 2

	oCam.far.value = oCam.far.value * 2

	oCam.orthoheight.value = oCam.orthoheight.value * 2

	oCam.fov.value = oCam.fov.value * 2

	LogMessage oCam & ".near: " & oCam.near.value

	LogMessage oCam & ".far: " & oCam.far.value

	LogMessage oCam & ".orthoheight: " & oCam.orthoheight.value

	LogMessage oCam & ".fov: " & oCam.fov.value

	LogMessage "camera marking"

	oCam.near.marked = true

	oCam.far.marked = true

	oCam.orthoheight.marked = true

	oCam.fov.marked = true

	LogMessage oCam & ".near.marked: " & oCam.near.marked

	LogMessage oCam & ".far.marked: " & oCam.far.marked

	LogMessage oCam & ".orthoheight.marked: " & oCam.orthoheight.marked

	LogMessage oCam & ".fov.marked: " & oCam.fov.marked

	LogMessage "camera capabilities"

	LogMessage oCam & ".near.capabilities: " & oCam.near.capabilities

	LogMessage oCam & ".far.capabilities: " & oCam.far.capabilities

	LogMessage oCam & ".orthoheight.capabilities: " & oCam.orthoheight.capabilities

	LogMessage oCam & ".fov.capabilities: " & oCam.fov.capabilities

	LogMessage "camera kinematics position"

	oCam.posx.value = oCam.posx.value * 2

	oCam.posy.value = oCam.posy.value * 2

	oCam.posz.value = oCam.posz.value * 2

	LogMessage oCam & ".posx: " & oCam.posx.value

	LogMessage oCam & ".posy: " & oCam.posy.value

	LogMessage oCam & ".posz: " & oCam.posz.value

	LogMessage "camera kinematics rotation"

	oCam.rotx.value = oCam.rotx.value * 2

	oCam.roty.value = oCam.roty.value * 2

	oCam.rotz.value = oCam.rotz.value * 2

	LogMessage oCam & ".rotx: " & oCam.rotx.value

	LogMessage oCam & ".roty: " & oCam.roty.value

	LogMessage oCam & ".rotz: " & oCam.rotz.value

	LogMessage "camera kinematics scaling"

	oCam.sclx.value = oCam.sclx.value * 2

	oCam.scly.value = oCam.scly.value * 2

	oCam.sclz.value = oCam.sclz.value * 2

	LogMessage oCam & ".sclx: " & oCam.sclx.value

	LogMessage oCam & ".scly: " & oCam.scly.value

	LogMessage oCam & ".sclz: " & oCam.sclz.value

	LogMessage "camera kinematics constrained transfo"

	oCam.cnsscl.value = false

	oCam.cnsori.value = false

	oCam.cnspos.value = false

	LogMessage oCam & ".cnsscl: " & oCam.cnsscl.value

	LogMessage oCam & ".cnsori: " & oCam.cnsori.value

	LogMessage oCam & ".cnspos: " & oCam.cnspos.value

end sub