pro cine3,init,numim,x,y,box,bb

;produce una movie a partir de una serie de imagenes
;tras la ejecucion de esta procedure se activa la movie con el comando:
;         IDL> animate,bytscl(bb)
;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.
;box = size of the resulting square subfield

;bb = integer matriz tridimensional de salida.

;----------------------------------------------------------

;parametros de entrada a modificar con editor

n= 288 ;192 ;320    	;dimension en x of original frames
m= 288 ;192 ;320   	;dimension en y

st1a=string('/scratch/msobotka/data/b_dfp4.')  ;b_dfp4
; "cine3,1,220,0,0,288,mfp4"

;st1a=string('/scratch/msobotka/data/b_dp4.')
; "cine3,1,220,0,0,320,mp4"

;---------------------------------------------------------

;construye la matriz tridimensional intarr para el movie: a

bb = intarr(box,box,numim,/nozero)      
im1=intarr(n,m,/nozero)
FOR i = 0,numim-1 DO BEGIN
   dcn=strtrim(i+init,2)
   print,'Now reading image:'
   print,st1a+dcn
   openr,1,st1a+dcn
   readu,1,im1
   close,1
   bb(0,0,i)=im1(x:x+box-1,y:y+box-1)
ENDFOR

end