[REBOL] Re: RDC:FYI3 (plus plasma tunell)
From: rebolek::seznam::cz at: 2-Mar-2002 13:14
It must be hard time living in NZ. You have to walk upside down, celebrate
christmas in middle of summer and living one day before others... :)
Actually, I know NZ only from Peter Jackson's movies and from one TV-serie I
saw when I was 8 (it was called "Deti z kourove hory" here in CZ (CS that
time) - something like "Childern from smoky mountain" but I don't know the
real name ;-), so I may be wrong with my conclusions :-)
Anyway, plasma tunell for your pleasure follows:
REBOL [Title: "REBOL/Demo Competition"]
sset: [-1x0 0x-1 1x0 0x1]
cset: [[-1 1 0][0 -1 1][1 0 -1]]
i: 0
view layout [
b: box 240x240 with [
text: "o"
rate: 20
edge: none
image: make image! 240x240
font: make font [shadow: 4x4 color: 255.0.0] ; 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 + random 2x2) 230x230
blur
fit
]
c: first cset
f/font/shadow: f/font/shadow + first sset
i: i + 1 if i = 8 [i: 0 sset: next sset if tail? sset [sset: head sset]]
f/font/color/1: f/font/color/1 + c/1
f/font/color/2: f/font/color/2 + c/2
f/font/color/3: f/font/color/3 + c/3
if any [f/font/color/1 = 255 f/font/color/2 = 255 f/font/color/3 = 255]
[cset: next cset if tail? cset [cset: head cset]]
f/image: to-image f
show f
]
]
]
]
]
]
---
Well, it's 2-Mar-02 in NZ as I write...
http://times.clari.net.au/location.php3/Pacific/Auckland
But still only 1-Mar-02 in Cz...
http://times.clari.net.au/location.php3/Europe/Prague
So you probably wrote it in real-time, (ie, NZ time), but sent it from
behind-the-times... (:
(Alternatively, my mailer get's a bit confused now and then:)
> ----- Original Message -----
> From: "Carl Read" <[carl--cybercraft--co--nz]>
> To: <[rebol-list--rebol--com]>
> Sent: Friday, March 01, 2002 5:57 PM
> Subject: [REBOL] Re: RDC:FYI3
> 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í zpráva neobsahuje viry.
>> Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
>> Verze: 6.0.231 / Virová báze: 112 - datum vydání: 12.2.2001
--
Carl Read