anim: make rebface [
	tip:	{
		USAGE:
			anim data [%images/go-previous.png %images/go-next.png]
			anim data [img1 img2 img3] rate 2

		DESCRIPTION:
			Cycles a set of images at a specified rate.
	}
	size:	-1x-1
	effect:	'fit
	feel:	make default-feel [
		engage: make function! [face act event] [
			all [
				act = 'time
				face/image: first face/data
				face/data: either tail? next face/data [head face/data] [next face/data]
				show face
			]
		]
	]
	rate:	1
	init:	make function! [] [
		repeat i length? data: reduce data [
			all [file? pick data i poke data i load pick data i]
		]
		image: first data
		data: next data
		all [negative? size/x size/x: image/size/x]
		all [negative? size/y size/y: image/size/y]
	]
]