Flash8 - blendMode2 8 20 665 bytes 1069 bytes 2005-10-10 00:00:00 2005-10-10 18:26:56 Oldes (oliva.david@seznam.cz) To test and demonstrate the blending modes

(swf8-blendmode2.rswf)

background 255.0.255
shp_star: Shape [
    fill color 0.0.0
    rebol [
        use [s r][
            s: 1
            for r 0 360 60 [
                parse compose/deep [
                    transform [rotate (r) scale (s)]
                    curved n-star 4 140 15
                ] rswf/shp-rules
                s: s - 0.13
            ]
        ]
    ]
]
spr_star: sprite shp_star
star1: place spr_star [at 160x160 scale 2.5]
star2: place spr_star [at 160x160 scale 2 blend "invert"]
doAction [
    star1.onEnterFrame: func[][
        tellTarget this [
            _rotation: _rotation - 1
            if _rotation < 0 [_rotation: _rotation + 360]
        ]
    ]
    star2.onEnterFrame: func[][
        tellTarget this [
            _rotation: _rotation + 1
            if _rotation > 360 [_rotation: _rotation - 360]
        ]
    ]
]
showFrame end