Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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