[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