[REBOL] Re: RDC:FYI3
From: carl:cybercraft at: 2-Mar-2002 4:57
On 02-Mar-02, bolek wrote:
> Hurry up, time is running out! February has just ended and you've
> got only two weeks till deadline. You want to be OFFICALLY FIRST
> WINNER of REBOL/Demo competition? Still gotta chance!
> Another flattering demo included, this time in 717 bytes (header
> included)
That one's cool, bolek. If you get no entries, give yourself the
prize for that. (:
Of course, the real reason for the slowdown on posts to this list is
everyone's slaving away writing demos for your comp. (He said,
rather unconvincingly:)
> ------8<-----cut here-------->8---------
> REBOL [Title: "REBOL/Demo Competition"]
> view layout [
> b: box 350x150 with [
> text: "2 weeks left"
> rate: 20
> edge: none
> image: make image! 350x150
> font: make font [color: white size: 18 style: 'bold]
> feel: make feel [
> engage: func [f a e][
> switch a [
> time [
> f/effect: compose/deep [
> (xx: to-image f)
> crop 3x3 342x142
> fit
> blur
> contrast 20
> draw [
> pen random 255.255.255
> fill-pen random 255.255.255
> circle (make pair! reduce [100 + random 100 50 + random 50])
> (random 12)
> ]
> difference (xx)
> luma -10
> ]
> f/image: to-image f
> show f
> ]
> ]
> ]
> ]
> ]
> ]
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft.cz).
> Verze: 6.0.231 / Virov=E1 b=E1ze: 112 - datum vyd=E1n=ED: 12.2.2001
--
Carl Read