a bloated one-liner

It can be in one line :) but I've added some newlines to survive email posting. So paste this into your console: do s: {view center-face layout repeat n 10 [ append [backdrop black size 320x320 space 0] compose/deep [ h1 form pick "HelloWorld" (n) (random white) rate 50 with [ n: (n * 10)] feel [engage: func [f a e][if a = 'time [ f/n: f/n + 1 f/offset/x: 150 + to-integer 140 * sine f/n * f/n * 0.001 + f/n show f]]]]]} length? replace/all s form newline "" ; (length without newlines) Anton.

Hi Anton, What a beautiful and relaxing feeling... With this one you could easily compete with those artificial gelatinous waves enclosed in aquariums and selled at 70 $ CDN a piece or compete with OLD mirror balls that were used ( in the 70s) when I danced my first slows in darkened rooms otherwise lighted only by blacklights... Imagine this (and other appropriate) patterns displayed on a giant waterfall screen backlighted by some projector driven by a REBOL script and synchronized by some OLD SONGS or NEW AGE music (Kitaro or Vangelis do you remember old timers ??? or any other submission from recent chores or artists I don't know of yet!) somewhere in some RAVE party or theatre (for romantics) or simply in my living (since I can't afford any of those) ... I am not always dreaming but ... Cheers, Gerard P.S. For this one I prefer not to ask for the DOCs and delight myself with my eyes. Thanks. It's a pleasure to contemplate with!

2002-11-24 05:26:41, "Anton" <[anton--lexicon--net]> wrote:

>do s: {view center-face layout repeat n 10 [ >append [backdrop black size 320x320 space 0] compose/deep [ >show f]]]]]} >length? replace/all s form newline "" ; (length without newlines)