Graphics

Hi,

I am currently working on an Xpression project that has scorecards for multiple judges. I am trying to script it that a scene in the sequencer would get the last score information of the previous scene. Unfortunalty i am getting stuck. They do not have a Datalinq license so i am trying my best to make something work for them. I tryed some of the following but they jus do not work.

Any help would be appreciated.

		Dim sourceFB As xpOutputFrameBuffer
    Dim targetFB As xpOutputFrameBuffer
    Dim sourceScene As xpScene
    Dim targetScene As xpScene
    Dim sourceObj As xpTextObject
    Dim targetObj As xpTextObject

    ' Get FrameBuffer 5 (index 4) as source
    If Not Engine.GetOutputFrameBuffer(4, sourceFB) Then
        Engine.DebugMessage("Error: Couldn't access source FrameBuffer", 0)
        Exit Sub
    End If

    ' Get FrameBuffer 5 (index 4) as target
    If Not Engine.GetOutputFrameBuffer(4, targetFB) Then
        Engine.DebugMessage("Error: Couldn't access target FrameBuffer", 0)
        Exit Sub
    End If

    ' Get scenes from both FrameBuffers
    sourceScene = sourceFB.Scene
    targetScene = targetFB.Scene

    If sourceScene Is Nothing Or targetScene Is Nothing Then
        Engine.DebugMessage("Error: Missing scene on one of the FrameBuffers", 0)
        Exit Sub
    End If

    ' Transfer score value
    If sourceScene.GetObjectByName("CumulativeScoreStore0", sourceObj) And _
       targetScene.GetObjectByName("BaseScore0", targetObj) Then
        targetObj.Text = sourceObj.Text
    End If

You didn't get the scenes at any point in your script. eg

sourceFB.GetSceneOnLayer(0, sourceScene)
targetFB.GetSceneOnLayer(1, targetScene)

		Dim sourceFB As xpOutputFrameBuffer    Dim targetFB As xpOutputFrameBuffer    Dim sourceScene As xpScene    Dim targetScene As xpScene    Dim sourceObj As xpTextObject    Dim targetObj As xpTextObject    ' Get FrameBuffer 5 (index 4) as source    If Not Engine.GetOutputFrameBuffer(4, sourceFB) Then        Engine.DebugMessage("Error: Couldn't access source FrameBuffer", 0)        Exit Sub    End If    ' Get FrameBuffer 5 (index 4) as target    If Not Engine.GetOutputFrameBuffer(4, targetFB) Then        Engine.DebugMessage("Error: Couldn't access target FrameBuffer", 0)        Exit Sub    End If    ' Get scenes from both FrameBuffers    sourceScene = sourceFB.Scene    targetScene = targetFB.Scene    If sourceScene Is Nothing Or targetScene Is Nothing Then        Engine.DebugMessage("Error: Missing scene on one of the FrameBuffers", 0)        Exit Sub    End If    ' Transfer score value    If sourceScene.GetObjectByName("CumulativeScoreStore0", sourceObj) And _       targetScene.GetObjectByName("BaseScore0", targetObj) Then        targetObj.Text = sourceObj.Text    End If