1 8a3b2ceb 2004-04-24 devnull #define	RAD(x)	((x)*PI_180)
  2 8a3b2ceb 2004-04-24 devnull #define	DEG(x)	((x)/PI_180)
  3 8a3b2ceb 2004-04-24 devnull #define ARCSECONDS_PER_RADIAN	(DEG(1)*3600)
  4 8a3b2ceb 2004-04-24 devnull #define input_nybble(infile)    input_nbits(infile,4)
  5 8a3b2ceb 2004-04-24 devnull 
  6 8a3b2ceb 2004-04-24 devnull typedef float	Angle;	/* in radians */
  7 8a3b2ceb 2004-04-24 devnull 
  8 8a3b2ceb 2004-04-24 devnull enum
  9 8a3b2ceb 2004-04-24 devnull {
 10 8a3b2ceb 2004-04-24 devnull 	/*
 11 8a3b2ceb 2004-04-24 devnull 	 * parameters for plate
 12 8a3b2ceb 2004-04-24 devnull 	 */
 13 8a3b2ceb 2004-04-24 devnull 	Pppo1	= 0,
 14 8a3b2ceb 2004-04-24 devnull 	Pppo2,
 15 8a3b2ceb 2004-04-24 devnull 	Pppo3,
 16 8a3b2ceb 2004-04-24 devnull 	Pppo4,
 17 8a3b2ceb 2004-04-24 devnull 	Pppo5,
 18 8a3b2ceb 2004-04-24 devnull 	Pppo6,
 19 8a3b2ceb 2004-04-24 devnull 	Pamdx1,
 20 8a3b2ceb 2004-04-24 devnull 	Pamdx2,
 21 8a3b2ceb 2004-04-24 devnull 	Pamdx3,
 22 8a3b2ceb 2004-04-24 devnull 	Pamdx4,
 23 8a3b2ceb 2004-04-24 devnull 	Pamdx5,
 24 8a3b2ceb 2004-04-24 devnull 	Pamdx6,
 25 8a3b2ceb 2004-04-24 devnull 	Pamdx7,
 26 8a3b2ceb 2004-04-24 devnull 	Pamdx8,
 27 8a3b2ceb 2004-04-24 devnull 	Pamdx9,
 28 8a3b2ceb 2004-04-24 devnull 	Pamdx10,
 29 8a3b2ceb 2004-04-24 devnull 	Pamdx11,
 30 8a3b2ceb 2004-04-24 devnull 	Pamdx12,
 31 8a3b2ceb 2004-04-24 devnull 	Pamdx13,
 32 8a3b2ceb 2004-04-24 devnull 	Pamdx14,
 33 8a3b2ceb 2004-04-24 devnull 	Pamdx15,
 34 8a3b2ceb 2004-04-24 devnull 	Pamdx16,
 35 8a3b2ceb 2004-04-24 devnull 	Pamdx17,
 36 8a3b2ceb 2004-04-24 devnull 	Pamdx18,
 37 8a3b2ceb 2004-04-24 devnull 	Pamdx19,
 38 8a3b2ceb 2004-04-24 devnull 	Pamdx20,
 39 8a3b2ceb 2004-04-24 devnull 	Pamdy1,
 40 8a3b2ceb 2004-04-24 devnull 	Pamdy2,
 41 8a3b2ceb 2004-04-24 devnull 	Pamdy3,
 42 8a3b2ceb 2004-04-24 devnull 	Pamdy4,
 43 8a3b2ceb 2004-04-24 devnull 	Pamdy5,
 44 8a3b2ceb 2004-04-24 devnull 	Pamdy6,
 45 8a3b2ceb 2004-04-24 devnull 	Pamdy7,
 46 8a3b2ceb 2004-04-24 devnull 	Pamdy8,
 47 8a3b2ceb 2004-04-24 devnull 	Pamdy9,
 48 8a3b2ceb 2004-04-24 devnull 	Pamdy10,
 49 8a3b2ceb 2004-04-24 devnull 	Pamdy11,
 50 8a3b2ceb 2004-04-24 devnull 	Pamdy12,
 51 8a3b2ceb 2004-04-24 devnull 	Pamdy13,
 52 8a3b2ceb 2004-04-24 devnull 	Pamdy14,
 53 8a3b2ceb 2004-04-24 devnull 	Pamdy15,
 54 8a3b2ceb 2004-04-24 devnull 	Pamdy16,
 55 8a3b2ceb 2004-04-24 devnull 	Pamdy17,
 56 8a3b2ceb 2004-04-24 devnull 	Pamdy18,
 57 8a3b2ceb 2004-04-24 devnull 	Pamdy19,
 58 8a3b2ceb 2004-04-24 devnull 	Pamdy20,
 59 8a3b2ceb 2004-04-24 devnull 	Ppltscale,
 60 8a3b2ceb 2004-04-24 devnull 	Pxpixelsz,
 61 8a3b2ceb 2004-04-24 devnull 	Pypixelsz,
 62 8a3b2ceb 2004-04-24 devnull 	Ppltra,
 63 8a3b2ceb 2004-04-24 devnull 	Ppltrah,
 64 8a3b2ceb 2004-04-24 devnull 	Ppltram,
 65 8a3b2ceb 2004-04-24 devnull 	Ppltras,
 66 8a3b2ceb 2004-04-24 devnull 	Ppltdec,
 67 8a3b2ceb 2004-04-24 devnull 	Ppltdecd,
 68 8a3b2ceb 2004-04-24 devnull 	Ppltdecm,
 69 8a3b2ceb 2004-04-24 devnull 	Ppltdecs,
 70 8a3b2ceb 2004-04-24 devnull 	Pnparam,
 71 8a3b2ceb 2004-04-24 devnull };
 72 8a3b2ceb 2004-04-24 devnull 
 73 8a3b2ceb 2004-04-24 devnull typedef	struct	Plate	Plate;
 74 8a3b2ceb 2004-04-24 devnull struct	Plate
 75 8a3b2ceb 2004-04-24 devnull {
 76 8a3b2ceb 2004-04-24 devnull 	char	rgn[7];
 77 8a3b2ceb 2004-04-24 devnull 	char	disk;
 78 8a3b2ceb 2004-04-24 devnull 	Angle	ra;
 79 8a3b2ceb 2004-04-24 devnull 	Angle	dec;
 80 8a3b2ceb 2004-04-24 devnull };
 81 8a3b2ceb 2004-04-24 devnull 
 82 8a3b2ceb 2004-04-24 devnull typedef	struct	Header	Header;
 83 8a3b2ceb 2004-04-24 devnull struct	Header
 84 8a3b2ceb 2004-04-24 devnull {
 85 8a3b2ceb 2004-04-24 devnull 	float	param[Pnparam];
 86 8a3b2ceb 2004-04-24 devnull 	int	amdflag;
 87 8a3b2ceb 2004-04-24 devnull 
 88 8a3b2ceb 2004-04-24 devnull 	float	x;
 89 8a3b2ceb 2004-04-24 devnull 	float	y;
 90 8a3b2ceb 2004-04-24 devnull 	float	xi;
 91 8a3b2ceb 2004-04-24 devnull 	float	eta;
 92 8a3b2ceb 2004-04-24 devnull };
 93 8a3b2ceb 2004-04-24 devnull typedef	long	Type;
 94 8a3b2ceb 2004-04-24 devnull 
 95 8a3b2ceb 2004-04-24 devnull typedef struct	Image	Image;
 96 8a3b2ceb 2004-04-24 devnull struct	Image
 97 8a3b2ceb 2004-04-24 devnull {
 98 8a3b2ceb 2004-04-24 devnull 	int	nx;
 99 8a3b2ceb 2004-04-24 devnull 	int	ny;	/* ny is the fast-varying dimension */
100 8a3b2ceb 2004-04-24 devnull 	Type	a[1];
101 8a3b2ceb 2004-04-24 devnull };
102 8a3b2ceb 2004-04-24 devnull 
103 8a3b2ceb 2004-04-24 devnull int	nplate;
104 8a3b2ceb 2004-04-24 devnull Plate	plate[2000];		/* needs to go to 2000 when the north comes */
105 8a3b2ceb 2004-04-24 devnull double	PI_180;
106 8a3b2ceb 2004-04-24 devnull double	TWOPI;
107 8a3b2ceb 2004-04-24 devnull int	debug;
108 8a3b2ceb 2004-04-24 devnull struct
109 8a3b2ceb 2004-04-24 devnull {
110 8a3b2ceb 2004-04-24 devnull 	float	min;
111 8a3b2ceb 2004-04-24 devnull 	float	max;
112 8a3b2ceb 2004-04-24 devnull 	float	del;
113 8a3b2ceb 2004-04-24 devnull 	double	gamma;
114 8a3b2ceb 2004-04-24 devnull 	int	neg;
115 8a3b2ceb 2004-04-24 devnull } gam;
116 8a3b2ceb 2004-04-24 devnull 
117 8a3b2ceb 2004-04-24 devnull char*	hms(Angle);
118 8a3b2ceb 2004-04-24 devnull char*	dms(Angle);
119 8a3b2ceb 2004-04-24 devnull double	xsqrt(double);
120 8a3b2ceb 2004-04-24 devnull Angle	dist(Angle, Angle, Angle, Angle);
121 8a3b2ceb 2004-04-24 devnull Header*	getheader(char*);
122 8a3b2ceb 2004-04-24 devnull char*	getword(char*, char*);
123 8a3b2ceb 2004-04-24 devnull void	amdinv(Header*, Angle, Angle, float, float);
124 8a3b2ceb 2004-04-24 devnull void	ppoinv(Header*, Angle, Angle);
125 8a3b2ceb 2004-04-24 devnull void	xypos(Header*, Angle, Angle, float, float);
126 8a3b2ceb 2004-04-24 devnull void	traneqstd(Header*, Angle, Angle);
127 8a3b2ceb 2004-04-24 devnull Angle	getra(char*);
128 8a3b2ceb 2004-04-24 devnull Angle	getdec(char*);
129 8a3b2ceb 2004-04-24 devnull void	getplates(void);
130 8a3b2ceb 2004-04-24 devnull 
131 8a3b2ceb 2004-04-24 devnull Image*	dssread(char*);
132 8a3b2ceb 2004-04-24 devnull void	hinv(Type*, int, int);
133 8a3b2ceb 2004-04-24 devnull int	input_bit(Biobuf*);
134 8a3b2ceb 2004-04-24 devnull int	input_nbits(Biobuf*, int);
135 8a3b2ceb 2004-04-24 devnull void	qtree_decode(Biobuf*, Type*, int, int, int, int);
136 8a3b2ceb 2004-04-24 devnull void	start_inputing_bits(void);
137 8a3b2ceb 2004-04-24 devnull Bitmap*	image(Angle, Angle, Angle, Angle);
138 8a3b2ceb 2004-04-24 devnull int	dogamma(int);