[REBOL] FYI2 (in case you forgot email)
From: reboldemo::seznam::cz at: 26-Feb-2002 11:58
Hello,
in case you forgot email, here is FYI2 for your information.
Feel free to use the engine to whatever you want. You can even sell it
for big money (if someone wants to buy it :-)
Look at line 3 ('tekst). First version was using [...to-string first
text...] but that produces strange results in draw (some strange chars
are printed on screen - instead of "f" it produces something like f=A2=B0
.
And printing one char (#"f") does not work in draw).
Bye, REBOL/DEMO Team
-----------8<-cut-copy-and-paste-here-----8<----------------------
view layout [
b: box 350x150 with [
tekst: ["r" "e" "b" "o" "l" "d" "e" "m" "o" "@" "s" "e" "z" "n" "a"
m
"." "c" "z"]
rate: 20
edge: none
image: make image! 350x150
font: make font [color: red shadow: 1x1 size: 15 style: 'bold]
feel: make feel [
engage: func [f a e][
switch a [
time [
f/effect: compose/deep [
crop 1x3 347x142
fit
blur
contrast 3
luma -28
draw [
pen (200.200.200 + random 55.55.55)
font make font [size: (18 + random 12)]
text (make pair! reduce [((14 + random 2) * index? f/tekst) 40 +
random 15]) (first f/tekst)
]
]
f/image: to-image f
show f
f/tekst: next f/tekst
if tail? f/tekst [f/tekst: head f/tekst]
]
]
]
]
]
]
---
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