Graphics

 View Only

  • 1.  Script for automatic position

    Posted 07-07-2024 12:24
      |   view attached

    Hi,

    I have the following script to fill an hemicycle with 7 colors ( Cylinder1 to Cylinder7 using the following values TextEndAngle1 to TextEndAngle7 )

    Dim MyText as xpTextObject
    Dim MyCylinder as xpCylinderObject
    Dim MyAnimcontroler as xpAnimController

    For i as Integer = 1 To 7
            self.GetObjectByName("TextEndAngle" & i, MyText)
            Self.GetObjectByName("Cylinder" & i, MyCylinder)
            self.GetAnimControllerByName("AnimCylinder", MyAnimcontroler)
            MyAnimControler.SetKeyFrameValueTCB(MyCylinder,25,"EndAngle", MyText.Text,1,0,0)
    Next

    I'm looking for a script to automaticly position the 7 quads as positionned on the picture.

    Regards



    ------------------------------
    Karim Lakehal
    VIDELIO - AMP VISUALTV
    Paris France
    ------------------------------


  • 2.  RE: Script for automatic position

    Posted 07-08-2024 08:08
      |   view attached

    Hi Karim

    In the attachment is what you want.

    This has done using scripts and VL (VL is disabled. If you want to use VL, you need to disable the script engine)



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

    Attachment(s)

    xpf
    election.xpf   97 KB 1 version
    Original Message