pro cinema3,logarr,arr

; !!!!!!!! READU VERSION !!!!!!!!
;logarr - array with seq. nos, time and contrast of images selected
;for the movie (use "vyber2.pro")
;The images will be read by READU and the 3-dim movie array "arr" created
;  from the full-size images.

;parametros de entrada a modificar con editor ................

siz=288 				;full size of frames!!
st1='/mnt/cdrom/mary/spotde.'		; CHANGE PATH...
; ............................................................

numim=n_elements(logarr(0,*))
im1=intarr(siz,siz)
arr=intarr(siz,siz,numim)
     
FOR i = 0,numim-1 DO BEGIN

   seq=strtrim(string(fix(logarr(1,i))),2)
   print,'Now reading image '+seq
   openr,1,st1+seq
   readu,1,im1
   close,1
;   byteorder,im1
   arr(0,0,i)=im1

ENDFOR
end