Pro Movie_test2
  image=BYTarr(256,256,256)
  for k=0,255 do for i=0,255 do for j=0,255 do begin
   image(i,j,k)=k+i+j
  endfor

;  WgAnimateTool,image

  Window,/Nometa
  Movie2,image,10
end