//    Instruction Example :      filter.apply (objectid,objectid)


    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_MATRIX5X5, FILTER_BLUR)

        Filter.Apply(@Filter, @Pic)
    Text.Display("Blurred", 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()