[REBOL] Re: ANN: Rebol/Arcadia beta public release + FYI4
From: rebolek:seznam:cz at: 6-Mar-2002 10:57
Runs OK for me. But I can't get into well where the REAL FUN begins.
Cyphre, what's wrong? ;-)
Anyway, my mailbox is full of demos but I still need more (mainly
because its full of my demos :). You have only 9 days or so, so to
encourage you little bit here is another small piece. This time it's
whirpool (public domain, again, for those who are interested in legal
sh*t).
rebol [Title: "REBOL/Demo Competition"]
rd: [1x1 0x1 -1x1 -1x0 -1x-1 0x-1 1x-1 1x0]
view layout [
b: box 150x150 with [
rate: 0
edge: none
image: make image! 150x150
feel: make feel [
engage: func [f a e][
switch a [
time [
f/effect: compose/deep [
(xx: to-image f)
crop 5x5 140x140
fit
contrast 200
blur
difference (xx)
gradmul (ss: first rd rd: next rd if tail? rd [rd: head rd] ss)
]
f/image: to-image f
show f
]
]
]
]
]
]
