;procedure to rotate an image around a circle in given increments
;and create an image of the non-zero parts of the original image,
;in all of their rotated positions

PRO ang,i,angle,tile
tile=fltarr(256,256)
tvscl,i,0
FOR n=0,180-angle,angle DO BEGIN
	print,n
	ri=rot(i,n,missing=0)
	tile(where(ri))=ri(where(ri))
	tvscl,tile,2
ENDFOR
RETURN
END