Announcement

Collapse
No announcement yet.

Scene Camera Preview

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Scene Camera Preview

    Hello,

    I have a scene that i need to see the different camera previews through the newsroom component (iNews). I am changing the camera position with a script but the camera switch does not appear in the preview in inews. It just shows camera 1. Is there a way to show the different cameras in pilot preview. I tried using an action table but that did not work, I also tried putting a pilot tag on the cameras but that did not work either.

    Any suggestions?

    Thanks in advance,
    Shotski

  • #2
    hello shotski
    can you upload scene to test in our system to know this issue and help you

    Comment


    • #3
      You can try a script in the scene:

      Code:
      Sub OnPreview(active as Integer)
         Scene.CurrentCameraIndex = 3
      End Sub
      If that doesn't work, you can force it like this:

      Code:
      Sub OnExecPerField()
         If System.IPAdressString == "Your preview engine IP" Then
             Scene.CurrentCameraIndex = 3
         End If
      End Sub

      Comment


      • #4
        We have a script, where we can force a testmode which also has a camera switch. We check if we are in Artistmode or in OnAirmode, we use it like this.

        Code:
        dim g_sIP as String = system.IPAddressString
        dim g_sMode as String
        dim PreviewMode as Boolean
        
        
        sub OnInitParameters()
            RegisterPushButton("CheckEngine", "Check Engine", 1)
            RegisterParameterBool("testmode", "Testmode", false)
        end sub
            
        sub EngineCheck()
        
        
            if g_sIP == "this is the fixed ip address for the onair machine" then
                println(14, "Live on LED Engine")
                g_sMode = "livetoair"
                SwitchToOutputCamera()
                PreviewMode = False
                println(14, "Viewing on an OutputEngine")
            else
                println(14, "This is not the live LED engine in the studio")
                g_sMode = "test"
                SwitchToPreviewCamera()
                PreviewMode = True
                println(14, "Previewing on the PreviewEngine")
            end if
            println(14, "Mode set to " & g_sMode)
        end sub
            
        sub OnExecAction(buttonId As Integer)
            if buttonId == 1 then
                    EngineCheck()
            end if
        end sub
            
        sub OnInit()
            EngineCheck()
        end sub
            
        
        Sub OnExecPerField()
            if GetParameterBool("testmode") == false then
                if PreviewMode = True then
                    sendCommand("-1 RENDERER SET_CAMERA 15")
                    sendCommand("-1 RENDERER*BACK_LAYER SET_ACTIVE 0")
                else
                    sendCommand("RENDERER SET_CAMERA 5")
                    sendCommand("-1 RENDERER*BACK_LAYER SET_ACTIVE 1")
                end if
            else
                sendCommand("-1 EDITOR*4 SET_CAMERA 15")
            end if
        End sub
        
        sub SwitchToPreviewCamera()
            
            if sendCommand("MAIN IS_ON_AIR") == "0" then
                sendCommand("-1 EDITOR*4 SET_CAMERA 15")
                sendCommand("-1 SCENE_EDITOR*BACK_LAYER SET_ACTIVE 0")
            else
                sendCommand("-1 RENDERER*CURRENT_CAMERA SET 15")
                sendCommand("-1 RENDERER*BACK_LAYER SET_ACTIVE 0")
            end if
            
            sendCommand("-1 RENDERER*CURRENT_CAMERA SET 15")
            println(14, "Camera is set to 15")
        end sub
        
        sub SwitchToOutputCamera()
            if sendCommand("MAIN IS_ON_AIR") == "0" then
                sendCommand("-1 EDITOR*4 SET_CAMERA 5")
                sendCommand("-1 SCENE_EDITOR*BACK_LAYER SET_ACTIVE 1")
            else
                sendCommand("-1 RENDERER*CURRENT_CAMERA SET 5")
                sendCommand("-1 RENDERER*BACK_LAYER SET_ACTIVE 1")
            end if
            println(14, "Camera is set to 5")
        end sub
        
        
        sub OnParameterChanged(parameterName As String)
            EngineCheck()
        end sub

        Comment

        Working...
        X