;pro tvregion ; ;PURPOSE: ; To display a sub-region of a fits frame with tv. ; ; pro tvregion, CubeFileName = CubeFileName, Xstart=XStart, XStop = XStop, $ YStart = YStart, YStop = YStop, ReadNum = ReadNum If not (keyword_set(ReadNum)) then ReadNum = 0 If not (keyword_set(XStart)) then XStart = 0 If not (keyword_set(XStop)) then XStop = 512 If not (keyword_set(YStart)) then YStart = 0 If not (keyword_set(YStop)) then YStop = 512 ;Get FileName from Dialog Box CubeFileName = dialog_pickfile($ Path='C:\Documents and Settings\lances\Desktop\KPNO\ASICDevelopmentKit\H2RG_DevBrd_code\IDLASICCom\Images',$ filter=['*.fits'],Get_Path=CubePath) ;Read in the Header Only to Obtain Dimensions and Reads Fits_Read, CubeFileName, NoData, FitsHeader, /header_only ;read in image and header Naxis1 = long(sxpar(FitsHeader,'NAXIS1')) ;number of pixels in a row Naxis2 = long(sxpar(FitsHeader,'NAXIS2')) ;number of pixels in a column TotalReads = sxpar(FitsHeader,'NAXIS3') ;number of reads in the file ArrSize = Naxis1*Naxis2 ;Read In One Frame at a time Fits_Read, CubeFileName, Frame1 , First= long(ReadNum*ArrSize), $ Last = long((ReadNum+1)*ArrSize)-1 ;Turn it 2-d Frame1 = reform(temporary(Frame1),Naxis1,Naxis2) tvscl, Congrid(Frame1(0: 2000, YStart: YStop),512,512) stop end