//      Instruction Example :  objectid light.track.get (objectid)

        screen.resolution.set (512,384)

        Screen.Set(BACK)
          Pattern.Display("avo\bubble.gif")
          Screen.End()

        @camera   = Camera.Create(0.0, 0.0, -100.0, 0.0, 0.0, 0.0)

        @viewport = Viewport.Create()
        Viewport.Camera.Set(@viewport, @camera)

        @light  = Light.Direct.Create(0.0, 100.0, -100.0, 0.0, 0.0, 0.0)

          Mesh.Rotation.Stack(-30, 30, 0)
        @cube = Mesh.Cube.Create(40)
        Mesh.Light.Assign(@cube, @light)

        Mesh.Display(@cube)
        Viewport.Display(@viewport)

        @track=track.create (TRACK_LOOP_SMOOTH)
          track.key.set (0)
          track.key.position.set (-500,0,0)
          track.key.set (1)
          track.key.position.set (0,0,500)
          track.key.set (2)
          track.key.position.set (500,0,0)
          track.key.set (3)
          track.key.position.set (0,0,-500)
        track.end ()

        @sequence=sequence.play (@track,@light)

        Screen.Set(FRONT)
          Text.Display("ObjectID of the Track = "+str (light.track.get (@light)), CENTER, 10)
          Text.Display("Press a key to exit.", CENTER, 350)
          Screen.End()

        keyboard.wait ()

        script.stop ()