Red [
	Title:   "Move a face"
	Author:  "Gregg Irwin"
	File: 	 %move-face.red
	Tabs:	 4
	Needs:	 View
	Purpose: {Show how just changing a face's offset moves it.}
]

diff: 1

view [
	size 200x200
	origin 0x0
	button "Quit" 50x50 rate 30 [quit] on-time [
		face/offset: face/offset + diff
		if face/offset < 0 [diff: 1]
		if face/offset > 150x150 [diff: -1]
	]
]