Graphics

 View Only

  • 1.  (How) can this script be cleaner?

    Posted 12-05-2023 10:34

    I made this script, to make several tracks in a Scene Director active and/or inactive based on what is put in the TextObject. I think the script could be much cleaner and simpler, but i'm not sure what to change...tried some things but that caused the script to stop functioning.

    Any good suggestions?

    Thanx in advance

    dim SceneDirector1 as xpSceneDirector
    dim trackQRcode, trackTitelbalk, trackStellingEvents, trackQRcodeStem, trackStemBalk, trackStemEvents as xpSceneDirectorTrack
    dim textQR as xpTextObject


    Self.GetSceneDirectorByName ("SceneDirector1", SceneDirector1)
    SceneDirector1.GetTrackByName ("trackQRcode", trackQRcode)
    SceneDirector1.GetTrackByName ("trackTitelbalk", trackTitelbalk)
    SceneDirector1.GetTrackByName ("trackStellingEvents", trackStellingEvents)
    SceneDirector1.GetTrackByName ("trackQRcodeStem", trackQRcodeStem)
    SceneDirector1.GetTrackByName ("trackStemBalk", trackStemBalk)
    SceneDirector1.GetTrackByName ("trackStemEvents", trackStemEvents)
    Self.GetObjectByName ("textQR", textQR)


    if textQR.Text = "QR-code stelling" then
    trackQRcodeStem.Enabled = false
    trackStemBalk.Enabled = false
    trackStemEvents.Enabled = false
    trackQRcode.Enabled = true
    trackTitelbalk.Enabled = true
    trackStellingEvents.Enabled = true


    else
    trackQRcode.Enabled = false
    trackTitelbalk.Enabled = false
    trackStellingEvents.Enabled = false
    trackQRcodeStem.Enabled = true
    trackStemBalk.Enabled = true
    trackStemEvents.Enabled = true


    end if



    ------------------------------
    Justus van der Hulst
    Live Graphics Operator
    Euro Media Group
    Hilversum, The Netherlands
    ------------------------------


  • 2.  RE: (How) can this script be cleaner?

    Posted 12-06-2023 03:39

    Hi.
    Try a script below.

            Dim SceneDirector1 As xpSceneDirector
        Dim track(5) As xpSceneDirectorTrack
        Dim textQR As xpTextObject

        self.GetSceneDirectorByName("SceneDirector1", SceneDirector1)
        SceneDirector1.GetTrackByName("trackQRcode", track(0))
        SceneDirector1.GetTrackByName("trackTitelbalk", track(1))
        SceneDirector1.GetTrackByName("trackStellingEvents", track(2))
        SceneDirector1.GetTrackByName("trackQRcodeStem", track(3))
        SceneDirector1.GetTrackByName("trackStemBalk", track(4))
        SceneDirector1.GetTrackByName("trackStemEvents", track(5))
        self.GetObjectByName("textQR", textQR)

        For i As Integer = 0 To 2
            track(i).Enabled = (textQR.Text = "QR-code stelling")
            track(i + 3).Enabled = (textQR.Text <> "QR-code stelling")
        Next


    ------------------------------
    Roman Yaroshenko
    chief specialist
    RBC-TV
    Moscow Russian Federation
    ------------------------------

    Original Message


  • 3.  RE: (How) can this script be cleaner?

    Posted 12-06-2023 05:29

    Smart. 



    ------------------------------
    Simon Redmile
    Senior Graphic Programmer & Designer
    Ross Video
    Bristol United Kingdom
    ------------------------------

    Original Message


  • 4.  RE: (How) can this script be cleaner?

    Posted 12-07-2023 04:37

    Wow! Thanks! Very nice! Works great!



    ------------------------------
    Justus van der Hulst
    Live Graphics Operator
    Euro Media Group
    Hilversum, The Netherlands
    ------------------------------

    Original Message