REBOL [
	Title: "Circle of REB"
	Author: "Not sure - Carl or Cyphre?"
]

n: 10
dn: 5
view layout [
	box 400x400 white rate 15 effect [
		draw [
			pen logo.gif
			circle 200x200 n
		]
	]
	feel [
		engage: func [f a e][
			n: n + dn
			if any [n < 10 n > 180] [dn: negate dn]
			show f
		]
	]
]