1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
|
#if MINIMIZE_INCLUDES
#include <stdarg.h>
int sscanf(const char *s, const char *format, ...);
typedef unsigned long size_t;
size_t strlen();
char *strcpy(), *strdup(), *strstr(), *getenv();
void *calloc(), *malloc(), *memset(), *memmove();
void exit();
#else
#include <stdio.h>
#include <unistd.h>
#include <math.h>
#include <string.h>
#include <sys/types.h>
#ifdef __STDC__
#include <stdlib.h>
#include <stdarg.h>
#else
#include <varargs.h>
#endif
#endif
#if MINIMIZE_INCLUDES
/* lots of math functions from math.h */
extern double acos(double);
extern double asin(double);
extern double atan(double);
extern double atan2(double, double);
extern double cos(double);
extern double sin(double);
extern double tan(double);
extern double acosh(double);
extern double asinh(double);
extern double atanh(double);
extern double cosh(double);
extern double sinh(double);
extern double tanh(double);
extern double exp (double);
extern double exp2 (double);
extern double expm1 (double);
extern double log (double);
extern double log10 (double);
extern double log2 (double);
extern double log1p (double);
extern double logb (double);
extern double modf (double, double *);
extern double ldexp (double, int);
extern double frexp (double, int *);
extern int ilogb (double);
extern double scalbn (double, int);
extern double scalbln (double, long int);
extern double fabs(double);
extern double cbrt(double);
extern double hypot (double, double);
extern double pow (double, double);
extern double sqrt(double);
extern double erf(double);
extern double erfc(double);
extern double lgamma(double);
extern double tgamma(double);
extern double ceil (double);
extern double floor (double);
extern double nearbyint (double);
extern double rint (double);
extern long int lrint (double);
extern double round (double);
extern long int lround (double);
extern double trunc (double);
extern double fmod (double, double);
extern double remainder (double, double);
extern double remquo (double, double, int *);
extern double copysign (double, double);
extern double nan(const char *);
extern double nextafter (double, double);
extern double fdim (double, double);
extern double fmax (double, double);
extern double fmin (double, double);
extern double fma (double, double, double);
/* and math constants */
#define M_E 2.71828182845904523536028747135266250 /* e */
#define M_LOG2E 1.44269504088896340735992468100189214 /* log 2e */
#define M_LOG10E 0.434294481903251827651128918916605082 /* log 10e */
#define M_LN2 0.693147180559945309417232121458176568 /* log e2 */
#define M_LN10 2.30258509299404568401799145468436421 /* log e10 */
#define M_PI 3.14159265358979323846264338327950288 /* pi */
#define M_PI_2 1.57079632679489661923132169163975144 /* pi/2 */
#define M_PI_4 0.785398163397448309615660845819875721 /* pi/4 */
#define M_1_PI 0.318309886183790671537767526745028724 /* 1/pi */
#define M_2_PI 0.636619772367581343075535053490057448 /* 2/pi */
#define M_2_SQRTPI 1.12837916709551257389615890312154517 /* 2/sqrt(pi) */
#define M_SQRT2 1.41421356237309504880168872420969808 /* sqrt(2) */
#define M_SQRT1_2 0.707106781186547524400844362104849039 /* 1/sqrt(2) */
#endif
#define MASKINC 10000
#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif
#define SMALL_NUMBER 1.0E-24
#define LARGE_NUMBER 65535
#define PSTOP -142857.142857
#ifndef SZ_LINE
#define SZ_LINE 4096
#endif
#ifndef min
#define min(x,y) (((x)<(y))?(x):(y))
#endif
#ifndef max
#define max(x,y) (((x)>(y))?(x):(y))
#endif
#ifndef abs
#define abs(x) ((x)<0?(-x):(x))
#endif
#ifndef feq
#define feq(x,y) (fabs((double)x-(double)y)<=(double)1.0E-15)
#endif
#ifndef NULL
#define NULL (void *)0
#endif
#ifndef TOK_EREG
#define TOK_EREG 1
#endif
#ifndef TOK_NREG
#define TOK_NREG 2
#endif
#ifndef TOK_IREG
#define TOK_IREG 4
#endif
#define PIXCEN(a) (double)(a)
#define PIXNUM(a) (int)((a)+0.5)
#define PIXSTART(a) ((int)(a)+1)
#define PIXSTOP(a) (((int)(a))==(a)?((int)(a)-1):((int)(a)))
/* to assure that geometrically adjoining regions touch but don't overlap */
/* when edge is exactly on a pixel center it goes to right or upper region. */
/* used for non-radially symetric regions instead of PIXSTART, PIXSTOP */
#define PIXINCL(a) (int)((a)+1.0)
/* this is the filter string for field only */
#define EVFIELDONLY "(evfield(g,1,1,1,(double)x,(double)y))"
#define XSNO 3
/* NB: these MUST match the definition in filter.h */
#ifndef __filter_h
typedef struct filtmaskrec {
int region;
int y;
int xstart, xstop;
} *FilterMask, FilterMaskRec;
/* parameter structure for a scan entry */
typedef struct scanrec{
struct scanrec *next;
int x;
} *Scan, ScanRec;
typedef struct shaperec {
int init;
double ystart, ystop;
Scan *scanlist;
/* varargs */
int nv;
double *xv;
/* circle, annulus */
double r1sq, r2sq;
/* ellipse */
double angl, sinangl, cosangl;
double cossq, sinsq;
double xradsq, yradsq;
double a;
/* polygon-style shapes */
int npt;
double *pts;
/* line */
int xonly;
double x1, x2, y1;
double invslope;
} *Shape, ShapeRec;
/* these are global for use with special region routines */
typedef struct gfiltrec {
int nshapes; /* number of shapes */
int maxshapes; /* number of shape records we allocate */
Shape shapes; /* array holding range limits for one shape */
int rid; /* first valid region for current pixel */
int usebinsiz; /* whether bindizx,binsizy are used */
char *evsect; /* value of event section */
double tlminx, tlminy; /* tlmin for event section */
double binsizx, binsizy; /* bin sizes for event section */
double tloff; /* offset for quick p2i conversion */
int xmin, xmax, ymin, ymax; /* section limits in original image coords */
int block; /* block factor */
int x0, x1, y0, y1; /* section limits in section coords */
int *ybuf; /* valid y row flags */
int *x0s; /* valid x start values */
int *x1s; /* valid x stop values */
int nmask; /* number of image mask record */
int maskdim; /* size of mask image */
FilterMask masks; /* mask records */
} *GFilt, GFiltRec;
#endif
/* declare image init routines */
void imannulusi(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double iradius, double oradius);
void imboxi(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xwidth, double yheight,
double angle);
void imcirclei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double radius);
void imellipsei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xrad, double yrad,
double angle);
void imfieldi(GFilt g, int rno, int sno, int flag, int type,
double x, double y);
void imlinei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double x0, double y0, double x1, double y1);
void impiei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
void imqtpiei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
void impointi(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen);
void impandai(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double anglo, double anghi, double angn,
double radlo, double radhi, double radn);
void imnannulusi(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
void imnboxi(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
void imnellipsei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
void imnpiei(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
#ifdef __STDC__
void impolygoni(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
void imvannulusi(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
void imvboxi(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
void imvellipsei(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
void imvpiei(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
void imvpointi(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
#endif
/* declare image region routines */
int imannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double iradius, double oradius);
int imbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xwidth, double yheight,
double angle);
int imcircle(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double radius);
int imellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xrad, double yrad,
double angle);
int imfield(GFilt g, int rno, int sno, int flag, int type,
double x, double y);
int imline(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double x1, double y1, double x2, double y2);
int impie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
int imqtpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
int impoint(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen);
int impanda(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double anglo, double anghi, double angn,
double radlo, double radhi, double radn);
int imnannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
int imnbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
int imnellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
int imnpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
#ifdef __STDC__
int impolygon(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
int imvannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int imvbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int imvellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int imvpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int imvpoint(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
#endif
/* declare event region routines */
int evannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double iradius, double oradius);
int evbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xwidth, double yheight,
double angle);
int evcircle(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double radius);
int evellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double xrad, double yrad,
double angle);
int evfield(GFilt g, int rno, int sno, int flag, int type,
double x, double y);
int evline(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double x1, double y1, double x2, double y2);
int evpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
int evqtpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen, double angle1, double angle2);
int evpoint(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen);
int evnannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
int evnbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
int evnellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lox, double loy, double hix, double hiy, int n,
double angle);
int evnpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double lo, double hi, int n);
int evpanda(GFilt g, int rno, int sno, int flag, int type,
double x, double y,
double xcen, double ycen,
double anglo, double anghi, double angn,
double radlo, double radhi, double radn);
#ifdef __STDC__
int evpolygon(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
int evvannulus(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int evvbox(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int evvellipse(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int evvpie(GFilt g, int rno, int sno, int flag, int type,
double x, double y, double xcen, double ycen, ...);
int evvpoint(GFilt g, int rno, int sno, int flag, int type,
double x, double y, ...);
#endif
|
