circle.red

Red []

time: 0.0
radius: 200

view [
	base 500x500 rate 30 
	draw [line 250x250 100x100]
	on-time [
		time: time + 0.01
		face/draw/3: (make pair! reduce [
			(cos time) * radius
			(sin time) * radius
		]) + 250x250
	]
]