//    Instruction Example :      filter.offset.set (objectid,long)


    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.Create(FILTER_MATRIX3X3)
        Filter.Row.Set(@filter, 0, -1, 0, 1)
        Filter.Row.Set(@filter, 1, -1, 0, 1)
        Filter.Row.Set(@filter, 2, -1, 0, 1)
        Filter.Offset.Set(@filter, 128)
        Filter.Scale.Set(@filter, 1)

        Filter.Apply(@filter, @pic)
    Text.Display("Filter Offset = 128", 316, 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()