//    Instruction Example :      track.light.intensity.interpolation.set (long)


        screen.resolution.set(512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

        @vp=viewport.create ()
        viewport.camera.set (@vp,camera.create (0,0,-1500,0,0,0))
        viewport.display (@vp)

        @sp=mesh.sphere.create (360,40,40)
        mesh.display (@sp)

        @env=light.omni.create (0,-2000,-8000)
        mesh.light.assign (@sp,@env)
        mesh.shade.mode.set (@sp,MESH_SHADEGOURAUD)

        @track2=track.create (TRACK_LOOP_SMOOTH | TRACK_PINGPONG)
          track.light.intensity.interpolation.set (INTERP_TCBSPLINE)
          init ()
        track.end ()
        @sequence2=sequence.play (@track2,@env)

        screen.set (FRONT)
          text.display ("Press a key to exit.",CENTER,350)
        screen.end ()

        keyboard.wait ()

        Script.Stop()

        procedure init ()
          track.key.set (0)
          track.key.light.intensity.set (0.25)
          track.key.set (1)
          track.key.light.intensity.set (0.5)
          track.key.set (2)
          track.key.light.intensity.set (1)
          track.key.set (3)
          track.key.light.intensity.set (2)
          track.key.set (4)
          track.key.light.intensity.set (3)
          track.key.set (5)
          track.key.light.intensity.set (4)
        end procedure