Flash8 - GradientBevelFilter 8 12 615 bytes 1100 bytes 2005-10-05 00:00:00 2005-10-05 10:24:02 Oldes (oliva.david@seznam.cz) To test and demonstrate the GradientBevelFilter

(swf8-filterbevelg.rswf)

background 153.165.139
shp_box: shape [
    fill color 255.0.0
    box -70x-70 70x70
    circle 30
]
spr_box: sprite shp_box
box: place spr_box at 160x160
doAction [
    colors: [
        #0000FF #00FF00 #9900FF #FFFF00 #FF0000
        #FFFF00 #9900FF #00FF00 #000000
    ]
    alphas: [1 1 1 1 1 1 1 1 1]
    ratios: [16 32 64 96 128 160 192 224 235]
    
    myBevel: make flash.filters.GradientBevelFilter[
        32        ;distance:Number
        45       ;angle:Number
        colors
        alphas
        ratios
        16       ;blurX:Number
        16       ;blurY:Number
        1        ;strength:Number
        2        ;quality:Number
        "inner"  ;type:String ("inner", "outer", and "full") 
        false    ;knockout:Boolean
    ]
    setBevel: func[mc][
        myBevel.distance: random 32
        myBevel.angle: random 360
        mc.filters: [myBevel]
    ]
    int: setInterval(setBevel 100 box)
]
showFrame end