PRO cw2_derot_tio, dir = dir, file_id = file_id, pos0 = pos0, pos1 = pos1, refe = refe

If ( !version.os eq 'Win32' ) Then st = '\'
If ( !version.os eq 'linux' ) Then st = '/'

IF NOT KEYWORD_SET(dir) THEN dir = DIALOG_PICKFILE( /DIRECTORY )

FILE_MKDIR, dir + 'drot1'

dir_write = dir + 'drot1' + st

IF NOT KEYWORD_SET(file_id) THEN file_id = 'pcosr'

list = FILE_SEARCH( dir + 'bbso_tio*' + file_id + '*.fts', count = nn )

IF NOT KEYWORD_SET(pos0) THEN pos0 = 0
IF NOT KEYWORD_SET(pos1) THEN pos1 = nn - 1
nfiles = pos1 - pos0

spos = STRPOS(list(pos0), st, /reverse_search )
lpos = STRPOS(list(pos0), '.fts')
npos = lpos - spos
lname = STRMID(list, spos + 1, npos - 1)


time = FLTARR(nn)

FOR i = 0, nn - 1 DO BEGIN

	h = STRMID(list[i], lpos - 6, 2)
	m = STRMID(list[i], lpos - 4, 2)
	s = STRMID(list[i], lpos - 2, 2)
	time(i) = h * 3600. + m * 60. + s

ENDFOR


ang = (360./24./3600.)


IF NOT KEYWORD_SET(refe) THEN refe = ROUND(nfiles / 2 + pos0)

dt = time(pos0) - time(refe)
;img = FLTARR(1324, 1324)
img = READFITS(list[pos0], head)
img = ROT(img, ang * dt)
;XTVSCL, congrid(img, 1024,1024)
;BOX_CURSOR, x, y, dx, dy

imggg = FLTARR(1024, 1024, nfiles)

FOR i = pos0, pos1 - 1 DO BEGIN

    PRINT, 'Image #' + STRTRIM(STRING(i), 2) + st + STRTRIM(STRING(pos1 - pos0), 2)
    dt = time(i) - time(refe)
    ;print, ang*dt
    ;wait, 1
    ;img = FLTARR(1324, 1324)
	img = READFITS(list[i], head)
	img = ROT(img, ang * dt)
	XTVSCL, CONGRID(img, 1024, 1024)
	;img = img(x*2: (x+dx)*2, y*2:(y+dy)*2)
	imggg(*,*,i - pos0) = CONGRID(img, 1024, 1024)

    WRITEFITS, dir_write + lname[i] + '_rot.fts', img, head

ENDFOR

XTVSCL, imggg(*,*,0)

MOVIE, BYTSCL(imggg, 2200, 8500), ORDER = 0

END
