pro cinep2,selarr,bb

;produce una movie a partir de una serie de imagenes
;movie 256x256
;tras la ejecucion de esta procedure se activa la movie con el comando:
;         IDL> movie,bb,order=0
;init=numero de la imagen inicial
;numin=numero de imagenes de que consta la movie
;x,y = lower left corner coordinates of the selected box.
;rebin = factor de rebineado.
;selarr = array containing selected frame numbers

;bb = matriz tridimensional de salida.

;parametros de entrada a modificar con editor

n=700       ;dimension en x
m=500       ;dimension en y

st1a=string('/home1/msobotka/lap93/grand/spot')
st2=('.dat')

;construye la matriz tridimensional bytarr para el movie: 
numim=n_elements(selarr)     
bb=intarr(256,256,numim)
im1=intarr(n,m)

FOR i = 0,numim-1 DO BEGIN
   dcn=strtrim(selarr(i),1)
   str=dcn
;   if strlen(dcn) eq 3 then str='0'+dcn
;   if strlen(dcn) eq 2 then str='00'+dcn
;   if strlen(dcn) eq 1 then str='000'+dcn
   print,'Now reading image:'
   print,st1a+str+st2
   openr,1,st1a+str+st2
   readu,1,im1
   close,1
   bb(0,0,i)=im1(97:352,88:343)
ENDFOR

end