;Pro Movie_test1
  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

;  movie,image,200
;  movie,image,11
  WgAnimateTool,image
end