'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