pro cine4,init,numim,n,m,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 ;n = dimension en x ;m = dimension en y ; ;bb = integer matriz tridimensional de salida. ;---------------------------------------------------------- ;parametros de entrada a modificar con editor st1a=string('/scratch/msobotka/a_ser23/dfp4.') ;--------------------------------------------------------- ;construye la matriz tridimensional intarr para el movie bb = intarr(n,m,numim,/nozero) im1=intarr(n,m,/nozero) FOR i = 0,numim-1 DO BEGIN dcn=strtrim(i+init,2) print,st1a+dcn openr,1,st1a+dcn readu,1,im1 close,1 bb(0,0,i)=im1 ENDFOR end