FILE:/tsw/obs//tobeloaded/T99285pld.01 TRACE,INSCC,98-303:02:58:05,001,T99285pld,0038,UI /NOSELECT /ICDPML SEG=0x1000,OFFSET=0xf4d0 /NOCOMMIT ; ; TOPSDB_GEN_IP_CLD Ver 2.0 Program Run: 29-Oct-1998 21:58:05.00 ; Input File: /tsw/dbase/tables/pzt_offset_ff1a_981029_215454.tab ; Copied from T98302pld.01 ; Xfffe 01ff fefe fdfe 0101 00fc fc03 fefc; X08f6 f7f4 ea11 050d 18ef 03f5 e712 0212; X1ce8 fae6 d5fe c829 2410 4edb 2fd4 b11d; ;;NAME: ;; pzt_offset_ff1a.tab ;;PURPOSE: ;; PZT Offset Table for Flat Fielding #1 (a=part 1) ;;HISTORY: ;; Created 6-Mar-97 by T.Tarbell (real entries TBD) ;; 19-Jun-97 (C.Edwards) - offset arcsec/dn = 0.0500000 ;; 26-APR-98 TDT - making load, preflight offsets, only changed names o ;; 23-JUN-98 TDT - fixed sub-pixel offsets (1-3) ;; 27-AUG-98 Revised Flat Field Offsets for larger spiral ;; 27-AUG-98 Corrected last entry, FF19R ;; 7-OCT-98 TDT Offsets 1-3 for 15" (coarse) shifts for Ed's off-l ;; 30-OCT-98 TDT - back to the usual sub-pixel offsets in # 1-3 ;; ;;Entry Name A Offset B Offset C Offset ;; ;0 Home 254 255 255 ;1 Up 1 254 254 ;2 Rt 254 253 1 ;3 UpRt 1 252 0 ;4 FF4 3 252 252 ;5 FF5 254 246 8 ;6 FF6 244 247 17 ;7 FF8 234 13 5 ;8 FF9 239 24 245 ;9 FF10 3 18 231 ;10 FF11 18 2 232 ;11 FF12R 28 230 250 ;12 FF13R 254 213 41 ;13 FF15R 200 16 36 ;14 FF17R 219 78 212 ;15 FF19R 47 29 177 pzt=intarr(3,16) pzt( *,0) = [ 254 , 255 , 255 ] pzt( *,1) = [ 1 , 254, 254] pzt( *,2) = [ 254 , 253 , 1] pzt( *,3)= [ 1 , 252 , 0] pzt( *,4) = [ 3 , 252 , 252] pzt( *,5 ) = [ 254 , 246 , 8] pzt( *,6 ) = [ 244 , 247 , 17] pzt( *,7 ) = [ 234 , 13 , 5] pzt( *,8 ) = [ 239 , 24 , 245] pzt( *,9 ) = [ 3 , 18 , 231] pzt( *,10 ) = [ 18 , 2 , 232] pzt( *,11 ) = [ 28 , 230 , 250] pzt( *,12 ) = [ 254 , 213 , 41] pzt( *,13 ) = [ 200 , 16 , 36] pzt( *,14 ) = [ 219 , 78 , 212] pzt( *,15 ) = [ 47 , 29 , 177] IDL> print,pzt 254 255 255 1 254 254 254 253 1 1 252 0 3 252 252 254 246 8 244 247 17 234 13 5 239 24 245 3 18 231 18 2 232 28 230 250 254 213 41 200 16 36 219 78 212 47 29 177 IDL> for i=0,15 do print,pzt(*,i),transpose(pzt2solar(pzt(0,i),pzt(1,i),pzt(2,i))) 254 255 255 0.00000 0.00000 1 254 254 0.00590000 -0.243500 254 253 1 -0.231800 0.00320000 1 252 0 -0.225900 -0.240300 3 252 252 0.0177000 -0.496500 254 246 8 -1.04310 0.0144000 244 247 17 -1.53620 0.945800 234 13 5 0.404600 1.84360 239 24 245 1.98400 1.35950 3 18 231 2.50660 -0.496900 18 2 232 1.56570 -1.87080 28 230 250 -1.07050 -2.75900 254 213 41 -4.86780 0.0672001 200 16 36 -1.31830 5.01100 219 78 212 6.96370 3.17390 47 29 177 6.40020 -4.58490 IDL> for i=4,15 do print,transpose(pzt2solar(pzt(0,i),pzt(1,i),pzt(2,i)))/.5,form='(2F6.1)' 0.0 -1.0 -2.1 0.0 -3.1 1.9 0.8 3.7 4.0 2.7 5.0 -1.0 3.1 -3.7 -2.1 -5.5 -9.7 0.1 -2.6 10.0 13.9 6.3 12.8 -9.2 Try a unit of 400 = 0.20 arcsec in CTM units IDL> for i=4,15 do print,400*round(transpose(pzt2solar(pzt(0,i),pzt(1,i),pzt(2,i)))/.5),form='(2F6.0)' 0. -400. -800. 0. -1200. 800. 400. 1600. 1600. 1200. 2000. -400. 1200.-1600. -800.-2400. -4000. 0. -1200. 4000. 5600. 2400. 5200.-3600. IDL> for i=0,15 do print,200*round(transpose(pzt2solar(pzt(0,i),pzt(1,i),pzt(2,i)))/.25),form='(2F6.0)' 0. 0. 0. -200. 0000 FE70 -200. 0. FE70 0000 -200. -200. FE70 FE70 0. -400. 0000 FCE0 -800. 0. F9C0 0000 -1200. 800. F6A0 0640 400. 1400. 0320 0AF0 1600. 1000. 0C80 07D0 2000. -400. 0FA0 FCE0 1200.-1400. 0960 F510 -800.-2200. F9C0 EED0 -3800. 0. E250 0000 -1000. 4000. F830 1F40 5600. 2600. 2BC0 1450 5200.-3600. 28A0 E3E0 TRY 2X THESE ON THE FIRST TEST (SEE HEX ABOVE): SMALLEST STEP = 0.200 ARCSEC (NEGLECTING JITTER)