copyright year update of the files i touched and remembered, things look annoyingly...
[ffmpeg.git] / libavcodec / error_resilience.c
1 /*
2  * Error resilience / concealment
3  *
4  * Copyright (c) 2002-2004 Michael Niedermayer <michaelni@gmx.at>
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20  
21 /**
22  * @file error_resilience.c
23  * Error resilience / concealment.
24  */
25
26 #include <limits.h>
27  
28 #include "avcodec.h"
29 #include "dsputil.h"
30 #include "mpegvideo.h"
31 #include "common.h"
32
33 static void decode_mb(MpegEncContext *s){
34     s->dest[0] = s->current_picture.data[0] + (s->mb_y * 16* s->linesize  ) + s->mb_x * 16;
35     s->dest[1] = s->current_picture.data[1] + (s->mb_y * 8 * s->uvlinesize) + s->mb_x * 8;
36     s->dest[2] = s->current_picture.data[2] + (s->mb_y * 8 * s->uvlinesize) + s->mb_x * 8;
37
38     MPV_decode_mb(s, s->block);    
39 }
40
41 /**
42  * replaces the current MB with a flat dc only version.
43  */
44 static void put_dc(MpegEncContext *s, uint8_t *dest_y, uint8_t *dest_cb, uint8_t *dest_cr, int mb_x, int mb_y)
45 {
46     int dc, dcu, dcv, y, i;
47     for(i=0; i<4; i++){
48         dc= s->dc_val[0][mb_x*2+1 + (i&1) + (mb_y*2+1 + (i>>1))*(s->mb_width*2+2)];
49         if(dc<0) dc=0;
50         else if(dc>2040) dc=2040;
51         for(y=0; y<8; y++){
52             int x;
53             for(x=0; x<8; x++){
54                 dest_y[x + (i&1)*8 + (y + (i>>1)*8)*s->linesize]= dc/8;
55             }
56         }
57     }
58     dcu = s->dc_val[1][mb_x+1 + (mb_y+1)*(s->mb_width+2)];
59     dcv = s->dc_val[2][mb_x+1 + (mb_y+1)*(s->mb_width+2)];
60     if     (dcu<0   ) dcu=0;
61     else if(dcu>2040) dcu=2040;
62     if     (dcv<0   ) dcv=0;
63     else if(dcv>2040) dcv=2040;
64     for(y=0; y<8; y++){
65         int x;
66         for(x=0; x<8; x++){
67             dest_cb[x + y*(s->uvlinesize)]= dcu/8;
68             dest_cr[x + y*(s->uvlinesize)]= dcv/8;
69         }
70     }
71 }
72
73 static void filter181(int16_t *data, int width, int height, int stride){
74     int x,y;
75
76     /* horizontal filter */
77     for(y=1; y<height-1; y++){
78         int prev_dc= data[0 + y*stride];
79
80         for(x=1; x<width-1; x++){
81             int dc;
82             
83             dc= - prev_dc 
84                 + data[x     + y*stride]*8
85                 - data[x + 1 + y*stride];
86             dc= (dc*10923 + 32768)>>16;
87             prev_dc= data[x + y*stride];
88             data[x + y*stride]= dc;
89         }
90     }
91     
92     /* vertical filter */
93     for(x=1; x<width-1; x++){
94         int prev_dc= data[x];
95
96         for(y=1; y<height-1; y++){
97             int dc;
98             
99             dc= - prev_dc 
100                 + data[x +  y   *stride]*8
101                 - data[x + (y+1)*stride];
102             dc= (dc*10923 + 32768)>>16;
103             prev_dc= data[x + y*stride];
104             data[x + y*stride]= dc;
105         }
106     }
107 }
108
109 /**
110  * guess the dc of blocks which dont have a undamaged dc
111  * @param w     width in 8 pixel blocks
112  * @param h     height in 8 pixel blocks
113  */
114 static void guess_dc(MpegEncContext *s, int16_t *dc, int w, int h, int stride, int is_luma){
115     int b_x, b_y;
116
117     for(b_y=0; b_y<h; b_y++){
118         for(b_x=0; b_x<w; b_x++){
119             int color[4]={1024,1024,1024,1024};
120             int distance[4]={9999,9999,9999,9999};
121             int mb_index, error, j;
122             int64_t guess, weight_sum;
123             
124             mb_index= (b_x>>is_luma) + (b_y>>is_luma)*s->mb_stride;
125             
126             error= s->error_status_table[mb_index];
127             
128             if(IS_INTER(s->current_picture.mb_type[mb_index])) continue; //inter
129             if(!(error&DC_ERROR)) continue;           //dc-ok
130             
131             /* right block */
132             for(j=b_x+1; j<w; j++){
133                 int mb_index_j= (j>>is_luma) + (b_y>>is_luma)*s->mb_stride;
134                 int error_j= s->error_status_table[mb_index_j];
135                 int intra_j= IS_INTRA(s->current_picture.mb_type[mb_index_j]);
136                 if(intra_j==0 || !(error_j&DC_ERROR)){
137                     color[0]= dc[j + b_y*stride];
138                     distance[0]= j-b_x;
139                     break;
140                 }
141             }
142             
143             /* left block */
144             for(j=b_x-1; j>=0; j--){
145                 int mb_index_j= (j>>is_luma) + (b_y>>is_luma)*s->mb_stride;
146                 int error_j= s->error_status_table[mb_index_j];
147                 int intra_j= IS_INTRA(s->current_picture.mb_type[mb_index_j]);
148                 if(intra_j==0 || !(error_j&DC_ERROR)){
149                     color[1]= dc[j + b_y*stride];
150                     distance[1]= b_x-j;
151                     break;
152                 }
153             }
154
155             /* bottom block */
156             for(j=b_y+1; j<h; j++){
157                 int mb_index_j= (b_x>>is_luma) + (j>>is_luma)*s->mb_stride;
158                 int error_j= s->error_status_table[mb_index_j];
159                 int intra_j= IS_INTRA(s->current_picture.mb_type[mb_index_j]);
160                 if(intra_j==0 || !(error_j&DC_ERROR)){
161                     color[2]= dc[b_x + j*stride];
162                     distance[2]= j-b_y;
163                     break;
164                 }
165             }
166
167             /* top block */
168             for(j=b_y-1; j>=0; j--){
169                 int mb_index_j= (b_x>>is_luma) + (j>>is_luma)*s->mb_stride;
170                 int error_j= s->error_status_table[mb_index_j];
171                 int intra_j= IS_INTRA(s->current_picture.mb_type[mb_index_j]);
172                 if(intra_j==0 || !(error_j&DC_ERROR)){
173                     color[3]= dc[b_x + j*stride];
174                     distance[3]= b_y-j;
175                     break;
176                 }
177             }
178             
179             weight_sum=0;
180             guess=0;
181             for(j=0; j<4; j++){
182                 int64_t weight= 256*256*256*16/distance[j];
183                 guess+= weight*(int64_t)color[j];
184                 weight_sum+= weight;
185             }
186             guess= (guess + weight_sum/2) / weight_sum;
187
188             dc[b_x + b_y*stride]= guess;
189         }
190     }
191 }
192
193 /**
194  * simple horizontal deblocking filter used for error resilience
195  * @param w     width in 8 pixel blocks
196  * @param h     height in 8 pixel blocks
197  */
198 static void h_block_filter(MpegEncContext *s, uint8_t *dst, int w, int h, int stride, int is_luma){
199     int b_x, b_y;
200     uint8_t *cm = cropTbl + MAX_NEG_CROP;
201
202     for(b_y=0; b_y<h; b_y++){
203         for(b_x=0; b_x<w-1; b_x++){
204             int y;
205             int left_status = s->error_status_table[( b_x   >>is_luma) + (b_y>>is_luma)*s->mb_stride];
206             int right_status= s->error_status_table[((b_x+1)>>is_luma) + (b_y>>is_luma)*s->mb_stride];
207             int left_intra=   IS_INTRA(s->current_picture.mb_type      [( b_x   >>is_luma) + (b_y>>is_luma)*s->mb_stride]);
208             int right_intra=  IS_INTRA(s->current_picture.mb_type      [((b_x+1)>>is_luma) + (b_y>>is_luma)*s->mb_stride]);
209             int left_damage =  left_status&(DC_ERROR|AC_ERROR|MV_ERROR);
210             int right_damage= right_status&(DC_ERROR|AC_ERROR|MV_ERROR);
211             int offset= b_x*8 + b_y*stride*8;
212             int16_t *left_mv=  s->current_picture.motion_val[0][s->block_wrap[0]*((b_y<<(1-is_luma)) + 1) + ( b_x   <<(1-is_luma))];
213             int16_t *right_mv= s->current_picture.motion_val[0][s->block_wrap[0]*((b_y<<(1-is_luma)) + 1) + ((b_x+1)<<(1-is_luma))];
214             
215             if(!(left_damage||right_damage)) continue; // both undamaged
216             
217             if(   (!left_intra) && (!right_intra) 
218                && ABS(left_mv[0]-right_mv[0]) + ABS(left_mv[1]+right_mv[1]) < 2) continue;
219             
220             for(y=0; y<8; y++){
221                 int a,b,c,d;
222                 
223                 a= dst[offset + 7 + y*stride] - dst[offset + 6 + y*stride];
224                 b= dst[offset + 8 + y*stride] - dst[offset + 7 + y*stride];
225                 c= dst[offset + 9 + y*stride] - dst[offset + 8 + y*stride];
226                 
227                 d= ABS(b) - ((ABS(a) + ABS(c) + 1)>>1);
228                 d= FFMAX(d, 0);
229                 if(b<0) d= -d;
230                 
231                 if(d==0) continue;
232
233                 if(!(left_damage && right_damage))
234                     d= d*16/9;
235                 
236                 if(left_damage){
237                     dst[offset + 7 + y*stride] = cm[dst[offset + 7 + y*stride] + ((d*7)>>4)];
238                     dst[offset + 6 + y*stride] = cm[dst[offset + 6 + y*stride] + ((d*5)>>4)];
239                     dst[offset + 5 + y*stride] = cm[dst[offset + 5 + y*stride] + ((d*3)>>4)];
240                     dst[offset + 4 + y*stride] = cm[dst[offset + 4 + y*stride] + ((d*1)>>4)];
241                 }
242                 if(right_damage){
243                     dst[offset + 8 + y*stride] = cm[dst[offset + 8 + y*stride] - ((d*7)>>4)];
244                     dst[offset + 9 + y*stride] = cm[dst[offset + 9 + y*stride] - ((d*5)>>4)];
245                     dst[offset + 10+ y*stride] = cm[dst[offset +10 + y*stride] - ((d*3)>>4)];
246                     dst[offset + 11+ y*stride] = cm[dst[offset +11 + y*stride] - ((d*1)>>4)];
247                 }
248             }
249         }
250     }
251 }
252
253 /**
254  * simple vertical deblocking filter used for error resilience
255  * @param w     width in 8 pixel blocks
256  * @param h     height in 8 pixel blocks
257  */
258 static void v_block_filter(MpegEncContext *s, uint8_t *dst, int w, int h, int stride, int is_luma){
259     int b_x, b_y;
260     uint8_t *cm = cropTbl + MAX_NEG_CROP;
261
262     for(b_y=0; b_y<h-1; b_y++){
263         for(b_x=0; b_x<w; b_x++){
264             int x;
265             int top_status   = s->error_status_table[(b_x>>is_luma) + ( b_y   >>is_luma)*s->mb_stride];
266             int bottom_status= s->error_status_table[(b_x>>is_luma) + ((b_y+1)>>is_luma)*s->mb_stride];
267             int top_intra=     IS_INTRA(s->current_picture.mb_type      [(b_x>>is_luma) + ( b_y   >>is_luma)*s->mb_stride]);
268             int bottom_intra=  IS_INTRA(s->current_picture.mb_type      [(b_x>>is_luma) + ((b_y+1)>>is_luma)*s->mb_stride]);
269             int top_damage =      top_status&(DC_ERROR|AC_ERROR|MV_ERROR);
270             int bottom_damage= bottom_status&(DC_ERROR|AC_ERROR|MV_ERROR);
271             int offset= b_x*8 + b_y*stride*8;
272             int16_t *top_mv=    s->current_picture.motion_val[0][s->block_wrap[0]*(( b_y   <<(1-is_luma)) + 1) + (b_x<<(1-is_luma))];
273             int16_t *bottom_mv= s->current_picture.motion_val[0][s->block_wrap[0]*(((b_y+1)<<(1-is_luma)) + 1) + (b_x<<(1-is_luma))];
274             
275             if(!(top_damage||bottom_damage)) continue; // both undamaged
276             
277             if(   (!top_intra) && (!bottom_intra) 
278                && ABS(top_mv[0]-bottom_mv[0]) + ABS(top_mv[1]+bottom_mv[1]) < 2) continue;
279             
280             for(x=0; x<8; x++){
281                 int a,b,c,d;
282                 
283                 a= dst[offset + x + 7*stride] - dst[offset + x + 6*stride];
284                 b= dst[offset + x + 8*stride] - dst[offset + x + 7*stride];
285                 c= dst[offset + x + 9*stride] - dst[offset + x + 8*stride];
286                 
287                 d= ABS(b) - ((ABS(a) + ABS(c)+1)>>1);
288                 d= FFMAX(d, 0);
289                 if(b<0) d= -d;
290                 
291                 if(d==0) continue;
292
293                 if(!(top_damage && bottom_damage))
294                     d= d*16/9;
295                 
296                 if(top_damage){
297                     dst[offset + x +  7*stride] = cm[dst[offset + x +  7*stride] + ((d*7)>>4)];
298                     dst[offset + x +  6*stride] = cm[dst[offset + x +  6*stride] + ((d*5)>>4)];
299                     dst[offset + x +  5*stride] = cm[dst[offset + x +  5*stride] + ((d*3)>>4)];
300                     dst[offset + x +  4*stride] = cm[dst[offset + x +  4*stride] + ((d*1)>>4)];
301                 }
302                 if(bottom_damage){
303                     dst[offset + x +  8*stride] = cm[dst[offset + x +  8*stride] - ((d*7)>>4)];
304                     dst[offset + x +  9*stride] = cm[dst[offset + x +  9*stride] - ((d*5)>>4)];
305                     dst[offset + x + 10*stride] = cm[dst[offset + x + 10*stride] - ((d*3)>>4)];
306                     dst[offset + x + 11*stride] = cm[dst[offset + x + 11*stride] - ((d*1)>>4)];
307                 }
308             }
309         }
310     }
311 }
312
313 static void guess_mv(MpegEncContext *s){
314     uint8_t fixed[s->mb_stride * s->mb_height];
315 #define MV_FROZEN    3
316 #define MV_CHANGED   2
317 #define MV_UNCHANGED 1
318     const int mb_stride = s->mb_stride;
319     const int mb_width = s->mb_width;
320     const int mb_height= s->mb_height;
321     int i, depth, num_avail;
322     int mb_x, mb_y;
323    
324     num_avail=0;
325     for(i=0; i<s->mb_num; i++){
326         const int mb_xy= s->mb_index2xy[ i ];
327         int f=0;
328         int error= s->error_status_table[mb_xy];
329
330         if(IS_INTRA(s->current_picture.mb_type[mb_xy])) f=MV_FROZEN; //intra //FIXME check
331         if(!(error&MV_ERROR)) f=MV_FROZEN;           //inter with undamaged MV
332         
333         fixed[mb_xy]= f;
334         if(f==MV_FROZEN)
335             num_avail++;
336     }
337     
338     if((!(s->avctx->error_concealment&FF_EC_GUESS_MVS)) || num_avail <= mb_width/2){
339         for(mb_y=0; mb_y<s->mb_height; mb_y++){
340             for(mb_x=0; mb_x<s->mb_width; mb_x++){
341                 const int mb_xy= mb_x + mb_y*s->mb_stride;
342                 
343                 if(IS_INTRA(s->current_picture.mb_type[mb_xy]))  continue;
344                 if(!(s->error_status_table[mb_xy]&MV_ERROR)) continue;
345
346                 s->mv_dir = MV_DIR_FORWARD;
347                 s->mb_intra=0;
348                 s->mv_type = MV_TYPE_16X16;
349                 s->mb_skiped=0;
350
351                 s->dsp.clear_blocks(s->block[0]);
352
353                 s->mb_x= mb_x;
354                 s->mb_y= mb_y;
355                 s->mv[0][0][0]= 0;
356                 s->mv[0][0][1]= 0;
357                 decode_mb(s);
358             }
359         }
360         return;
361     }
362     
363     for(depth=0;; depth++){
364         int changed, pass, none_left;
365
366         none_left=1;
367         changed=1;
368         for(pass=0; (changed || pass<2) && pass<10; pass++){
369             int mb_x, mb_y;
370 int score_sum=0;
371  
372             changed=0;
373             for(mb_y=0; mb_y<s->mb_height; mb_y++){
374                 for(mb_x=0; mb_x<s->mb_width; mb_x++){
375                     const int mb_xy= mb_x + mb_y*s->mb_stride;
376                     int mv_predictor[8][2]={{0}};
377                     int pred_count=0;
378                     int j;
379                     int best_score=256*256*256*64;
380                     int best_pred=0;
381                     const int mot_stride= mb_width*2+2;
382                     const int mot_index= mb_x*2 + 1 + (mb_y*2+1)*mot_stride;
383                     int prev_x= s->current_picture.motion_val[0][mot_index][0];
384                     int prev_y= s->current_picture.motion_val[0][mot_index][1];
385
386                     if((mb_x^mb_y^pass)&1) continue;
387                     
388                     if(fixed[mb_xy]==MV_FROZEN) continue;
389                     assert(!IS_INTRA(s->current_picture.mb_type[mb_xy]));
390                     assert(s->last_picture_ptr && s->last_picture_ptr->data[0]);
391                     
392                     j=0;
393                     if(mb_x>0           && fixed[mb_xy-1        ]==MV_FROZEN) j=1;
394                     if(mb_x+1<mb_width  && fixed[mb_xy+1        ]==MV_FROZEN) j=1;
395                     if(mb_y>0           && fixed[mb_xy-mb_stride]==MV_FROZEN) j=1;
396                     if(mb_y+1<mb_height && fixed[mb_xy+mb_stride]==MV_FROZEN) j=1;
397                     if(j==0) continue;
398
399                     j=0;
400                     if(mb_x>0           && fixed[mb_xy-1        ]==MV_CHANGED) j=1;
401                     if(mb_x+1<mb_width  && fixed[mb_xy+1        ]==MV_CHANGED) j=1;
402                     if(mb_y>0           && fixed[mb_xy-mb_stride]==MV_CHANGED) j=1;
403                     if(mb_y+1<mb_height && fixed[mb_xy+mb_stride]==MV_CHANGED) j=1;
404                     if(j==0 && pass>1) continue;
405                     
406                     none_left=0;
407                     
408                     if(mb_x>0 && fixed[mb_xy-1]){
409                         mv_predictor[pred_count][0]= s->current_picture.motion_val[0][mot_index - 2][0];
410                         mv_predictor[pred_count][1]= s->current_picture.motion_val[0][mot_index - 2][1];
411                         pred_count++;
412                     }
413                     if(mb_x+1<mb_width && fixed[mb_xy+1]){
414                         mv_predictor[pred_count][0]= s->current_picture.motion_val[0][mot_index + 2][0];
415                         mv_predictor[pred_count][1]= s->current_picture.motion_val[0][mot_index + 2][1];
416                         pred_count++;
417                     }
418                     if(mb_y>0 && fixed[mb_xy-mb_stride]){
419                         mv_predictor[pred_count][0]= s->current_picture.motion_val[0][mot_index - mot_stride*2][0];
420                         mv_predictor[pred_count][1]= s->current_picture.motion_val[0][mot_index - mot_stride*2][1];
421                         pred_count++;
422                     }
423                     if(mb_y+1<mb_height && fixed[mb_xy+mb_stride]){
424                         mv_predictor[pred_count][0]= s->current_picture.motion_val[0][mot_index + mot_stride*2][0];
425                         mv_predictor[pred_count][1]= s->current_picture.motion_val[0][mot_index + mot_stride*2][1];
426                         pred_count++;
427                     }
428                     if(pred_count==0) continue;
429                     
430                     if(pred_count>1){
431                         int sum_x=0, sum_y=0;
432                         int max_x, max_y, min_x, min_y;
433
434                         for(j=0; j<pred_count; j++){
435                             sum_x+= mv_predictor[j][0];
436                             sum_y+= mv_predictor[j][1];
437                         }
438                     
439                         /* mean */
440                         mv_predictor[pred_count][0] = sum_x/j;
441                         mv_predictor[pred_count][1] = sum_y/j;
442                     
443                         /* median */
444                         if(pred_count>=3){
445                             min_y= min_x= 99999;
446                             max_y= max_x=-99999;
447                         }else{
448                             min_x=min_y=max_x=max_y=0;
449                         }
450                         for(j=0; j<pred_count; j++){
451                             max_x= FFMAX(max_x, mv_predictor[j][0]);
452                             max_y= FFMAX(max_y, mv_predictor[j][1]);
453                             min_x= FFMIN(min_x, mv_predictor[j][0]);
454                             min_y= FFMIN(min_y, mv_predictor[j][1]);
455                         }
456                         mv_predictor[pred_count+1][0] = sum_x - max_x - min_x;
457                         mv_predictor[pred_count+1][1] = sum_y - max_y - min_y;
458                         
459                         if(pred_count==4){
460                             mv_predictor[pred_count+1][0] /= 2;
461                             mv_predictor[pred_count+1][1] /= 2;
462                         }
463                         pred_count+=2;
464                     }
465                     
466                     /* zero MV */
467                     pred_count++;
468
469                     /* last MV */
470                     mv_predictor[pred_count][0]= s->current_picture.motion_val[0][mot_index][0];
471                     mv_predictor[pred_count][1]= s->current_picture.motion_val[0][mot_index][1];
472                     pred_count++;                    
473                     
474                     s->mv_dir = MV_DIR_FORWARD;
475                     s->mb_intra=0;
476                     s->mv_type = MV_TYPE_16X16;
477                     s->mb_skiped=0;
478
479                     s->dsp.clear_blocks(s->block[0]);
480
481                     s->mb_x= mb_x;
482                     s->mb_y= mb_y;
483
484                     for(j=0; j<pred_count; j++){
485                         int score=0;
486                         uint8_t *src= s->current_picture.data[0] + mb_x*16 + mb_y*16*s->linesize;
487
488                         s->current_picture.motion_val[0][mot_index][0]= s->mv[0][0][0]= mv_predictor[j][0];
489                         s->current_picture.motion_val[0][mot_index][1]= s->mv[0][0][1]= mv_predictor[j][1];
490
491                         decode_mb(s);
492                         
493                         if(mb_x>0 && fixed[mb_xy-1]){
494                             int k;
495                             for(k=0; k<16; k++)
496                                 score += ABS(src[k*s->linesize-1 ]-src[k*s->linesize   ]);
497                         }
498                         if(mb_x+1<mb_width && fixed[mb_xy+1]){
499                             int k;
500                             for(k=0; k<16; k++)
501                                 score += ABS(src[k*s->linesize+15]-src[k*s->linesize+16]);
502                         }
503                         if(mb_y>0 && fixed[mb_xy-mb_stride]){
504                             int k;
505                             for(k=0; k<16; k++)
506                                 score += ABS(src[k-s->linesize   ]-src[k               ]);
507                         }
508                         if(mb_y+1<mb_height && fixed[mb_xy+mb_stride]){
509                             int k;
510                             for(k=0; k<16; k++)
511                                 score += ABS(src[k+s->linesize*15]-src[k+s->linesize*16]);
512                         }
513                         
514                         if(score <= best_score){ // <= will favor the last MV
515                             best_score= score;
516                             best_pred= j;
517                         }
518                     }
519 score_sum+= best_score;
520 //FIXME no need to set s->current_picture.motion_val[0][mot_index][0] explicit
521                     s->current_picture.motion_val[0][mot_index][0]= s->mv[0][0][0]= mv_predictor[best_pred][0];
522                     s->current_picture.motion_val[0][mot_index][1]= s->mv[0][0][1]= mv_predictor[best_pred][1];
523
524                     decode_mb(s);
525
526                     
527                     if(s->mv[0][0][0] != prev_x || s->mv[0][0][1] != prev_y){
528                         fixed[mb_xy]=MV_CHANGED;
529                         changed++;
530                     }else
531                         fixed[mb_xy]=MV_UNCHANGED;
532                 }
533             }
534
535 //            printf(".%d/%d", changed, score_sum); fflush(stdout);
536         }
537         
538         if(none_left) 
539             return;
540             
541         for(i=0; i<s->mb_num; i++){
542             int mb_xy= s->mb_index2xy[i];
543             if(fixed[mb_xy])
544                 fixed[mb_xy]=MV_FROZEN;
545         }
546 //        printf(":"); fflush(stdout);
547     }
548 }
549     
550 static int is_intra_more_likely(MpegEncContext *s){
551     int is_intra_likely, i, j, undamaged_count, skip_amount, mb_x, mb_y;
552     
553     if(s->last_picture_ptr==NULL) return 1; //no previous frame available -> use spatial prediction
554
555     undamaged_count=0;
556     for(i=0; i<s->mb_num; i++){
557         const int mb_xy= s->mb_index2xy[i];
558         const int error= s->error_status_table[mb_xy];
559         if(!((error&DC_ERROR) && (error&MV_ERROR)))
560             undamaged_count++;
561     }
562     
563     if(undamaged_count < 5) return 0; //allmost all MBs damaged -> use temporal prediction
564     
565     skip_amount= FFMAX(undamaged_count/50, 1); //check only upto 50 MBs 
566     is_intra_likely=0;
567
568     j=0;
569     for(mb_y= 0; mb_y<s->mb_height-1; mb_y++){
570         for(mb_x= 0; mb_x<s->mb_width; mb_x++){
571             int error;
572             const int mb_xy= mb_x + mb_y*s->mb_stride;
573
574             error= s->error_status_table[mb_xy];
575             if((error&DC_ERROR) && (error&MV_ERROR))
576                 continue; //skip damaged
577         
578             j++;    
579             if((j%skip_amount) != 0) continue; //skip a few to speed things up
580     
581             if(s->pict_type==I_TYPE){
582                 uint8_t *mb_ptr     = s->current_picture.data[0] + mb_x*16 + mb_y*16*s->linesize;
583                 uint8_t *last_mb_ptr= s->last_picture.data   [0] + mb_x*16 + mb_y*16*s->linesize;
584     
585                 is_intra_likely += s->dsp.sad[0](NULL, last_mb_ptr, mb_ptr                    , s->linesize, 16);
586                 is_intra_likely -= s->dsp.sad[0](NULL, last_mb_ptr, last_mb_ptr+s->linesize*16, s->linesize, 16);
587             }else{
588                 if(IS_INTRA(s->current_picture.mb_type[mb_xy]))
589                    is_intra_likely++;
590                 else
591                    is_intra_likely--;
592             }
593         }
594     }
595 //printf("is_intra_likely: %d type:%d\n", is_intra_likely, s->pict_type);
596     return is_intra_likely > 0;    
597 }
598
599 void ff_er_frame_start(MpegEncContext *s){
600     if(!s->error_resilience) return;
601
602     memset(s->error_status_table, MV_ERROR|AC_ERROR|DC_ERROR|VP_START|AC_END|DC_END|MV_END, s->mb_stride*s->mb_height*sizeof(uint8_t));
603     s->error_count= 3*s->mb_num;
604 }
605
606 /**
607  * adds a slice.
608  * @param endx x component of the last macroblock, can be -1 for the last of the previous line
609  * @param status the status at the end (MV_END, AC_ERROR, ...), it is assumed that no earlier end or
610  *               error of the same type occured
611  */
612 void ff_er_add_slice(MpegEncContext *s, int startx, int starty, int endx, int endy, int status){
613     const int start_i= clip(startx + starty * s->mb_width    , 0, s->mb_num-1);
614     const int end_i  = clip(endx   + endy   * s->mb_width    , 0, s->mb_num);
615     const int start_xy= s->mb_index2xy[start_i];
616     const int end_xy  = s->mb_index2xy[end_i];
617     int mask= -1;
618     
619     if(!s->error_resilience) return;
620
621     mask &= ~VP_START;
622     if(status & (AC_ERROR|AC_END)){
623         mask &= ~(AC_ERROR|AC_END);
624         s->error_count -= end_i - start_i + 1;
625     }
626     if(status & (DC_ERROR|DC_END)){
627         mask &= ~(DC_ERROR|DC_END);
628         s->error_count -= end_i - start_i + 1;
629     }
630     if(status & (MV_ERROR|MV_END)){
631         mask &= ~(MV_ERROR|MV_END);
632         s->error_count -= end_i - start_i + 1;
633     }
634
635     if(status & (AC_ERROR|DC_ERROR|MV_ERROR)) s->error_count= INT_MAX;
636
637     if(mask == ~0x7F){
638         memset(&s->error_status_table[start_xy], 0, (end_xy - start_xy) * sizeof(uint8_t));
639     }else{
640         int i;
641         for(i=start_xy; i<end_xy; i++){
642             s->error_status_table[ i ] &= mask;
643         }
644     }
645
646     if(end_i == s->mb_num) 
647         s->error_count= INT_MAX;
648     else{
649         s->error_status_table[end_xy] &= mask;
650         s->error_status_table[end_xy] |= status;
651     }
652  
653     s->error_status_table[start_xy] |= VP_START;
654
655     if(start_xy > 0){
656         int prev_status= s->error_status_table[ s->mb_index2xy[start_i - 1] ];
657         
658         prev_status &= ~ VP_START;
659         if(prev_status != (MV_END|DC_END|AC_END)) s->error_count= INT_MAX;
660     }
661 }
662
663 void ff_er_frame_end(MpegEncContext *s){
664     int i, mb_x, mb_y, error, error_type;
665     int distance;
666     int threshold_part[4]= {100,100,100};
667     int threshold= 50;
668     int is_intra_likely;
669     
670     if(!s->error_resilience || s->error_count==0) return;
671
672     av_log(s->avctx, AV_LOG_INFO, "concealing errors\n");
673     
674     if(s->current_picture.motion_val[0] == NULL){
675         int size = (2 * s->mb_width + 2) * (2 * s->mb_height + 2);
676         Picture *pic= s->current_picture_ptr;
677         
678         av_log(s->avctx, AV_LOG_ERROR, "Warning MVs not available\n");
679             
680         for(i=0; i<2; i++){
681             pic->motion_val_base[i]= av_mallocz((size+1) * 2 * sizeof(uint16_t)); //FIXME size
682             pic->motion_val[i]= pic->motion_val_base[i]+1;
683         }
684         pic->motion_subsample_log2= 3;
685         s->current_picture= *s->current_picture_ptr;
686     }
687     
688     if(s->avctx->debug&FF_DEBUG_ER){
689         for(mb_y=0; mb_y<s->mb_height; mb_y++){
690             for(mb_x=0; mb_x<s->mb_width; mb_x++){
691                 int status= s->error_status_table[mb_x + mb_y*s->mb_stride];
692             
693                 av_log(s->avctx, AV_LOG_DEBUG, "%2X ", status); 
694             }
695             av_log(s->avctx, AV_LOG_DEBUG, "\n");
696         }
697     }
698     
699 #if 1
700     /* handle overlapping slices */
701     for(error_type=1; error_type<=3; error_type++){
702         int end_ok=0;
703
704         for(i=s->mb_num-1; i>=0; i--){
705             const int mb_xy= s->mb_index2xy[i];
706             int error= s->error_status_table[mb_xy];
707         
708             if(error&(1<<error_type))
709                 end_ok=1;
710             if(error&(8<<error_type))
711                 end_ok=1;
712
713             if(!end_ok)
714                 s->error_status_table[mb_xy]|= 1<<error_type;
715
716             if(error&VP_START)
717                 end_ok=0;
718         }
719     }
720 #endif
721 #if 1
722     /* handle slices with partitions of different length */
723     if(s->partitioned_frame){
724         int end_ok=0;
725
726         for(i=s->mb_num-1; i>=0; i--){
727             const int mb_xy= s->mb_index2xy[i];
728             int error= s->error_status_table[mb_xy];
729         
730             if(error&AC_END)
731                 end_ok=0;
732             if((error&MV_END) || (error&DC_END) || (error&AC_ERROR))
733                 end_ok=1;
734
735             if(!end_ok)
736                 s->error_status_table[mb_xy]|= AC_ERROR;
737
738             if(error&VP_START)
739                 end_ok=0;
740         }
741     }
742 #endif
743     /* handle missing slices */
744     if(s->error_resilience>=4){
745         int end_ok=1;
746                 
747         for(i=s->mb_num-2; i>=s->mb_width+100; i--){ //FIXME +100 hack
748             const int mb_xy= s->mb_index2xy[i];
749             int error1= s->error_status_table[mb_xy  ];
750             int error2= s->error_status_table[s->mb_index2xy[i+1]];
751         
752             if(error1&VP_START)
753                 end_ok=1;
754              
755             if(   error2==(VP_START|DC_ERROR|AC_ERROR|MV_ERROR|AC_END|DC_END|MV_END)
756                && error1!=(VP_START|DC_ERROR|AC_ERROR|MV_ERROR|AC_END|DC_END|MV_END) 
757                && ((error1&AC_END) || (error1&DC_END) || (error1&MV_END))){ //end & uninited
758                 end_ok=0;
759             }
760         
761             if(!end_ok)
762                 s->error_status_table[mb_xy]|= DC_ERROR|AC_ERROR|MV_ERROR;
763         }
764     }
765     
766 #if 1
767     /* backward mark errors */
768     distance=9999999;
769     for(error_type=1; error_type<=3; error_type++){
770         for(i=s->mb_num-1; i>=0; i--){
771             const int mb_xy= s->mb_index2xy[i];
772             int error= s->error_status_table[mb_xy];
773             
774             if(!s->mbskip_table[mb_xy]) //FIXME partition specific
775                 distance++;            
776             if(error&(1<<error_type))
777                 distance= 0;
778
779             if(s->partitioned_frame){
780                 if(distance < threshold_part[error_type-1])
781                     s->error_status_table[mb_xy]|= 1<<error_type;
782             }else{
783                 if(distance < threshold)
784                     s->error_status_table[mb_xy]|= 1<<error_type;
785             }
786
787             if(error&VP_START)
788                 distance= 9999999;
789         }
790     }
791 #endif
792
793     /* forward mark errors */
794     error=0;
795     for(i=0; i<s->mb_num; i++){
796         const int mb_xy= s->mb_index2xy[i];
797         int old_error= s->error_status_table[mb_xy];
798         
799         if(old_error&VP_START)
800             error= old_error& (DC_ERROR|AC_ERROR|MV_ERROR);
801         else{
802             error|= old_error& (DC_ERROR|AC_ERROR|MV_ERROR);
803             s->error_status_table[mb_xy]|= error;
804         }
805     }
806 #if 1
807     /* handle not partitioned case */
808     if(!s->partitioned_frame){
809         for(i=0; i<s->mb_num; i++){
810             const int mb_xy= s->mb_index2xy[i];
811             error= s->error_status_table[mb_xy];
812             if(error&(AC_ERROR|DC_ERROR|MV_ERROR))
813                 error|= AC_ERROR|DC_ERROR|MV_ERROR;
814             s->error_status_table[mb_xy]= error;
815         }
816     }
817 #endif
818     is_intra_likely= is_intra_more_likely(s);
819
820     /* set unknown mb-type to most likely */
821     for(i=0; i<s->mb_num; i++){
822         const int mb_xy= s->mb_index2xy[i];
823         error= s->error_status_table[mb_xy];
824         if(!((error&DC_ERROR) && (error&MV_ERROR)))
825             continue;
826
827         if(is_intra_likely)
828             s->current_picture.mb_type[mb_xy]= MB_TYPE_INTRA4x4;
829         else
830             s->current_picture.mb_type[mb_xy]= MB_TYPE_16x16 | MB_TYPE_L0;
831     }
832     
833     /* handle inter blocks with damaged AC */
834     for(mb_y=0; mb_y<s->mb_height; mb_y++){
835         for(mb_x=0; mb_x<s->mb_width; mb_x++){
836             const int mb_xy= mb_x + mb_y * s->mb_stride;
837             const int mb_type= s->current_picture.mb_type[mb_xy];
838             error= s->error_status_table[mb_xy];
839
840             if(IS_INTRA(mb_type)) continue; //intra
841             if(error&MV_ERROR) continue;              //inter with damaged MV
842             if(!(error&AC_ERROR)) continue;           //undamaged inter
843             
844             s->mv_dir = MV_DIR_FORWARD;
845             s->mb_intra=0;
846             s->mb_skiped=0;
847             if(IS_8X8(mb_type)){
848                 int mb_index= mb_x*2+1 + (mb_y*2+1)*s->block_wrap[0];
849                 int j;
850                 s->mv_type = MV_TYPE_8X8;
851                 for(j=0; j<4; j++){
852                     s->mv[0][j][0] = s->current_picture.motion_val[0][ mb_index + (j&1) + (j>>1)*s->block_wrap[0] ][0];
853                     s->mv[0][j][1] = s->current_picture.motion_val[0][ mb_index + (j&1) + (j>>1)*s->block_wrap[0] ][1];
854                 }
855             }else{
856                 s->mv_type = MV_TYPE_16X16;
857                 s->mv[0][0][0] = s->current_picture.motion_val[0][ mb_x*2+1 + (mb_y*2+1)*s->block_wrap[0] ][0];
858                 s->mv[0][0][1] = s->current_picture.motion_val[0][ mb_x*2+1 + (mb_y*2+1)*s->block_wrap[0] ][1];
859             }
860         
861             s->dsp.clear_blocks(s->block[0]);
862
863             s->mb_x= mb_x;
864             s->mb_y= mb_y;
865             decode_mb(s);
866         }
867     }
868
869     /* guess MVs */
870     if(s->pict_type==B_TYPE){
871         for(mb_y=0; mb_y<s->mb_height; mb_y++){
872             for(mb_x=0; mb_x<s->mb_width; mb_x++){
873                 int xy= mb_x*2+1 + (mb_y*2+1)*s->block_wrap[0];
874                 const int mb_xy= mb_x + mb_y * s->mb_stride;
875                 const int mb_type= s->current_picture.mb_type[mb_xy];
876                 error= s->error_status_table[mb_xy];
877
878                 if(IS_INTRA(mb_type)) continue;
879                 if(!(error&MV_ERROR)) continue;           //inter with undamaged MV
880                 if(!(error&AC_ERROR)) continue;           //undamaged inter
881             
882                 s->mv_dir = MV_DIR_FORWARD|MV_DIR_BACKWARD;
883                 s->mb_intra=0;
884                 s->mv_type = MV_TYPE_16X16;
885                 s->mb_skiped=0;
886                 
887                 if(s->pp_time){
888                     int time_pp= s->pp_time;
889                     int time_pb= s->pb_time;
890             
891                     s->mv[0][0][0] = s->next_picture.motion_val[0][xy][0]*time_pb/time_pp;
892                     s->mv[0][0][1] = s->next_picture.motion_val[0][xy][1]*time_pb/time_pp;
893                     s->mv[1][0][0] = s->next_picture.motion_val[0][xy][0]*(time_pb - time_pp)/time_pp;
894                     s->mv[1][0][1] = s->next_picture.motion_val[0][xy][1]*(time_pb - time_pp)/time_pp;
895                 }else{
896                     s->mv[0][0][0]= 0;
897                     s->mv[0][0][1]= 0;
898                     s->mv[1][0][0]= 0;
899                     s->mv[1][0][1]= 0;
900                 }
901
902                 s->dsp.clear_blocks(s->block[0]);
903                 s->mb_x= mb_x;
904                 s->mb_y= mb_y;
905                 decode_mb(s);
906             }
907         }
908     }else
909         guess_mv(s);
910
911 #ifdef HAVE_XVMC
912     /* the filters below are not XvMC compatible, skip them */
913     if(s->avctx->xvmc_acceleration) goto ec_clean;
914 #endif
915     /* fill DC for inter blocks */
916     for(mb_y=0; mb_y<s->mb_height; mb_y++){
917         for(mb_x=0; mb_x<s->mb_width; mb_x++){
918             int dc, dcu, dcv, y, n;
919             int16_t *dc_ptr;
920             uint8_t *dest_y, *dest_cb, *dest_cr;
921             const int mb_xy= mb_x + mb_y * s->mb_stride;
922             const int mb_type= s->current_picture.mb_type[mb_xy];
923            
924             error= s->error_status_table[mb_xy];
925
926             if(IS_INTRA(mb_type) && s->partitioned_frame) continue;
927 //            if(error&MV_ERROR) continue; //inter data damaged FIXME is this good?
928             
929             dest_y = s->current_picture.data[0] + mb_x*16 + mb_y*16*s->linesize;
930             dest_cb= s->current_picture.data[1] + mb_x*8  + mb_y*8 *s->uvlinesize;
931             dest_cr= s->current_picture.data[2] + mb_x*8  + mb_y*8 *s->uvlinesize;
932            
933             dc_ptr= &s->dc_val[0][mb_x*2+1 + (mb_y*2+1)*(s->mb_width*2+2)];
934             for(n=0; n<4; n++){
935                 dc=0;
936                 for(y=0; y<8; y++){
937                     int x;
938                     for(x=0; x<8; x++){
939                        dc+= dest_y[x + (n&1)*8 + (y + (n>>1)*8)*s->linesize];
940                     }
941                 }
942                 dc_ptr[(n&1) + (n>>1)*(s->mb_width*2+2)]= (dc+4)>>3;
943             }
944
945             dcu=dcv=0;
946             for(y=0; y<8; y++){
947                 int x;
948                 for(x=0; x<8; x++){
949                     dcu+=dest_cb[x + y*(s->uvlinesize)];
950                     dcv+=dest_cr[x + y*(s->uvlinesize)];
951                 }
952             }
953             s->dc_val[1][mb_x+1 + (mb_y+1)*(s->mb_width+2)]= (dcu+4)>>3;
954             s->dc_val[2][mb_x+1 + (mb_y+1)*(s->mb_width+2)]= (dcv+4)>>3;   
955         }
956     }
957 #if 1
958     /* guess DC for damaged blocks */
959     guess_dc(s, s->dc_val[0] + s->mb_width*2+3, s->mb_width*2, s->mb_height*2, s->mb_width*2+2, 1);
960     guess_dc(s, s->dc_val[1] + s->mb_width  +3, s->mb_width  , s->mb_height  , s->mb_width  +2, 0);
961     guess_dc(s, s->dc_val[2] + s->mb_width  +3, s->mb_width  , s->mb_height  , s->mb_width  +2, 0);
962 #endif   
963     /* filter luma DC */
964     filter181(s->dc_val[0] + s->mb_width*2+3, s->mb_width*2, s->mb_height*2, s->mb_width*2+2);
965     
966 #if 1
967     /* render DC only intra */
968     for(mb_y=0; mb_y<s->mb_height; mb_y++){
969         for(mb_x=0; mb_x<s->mb_width; mb_x++){
970             uint8_t *dest_y, *dest_cb, *dest_cr;
971             const int mb_xy= mb_x + mb_y * s->mb_stride;
972             const int mb_type= s->current_picture.mb_type[mb_xy];
973
974             error= s->error_status_table[mb_xy];
975
976             if(IS_INTER(mb_type)) continue;
977             if(!(error&AC_ERROR)) continue;              //undamaged
978             
979             dest_y = s->current_picture.data[0] + mb_x*16 + mb_y*16*s->linesize;
980             dest_cb= s->current_picture.data[1] + mb_x*8  + mb_y*8 *s->uvlinesize;
981             dest_cr= s->current_picture.data[2] + mb_x*8  + mb_y*8 *s->uvlinesize;
982             
983             put_dc(s, dest_y, dest_cb, dest_cr, mb_x, mb_y);
984         }
985     }
986 #endif
987     
988     if(s->avctx->error_concealment&FF_EC_DEBLOCK){
989         /* filter horizontal block boundaries */
990         h_block_filter(s, s->current_picture.data[0], s->mb_width*2, s->mb_height*2, s->linesize  , 1);
991         h_block_filter(s, s->current_picture.data[1], s->mb_width  , s->mb_height  , s->uvlinesize, 0);
992         h_block_filter(s, s->current_picture.data[2], s->mb_width  , s->mb_height  , s->uvlinesize, 0);
993
994         /* filter vertical block boundaries */
995         v_block_filter(s, s->current_picture.data[0], s->mb_width*2, s->mb_height*2, s->linesize  , 1);
996         v_block_filter(s, s->current_picture.data[1], s->mb_width  , s->mb_height  , s->uvlinesize, 0);
997         v_block_filter(s, s->current_picture.data[2], s->mb_width  , s->mb_height  , s->uvlinesize, 0);
998     }
999
1000 #ifdef HAVE_XVMC
1001 ec_clean:
1002 #endif
1003     /* clean a few tables */
1004     for(i=0; i<s->mb_num; i++){
1005         const int mb_xy= s->mb_index2xy[i];
1006         int error= s->error_status_table[mb_xy];
1007         
1008         if(s->pict_type!=B_TYPE && (error&(DC_ERROR|MV_ERROR|AC_ERROR))){
1009             s->mbskip_table[mb_xy]=0;
1010         }
1011         s->mbintra_table[mb_xy]=1;
1012     }    
1013 }