[REBOL] draw question

From: blemeri::noos::fr at: 25-Oct-2002 12:41

Hi,
We can add a transparent box with effect to an image (see the script below)
but how can we add a transparent circle with effect ? I can't find a
solution. Can anyone help me ?
Bruno.

the-image: load %palms.jpg

faces: layout [
    size the-image/size
    backdrop the-image
]

vid-face: get-style 'face

append faces/pane v-face: make vid-face [
    size: 100x100
    color: font: para: text: data: none
    effect: [invert]
    feel: make feel [
        engage: func [f a e] [  ;intercepts target face events
            if find [over away] a [
                 f/offset: confine f/offset + e/offset - f/data f/size
                    0x0 f/parent-face/size
                show f
            ]
            if a = 'down [f/data: e/offset]
        ]
    ]
]

view faces

[1] · 2 · 3 · 4 · 5 · 6 · See whole thread