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

[REBOL] FYI (for your information)

From: reboldemo::seznam::cz at: 25-Feb-2002 13:51

Hi. Just run the script for your information. REBOL/Demo Team 8<----cut-here-(use-sharp-scissors-;-)------------8< rebol [Title "REBOL/Demo Competition"] view layout [ b: box 350x150 with [ text: either now/date < 15-3-2002 [ rejoin [15-3-2002 - now/date " days to deadline!"] ][ "See you next year!" ] rate: 20 edge: none image: make image! 350x150 font: make font [color: red shadow: 1x1 size: 15 style: 'bold] effect: compose [ crop 1x3 347x143 fit luma (random -60) blur sharpen contrast 10 ] feel: make feel [ engage: func [f a e][ switch a [ time [ f/para/scroll: (random 2x5) - 1x3 f/font/color: (random 100.100.100) + 150.155.150 f/image: to-image f show f ] ] ] ] ] ] --- 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