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

[REBOL] a demo

From: anton:lexicon at: 3-Dec-2002 0:25

blk: [space 0 across] repeat y 10 [repeat x 10 [ append blk compose/deep [ box 22x22 rate 48 effect [draw [line 10x10 10x10]] feel [ angle: (y * 7 + x * 4) engage: func [face action event][ if action = 'time [ face/effect/2/2: to-pair reduce [ 10 + to-integer 10 * cosine angle 10 + to-integer 10 * sine angle ] angle: angle + 4 show face ] ] ] ] ] append blk [return]] view center-face layout blk