data = BytArr(256, 256, 10)
Window, 0, XSize=256, YSize=256
value = FIndGen(5)
FOR j=0,9 DO BEGIN 
	Plot, Value, /NoData, YRange=[0,10] 
	Bar_Plot, RandomU(seed, 5) * 9.0, /Overplot 
	data(*,*,j) = TvRd() 
	Erase
	ENDFOR
END