git.sesse.net Git - ffmpeg/blob - libavutil/pixelutils.c

   1 /*
   2  * This file is part of FFmpeg.
   3  *
   4  * FFmpeg is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * FFmpeg is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with FFmpeg; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  17  */
  18
  19 #include "config.h"
  20 #include "common.h"
  21 #include "pixelutils.h"
  22 #include "internal.h"
  23
  24 #if CONFIG_PIXELUTILS
  25
  26 #include "x86/pixelutils.h"
  27
  28 static av_always_inline int sad_wxh(const uint8_t *src1, ptrdiff_t stride1,
  29                                     const uint8_t *src2, ptrdiff_t stride2,
  30                                     int w, int h)
  31 {
  32     int x, y, sum = 0;
  33
  34     for (y = 0; y < h; y++) {
  35         for (x = 0; x < w; x++)
  36             sum += abs(src1[x] - src2[x]);
  37         src1 += stride1;
  38         src2 += stride2;
  39     }
  40     return sum;
  41 }
  42
  43 #define DECLARE_BLOCK_FUNCTIONS(size)                                               \
  44 static int block_sad_##size##x##size##_c(const uint8_t *src1, ptrdiff_t stride1,    \
  45                                          const uint8_t *src2, ptrdiff_t stride2)    \
  46 {                                                                                   \
  47     return sad_wxh(src1, stride1, src2, stride2, size, size);                       \
  48 }
  49
  50 DECLARE_BLOCK_FUNCTIONS(2)
  51 DECLARE_BLOCK_FUNCTIONS(4)
  52 DECLARE_BLOCK_FUNCTIONS(8)
  53 DECLARE_BLOCK_FUNCTIONS(16)
  54
  55 static const av_pixelutils_sad_fn sad_c[] = {
  56     block_sad_2x2_c,
  57     block_sad_4x4_c,
  58     block_sad_8x8_c,
  59     block_sad_16x16_c,
  60 };
  61
  62 #endif /* CONFIG_PIXELUTILS */
  63
  64 av_pixelutils_sad_fn av_pixelutils_get_sad_fn(int w_bits, int h_bits, int aligned, void *log_ctx)
  65 {
  66 #if !CONFIG_PIXELUTILS
  67     av_log(log_ctx, AV_LOG_ERROR, "pixelutils support is required "
  68            "but libavutil is not compiled with it\n");
  69     return NULL;
  70 #else
  71     av_pixelutils_sad_fn sad[FF_ARRAY_ELEMS(sad_c)];
  72
  73     memcpy(sad, sad_c, sizeof(sad));
  74
  75     if (w_bits < 1 || w_bits > FF_ARRAY_ELEMS(sad) ||
  76         h_bits < 1 || h_bits > FF_ARRAY_ELEMS(sad))
  77         return NULL;
  78     if (w_bits != h_bits) // only squared sad for now
  79         return NULL;
  80
  81 #if ARCH_X86
  82     ff_pixelutils_sad_init_x86(sad, aligned);
  83 #endif
  84
  85     return sad[w_bits - 1];
  86 #endif
  87 }
  88
  89 #ifdef TEST
  90 #define W1 320
  91 #define H1 240
  92 #define W2 640
  93 #define H2 480
  94
  95 static int run_single_test(const char *test,
  96                            const uint8_t *block1, ptrdiff_t stride1,
  97                            const uint8_t *block2, ptrdiff_t stride2,
  98                            int align, int n)
  99 {
 100     int out, ref;
 101     av_pixelutils_sad_fn f_ref = sad_c[n - 1];
 102     av_pixelutils_sad_fn f_out = av_pixelutils_get_sad_fn(n, n, align, NULL);
 103
 104     switch (align) {
 105     case 0: block1++; block2++; break;
 106     case 1:           block2++; break;
 107     case 2:                     break;
 108     }
 109
 110     out = f_out(block1, stride1, block2, stride2);
 111     ref = f_ref(block1, stride1, block2, stride2);
 112     printf("[%s] [%c%c] SAD [%s] %dx%d=%d ref=%d\n",
 113            out == ref ? "OK" : "FAIL",
 114            align ? 'A' : 'U', align == 2 ? 'A' : 'U',
 115            test, 1<<n, 1<<n, out, ref);
 116     return out != ref;
 117 }
 118
 119 static int run_test(const char *test,
 120                     const uint8_t *b1, const uint8_t *b2)
 121 {
 122     int i, a, ret = 0;
 123
 124     for (a = 0; a < 3; a++) {
 125         const uint8_t *block1 = b1;
 126         const uint8_t *block2 = b2;
 127
 128         switch (a) {
 129         case 0: block1++; block2++; break;
 130         case 1:           block2++; break;
 131         case 2:                     break;
 132         }
 133         for (i = 1; i <= FF_ARRAY_ELEMS(sad_c); i++) {
 134             int r = run_single_test(test, b1, W1, b2, W2, a, i);
 135             if (r)
 136                 ret = r;
 137         }
 138     }
 139     return ret;
 140 }
 141
 142 int main(void)
 143 {
 144     int i, align, ret;
 145     uint8_t *buf1 = av_malloc(W1*H1);
 146     uint8_t *buf2 = av_malloc(W2*H2);
 147     uint32_t state = 0;
 148
 149     if (!buf1 || !buf2) {
 150         fprintf(stderr, "malloc failure\n");
 151         ret = 1;
 152         goto end;
 153     }
 154
 155     ff_check_pixfmt_descriptors();
 156
 157 #define RANDOM_INIT(buf, size) do {             \
 158     int k;                                      \
 159     for (k = 0; k < size; k++) {                \
 160         state = state * 1664525 + 1013904223;   \
 161         buf[k] = state>>24;                     \
 162     }                                           \
 163 } while (0)
 164
 165     /* Normal test with different strides */
 166     RANDOM_INIT(buf1, W1*H1);
 167     RANDOM_INIT(buf2, W2*H2);
 168     ret = run_test("random", buf1, buf2);
 169     if (ret < 0)
 170         goto end;
 171
 172     /* Check for maximum SAD */
 173     memset(buf1, 0xff, W1*H1);
 174     memset(buf2, 0x00, W2*H2);
 175     ret = run_test("max", buf1, buf2);
 176     if (ret < 0)
 177         goto end;
 178
 179     /* Check for minimum SAD */
 180     memset(buf1, 0x90, W1*H1);
 181     memset(buf2, 0x90, W2*H2);
 182     ret = run_test("min", buf1, buf2);
 183     if (ret < 0)
 184         goto end;
 185
 186     /* Exact buffer sizes, to check for overreads */
 187     for (i = 1; i <= 4; i++) {
 188         for (align = 0; align < 3; align++) {
 189             int size1, size2;
 190
 191             av_freep(&buf1);
 192             av_freep(&buf2);
 193
 194             size1 = size2 = 1 << (i << 1);
 195
 196             switch (align) {
 197             case 0: size1++; size2++; break;
 198             case 1:          size2++; break;
 199             case 2:                   break;
 200             }
 201
 202             buf1 = av_malloc(size1);
 203             buf2 = av_malloc(size2);
 204             if (!buf1 || !buf2) {
 205                 fprintf(stderr, "malloc failure\n");
 206                 ret = 1;
 207                 goto end;
 208             }
 209             RANDOM_INIT(buf1, size1);
 210             RANDOM_INIT(buf2, size2);
 211             ret = run_single_test("small", buf1, 1<<i, buf2, 1<<i, align, i);
 212             if (ret < 0)
 213                 goto end;
 214         }
 215     }
 216
 217 end:
 218     av_free(buf1);
 219     av_free(buf2);
 220     return ret;
 221 }
 222 #endif /* TEST */