REBOL [
    Title: "FIREBOLEK"
    Date: 27-Oct-2001/11:53:55+2:00
    Version: 1.0.0
    File: %fire.r
    Author: "Rebolek"
    Purpose: "Well-known fire-demo for your pleasure"
    Email: rebolek@seznam.cz
    Web: http://www.sweb.cz/rebolek/
    Category: [view tutor 2]
]
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 [show f 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]        
                ]       
            ]
        ]
    ]
    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]]
]