[REBOL] a bloated one-liner
From: anton::lexicon::net at: 24-Nov-2002 15:26
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.