[REBOL] FIRE!
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]]
]