Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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>