• see also:
• view//demos  [2/3]
• || [help]

[REBOL] another demo

From: anton::lexicon::net at: 3-Dec-2002 1:16

blk: copy [backdrop black space 2 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)
				tick: 1
				engage: func [face action event][
					if action = 'time [

						diff: event/offset - face/offset
						tmp1: 180 * cosine diff/x
						tmp2: 180 * sine diff/y

						angle: tmp1 + tmp2 + tick // 360

						face/effect/2/2: to-pair reduce [
							10 + to-integer 10 * cosine angle
							10 + to-integer 10 * sine angle
						]
						tick: tick + 8 // 1000000
						show face
					]
				]
			]
		]
	]
	append blk [return]
]

view center-face layout blk

Anton.

[1] · 2 · 3 · See whole thread