FIRE!
[1/5] from: rebolek::seznam::cz at: 25-Oct-2001 22:42
Hello,
classical fire demo for your pleasure. Press on fire to switch between 3
different effects.
Beware of line-breaks!
REBOL [title: "FIREBOLEK"]
view layout [
box 150x150 with [
edge: none
img: image: make image! 150x150
rate: 20
text: "FIREBOLEK"
font: make font [size: 24 color: 255.125.0]
basic: [draw [image make pair! reduce [(random 3) - 2 -1] img]]
effects: reduce [
append copy basic [blur luma -10]
append copy basic [sharpen luma -10 blur]
append copy basic [contrast 10 blur luma -5]
]
effect: first effects
feel: make feel [
engage: func [f a e][
switch a [
down [f/effects: next f/effects if tail? f/effects [f/effects: head
f/effects] f/effect: first f/effects show f]
time [repeat i f/size/x - 4 [poke f/image (f/size/x * f/size/y) - i - 2
(random 255.0.0 + random 0.127.0) * 3] f/img: to-image f show f]
]
]
]
]
text 150 {classical fire demo for REBOL^/
press on fire to see other effects.^/
Written by ReBolek, 2001 in 15 mins.^/
We need new category on Assembly:^/
less-than-kb-demo ;-)} with [font: make font [size: 9]]
]
[2/5] from: ryanc:iesco-dms at: 25-Oct-2001 14:01
Excellent! You should add it to the rebol library. --Ryan
Boleslav Březovský wrote:
> Hello,
> classical fire demo for your pleasure. Press on fire to switch between 3
> different effects.
> Beware of line-breaks!
>
> REBOL [title: "FIREBOLEK"]
<SNIP>
[3/5] from: arolls:idatam:au at: 26-Oct-2001 11:02
Mmm, very nice to see. :) -Anton.
[4/5] from: greggirwin:mindspring at: 25-Oct-2001 22:51
Man, that's cool! You guys never cease to amaze me.
--Gregg
[5/5] from: aroberts:swri at: 26-Oct-2001 8:02
WOW!!! That is excellent! Great work!
Best wishes,
Aaron R>