Statistics
| Branch: | Revision:

ffmpeg / vhook / fish.c @ 813af36b

History | View | Annotate | Download (10.1 KB)

1
/*
2
 * Fish Detector Hook
3
 * Copyright (c) 2002 Philip Gladstone
4
 *
5
 * This file implements a fish detector. It is used to see when a 
6
 * goldfish passes in front of the camera. It does this by counting
7
 * the number of input pixels that fall within a particular HSV
8
 * range.
9
 *
10
 * It takes a multitude of arguments:
11
 *
12
 * -h <num>-<num>    the range of H values that are fish
13
 * -s <num>-<num>    the range of S values that are fish
14
 * -v <num>-<num>    the range of V values that are fish
15
 * -z                zap all non-fish values to black
16
 * -l <num>          limit the number of saved files to <num>
17
 * -i <num>          only check frames every <num> seconds
18
 * -t <num>          the threshold for the amount of fish pixels (range 0-1)
19
 * -d                turn debugging on
20
 * -D <directory>    where to put the fish images
21
 *
22
 * This library is free software; you can redistribute it and/or
23
 * modify it under the terms of the GNU Lesser General Public
24
 * License as published by the Free Software Foundation; either
25
 * version 2 of the License, or (at your option) any later version.
26
 *
27
 * This library is distributed in the hope that it will be useful,
28
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
29
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
30
 * Lesser General Public License for more details.
31
 *
32
 * You should have received a copy of the GNU Lesser General Public
33
 * License along with this library; if not, write to the Free Software
34
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
35
 */
36
#include <stdlib.h>
37
#include <fcntl.h>
38
#include <unistd.h>
39
#include <stdarg.h>
40
#include <string.h>
41
#include <time.h>
42
#include <stdio.h>
43
#include <dirent.h>
44

    
45
#include "framehook.h"
46
#include "dsputil.h"
47

    
48
#define SCALEBITS 10
49
#define ONE_HALF  (1 << (SCALEBITS - 1))
50
#define FIX(x)    ((int) ((x) * (1<<SCALEBITS) + 0.5))
51

    
52
#define YUV_TO_RGB1_CCIR(cb1, cr1)\
53
{\
54
    cb = (cb1) - 128;\
55
    cr = (cr1) - 128;\
56
    r_add = FIX(1.40200*255.0/224.0) * cr + ONE_HALF;\
57
    g_add = - FIX(0.34414*255.0/224.0) * cb - FIX(0.71414*255.0/224.0) * cr + \
58
                    ONE_HALF;\
59
    b_add = FIX(1.77200*255.0/224.0) * cb + ONE_HALF;\
60
}
61

    
62
#define YUV_TO_RGB2_CCIR(r, g, b, y1)\
63
{\
64
    yt = ((y1) - 16) * FIX(255.0/219.0);\
65
    r = cm[(yt + r_add) >> SCALEBITS];\
66
    g = cm[(yt + g_add) >> SCALEBITS];\
67
    b = cm[(yt + b_add) >> SCALEBITS];\
68
}
69

    
70

    
71
 
72
  
73
typedef struct {
74
    int h;  /* 0 .. 360 */
75
    int s;  /* 0 .. 255 */
76
    int v;  /* 0 .. 255 */
77
} HSV;
78
              
79
typedef struct {
80
    int zapping;
81
    int threshold;
82
    HSV dark, bright;
83
    char *dir;
84
    int file_limit;
85
    int debug;
86
    int min_interval;
87
    int64_t next_pts;
88
    int inset;
89
    int min_width;
90
} ContextInfo;
91

    
92
static void dorange(const char *s, int *first, int *second, int maxval)
93
{
94
    sscanf(s, "%d-%d", first, second);
95
    if (*first > maxval)
96
        *first = maxval;
97
    if (*second > maxval)
98
        *second = maxval;
99
}
100

    
101
void Release(void *ctx)
102
{
103
    if (ctx)
104
        av_free(ctx);
105
}
106

    
107
int Configure(void **ctxp, int argc, char *argv[])
108
{
109
    ContextInfo *ci;
110
    int c;
111

    
112
    *ctxp = av_mallocz(sizeof(ContextInfo));
113
    ci = (ContextInfo *) *ctxp;
114

    
115
    optind = 0;
116

    
117
    ci->dir = "/tmp";
118
    ci->threshold = 100;
119
    ci->file_limit = 100;
120
    ci->min_interval = 1000000;
121
    ci->inset = 10;     /* Percent */
122

    
123
    while ((c = getopt(argc, argv, "w:i:dh:s:v:zl:t:D:")) > 0) {
124
        switch (c) {
125
            case 'h':
126
                dorange(optarg, &ci->dark.h, &ci->bright.h, 360);
127
                break;
128
            case 's':
129
                dorange(optarg, &ci->dark.s, &ci->bright.s, 255);
130
                break;
131
            case 'v':
132
                dorange(optarg, &ci->dark.v, &ci->bright.v, 255);
133
                break;
134
            case 'z':
135
                ci->zapping = 1;
136
                break;
137
            case 'l':
138
                ci->file_limit = atoi(optarg);
139
                break;
140
            case 'i':
141
                ci->min_interval = 1000000 * atof(optarg);
142
                break;
143
            case 't':
144
                ci->threshold = atof(optarg) * 1000;
145
                if (ci->threshold > 1000 || ci->threshold < 0) {
146
                    fprintf(stderr, "Invalid threshold value '%s' (range is 0-1)\n", optarg);
147
                    return -1;
148
                }
149
                break;
150
            case 'w':
151
                ci->min_width = atoi(optarg);
152
                break;
153
            case 'd':
154
                ci->debug++;
155
                break;
156
            case 'D':
157
                ci->dir = av_strdup(optarg);
158
                break;
159
            default:
160
                fprintf(stderr, "Unrecognized argument '%s'\n", argv[optind]);
161
                return -1;
162
        }
163
    }
164

    
165
    fprintf(stderr, "Fish detector configured:\n");
166
    fprintf(stderr, "    HSV range: %d,%d,%d - %d,%d,%d\n",
167
                        ci->dark.h,
168
                        ci->dark.s,
169
                        ci->dark.v,
170
                        ci->bright.h,
171
                        ci->bright.s,
172
                        ci->bright.v);
173
    fprintf(stderr, "    Threshold is %d%% pixels\n", ci->threshold / 10);
174

    
175

    
176
    return 0;
177
}
178

    
179
static void get_hsv(HSV *hsv, int r, int g, int b)
180
{
181
    int i, v, x, f;
182
         
183
    x = (r < g) ? r : g;
184
    if (b < x)
185
        x = b;
186
    v = (r > g) ? r : g;
187
    if (b > v)
188
        v = b;
189
          
190
    if (v == x) {
191
        hsv->h = 0;
192
        hsv->s = 0;
193
        hsv->v = v;
194
        return;
195
    }
196
       
197
    if (r == v) {
198
        f = g - b;
199
        i = 0;
200
    } else if (g == v) {
201
        f = b - r;
202
        i = 2 * 60;
203
    } else {
204
        f = r - g;
205
        i = 4 * 60;
206
    }
207
        
208
    hsv->h = i + (60 * f) / (v - x);
209
    if (hsv->h < 0)
210
        hsv->h += 360;
211

    
212
    hsv->s = (255 * (v - x)) / v;
213
    hsv->v = v;
214
         
215
    return;
216
}                                                                               
217

    
218
void Process(void *ctx, AVPicture *picture, enum PixelFormat pix_fmt, int width, int height, int64_t pts)
219
{
220
    ContextInfo *ci = (ContextInfo *) ctx;
221
    uint8_t *cm = cropTbl + MAX_NEG_CROP;                                         
222
    int rowsize = picture->linesize[0];
223

    
224
#if 0
225
    printf("pix_fmt = %d, width = %d, pts = %lld, ci->next_pts = %lld\n",
226
        pix_fmt, width, pts, ci->next_pts);
227
#endif
228

    
229
    if (pts < ci->next_pts)
230
        return;
231

    
232
    if (width < ci->min_width)
233
        return;
234

    
235
    ci->next_pts = pts + 1000000;    
236

    
237
    if (pix_fmt == PIX_FMT_YUV420P) {
238
        uint8_t *y, *u, *v;
239
        int width2 = width >> 1;
240
        int inrange = 0;
241
        int pixcnt;
242
        int h;
243
        int h_start, h_end;
244
        int w_start, w_end;
245

    
246
        h_end = 2 * ((ci->inset * height) / 200);
247
        h_start = height - h_end;
248

    
249
        w_end = (ci->inset * width2) / 100;
250
        w_start = width2 - w_end;
251

    
252
        pixcnt = ((h_start - h_end) >> 1) * (w_start - w_end);
253

    
254
        y = picture->data[0] + h_end * picture->linesize[0] + w_end * 2;
255
        u = picture->data[1] + h_end * picture->linesize[1] / 2 + w_end;
256
        v = picture->data[2] + h_end * picture->linesize[2] / 2 + w_end;
257

    
258
        for (h = h_start; h > h_end; h -= 2) {
259
            int w;
260

    
261
            for (w = w_start; w > w_end; w--) {
262
                unsigned int r,g,b;
263
                HSV hsv;
264
                int cb, cr, yt, r_add, g_add, b_add;
265

    
266
                YUV_TO_RGB1_CCIR(u[0], v[0]);
267
                YUV_TO_RGB2_CCIR(r, g, b, y[0]);
268

    
269
                get_hsv(&hsv, r, g, b);
270

    
271
                if (ci->debug > 1) 
272
                    fprintf(stderr, "(%d,%d,%d) -> (%d,%d,%d)\n",
273
                        r,g,b,hsv.h,hsv.s,hsv.v);
274

    
275

    
276
                if (hsv.h >= ci->dark.h && hsv.h <= ci->bright.h &&
277
                    hsv.s >= ci->dark.s && hsv.s <= ci->bright.s &&
278
                    hsv.v >= ci->dark.v && hsv.v <= ci->bright.v) {            
279
                    inrange++;
280
                } else if (ci->zapping) {
281
                    y[0] = y[1] = y[rowsize] = y[rowsize + 1] = 16;
282
                    u[0] = 128;
283
                    v[0] = 128;
284
                }
285

    
286
                y+= 2;
287
                u++;
288
                v++;
289
            }
290

    
291
            y += picture->linesize[0] * 2 - (w_start - w_end) * 2;
292
            u += picture->linesize[1] - (w_start - w_end);
293
            v += picture->linesize[2] - (w_start - w_end);
294
        }
295

    
296
        if (ci->debug) 
297
            fprintf(stderr, "Fish: Inrange=%d of %d = %d threshold\n", inrange, pixcnt, 1000 * inrange / pixcnt);
298

    
299
        if (inrange * 1000 / pixcnt >= ci->threshold) {
300
            /* Save to file */
301
            int size;
302
            char *buf;
303
            AVPicture picture1;
304
            static int frame_counter;
305
            static int foundfile;
306

    
307
            if ((frame_counter++ % 20) == 0) {
308
                /* Check how many files we have */
309
                DIR *d;
310

    
311
                foundfile = 0;
312

    
313
                d = opendir(ci->dir);
314
                if (d) {
315
                    struct dirent *dent;
316

    
317
                    while ((dent = readdir(d))) {
318
                        if (strncmp("fishimg", dent->d_name, 7) == 0) {
319
                            if (strcmp(".ppm", dent->d_name + strlen(dent->d_name) - 4) == 0) {
320
                                foundfile++;
321
                            }
322
                        }
323
                    }
324
                    closedir(d);
325
                }
326
            }
327

    
328
            if (foundfile < ci->file_limit) {
329
                size = avpicture_get_size(PIX_FMT_RGB24, width, height);
330
                buf = av_malloc(size);
331

    
332
                avpicture_fill(&picture1, buf, PIX_FMT_RGB24, width, height);
333
                if (img_convert(&picture1, PIX_FMT_RGB24, 
334
                                picture, pix_fmt, width, height) >= 0) {
335
                    /* Write out the PPM file */
336

    
337
                    FILE *f;
338
                    char fname[256];
339

    
340
                    snprintf(fname, sizeof(fname), "%s/fishimg%ld_%lld.ppm", ci->dir, time(0), pts);
341
                    f = fopen(fname, "w");
342
                    if (f) {
343
                        fprintf(f, "P6 %d %d 255\n", width, height);
344
                        fwrite(buf, width * height * 3, 1, f);
345
                        fclose(f);
346
                    }
347
                }
348

    
349
                av_free(buf);
350
                ci->next_pts = pts + ci->min_interval;    
351
            }
352
        }
353
    }
354
}
355