pro animate,movin,BLOCK=block ;Para producir una movie a partir de un 3-D array movin(x,y,t). ;VERSION 2, mas lista, con BYTSCL incorporado. ;Utiliza la rutina XINTERANIMATE de la widget lib. de idl. ;El array 3-D puede ser generado por la procedure "array_3D" ; ;Ejemplo de uso: ; animate,movin ;siendo movin un 3-D array ; ; 15.4.1997, Michal. on_error,1 sm=size(movin) if (sm(0) ne 3) then message,'Input must be a 3-D array! STOPPED' mov=bytscl(movin,top=!d.n_colors) xinteranimate, set=[sm(1),sm(2),sm(3)] for i=0,sm(3)-1 do xinteranimate,frame=i,image=mov(*,*,i) xinteranimate,BLOCK=block end