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
|
/*
* peaks.c
*
* Peak search and other image analysis
*
* (c) 2006-2009 Thomas White <taw@physics.org>
*
* Part of CrystFEL - crystallography with a FEL
*
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <string.h>
#include <assert.h>
#include "image.h"
#include "utils.h"
#define PEAK_WINDOW_SIZE (10)
void search_peaks(struct image *image, int dump_peaks)
{
int x, y, width, height;
int16_t *data;
data = image->data;
width = image->width;
height = image->height;
if ( image->features != NULL ) {
image_feature_list_free(image->features);
}
image->features = image_feature_list_new();
for ( x=1; x<image->width-1; x++ ) {
for ( y=1; y<image->height-1; y++ ) {
double dx1, dx2, dy1, dy2;
double dxs, dys;
double grad;
int mask_x, mask_y;
int sx, sy;
double max;
unsigned int did_something = 1;
/* Overall threshold */
if ( data[x+width*y] < 800 ) continue;
/* Ignore streak */
if ( abs(x-image->x_centre) < 15 ) continue;
/* Get gradients */
dx1 = data[x+width*y] - data[(x+1)+width*y];
dx2 = data[(x-1)+width*y] - data[x+width*y];
dy1 = data[x+width*y] - data[(x+1)+width*(y+1)];
dy2 = data[x+width*(y-1)] - data[x+width*y];
/* Average gradient measurements from both sides */
dxs = ((dx1*dx1) + (dx2*dx2)) / 2;
dys = ((dy1*dy1) + (dy2*dy2)) / 2;
/* Calculate overall gradient */
grad = dxs + dys;
if ( grad < 2000000 ) continue;
mask_x = x;
mask_y = y;
while ( (did_something)
&& (distance(mask_x, mask_y, x, y)<50) ) {
max = data[mask_x+width*mask_y];
did_something = 0;
for ( sy=biggest(mask_y-PEAK_WINDOW_SIZE/2, 0);
sy<smallest(mask_y+PEAK_WINDOW_SIZE/2, height);
sy++ ) {
for ( sx=biggest(mask_x-PEAK_WINDOW_SIZE/2, 0);
sx<smallest(mask_x+PEAK_WINDOW_SIZE/2, width);
sx++ ) {
if ( data[sx+width*sy] > max ) {
max = data[sx+width*sy];
mask_x = sx;
mask_y = sy;
did_something = 1;
}
}
}
}
if ( !did_something ) {
double d;
int idx;
assert(mask_x<image->width);
assert(mask_y<image->height);
assert(mask_x>=0);
assert(mask_y>=0);
/* Too far from foot point? */
if ( distance(mask_x, mask_y, x, y) > 50.0 ) continue;
/* Check for a feature at exactly the
* same coordinates */
image_feature_closest(image->features, mask_x, mask_y,
&d, &idx);
if ( d > 1.0 ) {
/* Map and record reflection */
if ( dump_peaks ) {
printf("%i %i\n", x, y);
}
image_add_feature(image->features,
mask_x, mask_y, image, 1.0);
}
}
}
}
}
|
