//    Instruction Example :     objectid filter.load (string)


    Screen.Resolution.Set(512, 384)

        @pic    = Picture.Load("avo\filter.jpg")
        %Width  = Picture.Width.Get(@pic)
        %Height = Picture.Height.Get(@pic)

    Text.Display("Original", 100, 80)
        Picture.Display(@pic, 0 + (256 - %Width) / 2, CENTER)

        @filter = Filter.Load("avo\filter.tvf")

        Filter.Apply(@filter, @pic)
        Text.Display("Filter", 356, 80)
        Picture.Display(@pic, 256 + (256 - %Width) / 2, CENTER)

        Text.Display("Press a key to exit.", CENTER, 350)
    Keyboard.wait()

        Filter.Free(@filter)
    Script.Stop()