Username: OBSRED
$ XON AATXTB xterminal address
$ FIGARO start FIGARO
$ FIGDISP create image display window
$ COLOUR GREY
$ SOFT XWINDOWS create graphics window
$ HARD PS_GKS_L or PS_GKS_P, CANON_L, or CANON_P
$ DEF/JOB D DISK$DATA:[CCD_n.yymmdd] define DUMMY disk
$ DEF/JOB I DISK$INST:[CCD_n.yymmdd] define RUN disk
... or ... [IPCS.yymmdd] if using IPCS rather than CCD
Filenames are DISK$DATA:[CCD_n.yymmdd]l == D:l
DISK$INST:[CCD_n.yymmdd]ddmmmnnnn == I:ddmmmnnnn
$ IMAGE image MIN MAX MIN MAX AU=Y OPT=.5 XP=1 YP=1 AS=N ER=Y [\] [P]
$ ICUR Generates cursor for image coords
$ IGREY Greyscale to HARD plotfile
$ YSTRACT image col1 col2 spec Collapses columns into spectrum
$ EXTRACT image row1 row2 spec Collapses rows into cross-cut
$ SPLOT spec WH AU LAB="" BU=N HA=N Plot spectrum on SOFT device
$ SPLOT spec WH AU LAB="" BU=N HA=N ER=N COL=R Overlay red spectrum
$ CCUR graphics cursor
$ EMLT spec XS=MIN XE=MAX LINES=0 FWHM of emission lines
$ SCROSS spec1 spec2 XS=MIN XE=MAX REC=N Cross-correlate two spectra
$ ISTAT im1 Statistics on image or spectrum
$ ISUB im1 im2 im3 To subtract im1 - im2 = im3 (or spectra)
$ ICSUB im1 const im2 To subtract im1 - constant = im2 (or spectra)
Also IADD, ICADD, IMULT, ICMULR, IDIV, ICDIV Arithmetic
Also IREVX, IREVY Flip image or spectrum
$ SPLOT spec WH AU LAB="" BU=Y ER=Y Open buildfile for overlays
$ SPLOT spec WH AU LAB="" BU=Y ER=N Overlay in existing buildfile
$ BPLOT SOFT Sends buildfile to SOFT screen
$ BPLOT HARD Sends buildfile to HARD plotfile
$ PRINT/QUEUE=SYS_PS_LASER GKS_72.PS --> HP laserjet in console room
$ PRINT/QUEUE=SYS_PS_LASER2 GKS_72.PS --> HP laserjet in terminal room
$ PRINT/QUEUE=SYS_LASER CANON.DAT --> Canon laser in terminal room
$ CONPRINT file.txt ASCII to control room Printronix
$ WDFITS dstfile file.FITS Write disk FITS
$ TAPEO _MSA0: Output tape; don't ALLOC or MOUNT
$ WIFITS IM=image BL=1 POS/REW/CURR Write to FITS tape
$ TAPE _MUB0: Input tape
$ FITS Read tape
!! to abort a command at parameter input
\ to accept defaults (VMS)
Example of .COM procedure; FOC.COM
The following procedure called FOC.COM will ystract 2 spectra
taken as DUMMY
CCD exposures, cross-correlate them, printing the pixel shift between them, and
plot them in red and blue. The two spectra might be from Hartmann focus tests.
FOC could then be run on a second pair of frames taken at a different collimator
setting, to permit interpolation of the required collimator value. The DUMMY
directory has been defined as 'D', as above.
$ TYPE FOC.COM
$ SET VERIFY
$ YSTRACT D:'P1' 120 150 SP='P1'F
$ YSTRACT D:'P2' SP='P2'F \
$ SCROSS 'P1'F 'P2'F XS=1 XE=1024 REC=NO
$ SPLOT SP='P1'F WH=N AU LAB="" BU=N HA=N COL=R ER AX \
$ SPLOT SP='P2'F WH=N AU LAB="" BU=N HA=N COL=B NOER NOAX \
$ SET NOVERIFY
To execute this procedure, type
$ @FOC im1 im2 e.g. $ @FOC C D
to use DISK$DATA:[CCD_1.940224]C.DST and D.DST