//    Instruction Example :      filter.colorbalance.apply (objectid,float,float,float,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.ColorBalance.Apply(@pic, 0.2, -0.1, 0.85, TRUE)
    Text.Display("ColorBalance applied", 316, 80)
        Picture.Display(@pic, 256 + (256 - %Width) / 2, CENTER)

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

    Script.Stop()