//    Instruction Example :      track.color.interpolation.set (long)


        screen.resolution.set (512,384)

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

        @track1=track.create (TRACK_LOOP)
          track.color.interpolation.set (INTERP_LINEAR)
          init (-50)
        track.end ()

        @track2=track.create (TRACK_LOOP)
          track.color.interpolation.set (INTERP_FRONT)
          init (50)
        track.end ()

        mesh.cube.display (CENTER,CENTER,320,200,@track1)
        mesh.cube.display (CENTER,CENTER,320,200,@track2)

        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()

        procedure init (%pos)
          track.key.set (0)
          track.key.position.set (%pos,0,0)
          track.key.color.set (0,0,0)
          track.key.set (1)
          track.key.color.set (32,0,0)
          track.key.set (2)
          track.key.color.set (64,128,128)
          track.key.set (3)
          track.key.color.set (0,255,250)
          track.key.set (4)
        end procedure