<!doctype html
public "-//w3c//dtd html 4.0 transitional//en">
<ION_SCRIPT>
<ION_HEADER>
<TITLE>Suzaku
XIS QuickLook Image</TITLE>
<META
http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<VARIABLES>
<VARIABLE_DECL NAME="IP" TYPE="STR" VALUE="$Browser.REMOTE_ADDR"/>
<VARIABLE_DECL NAME="E0" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="E1" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="E2" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="E3" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="E4" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="E5" TYPE="STR" VALUE=""/>
<VARIABLE_DECL NAME="X" TYPE="INT" VALUE="384"/>
<VARIABLE_DECL NAME="Y" TYPE="INT" VALUE="384"/>
</VARIABLES>
<!--
$Id$ -->
</ION_HEADER>
<ION_BODY BGCOLOR="#CCCCCC">
<ION_IF
EXPR="$Form.OBS ISTYPE 'UNDEF'">
<ION_ELSEIF
EXPR="$Form.VER ISTYPE 'UNDEF'"/>
<ION_ELSEIF
EXPR="$Form.JOB ISTYPE 'UNDEF'"/>
<ION_ELSEIF
EXPR="$Form.FRM ISTYPE 'UNDEF'"/>
<ION_ELSEIF
EXPR="$Form.FRM EQ '00'"/>
<ION_IF EXPR="$Form.E0 ISTYPE 'UNDEF'">
<ION_ELSEIF EXPR="$Form.E1 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E2 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E3 ISTYPE 'UNDEF'"/>
<ION_ELSE/>
<ION_IMAGE TYPE="DIRECT" LABEL="$Form.OBS (rev $Form.VER)" HEIGHT="$X"
WIDTH="$Y">
<IDL>
.compile suzaku/lib/XISqlReadFits.pro
.compile suzaku/lib/XISqlImager.pro
xsz = $X
ysz = $Y
CMD = 'suzaku/bin/XISql-screen'
dst = '$ION.temp'
ver = strdecode('$FormURL.VER')
obs = strdecode('$FormURL.OBS')
job = strdecode('$FormURL.JOB')
rip = string(strsplit('$IP', '.', /EXTRACT), $
FORMAT='(4Z02)', /PRINT)
spawn, [CMD, dst,ver,obs,job,rip], $
COUNT=n, out, err, EXIT_STATUS=stat, $
/NULL_STDIN, /NOSHELL
if (n EQ 3) then $
XISqlImager, xsz, ysz, out
</IDL>
</ION_IMAGE>
</ION_IF>
<ION_ELSEIF
EXPR="$Form.FRM EQ '20'"/>
<ION_IF EXPR="$Form.E0 ISTYPE 'UNDEF'">
<ION_ELSEIF EXPR="$Form.E1 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E2 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E3 ISTYPE 'UNDEF'"/>
<ION_ELSE/>
<ION_IMAGE TYPE="DIRECT" LABEL="$Form.OBS (rev $Form.VER)" HEIGHT="$X"
WIDTH="$Y">
<IDL>
.compile suzaku/lib/XISqlReadFits.pro
.compile suzaku/lib/XISqlImager.pro
xsz = $X
ysz = $Y
CMD = 'suzaku/bin/XISql-screen'
dst = '$ION.temp'
ver = strdecode('$FormURL.VER')
obs = strdecode('$FormURL.OBS')
job = strdecode('$FormURL.JOB')
rip = string(strsplit('$IP', '.', /EXTRACT), $
FORMAT='(4Z02)', /PRINT)
spawn, [CMD, dst,ver,obs,job,rip], $
COUNT=n, out, err, EXIT_STATUS=stat, $
/NULL_STDIN, /NOSHELL
if (n EQ 3) then $
XISqlImager, xsz, ysz, out
if (n GT 0) then $
FILE_DELETE, out, /ALLOW_NONEXISTENT, /QUIET
</IDL>
</ION_IMAGE>
</ION_IF>
<ION_ELSEIF
EXPR="$Form.FRM EQ '10'"/>
<ION_IF EXPR="$Form.E0 ISTYPE 'UNDEF'">
<ION_ELSEIF EXPR="$Form.E1 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E2 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E3 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E4 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E5 ISTYPE 'UNDEF'"/>
<ION_ELSE/>
<ION_IMAGE TYPE="DIRECT" LABEL="$Form.OBS (rev $Form.VER)" HEIGHT="$X"
WIDTH="$Y">
<IDL>
.compile suzaku/lib/XISqlReadFits.pro
.compile suzaku/lib/XISqlImager.pro
xsz = $X
ysz = $Y
CMD = 'suzaku/bin/XISql-screen'
dst = '$ION.temp'
ver = strdecode('$FormURL.VER')
obs = strdecode('$FormURL.OBS')
job = strdecode('$FormURL.JOB')
rip = string(strsplit('$IP', '.', /EXTRACT), $
FORMAT='(4Z02)', /PRINT)
spawn, [CMD, dst,ver,obs,job,rip], $
COUNT=n, out, err, EXIT_STATUS=stat, $
/NULL_STDIN, /NOSHELL
if (n EQ 3) then $
XISqlImager, xsz, ysz, out
</IDL>
</ION_IMAGE>
</ION_IF>
<ION_ELSEIF
EXPR="$Form.FRM EQ '30'"/>
<ION_IF EXPR="$Form.E0 ISTYPE 'UNDEF'">
<ION_ELSEIF EXPR="$Form.E1 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E2 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E3 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E4 ISTYPE 'UNDEF'"/>
<ION_ELSEIF EXPR="$Form.E5 ISTYPE 'UNDEF'"/>
<ION_ELSE/>
<ION_IMAGE TYPE="DIRECT" LABEL="$Form.OBS (rev $Form.VER)" HEIGHT="$X"
WIDTH="$Y">
<IDL>
.compile suzaku/lib/XISqlReadFits.pro
.compile suzaku/lib/XISqlImager.pro
xsz = $X
ysz = $Y
CMD = 'suzaku/bin/XISql-screen'
dst = '$ION.temp'
ver = strdecode('$FormURL.VER')
obs = strdecode('$FormURL.OBS')
job = strdecode('$FormURL.JOB')
rip = string(strsplit('$IP', '.', /EXTRACT), $
FORMAT='(4Z02)', /PRINT)
spawn, [CMD, dst,ver,obs,job,rip], $
COUNT=n, out, err, EXIT_STATUS=stat, $
/NULL_STDIN, /NOSHELL
if (n EQ 3) then $
XISqlImager, xsz, ysz, out
if (n GT 0) then $
FILE_DELETE, out, /ALLOW_NONEXISTENT, /QUIET
</IDL>
</ION_IMAGE>
</ION_IF>
<ION_ELSE/>
</ION_IF>
</ION_BODY>
</ION_SCRIPT> |
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<HTML>
<HEAD>
<TITLE>Suzaku XIS
QuickLook Image</TITLE>
<META http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<!-- $Id$ -->
</HEAD>
<BODY BGCOLOR="#CCCCCC">
</BODY>
</HTML>
|