;Pro movie_test
  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,11
end