[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
]
]
]
]
]
]