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

[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.