Initial commit

9 files changed, 1023 insertions, 0 deletions

diff --git a/noao/astcat/lib/acatalog.h b/noao/astcat/lib/acatalog.h
new file mode 100644
index 00000000..bb794fb8
--- /dev/null
+++ b/noao/astcat/lib/acatalog.h
@@ -0,0 +1,39 @@
+# The builtin astrometry catalog definitions
+
+# Define the maximum length of an array column definition.
+
+define	AT_MAX_NRANGES		10
+
+# Define the currently supported file types.
+
+#define	AT_FTYPES	"|text|btext|"
+#define	AT_TEXT		1
+#define	AT_BTEXT	2
+
+# Define the standard fields.
+
+define	AT_NSTDCOLS	28
+
+define	AT_CATNAMES     "|id|ra|dec|era|edec|pmra|pmdec|epmra|epmdec|px|rv|\
+epx|erv|catsystem|equinox|epoch|mag|color|emag|ecolor|xp|yp|xc|yc|exc|eyc|\
+imag|eimag|"
+
+# Define the default data types of the standard fields
+
+define	AT_CATTYPES "|c|d|d|d|d|d|d|d|d|d|d|d|d|c|c|c|r|r|r|r|d|d|d|d|d|d|r|r|"
+
+# Define the default units of the standard fields
+
+define	AT_CATUNITS	"|INDEF|hours|degrees|asecs|asecs|masecs/yr|masecs/yr|\
+masecs/yr|masecs/yr|msecs|km/sec|msecs|km/sec|INDEF|INDEF|INDEF|mags|mags|mags|\
+mags|pixels|pixels|pixels|pixels|pixels|pixels|mags|mags|"
+
+# Define the default formats of the standard fields
+
+define	AT_CATFORMATS	"|%20s|%11.2h|%11.1h|%6.3f|%6.3f|%7.3f|%7.3f|\
+%7.3f|%7.3f|%6.3f|%6.3f|%6.3f|%6.3f|%15s|%15s|%15s|%8.3f|%8.3f|%8.3f|\
+%8.3f|%9.3f|%9.3f|%9.3f|%9.3f|%9.3f|%9.3f|%8.3f|%8.3f|"
+
+# Define some useful defaults.
+
+define	DEF_CATSYSTEM	"J2000"
diff --git a/noao/astcat/lib/aimpars.h b/noao/astcat/lib/aimpars.h
new file mode 100644
index 00000000..e1482577
--- /dev/null
+++ b/noao/astcat/lib/aimpars.h
@@ -0,0 +1,123 @@
+# Define the public default image wcs structure.
+
+# Define the WCS parameters (# 401 - 500)
+
+define	WXREF		401
+define	WYREF		402
+define	WXMAG		403
+define	WYMAG		404
+define	WXROT		405
+define	WYROT		406
+define	WRAREF		407
+define	WDECREF		408
+#define	WMJDOBS		409
+define	WRAUNITS	410
+define	WDECUNITS	411
+define	WPROJ		412
+define	WSYSTEM		413
+#define	WEQUINOX	414
+#define	WRADECSYS	415
+define	WCST		416
+
+# Define the default WCS parameters symbol table.
+define	LEN_WCST_STRUCT	15
+
+define	AT_WCSTKVAL	Memc[P2C($1)]
+
+define	DEF_LEN_WCST	100
+define	DEF_WCST_ROOTNAME	"wcs"
+
+define	AT_NWFIELDS	12
+
+# Define the wcs standard fields
+
+define	AT_WFIELDS "|wxref|wyref|wxmag|wymag|wxrot|wyrot|wraref|wdecref|\
+wraunits|wdecunits|wproj|wsystem|"
+
+define	WCS_WXREF	1
+define	WCS_WYREF	2
+define	WCS_WXMAG	3
+define	WCS_WYMAG	4
+define	WCS_WXROT	5
+define	WCS_WYROT	6
+define	WCS_WRAREF	7
+define	WCS_WDECREF	8
+define	WCS_WRAUNITS	9
+define	WCS_WDECUNITS	10
+define	WCS_WPROJ	11
+define	WCS_WSYSTEM	12
+
+# Define the defaults standard field values.
+
+define AT_WVALUES "|INDEF|INDEF|INDEF|INDEF|INDEF|INDEF|RA|DEC|\
+INDEF|INDEF|tan|J2000|"
+
+# Define the default wcs datatypes.
+
+define	AT_WTYPES "|d|d|d|d|d|d|d|d|i|i|c|c|"
+
+define	AT_WUNITS "|pixels|pixels|arcsec/pixel|arcsec/pixel|degrees|degrees|\
+hours|degrees|||||"
+
+
+# Define the image data parameters (# 501 - 600)
+
+define	OBSERVAT	501
+define	ESITELNG	502
+define	ESITELAT	503
+define	ESITEALT	504
+define	ESITETZ		505
+define	EMJDOBS		507
+#define	EXPOSURE	508
+define	EDATAMIN	509
+define	EDATAMAX	510
+define	EGAIN		511
+define	ERDNOISE	512
+define	EWAVLEN		513
+define	ETEMP		514
+define	EPRESS		515
+define	IMST		516
+
+# Define the default image parameters symbol table.
+
+define	LEN_IMST_STRUCT	15
+
+define	AT_IMSTKVAL	Memc[P2C($1)]
+
+define	DEF_LEN_IMST		100
+define	DEF_IMST_ROOTNAME	"impars"
+
+# Define the nu,ber of image fields.
+
+define	AT_NIMFIELDS 13
+
+# Define the image data standard fields
+
+define	AT_IMFIELDS "|observat|esitelng|esitelat|esitealt|esitetz|emjdobs|\
+edatamin|edatamax|egain|erdnoise|ewavlen|etemp|epress|"
+
+define	HDR_OBSERVAT	1
+define	HDR_ESITELNG	2
+define	HDR_ESITELAT	3
+define	HDR_ESITEALT	4
+define	HDR_ESITETZ	5
+define	HDR_EMJDOBS	6
+define	HDR_EDATAMIN	7
+define	HDR_EDATAMAX	8
+define	HDR_EGAIN	9
+define	HDR_ERDNOISE	10
+define	HDR_EWAVLEN	11
+define	HDR_ETEMP	12
+define	HDR_EPRESS	13
+
+# Define the defaults standard field values.
+
+define AT_IMVALUES "|OBSERVAT|INDEF|INDEF|INDEF|INDEF|MJD-OBS|\
+INDEF|INDEF|GAIN|RDNOISE|INDEF|INDEF|INDEF|"
+
+# Define the default wcs datatypes.
+
+define	AT_IMTYPES "|c|d|d|r|r|d|r|r|r|r|r|r|r|r|"
+
+define	AT_IMUNITS "||degrees|degrees|meters|||ADU|ADU|electrons|\
+electrons/ADU|microns|degrees|mbars|"
diff --git a/noao/astcat/lib/aimparsdef.h b/noao/astcat/lib/aimparsdef.h
new file mode 100644
index 00000000..75e44b8a
--- /dev/null
+++ b/noao/astcat/lib/aimparsdef.h
@@ -0,0 +1,47 @@
+
+# Define the default image WCS data structure.
+
+define	SZ_WPROJ	10
+define	SZ_WFNAME	(1 + SZ_FNAME) / 2
+define	SZ_OBSERVAT	20
+define	SZ_DATEOBS	20
+
+#define	LEN_PWCS	(25 + SZ_WPROJ + 2 * SZ_WFNAME)
+define	LEN_PWCS	(25 + SZ_WPROJ + SZ_WFNAME)
+
+define	AT_WXREF	Memd[P2D($1)]
+define	AT_WYREF	Memd[P2D($1+2)]
+define	AT_WXMAG	Memd[P2D($1+4)]
+define	AT_WYMAG	Memd[P2D($1+6)]
+define	AT_WXROT	Memd[P2D($1+8)]
+define	AT_WYROT	Memd[P2D($1+10)]
+define	AT_WRAREF	Memd[P2D($1+12)]
+define	AT_WDECREF	Memd[P2D($1+14)]
+#define	AT_WMJDOBS	Memd[P2D($1+16)]
+#define	AT_WEQUINOX	Memd[P2D($1+18)]
+define	AT_WRAUNITS	Memi[$1+20]
+define	AT_WDECUNITS	Memi[$1+21]
+define	AT_WCST		Memi[$1+22]
+define	AT_WPROJ	Memc[P2C($1+23)]
+define	AT_WSYSTEM	Memc[P2C($1+23+SZ_WPROJ)]
+#define	AT_WRADECSYS	Memc[P2C($1+23+SZ_WPROJ+SZ_WFNAME)]
+
+#define LEN_PIMPARS	(20 + SZ_OBSERVAT + SZ_DATEOBS)
+define LEN_PIMPARS	(20 + SZ_OBSERVAT)
+
+define	AT_ESITELNG	Memd[P2D($1)]
+define	AT_ESITELAT	Memd[P2D($1+2)]
+define	AT_EMJDOBS	Memd[P2D($1+4)]
+define	AT_ESITEALT	Memr[P2R($1+6)]
+define	AT_ESITETZ	Memr[P2R($1+7)]
+#define	AT_EXPOSURE	Memr[P2R($1+8)]
+define	AT_EDATAMIN	Memr[P2R($1+9)]
+define	AT_EDATAMAX	Memr[P2R($1+10)]
+define	AT_EGAIN	Memr[P2R($1+11)]
+define	AT_ERDNOISE	Memr[P2R($1+12)]
+define	AT_EWAVLEN	Memr[P2R($1+13)]
+define	AT_ETEMP	Memr[P2R($1+14)]
+define	AT_EPRESS	Memr[P2R($1+15)]
+define	AT_IMST		Memi[$1+16]
+define	AT_OBSERVAT	Memc[P2C($1+17)]
+#define	AT_DATEOBS	Memc[P2C($1+17+SZ_OBSERVAT)]
diff --git a/noao/astcat/lib/astrom.h b/noao/astcat/lib/astrom.h
new file mode 100644
index 00000000..09a67f73
--- /dev/null
+++ b/noao/astcat/lib/astrom.h
@@ -0,0 +1,148 @@
+# Define the public astrometry pacakge interface.
+
+# Define the astrom parameters (1 -100)
+
+define	PIO		1		# pointer to the i/o structure
+define	PRCENTER	2		# pointer to the region structure
+define	PFILTER		3		# pointer to the filter structure
+define	PWCS		4		# pointer to the wcs structure
+define	PIMPARS		5		# pointer to the image data structure
+
+
+# Define the region parameters (101 - 200).
+
+define	RCRA		101		# the field center ra
+define	RCDEC		102		# the field center dec
+define	RCRAWIDTH	103		# the field center ra width
+define	RCDECWIDTH	104		# the field center dec width
+define	RCRAUNITS	105		# the field center ra units
+define	RCDECUNITS	106		# the fields center dec units
+#define	RCCC		107		# the field center coordinate system
+define	RCST		108		# the field center symbol table
+define	RCSYSTEM	109		# the field center coordinate system
+define	RCSOURCE	110		# the field center source
+
+# Define the region commands for interactive mode.
+
+define	RCCMDS		"|rcra|rcdec|rrawidth|rdecwidth|rcraunits|\
+rcdecunits|rcsystem|"
+
+
+# Define the field center symbol table structure. 
+
+define	RCST_SZ_FNAME	(1 + SZ_FNAME) / 2
+define	LEN_RCST_STRUCT	(15 + 2 * RCST_SZ_FNAME)
+
+define  AT_RCSTRA	Memd[P2D($1)]               # the field center ra / lon
+define  AT_RCSTDEC	Memd[P2D($1+2)]             # the field center dec / lat
+define  AT_RCSTRAWIDTH	Memd[P2D($1+4)]             # the field ra / lon width
+define  AT_RCSTDECWIDTH	Memd[P2D($1+6)]             # the field dec / lat width
+define  AT_RCSTRAUNITS	Memi[$1+8]                  # the ra / lon units
+define  AT_RCSTDECUNITS	Memi[$1+9]                  # the dec / lat units
+define	AT_RCSTSOURCE	Memc[P2C($1+10)]            # the field center source
+define	AT_RCSTNAME	Memc[P2C($1+15)]            # the field center file
+define	AT_RCSTSYSTEM	Memc[P2C($1+15+RCST_SZ_FNAME)] # the field center cc system
+
+define	DEF_LEN_RCST		100
+define	DEF_RCST_ROOTNAME	"reg"
+
+
+# Define the builtin region query fields.
+
+define	AT_QRCRA	1
+define	AT_QRCDEC	2
+define	AT_QRCWIDTH	3
+define	AT_QRCHWIDTH	4
+define	AT_QRCRADIUS	5
+define	AT_QRCRAWIDTH	6
+define	AT_QRCDECWIDTH	7
+define	AT_QRCRAHWIDTH	8
+define	AT_QRCDECHWIDTH	9
+define	AT_QRCXWIDTH	10
+define	AT_QRCYWIDTH	11
+define	AT_QRCXHWIDTH	12
+define	AT_QRCYHWIDTH	13
+
+define	AT_QRCFIELDS	"|ra|dec|width|hwidth|radius|rawidth|decwidth|\
+rahwidth|dechwidth|xwidth|ywidth|xhwidth|yhwidth|"
+
+
+# Define the i/o substructure parameters (201 - 300).
+
+define	CATALOGS	201
+define	SURVEYS		202
+define	IMAGES		203
+define	INPUT		204
+define	OUTPUT		205
+define	CATNAME		206
+define	SVNAME		207
+define	IMNAME		208
+define	INFNAME		209
+define	OUTFNAME	210
+define	CATDB		211
+define	IMDB		212
+
+# Define the field center commands for interactive mode.
+
+define	IOCMDS	"|catalogs|surveys|images|input|output|catname|svname|imname|\
+infname|outfname|catdb|imdb|"
+
+# Define the filtering / selection parameters (301 - 400)
+
+define	FREVERSE	301
+define	FREPLACE	302
+define	FORAUNITS	303
+define	FODECUNITS	304
+define	FSORT		305
+define	FOSYSTEM	306
+define	FIRA		307
+define	FIDEC		308
+define	FORAFORMAT	309
+define	FODECFORMAT	310
+define	FIXP		311
+define	FIYP		312
+define	FIXC		313
+define	FIYC		314
+define	FOXFORMAT	315
+define	FOYFORMAT	316
+define	FIELDS		317
+define	FEXPR		318
+define	FNAMES		319
+define	FNTYPES		320
+define	FNUNITS		321
+define	FNFORMATS	322
+
+define	FSCMDS "|freverse|freplace|foraunits|fodecunits|fsort|fosystem|fira|\
+fidec|fixp|fiyp|fixc|fiyc|foxformat|foyformat|foraformat|fodecformat|fields|\
+fexpr|fnames|fntypes|fnunits|fnformats|"
+
+# Units definitions.
+
+# Define the supported celestial coordinate units.
+# It appears only the first three are used and they must agree with skywcs.h. FV
+
+define  AT_RA_UNITS    "|degrees|radians|hours|dms|hms|"
+define  AT_DEC_UNITS   "|degrees|radians|invalid|dms|"
+define  AT_DEGREES      1
+define  AT_RADIANS      2
+define  AT_HOURS        3
+define  AT_DMS          4
+define  AT_HMS          5
+
+# Define the supported celestial coordinate error units.
+
+define  AT_ERA_UNITS   "|asecs|masecs|secs|msecs|"
+define  AT_EDEC_UNITS  "|asecs|masecs|"
+define  AT_ASECS        1
+define  AT_MASECS       2
+define  AT_SECS         3
+define  AT_MSECS        4
+
+# Define the supported proper motion units.
+
+define  AT_PMRA_UNITS  "|asecs/yr|masecs/yr|secs/yr|msecs/yr|"
+define  AT_PMDEC_UNITS "|asecs/yr|masecs/yr|"
+define  AT_ASECSYR      1
+define  AT_MASECSYR     2
+define  AT_SECSYR       3
+define  AT_MSECSYR      4
diff --git a/noao/astcat/lib/astromdef.h b/noao/astcat/lib/astromdef.h
new file mode 100644
index 00000000..22babb65
--- /dev/null
+++ b/noao/astcat/lib/astromdef.h
@@ -0,0 +1,82 @@
+# The private astrometry package definitions.
+
+
+# Define the astrometry package structure. 
+
+define	LEN_ASTROM	10
+
+define	AT_PIO		Memi[$1]	     # the i/o structure
+define	AT_PRCENTER	Memi[$1+1]	     # the region definition structure
+define	AT_PFILTER 	Memi[$1+2]	     # the catalog filtering structure
+define	AT_PWCS 	Memi[$1+3]	     # the image wcs structure
+define	AT_PIMPARS 	Memi[$1+4]	     # the image data structure
+
+
+# Define the i/o substructure
+
+define	IO_SZ_FNAME	(SZ_FNAME + 1) / 2	
+define	LEN_PIO		(10 + 12 * IO_SZ_FNAME) 
+
+define	AT_CATALOGS	Memc[P2C($1+10)]
+define	AT_SURVEYS	Memc[P2C($1+10+IO_SZ_FNAME)]
+define	AT_IMAGES	Memc[P2C($1+10+2*IO_SZ_FNAME)]	
+define	AT_INPUT	Memc[P2C($1+10+3*IO_SZ_FNAME)]
+define	AT_OUTPUT	Memc[P2C($1+10+4*IO_SZ_FNAME)]
+define	AT_CATNAME	Memc[P2C($1+10+5*IO_SZ_FNAME)]
+define	AT_SVNAME	Memc[P2C($1+10+6*IO_SZ_FNAME)]
+define	AT_IMNAME	Memc[P2C($1+10+7*IO_SZ_FNAME)]
+define	AT_INFNAME	Memc[P2C($1+10+8*IO_SZ_FNAME)]
+define	AT_OUTFNAME	Memc[P2C($1+10+9*IO_SZ_FNAME)]
+define	AT_CATDB	Memc[P2C($1+10+10*IO_SZ_FNAME)]
+define	AT_IMDB		Memc[P2C($1+10+11*IO_SZ_FNAME)]
+
+
+# Define the field center substructure
+
+define	RC_SZ_FNAME	(SZ_FNAME + 1) / 2	
+define  LEN_PRCENTER    (12 + 2 * RC_SZ_FNAME)
+
+define  AT_RCRA       Memd[P2D($1)]           # the field center ra / lon
+define  AT_RCDEC      Memd[P2D($1+2)]         # the field center dec / lat
+define  AT_RCRAWIDTH  Memd[P2D($1+4)]         # the field ra / lon width
+define  AT_RCDECWIDTH Memd[P2D($1+6)]         # the field dec / lat width
+define  AT_RCRAUNITS  Memi[$1+8]              # the ra / lon units
+define  AT_RCDECUNITS Memi[$1+9]              # the dec / lat units
+#define	AT_RCCC	      Memi[$1+10]             # the field center cc structure
+define	AT_RCST	      Memi[$1+11]             # the field center symbol table
+define  AT_RCSYSTEM   Memc[P2C($1+12)]        # the field center cc system
+define  AT_RCSOURCE   Memc[P2C($1+12+RC_SZ_FNAME)] # the field center cc system
+
+# Define the field filtering subtructure.
+
+define	FS_SZ_FNAME	(SZ_FNAME + 1) / 2
+define	FS_SZ_LINE	(SZ_LINE + 1) / 2
+
+define	LEN_PFILTER	(10+12*FS_SZ_FNAME+6*FS_SZ_LINE)
+define	F1OFFSET	P2C($1+10+$2*FS_SZ_FNAME)
+define	F2OFFSET	P2C($1+10+12*FS_SZ_FNAME+$2*FS_SZ_LINE)
+
+define	AT_FREVERSE	Memi[$1]
+define	AT_FREPLACE	Memi[$1+1]
+define	AT_FORAUNITS	Memi[$1+2]
+define	AT_FODECUNITS	Memi[$1+3]
+
+define	AT_FSORT	Memc[F1OFFSET($1,0)]
+define	AT_FOSYSTEM	Memc[F1OFFSET($1,1)]
+define	AT_FIRA		Memc[F1OFFSET($1,2)]
+define	AT_FIDEC	Memc[F1OFFSET($1,3)]
+define	AT_FORAFORMAT	Memc[F1OFFSET($1,4)]
+define	AT_FODECFORMAT	Memc[F1OFFSET($1,5)]
+define	AT_FIXP		Memc[F1OFFSET($1,6)]
+define	AT_FIYP		Memc[F1OFFSET($1,7)]
+define	AT_FIXC		Memc[F1OFFSET($1,8)]
+define	AT_FIYC		Memc[F1OFFSET($1,9)]
+define	AT_FOXFORMAT	Memc[F1OFFSET($1,10)]
+define	AT_FOYFORMAT	Memc[F1OFFSET($1,11)]
+
+define	AT_FIELDS	Memc[F2OFFSET($1,0)]
+define	AT_FNAMES	Memc[F2OFFSET($1,1)]
+define	AT_FNTYPES	Memc[F2OFFSET($1,2)]
+define	AT_FNUNITS	Memc[F2OFFSET($1,3)]
+define	AT_FNFORMATS	Memc[F2OFFSET($1,4)]
+define	AT_FEXPR	Memc[F2OFFSET($1,5)]
diff --git a/noao/astcat/lib/catdb.dat b/noao/astcat/lib/catdb.dat
new file mode 100644
index 00000000..eba19d5d
--- /dev/null
+++ b/noao/astcat/lib/catdb.dat
@@ -0,0 +1,429 @@
+# Initial cut at an astrometric catalog database file.
+begin filename@noao
+address 
+query
+nquery 0
+protocol
+nheader 1
+    csystem J2000
+nfields 0
+
+
+begin usnob1@noao
+address inet:80:archive.tuc.noao.edu:text
+query GET /cgi-bin/scat?catalog=ub1&ra=%-s&dec=%-s&sys=J2000&mrad=%-s&nstar=-1 HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec 00:00:00.0 degrees %0.1h
+    radius 6.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type btext
+    hskip 12
+nheader 1
+    csystem J2000.0
+nfields 11
+   id 1 12 INDEF %12s
+   ra 14 12 d hours %12.3H
+   dec 27 12 d degrees %12.2h
+   b1mag 40 5 r INDEF %5.2f
+   r1mag 46 5 r INDEF %5.2f
+   b2mag 52 5 r INDEF %5.2f
+   r2mag 58 5 r INDEF %5.2f
+   i2mag 64 5 r INDEF %5.2f
+   mura 70 6 r INDEF %6.1f
+   mudec 77 6 r INDEF %6.1f
+   dist 90 4 r degrees %4.2f
+
+
+
+begin twomass@noao
+address inet:80:archive.tuc.noao.edu:text
+query GET /cgi-bin/scat?catalog=tmc&ra=%-s&dec=%-s&sys=J2000&mrad=%-s&nstar=-1 HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec 00:00:00.0 degrees %0.1h
+    radius 6.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 11
+nheader 1
+    csystem J2000.0
+nfields 7
+    id 1 0 INDEF %11s
+    ra 2 0 d hours %12.3H
+    dec 3 0 d degrees %12.2h
+    mag1 4 0 r INDEF %6.3f
+    mag2 5 0 r INDEF %6.3f
+    mag3 6 0 r INDEF %6.3f
+    dist 7 0 r minutes %6.2f
+
+begin twomass@irsa
+address inet:80:irsa.ipac.caltech.edu:text
+query GET /cgi-bin/Gator/nph-query?outfmt=1&objstr=%-s+%-s&spatial=Cone&radius=%-s&radunits=arcmin&catalog=fp_psc HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec 00:00:00.0 degrees %0.1h
+    radius 1.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type btext
+    hskip 19
+nheader 1
+    csystem J2000.0
+nfields 5
+    ra 2 10 d degrees %12.3H
+    dec 13 10 d degrees %12.2h
+    mag1 58 6 r INDEF %6.3f
+    mag2 75 6 r INDEF %6.3f
+    mag3 92 6 r INDEF %6.3f
+
+begin twomass14@irsa
+address inet:80:irsa.ipac.caltech.edu:text
+query GET /cgi-bin/Gator/nph-query?outfmt=1&objstr=%-s+%-s&spatial=Cone&radius=%-s&radunits=arcmin&catalog=fp_psc&constraints=j_m<14 HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec 00:00:00.0 degrees %0.1h
+    radius 1.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type btext
+    hskip 19
+nheader 1
+    csystem J2000.0
+nfields 5
+    ra 2 10 d degrees %12.3H
+    dec 13 10 d degrees %12.2h
+    mag1 58 6 r INDEF %6.3f
+    mag2 75 6 r INDEF %6.3f
+    mag3 92 6 r INDEF %6.3f
+
+begin lan92@noao
+address inet:80:www.noao.edu:text
+query GET /cgi-bin/catalogs/ccget?catalog=landolt1992.dat&lngcenter=%-s&latcenter=%-s&width=%-s&columns=c[*] HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec 00:00:00.0 degrees %0.1h
+    width 10.0 degrees %0.3f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 15
+    tskip 1
+nheader 1
+    csystem J2000.0
+nfields 17
+    id 1 0 c INDEF %11s
+    ra 2 0 d hours %08.0h
+    dec 3 0 d degrees %9.0h
+    v 4 0 r INDEF %6.3f
+    bv 5 0 r INDEF %6.3f
+    ub 6 0 r INDEF %6.3f
+    vr 7 0 r INDEF %6.3f
+    ri 8 0 r INDEF %6.3f
+    vi 9 0 r INDEF %6.3f
+    n 10 0 i INDEF %2d
+    m 11 0 i INDEF %2d
+    ev 12 0 r INDEF %6.4f
+    ebv 13 0 r INDEF %6.4f
+    eub 14 0 r INDEF %6.3f
+    evr 15 0 r INDEF %6.4f
+    eri 16 0 r INDEF %6.4f
+    evi 17 0 r INDEF %6.4f
+
+begin usno2@cadc
+address inet:80:cadcwww.dao.nrc.ca:text
+query GET /cadcbin/getusno2?ra=%-s&dec=%-s&radius=%-s&m=0,21&nout=1000000 HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    radius 5 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 2
+    tskip 1
+    recsize 73
+    triml 0
+    trimr 0
+nheader 1
+    csystem J2000.0
+nfields 9
+    id 1 0 c INDEF %15s
+    ra 2 0 d degrees %10.5f
+    dec 3 0 d degrees %10.5f
+    bmag 4 0 r INDEF %6.2f
+    rmag 5 0 r INDEF %6.2f
+    col1 6 0 r INDEF %6.2f
+    plateno 7 0 i INDEF %4d
+    acsstar 8 0 b INDEF %3b 
+    arcdist 9 0 r asecs %6.1f
+
+
+begin usno1@cadc
+address inet:80:cadcwww.dao.nrc.ca:text
+query GET /cadcbin/getusno?ra=%-s&dec=%-s&radius=%-s&m=0,21&nout=1000000 HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    radius 5 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 2
+    tskip 1
+    recsize 73
+    triml 0
+    trimr 0
+nheader 1
+    csystem J2000
+nfields 9
+    id 1 0 c INDEF %15s
+    ra 2 0 d degrees %10.5f
+    dec 3 0 d degrees %10.5f
+    mag1 4 0 r INDEF %6.2f
+    mag2 5 0 r INDEF %6.2f
+    col1 6 0 r INDEF %6.2f
+    plateno 7 0 i INDEF %4d
+    acsstar 8 0 b INDEF %3b 
+    arcdist 9 0 r asecs %6.1f
+
+
+begin gsc1@cadc
+address inet:80:cadcwww.dao.nrc.ca:text
+query GET /cadcbin/gsc-server?%-s,%-s&r=0,%-s&m=0,21&f=8&s=R HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    radius 5 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 4
+    tskip 1
+    recsize 65
+    triml 0
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 9
+    id 1 0 c INDEF %13s
+    ra 2 0 d degrees %10.5f
+    dec 3 0 d degrees %10.5f
+    epos 4 0 r arcsecs %4.1f
+    mag1 5 0 r INDEF %6.2f
+    emag1 6 0 r INDEF %6.2f
+    acsstar 7 0 c INDEF %3s 
+    arcdist 8 0 r arcmin %6.2f
+    pangle 9 0 r degrees %4d
+
+begin hipp@cadc
+address inet:80:cadcwww.dao.nrc.ca:text
+query GET /cadcbin/hipparcos-server?ra=%-s&dec=%-s&radius=%-s HTTP/1.0\n\n
+nquery 4
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    radius 5 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 2
+    tskip 1
+    recsize 0
+    triml 0
+    trimr 0
+nheader 1
+    csystem J2000
+nfields 11
+    id 1 0 c INDEF %8s
+    ra 2 0 d degrees %19g
+    dec 3 0 d degrees %19g
+    mag1 4 0 r INDEF %6.2f
+    px 5 0 d marcsec %6.2f
+    pmra 6 0 d marcsec/yr %7.2f
+    pmdec 7 0 d marcsec/yr %7.2f
+    sptype 8 0 c INDEF %5s
+    pangle 9 0 r degrees %3d
+    arcdist 10 0 r arcmin %6.1f
+    hip 11 0 c INDEF %s
+
+#begin tmass@ipac
+#address inet:8002:irsadev.ipac.caltech.edu:text
+#query GET /cgi-bin/CatRegion/nph-catregion?catalog=pt_src_cat&objstr=%-s,%-s,Equ+J2000&within=%-s+degree&select=designation,+ra,+dec,+j_m,+h_m,+k_m HTTP/1.0\n\n
+#nquery 4
+#    ra  0.00000 degrees %0.5f
+#    dec 0.00000 degrees %0.5f
+#    radius 0.100 degrees %0.03f
+#    qsystem J2000.0 INDEF %s
+#protocol none
+#type stext
+#    hskip 8
+#    tskip 0
+#    recsize 0
+#    triml 0
+#    trimr 0
+#nheader 1
+#    csystem J2000
+#nfields 6
+#    id 1 0 c INDEF %14s
+#    ra 2 0 d degrees %11.6f
+#    dec 3 0 d degrees %11.6f
+#    mag1 4 0 r INDEF %7.3f
+#    mag2 5 0 r INDEF %7.3f
+#    mag3 6 0 r INDEF %7.3f
+
+begin gsc2@stsci
+address inet:80:www-gsss.stsci.edu:text
+query GET /cgi-bin/gsc22query.exe?ra=%-s&dec=%-s&r1=0.0&r2=%-s&m1=0.0&m2=19.5&n=100000&submit2=Submit+Request HTTP/1.0\n\n
+nquery 4
+    ra  00:00:00.0 hours %0.2h
+    dec +00:00:00 degrees %0.1h
+    radius 5 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type stext
+    hskip 2
+    tskip 1
+    recsize 0
+    triml 0
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 23
+    id 1 0 c INDEF %12s
+    ra 2 0 d degrees %12.8f
+    dec 3 0 d degrees %12.8f
+    era 4 0 d arcsec %8.6f
+    edec 5 0 d arcsec %8.6f
+    epoch 6 0 d years %11.6f
+    pmra 7 0 d marcsec/yr %10.8f
+    pmdec 8 0 d marcsec/yr %10.8f
+    epmra 9 0 d marcsec/yr %10.8f
+    epmdec 10 0 d marcsec/yr %10.8f
+    mag1 11 0 r INDEF %5.2f
+    emag1 12 0 r INDEF %5.2f
+    mag2 13 0 r INDEF %5.2f
+    emag2 14 0 r INDEF %5.2f
+    mag3 15 0 r INDEF %5.2f
+    emag3 16 0 r INDEF %5.2f
+    mag4 17 0 r INDEF %5.2f
+    emag4 18 0 r INDEF %5.2f
+    smaxis 19 0 r pixels %7.2f
+    ecc 20 0 r INDEF %4.2f
+    pangle 21 0 r degrees %6.2f
+    class 22 0 c INDEF %2s
+    status 23 0 c INDEF %7s
+
+begin usnob1@usno
+address inet:80:www.nofs.navy.mil:text
+query GET /cgi-bin/vo_cone.cgi?CAT=USNO-B1&RA=%-s&DEC=%-s&SR=%-s&VERB=1&cftype=ASCII&slf=hh.hhh/dd.ddd&skey=RA HTTP/1.0\n\n
+nquery 3
+    ra  0.00000 degrees %0.5f
+    dec 0.00000 degrees %0.5f
+    radius 0.100 degrees %0.03f
+protocol http
+type stext
+    hskip 26
+    tskip 0
+    recsize 0
+    triml 1
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 14
+    id 1 0 c INDEF %12s
+    ra 2 0 r hours %11.8f
+    dec 3 0 r degrees %11.7f
+    sra 4 0 d milliarcsecs %3d
+    sde 5 0 d milliarcsecs %3d
+    mura 6 0 r INDEF %4.1f
+    mudec 7 0 r INDEF %4.1f
+    smura 8 0 r INDEF %4.1f
+    smudec 9 0 r INDEF %4.1f
+    b1mag 10 0 r INDEF %7.3f
+    r1mag 11 0 r INDEF %7.3f
+    b2mag 12 0 r INDEF %7.3f
+    r2mag 13 0 r INDEF %7.3f
+    i2mag 14 0 r INDEF %7.3f 
+
+begin usnoa2@usno
+address inet:80:www.nofs.navy.mil:text
+query GET /cgi-bin/vo_cone.cgi?CAT=USNO-A2&RA=%-s&DEC=%-s&SR=%-s&VERB=1&cftype=ASCII&slf=hh.hhh/dd.ddd&skey=RA HTTP/1.0\n\n
+nquery 3
+    ra  0.00000 degrees %0.5f
+    dec 0.00000 degrees %0.5f
+    radius 0.100 degrees %0.03f
+protocol http
+type stext
+    hskip 26
+    tskip 0
+    recsize 0
+    triml 1
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 5
+    id 1 0 c INDEF %12s
+    ra 2 0 r hours %12.3H
+    dec 3 0 r degrees %12.2h
+    bmag 4 0 r INDEF %7.3f
+    vmag 5 0 r INDEF %7.3f
+
+begin nomad@usno
+address inet:80:www.nofs.navy.mil:text
+query GET /cgi-bin/vo_cone.cgi?CAT=NOMAD&RA=%-s&DEC=%-s&SR=%-s&VERB=1&cftype=ASCII&slf=hh.hhh/dd.ddd&skey=RA HTTP/1.0\n\n
+nquery 3
+    ra  0.00000 degrees %0.5f
+    dec 0.00000 degrees %0.5f
+    radius 0.100 degrees %0.03f
+protocol http
+type stext
+    hskip 26
+    tskip 0
+    recsize 0
+    triml 1
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 15
+    id 1 0 c INDEF %12s
+    ra 2 0 r degrees %12.3H
+    dec 3 0 r degrees %12.2h
+    sra 4 0 d milliarcsecs %3d
+    sde 5 0 d milliarcsecs %3d
+    mura 6 0 r INDEF %4.1f
+    mudec 7 0 r INDEF %4.1f
+    smura 8 0 r INDEF %4.1f
+    smude 9 0 r INDEF %4.1f
+    b 10 0 r INDEF %7.3f
+    v 11 0 r INDEF %7.3f
+    r 12 0 r INDEF %7.3f
+    j 13 0 r INDEF %7.3f
+    h 14 0 r INDEF %7.3f
+    k 15 0 r INDEF %7.3f 
+
+begin act@usno
+address inet:80:www.nofs.navy.mil:text
+query GET /cgi-bin/vo_cone.cgi?CAT=ACT&RA=%-s&DEC=%-s&SR=%-s&VERB=1&cftype=ASCII&slf=hh.hhh/dd.ddd&skey=RA HTTP/1.0\n\n
+nquery 3
+    ra  0.00000 degrees %0.5f
+    dec 0.00000 degrees %0.5f
+    radius 0.100 degrees %0.03f
+protocol http
+type stext
+    hskip 26
+    tskip 0
+    recsize 0
+    triml 1
+    trimr 1
+nheader 1
+    csystem J2000
+nfields 7
+    id 1 0 c INDEF %12s
+    ra 2 0 r degrees %12.3H
+    dec 3 0 r degrees %12.2h
+    mura 4 0 r INDEF %4.1f
+    mudec 5 0 r INDEF %4.1f
+    b 6 0 r INDEF %7.3f
+    v 7 0 r INDEF %7.3f
diff --git a/noao/astcat/lib/imdb.dat b/noao/astcat/lib/imdb.dat
new file mode 100644
index 00000000..2d835e47
--- /dev/null
+++ b/noao/astcat/lib/imdb.dat
@@ -0,0 +1,106 @@
+# Initial cut at an astrometric image survey database file. The header keywords
+# listed here are those that may be required to compute astrometric quantities,
+# evalute an existing wcs, compute an initial guess wcs, find and locate 
+# objects, compute a plate solution, and update the image header.
+
+begin imname@noao
+address
+query
+nquery 0
+type fits
+wcs none
+nwcs 0
+nkeys 0
+
+begin ndwfs@noao
+address inet:80:archive.noao.edu:text
+query  GET /ndwfs/cutout.php?ra=%-s&dec=%-s&rawidth=%-s&decwidth=%-s&filters=Bw HTTP/1.0\n\n
+nquery 5
+    ra 14:28:07.00 hours %0.2h
+    dec 34:55:00.0 degrees %0.1h
+    xwidth 10.0 minutes %0.1f
+    ywidth 10.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type fits
+hskip 0
+wcs fits
+
+begin dss1@cadc
+address inet:80:cadcwww.hia.nrc.ca:text
+query  GET /cadcbin/dss-server?ra=%-s&dec=%-s&mime-type=application/x-fits&x=%-s&y=%-s HTTP/1.0\n\n
+nquery 5
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    xwidth 10.0 minutes %0.1f
+    ywidth 10.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type fits
+hskip 0
+wcs dss
+nwcs 10
+    wxref INDEF INDEF d pixels
+    wyref INDEF INDEF d pixels
+    wxmag INDEF 1.701 d arcsec/pixel
+    wymag INDEF 1.701 d arcsec/pixel
+    wxrot INDEF 180.0 d degrees
+    wyrot INDEF 0.0 d degrees
+    wraref OBJCTRA INDEF d hms
+    wdecref OBJCTDEC INDEF d dms
+    wproj INDEF tan c INDEF
+    wsystem INDEF J2000 c INDEF
+nkeys 13
+    observat INDEF Palomar c INDEF
+    esitelng INDEF +116:51:46.80 d degrees
+    esitelat INDEF +33:21:21.6 d degrees
+    esitealt INDEF 1706 r meters
+    esitetz INDEF 8 r INDEF
+    emjdobs INDEF INDEF d INDEF
+    edatamin INDEF INDEF r ADU
+    edatamax INDEF INDEF r ADU
+    egain INDEF INDEF r e-/ADU
+    erdnoise INDEF INDEF r e-
+    ewavlen INDEF INDEF r angstroms
+    etemp INDEF INDEF r degrees
+    epress INDEF INDEF r mbars
+
+
+begin dss2@cadc
+address inet:80:cadcwww.hia.nrc.ca:text
+query  GET /cadcbin/xdss-server?ra=%-s&dec=%-s&mime-type=application/x-fits&x=%-s&y=%-s HTTP/1.0\n\n
+nquery 5
+    ra 00:00:00.00 hours %0.2h
+    dec +00:00:00.0 degrees %0.1h
+    xwidth 10.0 minutes %0.1f
+    ywidth 10.0 minutes %0.1f
+    qsystem J2000.0 INDEF %s
+protocol http
+type fits
+hskip 0
+wcs dss
+nwcs 10
+    wxref INDEF INDEF d pixels
+    wyref INDEF INDEF d pixels
+    wxmag INDEF 1.009 d arcsec/pixel
+    wymag INDEF 1.009 d arcsec/pixel
+    wxrot INDEF 180.0 d degrees
+    wyrot INDEF 0.0 d degrees
+    wraref OBJCTRA INDEF d hms
+    wdecref OBJCTDEC INDEF d dms
+    wproj INDEF tan c INDEF
+    wsystem INDEF J2000 c INDEF
+nkeys 13
+    observat INDEF Palomar c INDEF
+    esitelng INDEF +116:51:46.80 d degrees
+    esitelat INDEF +33:21:21.6 d degrees 
+    esitealt INDEF 1706 r meters
+    esitetz INDEF 8 r INDEF
+    emjdobs INDEF INDEF c INDEF
+    edatamin INDEF INDEF r ADU
+    edatamax INDEF INDEF r ADU
+    egain INDEF INDEF r e-/ADU
+    erdnoise INDEF INDEF r e-
+    ewavlen INDEF INDEF r angstroms
+    etemp INDEF INDEF r degrees
+    epress INDEF INDEF r mbars
diff --git a/noao/astcat/lib/reg001.cat.1 b/noao/astcat/lib/reg001.cat.1
new file mode 100644
index 00000000..de683589
--- /dev/null
+++ b/noao/astcat/lib/reg001.cat.1
@@ -0,0 +1,31 @@
+# BEGIN CATALOG HEADER
+# catdb astcat$lib/catdb.dat
+# catname usno2@noao
+# nquery 4
+#     ra 0:00:00.00 hours
+#     dec 10:00:00.0 degrees
+#     hwidth 2.5 minutes
+#     qsystem J2000.0 INDEF
+# type stext
+# nheader 1
+#     csystem J2000.0
+# nfields 4
+#     ra 1 0 d hours %12.3h
+#     dec 2 0 d degrees %12.2h
+#     mag1 3 0 r INDEF %4.1f
+#     mag2 4 0 r INDEF %4.1f
+# END CATALOG HEADER
+#
+00:00:01.034 10:02:07.69  18.6  19.2    
+00:00:02.230 10:02:05.36  19.4  20.1    
+00:00:02.615 9:58:14.16  17.4  19.5    
+00:00:06.452 10:01:42.01  13.6  14.8    
+00:00:08.187 9:58:24.30  17.7  18.8    
+00:00:08.602 9:59:50.80  11.9  12.7    
+00:00:10.067 10:01:47.30  17.8  19.6    
+23:59:53.772 9:57:41.77  15.8  18.1    
+23:59:54.003 9:59:05.11  18.6  19.3    
+23:59:56.052 9:58:23.12  17.0  18.9    
+23:59:56.713 10:00:10.70  18.7  19.1    
+23:59:58.477 9:57:56.94  17.7  19.5    
+23:59:59.600 9:58:05.56  17.7  19.0    
diff --git a/noao/astcat/lib/reg001.cat.2 b/noao/astcat/lib/reg001.cat.2
new file mode 100644
index 00000000..a8ab1f9f
--- /dev/null
+++ b/noao/astcat/lib/reg001.cat.2
@@ -0,0 +1,18 @@
+# BEGIN CATALOG HEADER
+# catdb astcat$lib/catdb.dat
+# catname usno2@noao
+# nquery 4
+#     ra 30:00:00.00 hours
+#     dec 10:00:00.0 degrees
+#     hwidth 2.5 minutes
+#     qsystem J2000.0 INDEF
+# type stext
+# nheader 1
+#     csystem J2000.0
+# nfields 4
+#     ra 1 0 d hours %12.3h
+#     dec 2 0 d degrees %12.2h
+#     mag1 3 0 r INDEF %4.1f
+#     mag2 4 0 r INDEF %4.1f
+# END CATALOG HEADER
+#