[svn] / branches / dev-api-4 / xvidcore / src / plugins / plugin_2pass2.c Repository:
ViewVC logotype

Annotation of /branches/dev-api-4/xvidcore/src/plugins/plugin_2pass2.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1324 - (view) (download)

1 : suxen_drol 942 /******************************************************************************
2 :     *
3 : edgomez 1054 * XviD Bit Rate Controller Library
4 :     * - VBR 2 pass bitrate controller implementation -
5 : suxen_drol 942 *
6 : edgomez 1054 * Copyright (C) 2002 Foxer <email?>
7 :     * 2002 Dirk Knop <dknop@gwdg.de>
8 :     * 2002-2003 Edouard Gomez <ed.gomez@free.fr>
9 :     * 2003 Pete Ross <pross@xvid.org>
10 : suxen_drol 942 *
11 : edgomez 1054 * This curve treatment algorithm is the one originally implemented by Foxer
12 :     * and tuned by Dirk Knop for the XviD vfw frontend.
13 : suxen_drol 942 *
14 : edgomez 1054 * This program is free software; you can redistribute it and/or modify
15 :     * it under the terms of the GNU General Public License as published by
16 :     * the Free Software Foundation; either version 2 of the License, or
17 :     * (at your option) any later version.
18 : suxen_drol 942 *
19 : edgomez 1054 * This program is distributed in the hope that it will be useful,
20 :     * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 :     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 :     * GNU General Public License for more details.
23 : suxen_drol 942 *
24 : edgomez 1054 * You should have received a copy of the GNU General Public License
25 :     * along with this program; if not, write to the Free Software
26 :     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 : suxen_drol 942 *
28 : edgomez 1324 * $Id: plugin_2pass2.c,v 1.1.2.36 2004-01-22 20:54:31 edgomez Exp $
29 : suxen_drol 942 *
30 :     *****************************************************************************/
31 :    
32 : edgomez 1267 #define BQUANT_PRESCALE
33 : edgomez 1202 #undef COMPENSATE_FORMULA
34 :    
35 : syskin 1293 /* forces second pass not to be bigger than first */
36 :     #undef PASS_SMALLER
37 :    
38 : suxen_drol 942 #include <stdio.h>
39 :     #include <math.h>
40 : edgomez 1040 #include <limits.h>
41 : suxen_drol 942
42 : edgomez 1042 #include "../xvid.h"
43 :     #include "../image/image.h"
44 :    
45 :     /*****************************************************************************
46 : edgomez 1267 * Some default settings
47 : edgomez 1042 ****************************************************************************/
48 :    
49 :     #define DEFAULT_KEYFRAME_BOOST 0
50 : edgomez 1202 #define DEFAULT_OVERFLOW_CONTROL_STRENGTH 10
51 : edgomez 1042 #define DEFAULT_CURVE_COMPRESSION_HIGH 0
52 :     #define DEFAULT_CURVE_COMPRESSION_LOW 0
53 : edgomez 1267 #define DEFAULT_MAX_OVERFLOW_IMPROVEMENT 10
54 :     #define DEFAULT_MAX_OVERFLOW_DEGRADATION 10
55 : suxen_drol 942
56 : edgomez 1042 /* Keyframe settings */
57 :     #define DEFAULT_KFREDUCTION 20
58 : edgomez 1242 #define DEFAULT_KFTHRESHOLD 1
59 : edgomez 1042
60 :     /*****************************************************************************
61 : edgomez 1267 * Some default constants (can be tuned)
62 :     ****************************************************************************/
63 :    
64 :     /* Specify the invariant part of the headers bits (header+MV)
65 :     * as hlength/cst */
66 :     #define INVARIANT_HEADER_PART_IVOP 1 /* factor 1.0f */
67 :     #define INVARIANT_HEADER_PART_PVOP 2 /* factor 0.5f */
68 :     #define INVARIANT_HEADER_PART_BVOP 8 /* factor 0.125f */
69 :    
70 :     /*****************************************************************************
71 : edgomez 1042 * Structures
72 :     ****************************************************************************/
73 :    
74 :     /* Statistics */
75 : suxen_drol 942 typedef struct {
76 : edgomez 1064 int type; /* first pass type */
77 :     int quant; /* first pass quant */
78 : edgomez 1267 int blks[3]; /* k,m,y blks */
79 : edgomez 1064 int length; /* first pass length */
80 : edgomez 1267 int invariant; /* what we assume as being invariant between the two passes, it's a sub part of header + MV bits */
81 : edgomez 1064 int scaled_length; /* scaled length */
82 : edgomez 1202 int desired_length; /* desired length; calculated during encoding */
83 :     int error;
84 : suxen_drol 1030
85 : edgomez 1064 int zone_mode; /* XVID_ZONE_xxx */
86 :     double weight;
87 : edgomez 1202 } twopass_stat_t;
88 : suxen_drol 942
89 : edgomez 1042 /* Context struct */
90 : suxen_drol 942 typedef struct
91 :     {
92 : edgomez 1064 xvid_plugin_2pass2_t param;
93 : suxen_drol 942
94 : edgomez 1202 /*----------------------------------
95 :     * constant statistical data
96 :     *--------------------------------*/
97 :    
98 :     /* Number of frames of the sequence */
99 : suxen_drol 977 int num_frames;
100 : edgomez 1202
101 :     /* Number of Intra frames of the sequence */
102 : edgomez 1048 int num_keyframes;
103 : suxen_drol 1030
104 : edgomez 1202 /* Target filesize to reach */
105 :     uint64_t target;
106 : suxen_drol 1030
107 : edgomez 1202 /* Count of each frame types */
108 :     int count[3];
109 : suxen_drol 1030
110 : edgomez 1202 /* Total length of each frame types (1st pass) */
111 :     uint64_t tot_length[3];
112 : edgomez 1267 uint64_t tot_invariant[3];
113 : suxen_drol 942
114 : edgomez 1202 /* Average length of each frame types (used first for 1st pass data and
115 :     * then for scaled averages */
116 :     double avg_length[3];
117 : suxen_drol 942
118 : edgomez 1202 /* Minimum frame length allowed for each frame type */
119 :     int min_length[3];
120 : suxen_drol 1030
121 : edgomez 1202 /* Total bytes per frame type once the curve has been scaled
122 :     * NB: advanced parameters do not change this value. This field
123 :     * represents the total scaled w/o any advanced settings */
124 :     uint64_t tot_scaled_length[3];
125 :    
126 :     /* Maximum observed frame size observed during the first pass, the RC
127 :     * will try tp force all frame sizes in the second pass to be under that
128 :     * limit */
129 :     int max_length;
130 :    
131 :     /*----------------------------------
132 :     * Zones statistical data
133 :     *--------------------------------*/
134 :    
135 :     /* Total length used by XVID_ZONE_QUANT zones */
136 : edgomez 1267 uint64_t tot_quant;
137 :     uint64_t tot_quant_invariant;
138 : edgomez 1202
139 : edgomez 1309 /* Holds the total amount of frame bytes, zone weighted (only scalable
140 :     * part of frame bytes) */
141 :     uint64_t tot_weighted;
142 :    
143 : edgomez 1202 /*----------------------------------
144 :     * Advanced settings helper ratios
145 :     *--------------------------------*/
146 :    
147 :     /* This the ratio that has to be applied to all p/b frames in order
148 :     * to reserve/retrieve bits for/from keyframe boosting and consecutive
149 :     * keyframe penalty */
150 :     double pb_iboost_tax_ratio;
151 :    
152 :     /* This the ratio to apply to all b/p frames in order to respect the
153 :     * assymetric curve compression while respecting a target filesize
154 :     * NB: The assymetric delta gain has to be computed before this ratio
155 :     * is applied, and then the delta is added to the scaled size */
156 :     double assymetric_tax_ratio;
157 :    
158 :     /*----------------------------------
159 :     * Data from the stats file kept
160 :     * into RAM for easy access
161 :     *--------------------------------*/
162 :    
163 :     /* Array of keyframe locations
164 :     * eg: rc->keyframe_locations[100] returns the frame number of the 100th
165 :     * keyframe */
166 :     int *keyframe_locations;
167 :    
168 :     /* Index of the last keyframe used in the keyframe_location */
169 :     int KF_idx;
170 :    
171 :     /* Array of all 1st pass data file -- see the twopass_stat_t structure
172 :     * definition for more details */
173 :     twopass_stat_t * stats;
174 :    
175 :     /*----------------------------------
176 :     * Histerysis helpers
177 :     *--------------------------------*/
178 :    
179 :     /* This field holds the int2float conversion errors of each quant per
180 :     * frame type, this allow the RC to keep track of rouding error and thus
181 :     * increase or decrease the chosen quant according to this residue */
182 : edgomez 1048 double quant_error[3][32];
183 : edgomez 1202
184 :     /* This fields stores the count of each quant usage per frame type
185 :     * No real role but for debugging */
186 :     int quant_count[3][32];
187 :    
188 :     /* Last valid quantizer used per frame type, it allows quantizer
189 :     * increament/decreament limitation in order to avoid big image quality
190 :     * "jumps" */
191 : edgomez 1048 int last_quant[3];
192 :    
193 : edgomez 1202 /*----------------------------------
194 :     * Overflow control
195 :     *--------------------------------*/
196 : edgomez 1048
197 : edgomez 1202 /* Current overflow that has to be distributed to p/b frames */
198 :     double overflow;
199 :    
200 :     /* Total overflow for keyframes -- not distributed directly */
201 :     double KFoverflow;
202 :    
203 :     /* Amount of keyframe overflow to introduce to the global p/b frame
204 :     * overflow counter at each encoded frame */
205 :     double KFoverflow_partial;
206 :    
207 :     /* Unknown ???
208 :     * ToDo: description */
209 : edgomez 1048 double fq_error;
210 : edgomez 1202
211 :     /*----------------------------------
212 :     * Debug
213 :     *--------------------------------*/
214 :     double desired_total;
215 :     double real_total;
216 : suxen_drol 942 } rc_2pass2_t;
217 :    
218 :    
219 : edgomez 1042 /*****************************************************************************
220 :     * Sub plugin functions prototypes
221 :     ****************************************************************************/
222 : suxen_drol 942
223 : edgomez 1042 static int rc_2pass2_create(xvid_plg_create_t * create, rc_2pass2_t ** handle);
224 :     static int rc_2pass2_before(rc_2pass2_t * rc, xvid_plg_data_t * data);
225 :     static int rc_2pass2_after(rc_2pass2_t * rc, xvid_plg_data_t * data);
226 :     static int rc_2pass2_destroy(rc_2pass2_t * rc, xvid_plg_destroy_t * destroy);
227 : suxen_drol 942
228 : edgomez 1042 /*****************************************************************************
229 :     * Plugin definition
230 :     ****************************************************************************/
231 : suxen_drol 942
232 : edgomez 1042 int
233 :     xvid_plugin_2pass2(void * handle, int opt, void * param1, void * param2)
234 : suxen_drol 942 {
235 : edgomez 1064 switch(opt) {
236 :     case XVID_PLG_INFO :
237 : edgomez 1219 case XVID_PLG_FRAME :
238 : edgomez 1064 return 0;
239 : suxen_drol 942
240 : edgomez 1064 case XVID_PLG_CREATE :
241 :     return rc_2pass2_create((xvid_plg_create_t*)param1, param2);
242 : suxen_drol 942
243 : edgomez 1064 case XVID_PLG_DESTROY :
244 :     return rc_2pass2_destroy((rc_2pass2_t*)handle, (xvid_plg_destroy_t*)param1);
245 : suxen_drol 942
246 : edgomez 1064 case XVID_PLG_BEFORE :
247 :     return rc_2pass2_before((rc_2pass2_t*)handle, (xvid_plg_data_t*)param1);
248 : suxen_drol 942
249 : edgomez 1064 case XVID_PLG_AFTER :
250 :     return rc_2pass2_after((rc_2pass2_t*)handle, (xvid_plg_data_t*)param1);
251 :     }
252 : edgomez 1037
253 : edgomez 1064 return XVID_ERR_FAIL;
254 : suxen_drol 977 }
255 :    
256 : edgomez 1042 /*****************************************************************************
257 :     * Sub plugin functions definitions
258 :     ****************************************************************************/
259 : suxen_drol 977
260 : edgomez 1042 /* First a few local helping function prototypes */
261 : edgomez 1202 static int statsfile_count_frames(rc_2pass2_t * rc, char * filename);
262 :     static int statsfile_load(rc_2pass2_t *rc, char * filename);
263 : edgomez 1042 static void zone_process(rc_2pass2_t *rc, const xvid_plg_create_t * create);
264 : edgomez 1202 static void first_pass_stats_prepare_data(rc_2pass2_t * rc);
265 :     static void first_pass_scale_curve_internal(rc_2pass2_t *rc);
266 :     static void scaled_curve_apply_advanced_parameters(rc_2pass2_t * rc);
267 :     #if 0
268 :     static void stats_print(rc_2pass2_t * rc);
269 :     #endif
270 : suxen_drol 977
271 : edgomez 1042 /*----------------------------------------------------------------------------
272 :     *--------------------------------------------------------------------------*/
273 : suxen_drol 942
274 : edgomez 1042 static int
275 :     rc_2pass2_create(xvid_plg_create_t * create, rc_2pass2_t **handle)
276 : suxen_drol 942 {
277 : edgomez 1064 xvid_plugin_2pass2_t * param = (xvid_plugin_2pass2_t *)create->param;
278 :     rc_2pass2_t * rc;
279 :     int i;
280 : suxen_drol 942
281 : edgomez 1064 rc = malloc(sizeof(rc_2pass2_t));
282 : edgomez 1161 if (rc == NULL)
283 : edgomez 1064 return XVID_ERR_MEMORY;
284 : suxen_drol 942
285 : edgomez 1064 rc->param = *param;
286 : suxen_drol 942
287 : edgomez 1202 /* Initialize all defaults */
288 : edgomez 1042 #define _INIT(a, b) if((a) <= 0) (a) = (b)
289 : edgomez 1064 /* Let's set our defaults if needed */
290 : edgomez 1042 _INIT(rc->param.keyframe_boost, DEFAULT_KEYFRAME_BOOST);
291 : edgomez 1202 _INIT(rc->param.overflow_control_strength, DEFAULT_OVERFLOW_CONTROL_STRENGTH);
292 : edgomez 1064 _INIT(rc->param.curve_compression_high, DEFAULT_CURVE_COMPRESSION_HIGH);
293 :     _INIT(rc->param.curve_compression_low, DEFAULT_CURVE_COMPRESSION_LOW);
294 :     _INIT(rc->param.max_overflow_improvement, DEFAULT_MAX_OVERFLOW_IMPROVEMENT);
295 :     _INIT(rc->param.max_overflow_degradation, DEFAULT_MAX_OVERFLOW_DEGRADATION);
296 : suxen_drol 942
297 : edgomez 1064 /* Keyframe settings */
298 :     _INIT(rc->param.kfreduction, DEFAULT_KFREDUCTION);
299 : edgomez 1242 _INIT(rc->param.kfthreshold, DEFAULT_KFTHRESHOLD);
300 : edgomez 1042 #undef _INIT
301 : suxen_drol 942
302 : edgomez 1048 /* Initialize some stuff to zero */
303 :     for(i=0; i<3; i++) {
304 :     int j;
305 : edgomez 1202 for (j=0; j<32; j++) {
306 : edgomez 1048 rc->quant_error[i][j] = 0;
307 : edgomez 1202 rc->quant_count[i][j] = 0;
308 :     }
309 : edgomez 1048 }
310 :    
311 : edgomez 1202 for (i=0; i<3; i++) rc->last_quant[i] = 0;
312 : edgomez 1048
313 :     rc->fq_error = 0;
314 :    
315 : edgomez 1202 /* Count frames (and intra frames) in the stats file, store the result into
316 :     * the rc structure */
317 :     if (statsfile_count_frames(rc, param->filename) == -1) {
318 :     DPRINTF(XVID_DEBUG_RC,"[xvid rc] -- ERROR: fopen %s failed\n", param->filename);
319 : edgomez 1048 free(rc);
320 : edgomez 1202 return(XVID_ERR_FAIL);
321 : edgomez 1048 }
322 : suxen_drol 942
323 : edgomez 1064 /* Allocate the stats' memory */
324 : edgomez 1202 if ((rc->stats = malloc(rc->num_frames * sizeof(twopass_stat_t))) == NULL) {
325 : edgomez 1064 free(rc);
326 : edgomez 1202 return(XVID_ERR_MEMORY);
327 : edgomez 1064 }
328 : suxen_drol 942
329 : edgomez 1202 /* Allocate keyframes location's memory
330 :     * PS: see comment in pre_process0 for the +1 location requirement */
331 : edgomez 1048 rc->keyframe_locations = malloc((rc->num_keyframes + 1) * sizeof(int));
332 :     if (rc->keyframe_locations == NULL) {
333 :     free(rc->stats);
334 :     free(rc);
335 : edgomez 1202 return(XVID_ERR_MEMORY);
336 : edgomez 1048 }
337 : suxen_drol 942
338 : edgomez 1202 /* Load the first pass stats */
339 :     if (statsfile_load(rc, param->filename) == -1) {
340 :     DPRINTF(XVID_DEBUG_RC,"[xvid rc] -- ERROR: fopen %s failed\n", param->filename);
341 : edgomez 1048 free(rc->keyframe_locations);
342 :     free(rc->stats);
343 :     free(rc);
344 :     return XVID_ERR_FAIL;
345 :     }
346 : suxen_drol 942
347 : edgomez 1048 /* Compute the target filesize */
348 : edgomez 1064 if (rc->param.bitrate<0) {
349 :     /* if negative, bitrate equals the target (in kbytes) */
350 : edgomez 1246 rc->target = ((uint64_t)(-rc->param.bitrate)) * 1024;
351 : edgomez 1064 } else if (rc->num_frames < create->fbase/create->fincr) {
352 : edgomez 1048 /* Source sequence is less than 1s long, we do as if it was 1s long */
353 :     rc->target = rc->param.bitrate / 8;
354 : edgomez 1042 } else {
355 : edgomez 1048 /* Target filesize = bitrate/8 * numframes / framerate */
356 : edgomez 1161 rc->target =
357 : edgomez 1048 ((uint64_t)rc->param.bitrate * (uint64_t)rc->num_frames * \
358 :     (uint64_t)create->fincr) / \
359 : edgomez 1040 ((uint64_t)create->fbase * 8);
360 : suxen_drol 977 }
361 : suxen_drol 1030
362 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Frame rate: %d/%d (%ffps)\n",
363 : edgomez 1048 create->fbase, create->fincr,
364 :     (double)create->fbase/(double)create->fincr);
365 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Number of frames: %d\n", rc->num_frames);
366 :     if(rc->param.bitrate>=0)
367 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Target bitrate: %ld\n", rc->param.bitrate);
368 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Target filesize: %lld\n", rc->target);
369 : suxen_drol 1032
370 : edgomez 1048 /* Compensate the average frame overhead caused by the container */
371 : edgomez 1041 rc->target -= rc->num_frames*rc->param.container_frame_overhead;
372 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Container Frame overhead: %d\n", rc->param.container_frame_overhead);
373 :     if(rc->param.container_frame_overhead)
374 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- New target filesize after container compensation: %lld\n", rc->target);
375 : suxen_drol 977
376 : edgomez 1309 /* When bitrate is not given it means it has been scaled by an external
377 :     * application */
378 :     if (rc->param.bitrate) {
379 :     /* Apply zone settings
380 :     * - set rc->tot_quant which represents the total num of bytes spent in
381 :     * fixed quant zones
382 :     * - set rc->tot_weighted which represents the total amount of bytes
383 :     * spent in normal or weighted zones in first pass (normal zones can
384 :     * be considered weight=1)
385 :     * - set rc->tot_quant_invariant which represents the total num of bytes
386 :     * spent in fixed quant zones for headers */
387 :     zone_process(rc, create);
388 :     } else {
389 :     /* External scaling -- zones are ignored */
390 :     for (i=0;i<rc->num_frames;i++) {
391 :     rc->stats[i].zone_mode = XVID_ZONE_WEIGHT;
392 :     rc->stats[i].weight = 1.0;
393 :     }
394 :     rc->tot_quant = 0;
395 :     }
396 :    
397 : edgomez 1202 /* Gathers some information about first pass stats:
398 : edgomez 1048 * - finds the minimum frame length for each frame type during 1st pass.
399 :     * rc->min_size[]
400 :     * - determines the maximum frame length observed (no frame type distinction).
401 :     * rc->max_size
402 :     * - count how many times each frame type has been used.
403 :     * rc->count[]
404 :     * - total bytes used per frame type
405 : edgomez 1267 * rc->tot_length[]
406 :     * - total bytes considered invariant between the 2 passes
407 : edgomez 1048 * - store keyframe location
408 :     * rc->keyframe_locations[]
409 :     */
410 : edgomez 1202 first_pass_stats_prepare_data(rc);
411 : edgomez 1036
412 : edgomez 1309 /* If we have a user bitrate, it means it's an internal curve scaling */
413 : suxen_drol 977 if (rc->param.bitrate) {
414 : edgomez 1202 /* Perform internal curve scaling */
415 :     first_pass_scale_curve_internal(rc);
416 : edgomez 1048 }
417 :    
418 : edgomez 1202 /* Apply advanced curve options, and compute some parameters in order to
419 :     * shape the curve in the BEFORE/AFTER pair of functions */
420 :     scaled_curve_apply_advanced_parameters(rc);
421 : suxen_drol 1030
422 : edgomez 1048 *handle = rc;
423 : suxen_drol 942 return(0);
424 :     }
425 :    
426 : edgomez 1042 /*----------------------------------------------------------------------------
427 :     *--------------------------------------------------------------------------*/
428 : suxen_drol 942
429 : edgomez 1042 static int
430 :     rc_2pass2_destroy(rc_2pass2_t * rc, xvid_plg_destroy_t * destroy)
431 : suxen_drol 942 {
432 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- target_total:%lld desired_total:%.2f (%.2f%%) actual_total:%.2f (%.2f%%)\n",
433 :     rc->target,
434 :     rc->desired_total,
435 :     100*rc->desired_total/(double)rc->target,
436 :     rc->real_total,
437 :     100*rc->real_total/(double)rc->target);
438 :    
439 : edgomez 1064 free(rc->keyframe_locations);
440 :     free(rc->stats);
441 : suxen_drol 942 free(rc);
442 :     return(0);
443 :     }
444 :    
445 : edgomez 1042 /*----------------------------------------------------------------------------
446 :     *--------------------------------------------------------------------------*/
447 : suxen_drol 942
448 : edgomez 1042 static int
449 :     rc_2pass2_before(rc_2pass2_t * rc, xvid_plg_data_t * data)
450 : suxen_drol 942 {
451 : edgomez 1202 twopass_stat_t * s = &rc->stats[data->frame_num];
452 : edgomez 1048 double dbytes;
453 :     double scaled_quant;
454 : edgomez 1202 double overflow;
455 : edgomez 1048 int capped_to_max_framesize = 0;
456 : suxen_drol 942
457 : edgomez 1202 /* This function is quite long but easy to understand. In order to simplify
458 :     * the code path (a bit), we treat 3 cases that can return immediatly. */
459 : suxen_drol 942
460 : edgomez 1037 /* First case: Another plugin has already set a quantizer */
461 : edgomez 1064 if (data->quant > 0)
462 : edgomez 1037 return(0);
463 : suxen_drol 942
464 : edgomez 1296 /* Second case: insufficent stats data
465 :     * We can't guess much what we should do, let core decide all alone */
466 : syskin 1247 if (data->frame_num >= rc->num_frames) {
467 :     DPRINTF(XVID_DEBUG_RC,"[xvid rc] -- stats file too short (now processing frame %d)",
468 :     data->frame_num);
469 :     return(0);
470 :     }
471 :    
472 : edgomez 1296 /* Third case: We are in a Quant zone
473 :     * Quant zones must just ensure we use the same settings as first pass
474 :     * So set the quantizer and the type */
475 : edgomez 1037 if (s->zone_mode == XVID_ZONE_QUANT) {
476 : edgomez 1296 /* Quant stuff */
477 : edgomez 1037 rc->fq_error += s->weight;
478 :     data->quant = (int)rc->fq_error;
479 :     rc->fq_error -= data->quant;
480 : edgomez 1064
481 : edgomez 1296 /* The type stuff */
482 :     data->type = s->type;
483 :    
484 :     /* The only required data for AFTER step is this one for the overflow
485 :     * control */
486 : edgomez 1037 s->desired_length = s->length;
487 : suxen_drol 1032
488 : edgomez 1037 return(0);
489 :     }
490 : suxen_drol 977
491 : suxen_drol 942
492 : edgomez 1202 /*************************************************************************/
493 :     /*************************************************************************/
494 :     /*************************************************************************/
495 : suxen_drol 942
496 : edgomez 1202 /*-------------------------------------------------------------------------
497 :     * Frame bit allocation first part
498 :     *
499 :     * First steps apply user settings, just like it is done in the theoritical
500 :     * scaled_curve_apply_advanced_parameters
501 :     *-----------------------------------------------------------------------*/
502 : suxen_drol 942
503 : edgomez 1202 /* Set desired to what we are wanting to obtain for this frame */
504 :     dbytes = (double)s->scaled_length;
505 : suxen_drol 942
506 : edgomez 1202 /* IFrame user settings*/
507 :     if (s->type == XVID_TYPE_IVOP) {
508 :     /* Keyframe boosting -- All keyframes benefit from it */
509 :     dbytes += dbytes*rc->param.keyframe_boost / 100;
510 : suxen_drol 942
511 : edgomez 1242 #if 0 /* ToDo: decide how to apply kfthresholding */
512 :     #endif
513 : edgomez 1202 } else {
514 : suxen_drol 942
515 : edgomez 1202 /* P/S/B frames must reserve some bits for iframe boosting */
516 :     dbytes *= rc->pb_iboost_tax_ratio;
517 : suxen_drol 942
518 : edgomez 1202 /* Apply assymetric curve compression */
519 :     if (rc->param.curve_compression_high || rc->param.curve_compression_low) {
520 :     double assymetric_delta;
521 : suxen_drol 942
522 : edgomez 1202 /* Compute the assymetric delta, this is computed before applying
523 :     * the tax, as done in the pre_process function */
524 :     if (dbytes > rc->avg_length[s->type-1])
525 :     assymetric_delta = (rc->avg_length[s->type-1] - dbytes) * rc->param.curve_compression_high / 100.0;
526 :     else
527 :     assymetric_delta = (rc->avg_length[s->type-1] - dbytes) * rc->param.curve_compression_low / 100.0;
528 : suxen_drol 942
529 : edgomez 1202 /* Now we must apply the assymetric tax, else our curve compression
530 :     * would not give a theoritical target size equal to what it is
531 :     * expected */
532 :     dbytes *= rc->assymetric_tax_ratio;
533 :    
534 :     /* Now we can add the assymetric delta */
535 :     dbytes += assymetric_delta;
536 : edgomez 1037 }
537 :     }
538 : suxen_drol 942
539 : edgomez 1202 /* That is what we would like to have -- Don't put that chunk after
540 :     * overflow control, otherwise, overflow is counted twice and you obtain
541 :     * half sized bitrate sequences */
542 :     s->desired_length = (int)dbytes;
543 :     rc->desired_total += dbytes;
544 : suxen_drol 942
545 : edgomez 1202 /*------------------------------------------------------------------------
546 :     * Frame bit allocation: overflow control part.
547 :     *
548 :     * Unlike the theoritical scaled_curve_apply_advanced_parameters, here
549 :     * it's real encoding and we need to make sure we don't go so far from
550 :     * what is our ideal scaled curve.
551 :     *-----------------------------------------------------------------------*/
552 : edgomez 1048
553 : edgomez 1202 /* Compute the overflow we should compensate */
554 : syskin 1293 if (s->type != XVID_TYPE_IVOP || rc->overflow > 0) {
555 : edgomez 1202 double frametype_factor;
556 :     double framesize_factor;
557 : suxen_drol 942
558 : edgomez 1202 /* Take only the desired part of overflow */
559 :     overflow = rc->overflow;
560 : edgomez 1064
561 : edgomez 1202 /* Factor that will take care to decrease the overflow applied
562 :     * according to the importance of this frame type in term of
563 :     * overall size */
564 :     frametype_factor = rc->count[XVID_TYPE_IVOP-1]*rc->avg_length[XVID_TYPE_IVOP-1];
565 :     frametype_factor += rc->count[XVID_TYPE_PVOP-1]*rc->avg_length[XVID_TYPE_PVOP-1];
566 :     frametype_factor += rc->count[XVID_TYPE_BVOP-1]*rc->avg_length[XVID_TYPE_BVOP-1];
567 :     frametype_factor /= rc->count[s->type-1]*rc->avg_length[s->type-1];
568 :     frametype_factor = 1/frametype_factor;
569 : suxen_drol 942
570 : edgomez 1202 /* Factor that will take care not to compensate too much for this frame
571 :     * size */
572 :     framesize_factor = dbytes;
573 :     framesize_factor /= rc->avg_length[s->type-1];
574 : suxen_drol 942
575 : edgomez 1202 /* Treat only the overflow part concerned by this frame type and size */
576 :     overflow *= frametype_factor;
577 :     #if 0
578 :     /* Leave this one alone, as it impacts badly on quality */
579 :     overflow *= framesize_factor;
580 :     #endif
581 : suxen_drol 942
582 : edgomez 1202 /* Apply the overflow strength imposed by the user */
583 :     overflow *= (rc->param.overflow_control_strength/100.0f);
584 :     } else {
585 : syskin 1293 /* no negative overflow applied in IFrames because:
586 : edgomez 1202 * - their role is important as they're references for P/BFrames.
587 :     * - there aren't much in typical sequences, so if an IFrame overflows too
588 :     * much, this overflow may impact the next IFrame too much and generate
589 :     * a sequence of poor quality frames */
590 :     overflow = 0;
591 : edgomez 1037 }
592 : suxen_drol 942
593 : edgomez 1202 /* Make sure we are not trying to compensate more overflow than we even have */
594 :     if (fabs(overflow) > fabs(rc->overflow))
595 : edgomez 1037 overflow = rc->overflow;
596 : suxen_drol 942
597 : edgomez 1202 /* Make sure the overflow doesn't make the frame size to get out of the range
598 :     * [-max_degradation..+max_improvment] */
599 :     if (overflow > dbytes*rc->param.max_overflow_improvement / 100) {
600 :     if(overflow <= dbytes)
601 :     dbytes += dbytes * rc->param.max_overflow_improvement / 100;
602 :     else
603 :     dbytes += overflow * rc->param.max_overflow_improvement / 100;
604 :     } else if (overflow < - dbytes * rc->param.max_overflow_degradation / 100) {
605 :     dbytes -= dbytes * rc->param.max_overflow_degradation / 100;
606 : edgomez 1037 } else {
607 : edgomez 1202 dbytes += overflow;
608 : edgomez 1037 }
609 : suxen_drol 942
610 : edgomez 1202 /*-------------------------------------------------------------------------
611 :     * Frame bit allocation last part:
612 :     *
613 :     * Cap frame length so we don't reach neither bigger frame sizes than first
614 :     * pass nor smaller than the allowed minimum.
615 :     *-----------------------------------------------------------------------*/
616 :    
617 : syskin 1293 #ifdef PASS_SMALLER
618 : edgomez 1202 if (dbytes > s->length) {
619 :     dbytes = s->length;
620 : edgomez 1037 }
621 : syskin 1316 #endif
622 : edgomez 1324
623 :     /* Prevent stupid desired sizes under logical values */
624 :     if (dbytes < rc->min_length[s->type-1]) {
625 :     dbytes = rc->min_length[s->type-1];
626 :     }
627 :    
628 : edgomez 1202 /*------------------------------------------------------------------------
629 :     * Desired frame length <-> quantizer mapping
630 :     *-----------------------------------------------------------------------*/
631 :    
632 : edgomez 1267 #ifdef BQUANT_PRESCALE
633 :     /* For bframes we prescale the quantizer to avoid too high quant scaling */
634 : edgomez 1202 if(s->type == XVID_TYPE_BVOP) {
635 :    
636 :     twopass_stat_t *b_ref = s;
637 :    
638 :     /* Find the reference frame */
639 :     while(b_ref != &rc->stats[0] && b_ref->type == XVID_TYPE_BVOP)
640 :     b_ref--;
641 :    
642 :     /* Compute the original quant */
643 : edgomez 1217 s->quant = 2*(100*s->quant - data->bquant_offset);
644 : edgomez 1267 s->quant += data->bquant_ratio - 1; /* to avoid rounding issues */
645 : edgomez 1202 s->quant = s->quant/data->bquant_ratio - b_ref->quant;
646 : edgomez 1040 }
647 : edgomez 1267 #endif
648 : suxen_drol 942
649 : edgomez 1267 /* Don't laugh at this very 'simple' quant<->size relationship, it
650 : edgomez 1202 * proves to be acurate enough for our algorithm */
651 :     scaled_quant = (double)s->quant*(double)s->length/(double)dbytes;
652 : suxen_drol 942
653 : edgomez 1202 #ifdef COMPENSATE_FORMULA
654 :     /* We know xvidcore will apply the bframe formula again, so we compensate
655 :     * it right now to make sure we would not apply it twice */
656 :     if(s->type == XVID_TYPE_BVOP) {
657 :    
658 :     twopass_stat_t *b_ref = s;
659 :    
660 :     /* Find the reference frame */
661 :     while(b_ref != &rc->stats[0] && b_ref->type == XVID_TYPE_BVOP)
662 :     b_ref--;
663 :    
664 :     /* Compute the quant it would be if the core did not apply the bframe
665 :     * formula */
666 :     scaled_quant = 100*scaled_quant - data->bquant_offset;
667 :     scaled_quant += data->bquant_ratio - 1; /* to avoid rouding issues */
668 :     scaled_quant /= data->bquant_ratio;
669 :     }
670 :     #endif
671 :    
672 :     /* Quantizer has been scaled using floating point operations/results, we
673 :     * must cast it to integer */
674 : edgomez 1048 data->quant = (int)scaled_quant;
675 :    
676 : edgomez 1037 /* Let's clip the computed quantizer, if needed */
677 :     if (data->quant < 1) {
678 :     data->quant = 1;
679 :     } else if (data->quant > 31) {
680 :     data->quant = 31;
681 : edgomez 1202 } else {
682 : suxen_drol 942
683 : edgomez 1202 /* The frame quantizer has not been clipped, this appears to be a good
684 : edgomez 1048 * computed quantizer, do not loose quantizer decimal part that we
685 : edgomez 1202 * accumulate for later reuse when its sum represents a complete
686 :     * unit. */
687 : edgomez 1048 rc->quant_error[s->type-1][data->quant] += scaled_quant - (double)data->quant;
688 : suxen_drol 942
689 : edgomez 1048 if (rc->quant_error[s->type-1][data->quant] >= 1.0) {
690 :     rc->quant_error[s->type-1][data->quant] -= 1.0;
691 :     data->quant++;
692 :     } else if (rc->quant_error[s->type-1][data->quant] <= -1.0) {
693 :     rc->quant_error[s->type-1][data->quant] += 1.0;
694 :     data->quant--;
695 :     }
696 : edgomez 1037 }
697 : suxen_drol 942
698 : edgomez 1202 /* Now we have a computed quant that is in the right quante range, with a
699 : edgomez 1037 * possible +1 correction due to cumulated error. We can now safely clip
700 :     * the quantizer again with user's quant ranges. "Safely" means the Rate
701 :     * Control could learn more about this quantizer, this knowledge is useful
702 :     * for future frames even if it this quantizer won't be really used atm,
703 : edgomez 1202 * that's why we don't perform this clipping earlier. */
704 : edgomez 1037 if (data->quant < data->min_quant[s->type-1]) {
705 :     data->quant = data->min_quant[s->type-1];
706 :     } else if (data->quant > data->max_quant[s->type-1]) {
707 :     data->quant = data->max_quant[s->type-1];
708 :     }
709 : suxen_drol 942
710 : edgomez 1202 /* To avoid big quality jumps from frame to frame, we apply a "security"
711 : edgomez 1037 * rule that makes |last_quant - new_quant| <= 2. This rule only applies
712 : edgomez 1202 * to predicted frames (P and B) */
713 : edgomez 1037 if (s->type != XVID_TYPE_IVOP && rc->last_quant[s->type-1] && capped_to_max_framesize == 0) {
714 : suxen_drol 942
715 : edgomez 1037 if (data->quant > rc->last_quant[s->type-1] + 2) {
716 :     data->quant = rc->last_quant[s->type-1] + 2;
717 : edgomez 1040 DPRINTF(XVID_DEBUG_RC,
718 : edgomez 1202 "[xvid rc] -- frame %d p/b-frame quantizer prevented from rising too steeply\n",
719 : edgomez 1040 data->frame_num);
720 : edgomez 1037 }
721 :     if (data->quant < rc->last_quant[s->type-1] - 2) {
722 :     data->quant = rc->last_quant[s->type-1] - 2;
723 : edgomez 1040 DPRINTF(XVID_DEBUG_RC,
724 : edgomez 1202 "[xvid rc] -- frame:%d p/b-frame quantizer prevented from falling too steeply\n",
725 : edgomez 1040 data->frame_num);
726 : edgomez 1037 }
727 :     }
728 : suxen_drol 1030
729 : edgomez 1202 /* We don't want to pollute the RC histerisis when our computed quant has
730 :     * been computed from a capped frame size */
731 : edgomez 1046 if (capped_to_max_framesize == 0)
732 : edgomez 1037 rc->last_quant[s->type-1] = data->quant;
733 : suxen_drol 1030
734 : edgomez 1202 /* Don't forget to force 1st pass frame type ;-) */
735 : edgomez 1050 data->type = s->type;
736 :    
737 : edgomez 1037 return 0;
738 : suxen_drol 942 }
739 :    
740 : edgomez 1042 /*----------------------------------------------------------------------------
741 :     *--------------------------------------------------------------------------*/
742 : suxen_drol 942
743 : edgomez 1042 static int
744 :     rc_2pass2_after(rc_2pass2_t * rc, xvid_plg_data_t * data)
745 : suxen_drol 942 {
746 : edgomez 1043 const char frame_type[4] = { 'i', 'p', 'b', 's'};
747 : edgomez 1202 twopass_stat_t * s = &rc->stats[data->frame_num];
748 : suxen_drol 942
749 : edgomez 1037 /* Insufficent stats data */
750 : edgomez 1064 if (data->frame_num >= rc->num_frames)
751 :     return 0;
752 : suxen_drol 942
753 : edgomez 1202 /* Update the quantizer counter */
754 :     rc->quant_count[s->type-1][data->quant]++;
755 : suxen_drol 942
756 : edgomez 1202 /* Update the frame type overflow */
757 : edgomez 1064 if (data->type == XVID_TYPE_IVOP) {
758 : edgomez 1202 int kfdiff = 0;
759 : suxen_drol 942
760 : edgomez 1202 if(rc->KF_idx != rc->num_frames -1) {
761 :     kfdiff = rc->keyframe_locations[rc->KF_idx+1];
762 :     kfdiff -= rc->keyframe_locations[rc->KF_idx];
763 :     }
764 :    
765 :     /* Flush Keyframe overflow accumulator */
766 : edgomez 1064 rc->overflow += rc->KFoverflow;
767 : edgomez 1202
768 :     /* Store the frame overflow to the keyframe accumulator */
769 : edgomez 1064 rc->KFoverflow = s->desired_length - data->length;
770 :    
771 : edgomez 1202 if (kfdiff > 1) {
772 :     /* Non-consecutive keyframes case:
773 :     * We can then divide this total keyframe overflow into equal parts
774 :     * that we will distribute into regular overflow at each frame
775 :     * between the sequence bounded by two IFrames */
776 : edgomez 1064 rc->KFoverflow_partial = rc->KFoverflow / (kfdiff - 1);
777 : edgomez 1202 } else {
778 :     /* Consecutive keyframes case:
779 :     * Flush immediatly the keyframe overflow and reset keyframe
780 :     * overflow */
781 : suxen_drol 942 rc->overflow += rc->KFoverflow;
782 :     rc->KFoverflow = 0;
783 :     rc->KFoverflow_partial = 0;
784 : edgomez 1064 }
785 :     rc->KF_idx++;
786 :     } else {
787 : edgomez 1202 /* Accumulate the frame overflow */
788 :     rc->overflow += s->desired_length - data->length;
789 :    
790 :     /* Distribute part of the keyframe overflow */
791 :     rc->overflow += rc->KFoverflow_partial;
792 :    
793 :     /* Don't forget to substract that same amount from the total keyframe
794 :     * overflow */
795 : edgomez 1064 rc->KFoverflow -= rc->KFoverflow_partial;
796 :     }
797 : suxen_drol 942
798 : edgomez 1267 rc->overflow += (s->error = s->desired_length - data->length);
799 : edgomez 1202 rc->real_total += data->length;
800 :    
801 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- frame:%d type:%c quant:%d stats:%d scaled:%d desired:%d actual:%d error:%d overflow:%.2f\n",
802 : edgomez 1042 data->frame_num,
803 : edgomez 1043 frame_type[data->type-1],
804 : edgomez 1042 data->quant,
805 :     s->length,
806 :     s->scaled_length,
807 : edgomez 1048 s->desired_length,
808 : edgomez 1202 s->desired_length - s->error,
809 :     -s->error,
810 : edgomez 1042 rc->overflow);
811 : suxen_drol 942
812 : edgomez 1064 return(0);
813 : suxen_drol 942 }
814 :    
815 : edgomez 1042 /*****************************************************************************
816 :     * Helper functions definition
817 :     ****************************************************************************/
818 : suxen_drol 942
819 : edgomez 1202 /* Default buffer size for reading lines */
820 : edgomez 1042 #define BUF_SZ 1024
821 : suxen_drol 942
822 : edgomez 1202 /* Helper functions for reading/parsing the stats file */
823 :     static char *skipspaces(char *string);
824 :     static int iscomment(char *string);
825 :     static char *readline(FILE *f);
826 :    
827 :     /* This function counts the number of frame entries in the stats file
828 :     * It also counts the number of I Frames */
829 : edgomez 1042 static int
830 : edgomez 1202 statsfile_count_frames(rc_2pass2_t * rc, char * filename)
831 : suxen_drol 942 {
832 : edgomez 1064 FILE * f;
833 : edgomez 1202 char *line;
834 :     int lines;
835 : edgomez 1042
836 : edgomez 1064 rc->num_frames = 0;
837 :     rc->num_keyframes = 0;
838 : edgomez 1042
839 : edgomez 1202 if ((f = fopen(filename, "rb")) == NULL)
840 :     return(-1);
841 : suxen_drol 942
842 : edgomez 1202 lines = 0;
843 :     while ((line = readline(f)) != NULL) {
844 :    
845 :     char *ptr;
846 :     char type;
847 : edgomez 1204 int fields;
848 : edgomez 1202
849 :     lines++;
850 :    
851 :     /* We skip spaces */
852 :     ptr = skipspaces(line);
853 :    
854 : edgomez 1204 /* Skip coment lines or empty lines */
855 :     if(iscomment(ptr) || *ptr == '\0') {
856 : edgomez 1202 free(line);
857 :     continue;
858 : edgomez 1064 }
859 : edgomez 1202
860 :     /* Read the stat line from buffer */
861 : edgomez 1204 fields = sscanf(ptr, "%c", &type);
862 : edgomez 1202
863 : edgomez 1267 /* Valid stats files have at least 7 fields */
864 : edgomez 1204 if (fields == 1) {
865 : edgomez 1202 switch(type) {
866 :     case 'i':
867 :     case 'I':
868 :     rc->num_keyframes++;
869 :     case 'p':
870 :     case 'P':
871 :     case 'b':
872 :     case 'B':
873 :     case 's':
874 :     case 'S':
875 :     rc->num_frames++;
876 :     break;
877 :     default:
878 :     DPRINTF(XVID_DEBUG_RC,
879 :     "[xvid rc] -- WARNING: L%d unknown frame type used (%c).\n",
880 :     lines, type);
881 :     }
882 :     } else {
883 :     DPRINTF(XVID_DEBUG_RC,
884 :     "[xvid rc] -- WARNING: L%d misses some stat fields (%d).\n",
885 : edgomez 1267 lines, 7-fields);
886 : edgomez 1202 }
887 :    
888 :     /* Free the line buffer */
889 :     free(line);
890 : edgomez 1064 }
891 : suxen_drol 942
892 : edgomez 1202 /* We are done with the file */
893 : edgomez 1064 fclose(f);
894 : suxen_drol 942
895 : edgomez 1202 return(0);
896 : edgomez 1042 }
897 : suxen_drol 942
898 : edgomez 1042 /* open stats file(s) and read into rc->stats array */
899 :     static int
900 : edgomez 1202 statsfile_load(rc_2pass2_t *rc, char * filename)
901 : edgomez 1042 {
902 : edgomez 1064 FILE * f;
903 : edgomez 1202 int processed_entries;
904 : edgomez 1042
905 : edgomez 1202 /* Opens the file */
906 :     if ((f = fopen(filename, "rb"))==NULL)
907 :     return(-1);
908 : edgomez 1064
909 : edgomez 1202 processed_entries = 0;
910 :     while(processed_entries < rc->num_frames) {
911 : edgomez 1064 char type;
912 : edgomez 1202 int fields;
913 :     twopass_stat_t * s = &rc->stats[processed_entries];
914 :     char *line, *ptr;
915 : edgomez 1042
916 : edgomez 1202 /* Read the line from the file */
917 :     if((line = readline(f)) == NULL)
918 :     break;
919 :    
920 :     /* We skip spaces */
921 :     ptr = skipspaces(line);
922 :    
923 : edgomez 1204 /* Skip comment lines or empty lines */
924 :     if(iscomment(ptr) || *ptr == '\0') {
925 : edgomez 1202 free(line);
926 :     continue;
927 : edgomez 1042 }
928 :    
929 : edgomez 1202 /* Reset this field that is optional */
930 :     s->scaled_length = 0;
931 :    
932 :     /* Convert the fields */
933 :     fields = sscanf(ptr,
934 : edgomez 1267 "%c %d %d %d %d %d %d %d\n",
935 : edgomez 1202 &type,
936 :     &s->quant,
937 :     &s->blks[0], &s->blks[1], &s->blks[2],
938 : edgomez 1267 &s->length, &s->invariant /* not really yet */,
939 : edgomez 1202 &s->scaled_length);
940 :    
941 :     /* Free line buffer, we don't need it anymore */
942 :     free(line);
943 :    
944 :     /* Fail silently, this has probably been warned in
945 :     * statsfile_count_frames */
946 : edgomez 1267 if(fields != 7 && fields != 8)
947 : edgomez 1202 continue;
948 :    
949 : edgomez 1267 /* Convert frame type and compute the invariant length part */
950 : edgomez 1202 switch(type) {
951 :     case 'i':
952 :     case 'I':
953 : edgomez 1064 s->type = XVID_TYPE_IVOP;
954 : edgomez 1267 s->invariant /= INVARIANT_HEADER_PART_IVOP;
955 : edgomez 1202 break;
956 :     case 'p':
957 :     case 'P':
958 :     case 's':
959 :     case 'S':
960 : edgomez 1064 s->type = XVID_TYPE_PVOP;
961 : edgomez 1267 s->invariant /= INVARIANT_HEADER_PART_PVOP;
962 : edgomez 1202 break;
963 :     case 'b':
964 :     case 'B':
965 : edgomez 1064 s->type = XVID_TYPE_BVOP;
966 : edgomez 1267 s->invariant /= INVARIANT_HEADER_PART_BVOP;
967 : edgomez 1202 break;
968 :     default:
969 :     /* Same as before, fail silently */
970 :     continue;
971 : edgomez 1064 }
972 : edgomez 1042
973 : edgomez 1202 /* Ok it seems it's been processed correctly */
974 :     processed_entries++;
975 : edgomez 1064 }
976 : suxen_drol 942
977 : edgomez 1202 /* Close the file */
978 : edgomez 1042 fclose(f);
979 :    
980 : edgomez 1202 return(0);
981 : suxen_drol 942 }
982 : edgomez 1042
983 : edgomez 1161 /* pre-process the statistics data
984 : edgomez 1202 * - for each type, count, tot_length, min_length, max_length
985 : edgomez 1309 * - set keyframes_locations, tot_prescaled */
986 : edgomez 1042 static void
987 : edgomez 1202 first_pass_stats_prepare_data(rc_2pass2_t * rc)
988 : edgomez 1042 {
989 : edgomez 1064 int i,j;
990 : edgomez 1042
991 : edgomez 1202 /* *rc fields initialization
992 : edgomez 1048 * NB: INT_MAX and INT_MIN are used in order to be immediately replaced
993 : edgomez 1202 * with real values of the 1pass */
994 : edgomez 1064 for (i=0; i<3; i++) {
995 : edgomez 1048 rc->count[i]=0;
996 :     rc->tot_length[i] = 0;
997 : edgomez 1267 rc->tot_invariant[i] = 0;
998 : edgomez 1042 rc->min_length[i] = INT_MAX;
999 : edgomez 1064 }
1000 : edgomez 1042
1001 :     rc->max_length = INT_MIN;
1002 : edgomez 1309 rc->tot_weighted = 0;
1003 : edgomez 1042
1004 : edgomez 1202 /* Loop through all frames and find/compute all the stuff this function
1005 :     * is supposed to do */
1006 : edgomez 1048 for (i=j=0; i<rc->num_frames; i++) {
1007 : edgomez 1202 twopass_stat_t * s = &rc->stats[i];
1008 : edgomez 1042
1009 : edgomez 1048 rc->count[s->type-1]++;
1010 :     rc->tot_length[s->type-1] += s->length;
1011 : edgomez 1267 rc->tot_invariant[s->type-1] += s->invariant;
1012 : edgomez 1309 if (s->zone_mode != XVID_ZONE_QUANT)
1013 :     rc->tot_weighted += (int)(s->weight*(s->length - s->invariant));
1014 : edgomez 1042
1015 : edgomez 1048 if (s->length < rc->min_length[s->type-1]) {
1016 :     rc->min_length[s->type-1] = s->length;
1017 :     }
1018 : edgomez 1042
1019 : edgomez 1048 if (s->length > rc->max_length) {
1020 :     rc->max_length = s->length;
1021 :     }
1022 : edgomez 1042
1023 : edgomez 1048 if (s->type == XVID_TYPE_IVOP) {
1024 :     rc->keyframe_locations[j] = i;
1025 :     j++;
1026 :     }
1027 :     }
1028 :    
1029 : edgomez 1202 /* NB:
1030 : edgomez 1042 * The "per sequence" overflow system considers a natural sequence to be
1031 :     * formed by all frames between two iframes, so if we want to make sure
1032 :     * the system does not go nuts during last sequence, we force the last
1033 : edgomez 1202 * frame to appear in the keyframe locations array. */
1034 : edgomez 1064 rc->keyframe_locations[j] = i;
1035 : edgomez 1042
1036 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Min 1st pass IFrame length: %d\n", rc->min_length[0]);
1037 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Min 1st pass PFrame length: %d\n", rc->min_length[1]);
1038 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Min 1st pass BFrame length: %d\n", rc->min_length[2]);
1039 : edgomez 1042 }
1040 : edgomez 1064
1041 : edgomez 1042 /* calculate zone weight "center" */
1042 :     static void
1043 :     zone_process(rc_2pass2_t *rc, const xvid_plg_create_t * create)
1044 :     {
1045 : edgomez 1064 int i,j;
1046 :     int n = 0;
1047 : edgomez 1042
1048 : edgomez 1064 rc->tot_quant = 0;
1049 : edgomez 1267 rc->tot_quant_invariant = 0;
1050 : edgomez 1042
1051 : edgomez 1064 if (create->num_zones == 0) {
1052 :     for (j = 0; j < rc->num_frames; j++) {
1053 :     rc->stats[j].zone_mode = XVID_ZONE_WEIGHT;
1054 :     rc->stats[j].weight = 1.0;
1055 :     }
1056 :     n += rc->num_frames;
1057 :     }
1058 : edgomez 1042
1059 :    
1060 : edgomez 1064 for(i=0; i < create->num_zones; i++) {
1061 : edgomez 1042
1062 : edgomez 1064 int next = (i+1<create->num_zones) ? create->zones[i+1].frame : rc->num_frames;
1063 : edgomez 1042
1064 : edgomez 1309 /* Zero weight make no sense */
1065 :     if (create->zones[i].increment == 0) create->zones[i].increment = 1;
1066 :     /* And obviously an undetermined infinite makes even less sense */
1067 :     if (create->zones[i].base == 0) create->zones[i].base = 1;
1068 :    
1069 : edgomez 1064 if (i==0 && create->zones[i].frame > 0) {
1070 :     for (j = 0; j < create->zones[i].frame && j < rc->num_frames; j++) {
1071 :     rc->stats[j].zone_mode = XVID_ZONE_WEIGHT;
1072 :     rc->stats[j].weight = 1.0;
1073 :     }
1074 :     n += create->zones[i].frame;
1075 :     }
1076 : edgomez 1042
1077 : edgomez 1064 if (create->zones[i].mode == XVID_ZONE_WEIGHT) {
1078 :     for (j = create->zones[i].frame; j < next && j < rc->num_frames; j++ ) {
1079 :     rc->stats[j].zone_mode = XVID_ZONE_WEIGHT;
1080 :     rc->stats[j].weight = (double)create->zones[i].increment / (double)create->zones[i].base;
1081 :     }
1082 :     next -= create->zones[i].frame;
1083 :     n += next;
1084 : edgomez 1267 } else{ /* XVID_ZONE_QUANT */
1085 : edgomez 1064 for (j = create->zones[i].frame; j < next && j < rc->num_frames; j++ ) {
1086 :     rc->stats[j].zone_mode = XVID_ZONE_QUANT;
1087 :     rc->stats[j].weight = (double)create->zones[i].increment / (double)create->zones[i].base;
1088 :     rc->tot_quant += rc->stats[j].length;
1089 : edgomez 1267 rc->tot_quant_invariant += rc->stats[j].invariant;
1090 : edgomez 1064 }
1091 :     }
1092 :     }
1093 : edgomez 1042 }
1094 :    
1095 :    
1096 :     /* scale the curve */
1097 :     static void
1098 : edgomez 1202 first_pass_scale_curve_internal(rc_2pass2_t *rc)
1099 : edgomez 1042 {
1100 : edgomez 1202 int64_t target;
1101 : edgomez 1267 int64_t total_invariant;
1102 : edgomez 1042 double scaler;
1103 : edgomez 1047 int i, num_MBs;
1104 : edgomez 1042
1105 : edgomez 1267 /* We only scale texture data ! */
1106 :     total_invariant = rc->tot_invariant[XVID_TYPE_IVOP-1];
1107 :     total_invariant += rc->tot_invariant[XVID_TYPE_PVOP-1];
1108 :     total_invariant += rc->tot_invariant[XVID_TYPE_BVOP-1];
1109 :     /* don't forget to substract header bytes used in quant zones, otherwise we
1110 :     * counting them twice */
1111 :     total_invariant -= rc->tot_quant_invariant;
1112 : edgomez 1202
1113 : edgomez 1267 /* We remove the bytes used by the fixed quantizer zones during first pass
1114 :     * with the same quants, so we know very precisely how much that
1115 :     * represents */
1116 :     target = rc->target;
1117 :     target -= rc->tot_quant;
1118 :    
1119 : edgomez 1042 /* Let's compute a linear scaler in order to perform curve scaling */
1120 : edgomez 1309 scaler = (double)(target - total_invariant) / (double)(rc->tot_weighted);
1121 : edgomez 1042
1122 : edgomez 1202 /* Compute min frame lengths (for each frame type) according to the number
1123 :     * of MBs. We sum all block type counters of frame 0, this gives us the
1124 :     * number of MBs.
1125 : edgomez 1049 *
1126 :     * We compare these hardcoded values with observed values in first pass
1127 : edgomez 1202 * (determined in pre_process0).Then we keep the real minimum. */
1128 : edgomez 1047
1129 : edgomez 1202 /* Number of MBs */
1130 :     num_MBs = rc->stats[0].blks[0];
1131 :     num_MBs += rc->stats[0].blks[1];
1132 :     num_MBs += rc->stats[0].blks[2];
1133 : edgomez 1049
1134 : edgomez 1202 /* Minimum for I frames */
1135 :     if(rc->min_length[XVID_TYPE_IVOP-1] > ((num_MBs*22) + 240) / 8)
1136 :     rc->min_length[XVID_TYPE_IVOP-1] = ((num_MBs*22) + 240) / 8;
1137 : edgomez 1049
1138 : edgomez 1202 /* Minimum for P/S frames */
1139 :     if(rc->min_length[XVID_TYPE_PVOP-1] > ((num_MBs) + 88) / 8)
1140 :     rc->min_length[XVID_TYPE_PVOP-1] = ((num_MBs) + 88) / 8;
1141 : edgomez 1049
1142 : edgomez 1202 /* Minimum for B frames */
1143 :     if(rc->min_length[XVID_TYPE_BVOP-1] > 8)
1144 :     rc->min_length[XVID_TYPE_BVOP-1] = 8;
1145 :    
1146 :     /* Perform an initial scale pass.
1147 :     *
1148 : edgomez 1042 * If a frame size is scaled underneath our hardcoded minimums, then we
1149 :     * force the frame size to the minimum, and deduct the original & scaled
1150 : edgomez 1202 * frame length from the original and target total lengths */
1151 : edgomez 1042 for (i=0; i<rc->num_frames; i++) {
1152 : edgomez 1202 twopass_stat_t * s = &rc->stats[i];
1153 : edgomez 1042 int len;
1154 :    
1155 : edgomez 1202 /* No need to scale frame length for which a specific quantizer is
1156 :     * specified thanks to zones */
1157 : edgomez 1064 if (s->zone_mode == XVID_ZONE_QUANT) {
1158 :     s->scaled_length = s->length;
1159 : edgomez 1042 continue;
1160 :     }
1161 :    
1162 : edgomez 1267 /* Compute the scaled length -- only non invariant data length is scaled */
1163 : edgomez 1309 len = s->invariant + (int)((double)(s->length-s->invariant) * scaler * s->weight);
1164 : edgomez 1042
1165 :     /* Compare with the computed minimum */
1166 : edgomez 1049 if (len < rc->min_length[s->type-1]) {
1167 : edgomez 1202 /* This is a 'forced size' frame, set its frame size to the
1168 :     * computed minimum */
1169 : edgomez 1049 s->scaled_length = rc->min_length[s->type-1];
1170 : edgomez 1202
1171 :     /* Remove both scaled and original size from their respective
1172 :     * total counters, as we prepare a second pass for 'regular'
1173 :     * frames */
1174 : edgomez 1042 target -= s->scaled_length;
1175 :     } else {
1176 :     /* Do nothing for now, we'll scale this later */
1177 :     s->scaled_length = 0;
1178 :     }
1179 :     }
1180 :    
1181 : edgomez 1202 /* The first pass on data substracted all 'forced size' frames from the
1182 :     * total counters. Now, it's possible to scale the 'regular' frames. */
1183 :    
1184 :     /* Scaling factor for 'regular' frames */
1185 : edgomez 1309 scaler = (double)(target - total_invariant) / (double)(rc->tot_weighted);
1186 : edgomez 1042
1187 :     /* Do another pass with the new scaler */
1188 :     for (i=0; i<rc->num_frames; i++) {
1189 : edgomez 1202 twopass_stat_t * s = &rc->stats[i];
1190 : edgomez 1042
1191 :     /* Ignore frame with forced frame sizes */
1192 :     if (s->scaled_length == 0)
1193 : edgomez 1309 s->scaled_length = s->invariant + (int)((double)(s->length-s->invariant) * scaler * s->weight);
1194 : edgomez 1042 }
1195 : edgomez 1202
1196 :     /* Job done */
1197 :     return;
1198 : edgomez 1042 }
1199 :    
1200 : edgomez 1202 /* Apply all user settings to the scaled curve
1201 :     * This implies:
1202 :     * keyframe boosting
1203 :     * high/low compression */
1204 : edgomez 1042 static void
1205 : edgomez 1202 scaled_curve_apply_advanced_parameters(rc_2pass2_t * rc)
1206 : edgomez 1042 {
1207 : edgomez 1064 int i;
1208 : edgomez 1242 int64_t ivop_boost_total;
1209 : edgomez 1042
1210 : edgomez 1202 /* Reset the rate controller (per frame type) total byte counters */
1211 :     for (i=0; i<3; i++) rc->tot_scaled_length[i] = 0;
1212 : edgomez 1042
1213 : edgomez 1202 /* Compute total bytes for each frame type */
1214 :     for (i=0; i<rc->num_frames;i++) {
1215 :     twopass_stat_t *s = &rc->stats[i];
1216 :     rc->tot_scaled_length[s->type-1] += s->scaled_length;
1217 : edgomez 1064 }
1218 : edgomez 1042
1219 : edgomez 1202 /* First we compute the total amount of bits needed, as being described by
1220 :     * the scaled distribution. During this pass over the complete stats data,
1221 :     * we see how much bits two user settings will get/give from/to p&b frames:
1222 :     * - keyframe boosting
1223 :     * - keyframe distance penalty */
1224 :     rc->KF_idx = 0;
1225 :     ivop_boost_total = 0;
1226 : edgomez 1064 for (i=0; i<rc->num_frames; i++) {
1227 : edgomez 1202 twopass_stat_t * s = &rc->stats[i];
1228 : edgomez 1042
1229 : edgomez 1202 /* Some more work is needed for I frames */
1230 :     if (s->type == XVID_TYPE_IVOP) {
1231 :     int ivop_boost;
1232 : edgomez 1042
1233 : edgomez 1202 /* Accumulate bytes needed for keyframe boosting */
1234 :     ivop_boost = s->scaled_length*rc->param.keyframe_boost/100;
1235 :    
1236 : edgomez 1242 #if 0 /* ToDo: decide how to apply kfthresholding */
1237 :     #endif
1238 : edgomez 1202 /* If the frame size drops under the minimum length, then cap ivop_boost */
1239 :     if (ivop_boost + s->scaled_length < rc->min_length[XVID_TYPE_IVOP-1])
1240 :     ivop_boost = rc->min_length[XVID_TYPE_IVOP-1] - s->scaled_length;
1241 :    
1242 :     /* Accumulate the ivop boost */
1243 :     ivop_boost_total += ivop_boost;
1244 :    
1245 :     /* Don't forget to update the keyframe index */
1246 :     rc->KF_idx++;
1247 : edgomez 1064 }
1248 :     }
1249 : edgomez 1042
1250 : edgomez 1202 /* Initialize the IBoost tax ratio for P/S/B frames
1251 :     *
1252 :     * This ratio has to be applied to p/b/s frames in order to reserve
1253 :     * additional bits for keyframes (keyframe boosting) or if too much
1254 :     * keyframe distance is applied, bits retrieved from the keyframes.
1255 :     *
1256 :     * ie pb_length *= rc->pb_iboost_tax_ratio;
1257 :     *
1258 :     * gives the ideal length of a p/b frame */
1259 : edgomez 1042
1260 : edgomez 1202 /* Compute the total length of p/b/s frames (temporary storage into
1261 :     * movie_curve) */
1262 :     rc->pb_iboost_tax_ratio = (double)rc->tot_scaled_length[XVID_TYPE_PVOP-1];
1263 :     rc->pb_iboost_tax_ratio += (double)rc->tot_scaled_length[XVID_TYPE_BVOP-1];
1264 :    
1265 :     /* Compute the ratio described above
1266 :     * taxed_total = sum(0, n, tax*scaled_length)
1267 : edgomez 1242 * <=> taxed_total = tax.sum(0, n, scaled_length)
1268 : edgomez 1202 * <=> tax = taxed_total / original_total */
1269 :     rc->pb_iboost_tax_ratio =
1270 :     (rc->pb_iboost_tax_ratio - ivop_boost_total) /
1271 :     rc->pb_iboost_tax_ratio;
1272 :    
1273 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- IFrame boost tax ratio:%.2f\n",
1274 :     rc->pb_iboost_tax_ratio);
1275 :    
1276 :     /* Compute the average size of frames per frame type */
1277 : edgomez 1064 for(i=0; i<3; i++) {
1278 : edgomez 1202 /* Special case for missing type or weird case */
1279 :     if (rc->count[i] == 0 || rc->pb_iboost_tax_ratio == 0) {
1280 : edgomez 1064 rc->avg_length[i] = 1;
1281 : edgomez 1202 } else {
1282 :     rc->avg_length[i] = rc->tot_scaled_length[i];
1283 :    
1284 : edgomez 1204 if (i == (XVID_TYPE_IVOP-1)) {
1285 : edgomez 1202 /* I Frames total has to be added the boost total */
1286 :     rc->avg_length[i] += ivop_boost_total;
1287 :     } else {
1288 :     /* P/B frames has to taxed */
1289 :     rc->avg_length[i] *= rc->pb_iboost_tax_ratio;
1290 :     }
1291 :    
1292 :     /* Finally compute the average frame size */
1293 :     rc->avg_length[i] /= (double)rc->count[i];
1294 : edgomez 1064 }
1295 :     }
1296 : edgomez 1042
1297 : edgomez 1202 /* Assymetric curve compression */
1298 :     if (rc->param.curve_compression_high || rc->param.curve_compression_low) {
1299 :     double symetric_total;
1300 :     double assymetric_delta_total;
1301 : edgomez 1042
1302 : edgomez 1202 /* Like I frame boosting, assymetric curve compression modifies the total
1303 :     * amount of needed bits, we must compute the ratio so we can prescale
1304 :     lengths */
1305 :     symetric_total = 0;
1306 :     assymetric_delta_total = 0;
1307 :     for (i=0; i<rc->num_frames; i++) {
1308 :     double assymetric_delta;
1309 :     double dbytes;
1310 :     twopass_stat_t * s = &rc->stats[i];
1311 : edgomez 1042
1312 : edgomez 1202 /* I Frames are not concerned by assymetric scaling */
1313 :     if (s->type == XVID_TYPE_IVOP)
1314 :     continue;
1315 : edgomez 1042
1316 : edgomez 1202 /* During the real run, we would have to apply the iboost tax */
1317 :     dbytes = s->scaled_length * rc->pb_iboost_tax_ratio;
1318 : edgomez 1042
1319 : edgomez 1202 /* Update the symmetric curve compression total */
1320 :     symetric_total += dbytes;
1321 : edgomez 1064
1322 : edgomez 1202 /* Apply assymetric curve compression */
1323 :     if (dbytes > rc->avg_length[s->type-1])
1324 :     assymetric_delta = (rc->avg_length[s->type-1] - dbytes) * (double)rc->param.curve_compression_high / 100.0f;
1325 :     else
1326 :     assymetric_delta = (rc->avg_length[s->type-1] - dbytes) * (double)rc->param.curve_compression_low / 100.0f;
1327 : edgomez 1042
1328 : edgomez 1202 /* Cap to the minimum frame size if needed */
1329 :     if (dbytes + assymetric_delta < rc->min_length[s->type-1])
1330 :     assymetric_delta = rc->min_length[s->type-1] - dbytes;
1331 : edgomez 1051
1332 : edgomez 1202 /* Accumulate after assymetric curve compression */
1333 :     assymetric_delta_total += assymetric_delta;
1334 : edgomez 1064 }
1335 : edgomez 1202
1336 :     /* Compute the tax that all p/b frames have to pay in order to respect the
1337 :     * bit distribution changes that the assymetric compression curve imposes
1338 :     * We want assymetric_total = sum(0, n-1, tax.scaled_length)
1339 :     * ie assymetric_total = ratio.sum(0, n-1, scaled_length)
1340 :     * ratio = assymetric_total / symmetric_total */
1341 :     rc->assymetric_tax_ratio = ((double)symetric_total - (double)assymetric_delta_total) / (double)symetric_total;
1342 :     } else {
1343 :     rc->assymetric_tax_ratio = 1.0f;
1344 : edgomez 1064 }
1345 : edgomez 1042
1346 : edgomez 1202 DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- Assymetric tax ratio:%.2f\n", rc->assymetric_tax_ratio);
1347 : edgomez 1042
1348 : edgomez 1202 /* Last bits that need to be reset */
1349 : edgomez 1064 rc->overflow = 0;
1350 :     rc->KFoverflow = 0;
1351 :     rc->KFoverflow_partial = 0;
1352 : edgomez 1202 rc->KF_idx = 0;
1353 :     rc->desired_total = 0;
1354 :     rc->real_total = 0;
1355 :    
1356 :     /* Job done */
1357 :     return;
1358 : edgomez 1042 }
1359 : edgomez 1202
1360 :     /*****************************************************************************
1361 :     * Still more low level stuff (nothing to do with stats treatment)
1362 :     ****************************************************************************/
1363 :    
1364 :     /* This function returns an allocated string containing a complete line read
1365 :     * from the file starting at the current position */
1366 :     static char *
1367 :     readline(FILE *f)
1368 :     {
1369 :     char *buffer = NULL;
1370 :     int buffer_size = 0;
1371 :     int pos = 0;
1372 :    
1373 :     do {
1374 :     int c;
1375 :    
1376 :     /* Read a character from the stream */
1377 :     c = fgetc(f);
1378 :    
1379 :     /* Is that EOF or new line ? */
1380 :     if(c == EOF || c == '\n')
1381 :     break;
1382 :    
1383 :     /* Do we have to update buffer ? */
1384 :     if(pos >= buffer_size - 1) {
1385 :     buffer_size += BUF_SZ;
1386 :     buffer = (char*)realloc(buffer, buffer_size);
1387 :     if (buffer == NULL)
1388 :     return(NULL);
1389 :     }
1390 :    
1391 :     buffer[pos] = c;
1392 :     pos++;
1393 :     } while(1);
1394 :    
1395 :     /* Read \n or EOF */
1396 :     if (buffer == NULL) {
1397 :     /* EOF, so we reached the end of the file, return NULL */
1398 :     if(feof(f))
1399 :     return(NULL);
1400 :    
1401 :     /* Just an empty line with just a newline, allocate a 1 byte buffer to
1402 :     * store a zero length string */
1403 :     buffer = (char*)malloc(1);
1404 :     if(buffer == NULL)
1405 :     return(NULL);
1406 :     }
1407 :    
1408 :     /* Zero terminated string */
1409 :     buffer[pos] = '\0';
1410 :    
1411 :     return(buffer);
1412 :     }
1413 :    
1414 :     /* This function returns a pointer to the first non space char in the given
1415 :     * string */
1416 :     static char *
1417 :     skipspaces(char *string)
1418 :     {
1419 :     const char spaces[] =
1420 :     {
1421 :     ' ','\t','\0'
1422 :     };
1423 :     const char *spacechar = spaces;
1424 :    
1425 :     if (string == NULL) return(NULL);
1426 :    
1427 :     while (*string != '\0') {
1428 :     /* Test against space chars */
1429 :     while (*spacechar != '\0') {
1430 :     if (*string == *spacechar) {
1431 :     string++;
1432 :     spacechar = spaces;
1433 :     break;
1434 :     }
1435 :     spacechar++;
1436 :     }
1437 :    
1438 :     /* No space char */
1439 :     if (*spacechar == '\0') return(string);
1440 :     }
1441 :    
1442 :     return(string);
1443 :     }
1444 :    
1445 :     /* This function returns a boolean that tells if the string is only a
1446 :     * comment */
1447 :     static int
1448 :     iscomment(char *string)
1449 :     {
1450 :     const char comments[] =
1451 :     {
1452 :     '#',';', '%', '\0'
1453 :     };
1454 :     const char *cmtchar = comments;
1455 :     int iscomment = 0;
1456 :    
1457 :     if (string == NULL) return(1);
1458 :    
1459 :     string = skipspaces(string);
1460 :    
1461 :     while(*cmtchar != '\0') {
1462 :     if(*string == *cmtchar) {
1463 :     iscomment = 1;
1464 :     break;
1465 :     }
1466 :     cmtchar++;
1467 :     }
1468 :    
1469 :     return(iscomment);
1470 :     }
1471 :    
1472 :     #if 0
1473 :     static void
1474 :     stats_print(rc_2pass2_t * rc)
1475 :     {
1476 :     int i;
1477 :     const char frame_type[4] = { 'i', 'p', 'b', 's'};
1478 :    
1479 :     for (i=0; i<rc->num_frames; i++) {
1480 :     twopass_stat_t *s = &rc->stats[i];
1481 :     DPRINTF(XVID_DEBUG_RC, "[xvid rc] -- frame:%d type:%c quant:%d stats:%d scaled:%d desired:%d actual:%d overflow(%c):%.2f\n",
1482 :     i, frame_type[s->type-1], -1, s->length, s->scaled_length,
1483 :     s->desired_length, -1, frame_type[s->type-1], -1.0f);
1484 :     }
1485 :     }
1486 :     #endif

No admin address has been configured
ViewVC Help
Powered by ViewVC 1.0.4