file=file_search('*.'+'{jpeg,png,jpg,bmp}',count=n)
 f='*jpeg2'
 filedat=f+'_movie.dat'
 openw,1,filedat
 device,decomposed=0
 for i=0,n-1 do begin
  read_jpeg,file[i],img,true=1;,img,r,g,b
;    quantized_image=COLOR_QUAN(img,1, r, g, b, COLORS=256,CUBE=6)
;    tvlct,r,g,b

   
   s=size(img)
   help,s
   print,s[2],s[3] ;jpeg
;    print,s[1],s[2] ;png
       printf,1,img[0,*,*]   ;jpeg
;         printf,1,img[*,*]   ;png
       
 endfor
 free_lun,1;,/force

openr, 1, filedat
img = BYTARR(s[2],s[3], n, /NOZERO) ;jpeg
;  img = BYTARR(s[1],s[2], n, /NOZERO) ;png
;img = BYTARR(1000, 800, n, /NOZERO)
readf, 1, img
help,img,n
CLOSE, 1
;device,decomposed=0
   img= REBIN(img, s[2],s[3],n) ;jpeg
;  img= REBIN(img, s[1],s[2],n) ;png
 help,img
   XINTERANIMATE,SET=[s[2], s[3], n], /SHOWLOAD ,MPEG_FORMAT=1   ;,  MPEG_QUALITY=100  ;window=[0,0,511,511] ;jpeg
;  XINTERANIMATE,SET=[s[1], s[2], n],  /SHOWLOAD ,MPEG_FORMAT=1 ,MPEG_QUALITY=100 ;png

 ; Load the images into XINTERANIMATE:
 FOR I=0,n-1 DO BEGIN
   XINTERANIMATE, FRAME = I, IMAGE = img[*,*,I] ,MPEG_FORMAT=1  ;,  MPEG_QUALITY=100
 endfor
 ; Play the animation:
 XINTERANIMATE, 60,/KEEP_PIXMAPS ,MPEG_FORMAT=1                ;,  MPEG_QUALITY=100

end