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

[REBOL] Re: ANN: Rebol/Arcadia beta public release + FYI4

From: rebolek:seznam:cz at: 6-Mar-2002 10:57

Runs OK for me. But I can't get into well where the REAL FUN begins. Cyphre, what's wrong? ;-) Anyway, my mailbox is full of demos but I still need more (mainly because its full of my demos :). You have only 9 days or so, so to encourage you little bit here is another small piece. This time it's whirpool (public domain, again, for those who are interested in legal sh*t). rebol [Title: "REBOL/Demo Competition"] rd: [1x1 0x1 -1x1 -1x0 -1x-1 0x-1 1x-1 1x0] view layout [ b: box 150x150 with [ rate: 0 edge: none image: make image! 150x150 feel: make feel [ engage: func [f a e][ switch a [ time [ f/effect: compose/deep [ (xx: to-image f) crop 5x5 140x140 fit contrast 200 blur difference (xx) gradmul (ss: first rd rd: next rd if tail? rd [rd: head rd] ss) ] f/image: to-image f show f ] ] ] ] ] ]