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

[REBOL] Re: a demo

From: rebolek::seznam::cz at: 2-Dec-2002 22:01

Gregg Irwin wrote:
>Cyphre and Anton, > >Cool demos *both* of you! > >-- Gregg >
Yes, I agree. So why don't you people send something to next Rebol Demo Competition? :) April 2003 is right behind the door ;) bye, bolek oh, yes, a demo: rd: [1x1 0x1 -1x1 -1x0 -1x-1 0x-1 1x-1 1x0] cl: [255.127.127 255.255.127 127.255.127 127.255.255 127.127.255 255.127.255] view layout [ b: box 151x151 with [ ;text: "o" rate: 0 edge: none image: make image! 151x151 font: make font [color: 127.127.127 shadow: 0x0 size: 15 style: 'bold] feel: make feel [ engage: func [f a e][ switch a [ time [ f/effect: compose/deep [ draw [pen (cs: first cl cl: next cl if tail? cl [cl: head cl] cs) circle 75x75 6] (xx: to-image f) crop 5x5 140x140 fit contrast (random 4) ;(5 - random 3) blur sharpen blur luma (-15 - random 10) ] f/image: to-image f show f ] ] ] ] ] ]