; GET_TIME_STAMP ; GET_TIME_STAMP excerpts the time stamp area of an EIT movie data cube for ; use in a differently scaled movie. ; D.M. fecit, 1998 January 11. ; function get_time_stamp, image_array ; b0 = image_array ; sz_b0 = size(b0) & nx = sz_b0(1) & ny = sz_b0(2) & n_frame = sz_b0(3) ; x0 = 5 & y0 = 5 + 55*(ny eq 1024) ; t = b0(x0:x0 + 113, y0:y0 + 10, *) ; return, t & end
Last revised: - Wed May 9 21:45:04 2007- F. Auchère