git.sesse.net Git - vlc/blob - modules/video_filter/gaussianblur.c

   1 /*****************************************************************************
   2  * gaussianblur.c : gaussian blur video filter
   3  *****************************************************************************
   4  * Copyright (C) 2000-2007 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Antoine Cellerier <dionoea -at- videolan -dot- org>
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 2 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  22  *****************************************************************************/
  23
  24 /*****************************************************************************
  25  * Preamble
  26  *****************************************************************************/
  27
  28 #ifdef HAVE_CONFIG_H
  29 # include "config.h"
  30 #endif
  31
  32 #include <vlc/vlc.h>
  33 #include <vlc_vout.h>
  34
  35 #include "vlc_filter.h"
  36
  37 #include <math.h>                                          /* exp(), sqrt() */
  38
  39 /*****************************************************************************
  40  * Local prototypes
  41  *****************************************************************************/
  42 static int  Create    ( vlc_object_t * );
  43 static void Destroy   ( vlc_object_t * );
  44
  45 static picture_t *Filter( filter_t *, picture_t * );
  46
  47 #define SIGMA_TEXT N_("Gaussian's std deviation")
  48 #define SIGMA_LONGTEXT N_( \
  49     "Gaussian's standard deviation. The bluring will take " \
  50     "into account pixels up to 3*sigma away in any direction.")
  51
  52 #define FILTER_PREFIX "gaussianblur-"
  53
  54 /*****************************************************************************
  55  * Module descriptor
  56  *****************************************************************************/
  57 vlc_module_begin();
  58     set_description( _("Gaussian blur video filter") );
  59     set_shortname( _( "Gaussian Blur" ));
  60     set_capability( "video filter2", 0 );
  61     set_category( CAT_VIDEO );
  62     set_subcategory( SUBCAT_VIDEO_VFILTER );
  63
  64     add_float( FILTER_PREFIX "sigma", 2., NULL, SIGMA_TEXT, SIGMA_LONGTEXT,
  65                false );
  66
  67     set_callbacks( Create, Destroy );
  68 vlc_module_end();
  69
  70 static const char *ppsz_filter_options[] = {
  71     "sigma", NULL
  72 };
  73
  74 /* Comment this to use floats instead of integers (faster for bigger sigma
  75  * values)
  76  * For sigma = 2 ints are faster
  77  * For sigma = 4 floats are faster
  78  */
  79 #define DONT_USE_FLOATS
  80 struct filter_sys_t
  81 {
  82     double f_sigma;
  83     int i_dim;
  84 #ifdef DONT_USE_FLOATS
  85     int *pi_distribution;
  86     int *pi_buffer;
  87     int *pi_scale;
  88 #else
  89     float *pf_distribution;
  90     float *pf_buffer;
  91     float *pf_scale;
  92 #endif
  93 };
  94
  95 static void gaussianblur_InitDistribution( filter_sys_t *p_sys )
  96 {
  97     double f_sigma = p_sys->f_sigma;
  98     int i_dim = (int)(3.*f_sigma);
  99 #ifdef DONT_USE_FLOATS
 100     int *pi_distribution = (int*)malloc( (2*i_dim+1) * sizeof( int ) );
 101 #else
 102     float *pf_distribution = (float*)malloc( (2*i_dim+1) * sizeof( float ) );
 103 #endif
 104     int x;
 105     for( x = -i_dim; x <= i_dim; x++ )
 106     {
 107 #ifdef DONT_USE_FLOATS
 108         pi_distribution[i_dim+x] =
 109             (int)( sqrt( exp(-(x*x)/(f_sigma*f_sigma) )
 110                  / (2.*M_PI*f_sigma*f_sigma) )  * (double)(1<<8) );
 111         printf("%d\n",pi_distribution[i_dim+x]);
 112 #else
 113         pf_distribution[i_dim+x] = (float)
 114             sqrt( exp(-(x*x)/(f_sigma*f_sigma) ) / (2.*M_PI*f_sigma*f_sigma) );
 115         printf("%f\n",pf_distribution[i_dim+x]);
 116 #endif
 117     }
 118     p_sys->i_dim = i_dim;
 119 #ifdef DONT_USE_FLOATS
 120     p_sys->pi_distribution = pi_distribution;
 121 #else
 122     p_sys->pf_distribution = pf_distribution;
 123 #endif
 124 }
 125
 126 static int Create( vlc_object_t *p_this )
 127 {
 128     filter_t *p_filter = (filter_t *)p_this;
 129
 130     if(   p_filter->fmt_in.video.i_chroma != VLC_FOURCC('I','4','2','0')
 131        && p_filter->fmt_in.video.i_chroma != VLC_FOURCC('I','Y','U','V')
 132        && p_filter->fmt_in.video.i_chroma != VLC_FOURCC('J','4','2','0')
 133        && p_filter->fmt_in.video.i_chroma != VLC_FOURCC('Y','V','1','2')
 134
 135        && p_filter->fmt_in.video.i_chroma != VLC_FOURCC('I','4','2','2')
 136        && p_filter->fmt_in.video.i_chroma != VLC_FOURCC('J','4','2','2')
 137       )
 138     {
 139         /* We only want planar YUV 4:2:0 or 4:2:2 */
 140         msg_Err( p_filter, "Unsupported input chroma (%4s)",
 141                  (char*)&(p_filter->fmt_in.video.i_chroma) );
 142         return VLC_EGENERIC;
 143     }
 144
 145     if( p_filter->fmt_in.video.i_chroma != p_filter->fmt_out.video.i_chroma )
 146     {
 147         msg_Err( p_filter, "Input and output chromas don't match" );
 148         return VLC_EGENERIC;
 149     }
 150
 151     p_filter->p_sys = malloc( sizeof( filter_sys_t ) );
 152     if( p_filter->p_sys == NULL )
 153     {
 154         msg_Err( p_filter, "out of memory" );
 155         return VLC_ENOMEM;
 156     }
 157
 158     config_ChainParse( p_filter, FILTER_PREFIX, ppsz_filter_options,
 159                        p_filter->p_cfg );
 160
 161     p_filter->pf_video_filter = Filter;
 162
 163     p_filter->p_sys->f_sigma =
 164         var_CreateGetFloat( p_filter, FILTER_PREFIX "sigma" );
 165     if( p_filter->p_sys->f_sigma <= 0. )
 166     {
 167         msg_Err( p_filter, "sigma must be positive" );
 168         return VLC_EGENERIC;
 169     }
 170     gaussianblur_InitDistribution( p_filter->p_sys );
 171     msg_Dbg( p_filter, "gaussian distribution is %d pixels wide",
 172              p_filter->p_sys->i_dim*2+1 );
 173 #ifdef DONT_USE_FLOATS
 174     p_filter->p_sys->pi_buffer = NULL;
 175     p_filter->p_sys->pi_scale = NULL;
 176 #else
 177     p_filter->p_sys->pf_buffer = NULL;
 178     p_filter->p_sys->pf_scale = NULL;
 179 #endif
 180
 181     return VLC_SUCCESS;
 182 }
 183
 184 static void Destroy( vlc_object_t *p_this )
 185 {
 186     filter_t *p_filter = (filter_t *)p_this;
 187 #ifdef DONT_USE_FLOATS
 188     free( p_filter->p_sys->pi_distribution );
 189     free( p_filter->p_sys->pi_buffer );
 190     free( p_filter->p_sys->pi_scale );
 191 #else
 192     free( p_filter->p_sys->pf_distribution );
 193     free( p_filter->p_sys->pf_buffer );
 194     free( p_filter->p_sys->pf_scale );
 195 #endif
 196     free( p_filter->p_sys );
 197 }
 198
 199 static picture_t *Filter( filter_t *p_filter, picture_t *p_pic )
 200 {
 201     picture_t *p_outpic;
 202     filter_sys_t *p_sys = p_filter->p_sys;
 203     int i_plane;
 204     const int i_dim = p_sys->i_dim;
 205 #ifdef DONT_USE_FLOATS
 206     int *pi_buffer;
 207     int *pi_scale;
 208     const int *pi_distribution = p_sys->pi_distribution;
 209 #else
 210     float *pf_buffer;
 211     float *pf_scale;
 212     const float *pf_distribution = p_sys->pf_distribution;
 213 #endif
 214     if( !p_pic ) return NULL;
 215
 216     p_outpic = p_filter->pf_vout_buffer_new( p_filter );
 217     if( !p_outpic )
 218     {
 219         msg_Warn( p_filter, "can't get output picture" );
 220         if( p_pic->pf_release )
 221             p_pic->pf_release( p_pic );
 222         return NULL;
 223     }
 224 #ifdef DONT_USE_FLOATS
 225     if( !p_sys->pi_buffer )
 226     {
 227         p_sys->pi_buffer = (int*)realloc( p_sys->pi_buffer,
 228                                           p_pic->p[Y_PLANE].i_visible_lines
 229                                           * p_pic->p[Y_PLANE].i_pitch
 230                                           * sizeof( int ) );
 231     }
 232     pi_buffer = p_sys->pi_buffer;
 233 #else
 234     if( !p_sys->pf_buffer )
 235     {
 236         p_sys->pf_buffer = (float*)realloc( p_sys->pf_buffer,
 237                                             p_pic->p[Y_PLANE].i_visible_lines
 238                                             * p_pic->p[Y_PLANE].i_pitch
 239                                             * sizeof( float ) );
 240     }
 241     pf_buffer = p_sys->pf_buffer;
 242 #endif
 243 #ifdef DONT_USE_FLOATS
 244     if( !p_sys->pi_scale )
 245 #else
 246     if( !p_sys->pf_scale )
 247 #endif
 248     {
 249         const int i_visible_lines = p_pic->p[Y_PLANE].i_visible_lines;
 250         const int i_visible_pitch = p_pic->p[Y_PLANE].i_visible_pitch;
 251         const int i_pitch = p_pic->p[Y_PLANE].i_pitch;
 252         int i_col, i_line;
 253 #ifdef DONT_USE_FLOATS
 254         p_sys->pi_scale = (int*)malloc( i_visible_lines * i_pitch
 255                                         * sizeof( int ) );
 256         pi_scale = p_sys->pi_scale;
 257 #else
 258         p_sys->pf_scale = (float*)malloc( i_visible_lines * i_pitch
 259                                           * sizeof( float ) );
 260         pf_scale = p_sys->pf_scale;
 261 #endif
 262         for( i_line = 0 ; i_line < i_visible_lines ; i_line++ )
 263         {
 264             for( i_col = 0; i_col < i_visible_pitch ; i_col++ )
 265             {
 266                 int x, y;
 267 #ifdef DONT_USE_FLOATS
 268                 int value = 0;
 269 #else
 270                 double value = 0.;
 271 #endif
 272                 for( y = __MAX( -i_dim, -i_line );
 273                      y <= __MIN( i_dim, i_visible_lines - i_line - 1 );
 274                      y++ )
 275                 {
 276                     for( x = __MAX( -i_dim, -i_col );
 277                          x <= __MIN( i_dim, i_visible_pitch - i_col + 1 );
 278                          x++ )
 279                     {
 280 #ifdef DONT_USE_FLOATS
 281                         value += pi_distribution[y+i_dim]
 282                                * pi_distribution[x+i_dim];
 283 #else
 284                         value += ((double)pf_distribution[y+i_dim])
 285                                * ((double)pf_distribution[x+i_dim]);
 286 #endif
 287                     }
 288                 }
 289 #ifdef DONT_USE_FLOATS
 290                 pi_scale[i_line*i_pitch+i_col] = value;
 291 #else
 292                 pf_scale[i_line*i_pitch+i_col] = (float)(1./value);
 293 #endif
 294             }
 295         }
 296     }
 297 #ifdef DONT_USE_FLOATS
 298     pi_scale = p_sys->pi_scale;
 299 #else
 300     pf_scale = p_sys->pf_scale;
 301 #endif
 302
 303     for( i_plane = 0 ; i_plane < p_pic->i_planes ; i_plane++ )
 304     {
 305
 306         uint8_t *p_in = p_pic->p[i_plane].p_pixels;
 307         uint8_t *p_out = p_outpic->p[i_plane].p_pixels;
 308
 309         const int i_visible_lines = p_pic->p[i_plane].i_visible_lines;
 310         const int i_visible_pitch = p_pic->p[i_plane].i_visible_pitch;
 311         const int i_pitch = p_pic->p[i_plane].i_pitch;
 312
 313         int i_line, i_col;
 314         const int x_factor = p_pic->p[Y_PLANE].i_visible_pitch/i_visible_pitch-1;
 315         const int y_factor = p_pic->p[Y_PLANE].i_visible_lines/i_visible_lines-1;
 316
 317         for( i_line = 0 ; i_line < i_visible_lines ; i_line++ )
 318         {
 319             for( i_col = 0; i_col < i_visible_pitch ; i_col++ )
 320             {
 321 #ifdef DONT_USE_FLOATS
 322                 int value = 0;
 323 #else
 324                 float value = 0.;
 325 #endif
 326                 int x;
 327                 const int c = i_line*i_pitch+i_col;
 328                 for( x = __MAX( -i_dim, -i_col*(x_factor+1) );
 329                      x <= __MIN( i_dim, (i_visible_pitch - i_col)*(x_factor+1) + 1 );
 330                      x++ )
 331                 {
 332 #ifdef DONT_USE_FLOATS
 333                     value += pi_distribution[x+i_dim]
 334                            * p_in[c+(x>>x_factor)];
 335 #else
 336                     value += pf_distribution[x+i_dim]
 337                            * (float)p_in[c+(x>>x_factor)];
 338 #endif
 339                 }
 340 #ifdef DONT_USE_FLOATS
 341                 pi_buffer[c] = value;
 342 #else
 343                 pf_buffer[c] = value;
 344 #endif
 345             }
 346         }
 347         for( i_line = 0 ; i_line < i_visible_lines ; i_line++ )
 348         {
 349             for( i_col = 0; i_col < i_visible_pitch ; i_col++ )
 350             {
 351 #ifdef DONT_USE_FLOATS
 352                 int value = 0;
 353 #else
 354                 float value = 0.;
 355 #endif
 356                 int y;
 357                 const int c = i_line*i_pitch+i_col;
 358                 for( y = __MAX( -i_dim, (-i_line)*(y_factor+1) );
 359                      y <= __MIN( i_dim, (i_visible_lines - i_line)*(y_factor+1) - 1 );
 360                      y++ )
 361                 {
 362 #ifdef DONT_USE_FLOATS
 363                     value += pi_distribution[y+i_dim]
 364                            * pi_buffer[c+(y>>y_factor)*i_pitch];
 365 #else
 366                     value += pf_distribution[y+i_dim]
 367                            * pf_buffer[c+(y>>y_factor)*i_pitch];
 368 #endif
 369                 }
 370 #ifdef DONT_USE_FLOATS
 371                 p_out[c] = (uint8_t)(value/pi_scale[(i_line<<y_factor)*(i_pitch<<x_factor)+(i_col<<x_factor)]);
 372 #else
 373                 p_out[c] = (uint8_t)(value*pf_scale[(i_line<<y_factor)*(i_pitch<<x_factor)+(i_col<<x_factor)]);
 374 #endif
 375             }
 376         }
 377     }
 378
 379     p_outpic->date = p_pic->date;
 380     p_outpic->b_force = p_pic->b_force;
 381     p_outpic->i_nb_fields = p_pic->i_nb_fields;
 382     p_outpic->b_progressive = p_pic->b_progressive;
 383     p_outpic->b_top_field_first = p_pic->b_top_field_first;
 384
 385     if( p_pic->pf_release )
 386         p_pic->pf_release( p_pic );
 387
 388     return p_outpic;
 389 }