[REBOL] FYI (for your information)
From: reboldemo::seznam::cz at: 25-Feb-2002 13:51
Hi.
Just run the script for your information.
REBOL/Demo Team
8<----cut-here-(use-sharp-scissors-;-)------------8<
rebol [Title "REBOL/Demo Competition"]
view layout [
b: box 350x150 with [
text: either now/date < 15-3-2002 [
rejoin [15-3-2002 - now/date " days to deadline!"]
][
"See you next year!"
]
rate: 20
edge: none
image: make image! 350x150
font: make font [color: red shadow: 1x1 size: 15 style: 'bold]
effect: compose [
crop 1x3 347x143
fit
luma (random -60)
blur
sharpen
contrast 10
]
feel: make feel [
engage: func [f a e][
switch a [
time [
f/para/scroll: (random 2x5) - 1x3
f/font/color: (random 100.100.100) + 150.155.150
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