Taking into account the percentage of packet loss for intra decision
[opus.git] / libcelt / quant_bands.c
1 /* Copyright (c) 2007-2008 CSIRO
2    Copyright (c) 2007-2009 Xiph.Org Foundation
3    Written by Jean-Marc Valin */
4 /*
5    Redistribution and use in source and binary forms, with or without
6    modification, are permitted provided that the following conditions
7    are met:
8    
9    - Redistributions of source code must retain the above copyright
10    notice, this list of conditions and the following disclaimer.
11    
12    - Redistributions in binary form must reproduce the above copyright
13    notice, this list of conditions and the following disclaimer in the
14    documentation and/or other materials provided with the distribution.
15    
16    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19    A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR
20    CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
21    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
22    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
23    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
24    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
25    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29 #ifdef HAVE_CONFIG_H
30 #include "config.h"
31 #endif
32
33 #include "quant_bands.h"
34 #include "laplace.h"
35 #include <math.h>
36 #include "os_support.h"
37 #include "arch.h"
38 #include "mathops.h"
39 #include "stack_alloc.h"
40 #include "rate.h"
41
42 #ifdef FIXED_POINT
43 /* Mean energy in each band quantized in Q6 */
44 static const signed char eMeans[25] = {
45       103,100, 92, 85, 81,
46        77, 72, 70, 78, 75,
47        73, 71, 78, 74, 69,
48        72, 70, 74, 76, 71,
49        60, 60, 60, 60, 60
50 };
51 #else
52 /* Mean energy in each band quantized in Q6 and converted back to float */
53 static const celt_word16 eMeans[25] = {
54       6.437500f, 6.250000f, 5.750000f, 5.312500f, 5.062500f,
55       4.812500f, 4.500000f, 4.375000f, 4.875000f, 4.687500f,
56       4.562500f, 4.437500f, 4.875000f, 4.625000f, 4.312500f,
57       4.500000f, 4.375000f, 4.625000f, 4.750000f, 4.437500f,
58       3.750000f, 3.750000f, 3.750000f, 3.750000f, 3.750000f
59 };
60 #endif
61 /* prediction coefficients: 0.9, 0.8, 0.65, 0.5 */
62 #ifdef FIXED_POINT
63 static const celt_word16 pred_coef[4] = {29440, 26112, 21248, 16384};
64 static const celt_word16 beta_coef[4] = {30147, 22282, 12124, 6554};
65 static const celt_word16 beta_intra = 4915;
66 #else
67 static const celt_word16 pred_coef[4] = {29440/32768., 26112/32768., 21248/32768., 16384/32768.};
68 static const celt_word16 beta_coef[4] = {30147/32768., 22282/32768., 12124/32768., 6554/32768.};
69 static const celt_word16 beta_intra = 4915/32768.;
70 #endif
71
72 /*Parameters of the Laplace-like probability models used for the coarse energy.
73   There is one pair of parameters for each frame size, prediction type
74    (inter/intra), and band number.
75   The first number of each pair is the probability of 0, and the second is the
76    decay rate, both in Q8 precision.*/
77 static const unsigned char e_prob_model[4][2][42] = {
78    /*120 sample frames.*/
79    {
80       /*Inter*/
81       {
82           72, 127,  65, 129,  66, 128,  65, 128,  64, 128,  62, 128,  64, 128,
83           64, 128,  92,  78,  92,  79,  92,  78,  90,  79, 116,  41, 115,  40,
84          114,  40, 132,  26, 132,  26, 145,  17, 161,  12, 176,  10, 177,  11
85       },
86       /*Intra*/
87       {
88           24, 179,  48, 138,  54, 135,  54, 132,  53, 134,  56, 133,  55, 132,
89           55, 132,  61, 114,  70,  96,  74,  88,  75,  88,  87,  74,  89,  66,
90           91,  67, 100,  59, 108,  50, 120,  40, 122,  37,  97,  43,  78,  50
91       }
92    },
93    /*240 sample frames.*/
94    {
95       /*Inter*/
96       {
97           83,  78,  84,  81,  88,  75,  86,  74,  87,  71,  90,  73,  93,  74,
98           93,  74, 109,  40, 114,  36, 117,  34, 117,  34, 143,  17, 145,  18,
99          146,  19, 162,  12, 165,  10, 178,   7, 189,   6, 190,   8, 177,   9
100       },
101       /*Intra*/
102       {
103           23, 178,  54, 115,  63, 102,  66,  98,  69,  99,  74,  89,  71,  91,
104           73,  91,  78,  89,  86,  80,  92,  66,  93,  64, 102,  59, 103,  60,
105          104,  60, 117,  52, 123,  44, 138,  35, 133,  31,  97,  38,  77,  45
106       }
107    },
108    /*480 sample frames.*/
109    {
110       /*Inter*/
111       {
112           61,  90,  93,  60, 105,  42, 107,  41, 110,  45, 116,  38, 113,  38,
113          112,  38, 124,  26, 132,  27, 136,  19, 140,  20, 155,  14, 159,  16,
114          158,  18, 170,  13, 177,  10, 187,   8, 192,   6, 175,   9, 159,  10
115       },
116       /*Intra*/
117       {
118           21, 178,  59, 110,  71,  86,  75,  85,  84,  83,  91,  66,  88,  73,
119           87,  72,  92,  75,  98,  72, 105,  58, 107,  54, 115,  52, 114,  55,
120          112,  56, 129,  51, 132,  40, 150,  33, 140,  29,  98,  35,  77,  42
121       }
122    },
123    /*960 sample frames.*/
124    {
125       /*Inter*/
126       {
127           42, 121,  96,  66, 108,  43, 111,  40, 117,  44, 123,  32, 120,  36,
128          119,  33, 127,  33, 134,  34, 139,  21, 147,  23, 152,  20, 158,  25,
129          154,  26, 166,  21, 173,  16, 184,  13, 184,  10, 150,  13, 139,  15
130       },
131       /*Intra*/
132       {
133           22, 178,  63, 114,  74,  82,  84,  83,  92,  82, 103,  62,  96,  72,
134           96,  67, 101,  73, 107,  72, 113,  55, 118,  52, 125,  52, 118,  52,
135          117,  55, 135,  49, 137,  39, 157,  32, 145,  29,  97,  33,  77,  40
136       }
137    }
138 };
139
140 static const unsigned char small_energy_icdf[3]={2,1,0};
141
142 static celt_word32 intra_decision(const celt_word16 *eBands, celt_word16 *oldEBands, int start, int end, int len, int C)
143 {
144    int c, i;
145    celt_word32 dist = 0;
146    c=0; do {
147       for (i=start;i<end;i++)
148       {
149          celt_word16 d = SHR16(SUB16(eBands[i+c*len], oldEBands[i+c*len]),2);
150          dist = MAC16_16(dist, d,d);
151       }
152    } while (++c<C);
153    return MIN32(200,SHR32(dist,2*DB_SHIFT-4));
154 }
155
156 static int quant_coarse_energy_impl(const CELTMode *m, int start, int end,
157       const celt_word16 *eBands, celt_word16 *oldEBands,
158       celt_int32 budget, celt_int32 tell,
159       const unsigned char *prob_model, celt_word16 *error, ec_enc *enc,
160       int _C, int LM, int intra, celt_word16 max_decay)
161 {
162    const int C = CHANNELS(_C);
163    int i, c;
164    int badness = 0;
165    celt_word32 prev[2] = {0,0};
166    celt_word16 coef;
167    celt_word16 beta;
168
169    if (tell+3 <= budget)
170       ec_enc_bit_logp(enc, intra, 3);
171    if (intra)
172    {
173       coef = 0;
174       beta = beta_intra;
175    } else {
176       beta = beta_coef[LM];
177       coef = pred_coef[LM];
178    }
179
180    /* Encode at a fixed coarse resolution */
181    for (i=start;i<end;i++)
182    {
183       c=0;
184       do {
185          int bits_left;
186          int qi, qi0;
187          celt_word32 q;
188          celt_word16 x;
189          celt_word32 f, tmp;
190          celt_word16 oldE;
191          celt_word16 decay_bound;
192          x = eBands[i+c*m->nbEBands];
193          oldE = MAX16(-QCONST16(9.f,DB_SHIFT), oldEBands[i+c*m->nbEBands]);
194 #ifdef FIXED_POINT
195          f = SHL32(EXTEND32(x),7) - PSHR32(MULT16_16(coef,oldE), 8) - prev[c];
196          /* Rounding to nearest integer here is really important! */
197          qi = (f+QCONST32(.5f,DB_SHIFT+7))>>(DB_SHIFT+7);
198          decay_bound = EXTRACT16(MAX32(-QCONST16(28.f,DB_SHIFT),
199                SUB32((celt_word32)oldEBands[i+c*m->nbEBands],max_decay)));
200 #else
201          f = x-coef*oldE-prev[c];
202          /* Rounding to nearest integer here is really important! */
203          qi = (int)floor(.5f+f);
204          decay_bound = MAX16(-QCONST16(28.f,DB_SHIFT), oldEBands[i+c*m->nbEBands]) - max_decay;
205 #endif
206          /* Prevent the energy from going down too quickly (e.g. for bands
207             that have just one bin) */
208          if (qi < 0 && x < decay_bound)
209          {
210             qi += (int)SHR16(SUB16(decay_bound,x), DB_SHIFT);
211             if (qi > 0)
212                qi = 0;
213          }
214          qi0 = qi;
215          /* If we don't have enough bits to encode all the energy, just assume
216              something safe. */
217          tell = ec_tell(enc);
218          bits_left = budget-tell-3*C*(end-i);
219          if (i!=start && bits_left < 30)
220          {
221             if (bits_left < 24)
222                qi = IMIN(1, qi);
223             if (bits_left < 16)
224                qi = IMAX(-1, qi);
225          }
226          if (budget-tell >= 15)
227          {
228             int pi;
229             pi = 2*IMIN(i,20);
230             ec_laplace_encode(enc, &qi,
231                   prob_model[pi]<<7, prob_model[pi+1]<<6);
232          }
233          else if(budget-tell >= 2)
234          {
235             qi = IMAX(-1, IMIN(qi, 1));
236             ec_enc_icdf(enc, 2*qi^-(qi<0), small_energy_icdf, 2);
237          }
238          else if(budget-tell >= 1)
239          {
240             qi = IMIN(0, qi);
241             ec_enc_bit_logp(enc, -qi, 1);
242          }
243          else
244             qi = -1;
245          error[i+c*m->nbEBands] = PSHR32(f,7) - SHL16(qi,DB_SHIFT);
246          badness += abs(qi0-qi);
247          q = SHL32(EXTEND32(qi),DB_SHIFT);
248          
249          tmp = PSHR32(MULT16_16(coef,oldE),8) + prev[c] + SHL32(q,7);
250 #ifdef FIXED_POINT
251          tmp = MAX32(-QCONST32(28.f, DB_SHIFT+7), tmp);
252 #endif
253          oldEBands[i+c*m->nbEBands] = PSHR32(tmp, 7);
254          prev[c] = prev[c] + SHL32(q,7) - MULT16_16(beta,PSHR32(q,8));
255       } while (++c < C);
256    }
257    return badness;
258 }
259
260 void quant_coarse_energy(const CELTMode *m, int start, int end, int effEnd,
261       const celt_word16 *eBands, celt_word16 *oldEBands, celt_uint32 budget,
262       celt_word16 *error, ec_enc *enc, int _C, int LM, int nbAvailableBytes,
263       int force_intra, celt_word32 *delayedIntra, int two_pass, int loss_rate)
264 {
265    const int C = CHANNELS(_C);
266    int intra;
267    celt_word16 max_decay;
268    VARDECL(celt_word16, oldEBands_intra);
269    VARDECL(celt_word16, error_intra);
270    ec_enc enc_start_state;
271    celt_uint32 tell;
272    int badness1=0;
273    celt_int32 intra_bias;
274    SAVE_STACK;
275
276    intra = force_intra || (!two_pass && *delayedIntra>2*C*(end-start) && nbAvailableBytes > (end-start)*C);
277    intra_bias = ((budget**delayedIntra*loss_rate)/(C*512));
278    *delayedIntra = intra_decision(eBands, oldEBands, start, effEnd, m->nbEBands, C);
279
280    tell = ec_tell(enc);
281    if (tell+3 > budget)
282       two_pass = intra = 0;
283
284    /* Encode the global flags using a simple probability model
285       (first symbols in the stream) */
286
287 #ifdef FIXED_POINT
288       max_decay = MIN32(QCONST16(16.f,DB_SHIFT), SHL32(EXTEND32(nbAvailableBytes),DB_SHIFT-3));
289 #else
290    max_decay = MIN32(16.f, .125f*nbAvailableBytes);
291 #endif
292
293    enc_start_state = *enc;
294
295    ALLOC(oldEBands_intra, C*m->nbEBands, celt_word16);
296    ALLOC(error_intra, C*m->nbEBands, celt_word16);
297    CELT_COPY(oldEBands_intra, oldEBands, C*m->nbEBands);
298
299    if (two_pass || intra)
300    {
301       badness1 = quant_coarse_energy_impl(m, start, end, eBands, oldEBands_intra, budget,
302             tell, e_prob_model[LM][1], error_intra, enc, C, LM, 1, max_decay);
303    }
304
305    if (!intra)
306    {
307       ec_enc enc_intra_state;
308       int tell_intra;
309       celt_uint32 nstart_bytes;
310       celt_uint32 nintra_bytes;
311       int badness2;
312       VARDECL(unsigned char, intra_bits);
313
314       tell_intra = ec_tell_frac(enc);
315
316       enc_intra_state = *enc;
317
318       nstart_bytes = ec_range_bytes(&enc_start_state);
319       nintra_bytes = ec_range_bytes(&enc_intra_state);
320       ALLOC(intra_bits, nintra_bytes-nstart_bytes, unsigned char);
321       /* Copy bits from intra bit-stream */
322       CELT_COPY(intra_bits,
323             ec_get_buffer(&enc_intra_state) + nstart_bytes,
324             nintra_bytes - nstart_bytes);
325
326       *enc = enc_start_state;
327
328       badness2 = quant_coarse_energy_impl(m, start, end, eBands, oldEBands, budget,
329             tell, e_prob_model[LM][intra], error, enc, C, LM, 0, max_decay);
330
331       if (two_pass && (badness1 < badness2 || (badness1 == badness2 && ec_tell_frac(enc)+intra_bias > tell_intra)))
332       {
333          *enc = enc_intra_state;
334          /* Copy intra bits to bit-stream */
335          CELT_COPY(ec_get_buffer(&enc_intra_state) + nstart_bytes,
336                intra_bits, nintra_bytes - nstart_bytes);
337          CELT_COPY(oldEBands, oldEBands_intra, C*m->nbEBands);
338          CELT_COPY(error, error_intra, C*m->nbEBands);
339       }
340    } else {
341       CELT_COPY(oldEBands, oldEBands_intra, C*m->nbEBands);
342       CELT_COPY(error, error_intra, C*m->nbEBands);
343    }
344    RESTORE_STACK;
345 }
346
347 void quant_fine_energy(const CELTMode *m, int start, int end, celt_word16 *oldEBands, celt_word16 *error, int *fine_quant, ec_enc *enc, int _C)
348 {
349    int i, c;
350    const int C = CHANNELS(_C);
351
352    /* Encode finer resolution */
353    for (i=start;i<end;i++)
354    {
355       celt_int16 frac = 1<<fine_quant[i];
356       if (fine_quant[i] <= 0)
357          continue;
358       c=0;
359       do {
360          int q2;
361          celt_word16 offset;
362 #ifdef FIXED_POINT
363          /* Has to be without rounding */
364          q2 = (error[i+c*m->nbEBands]+QCONST16(.5f,DB_SHIFT))>>(DB_SHIFT-fine_quant[i]);
365 #else
366          q2 = (int)floor((error[i+c*m->nbEBands]+.5f)*frac);
367 #endif
368          if (q2 > frac-1)
369             q2 = frac-1;
370          if (q2<0)
371             q2 = 0;
372          ec_enc_bits(enc, q2, fine_quant[i]);
373 #ifdef FIXED_POINT
374          offset = SUB16(SHR32(SHL32(EXTEND32(q2),DB_SHIFT)+QCONST16(.5f,DB_SHIFT),fine_quant[i]),QCONST16(.5f,DB_SHIFT));
375 #else
376          offset = (q2+.5f)*(1<<(14-fine_quant[i]))*(1.f/16384) - .5f;
377 #endif
378          oldEBands[i+c*m->nbEBands] += offset;
379          error[i+c*m->nbEBands] -= offset;
380          /*printf ("%f ", error[i] - offset);*/
381       } while (++c < C);
382    }
383 }
384
385 void quant_energy_finalise(const CELTMode *m, int start, int end, celt_word16 *oldEBands, celt_word16 *error, int *fine_quant, int *fine_priority, int bits_left, ec_enc *enc, int _C)
386 {
387    int i, prio, c;
388    const int C = CHANNELS(_C);
389
390    /* Use up the remaining bits */
391    for (prio=0;prio<2;prio++)
392    {
393       for (i=start;i<end && bits_left>=C ;i++)
394       {
395          if (fine_quant[i] >= MAX_FINE_BITS || fine_priority[i]!=prio)
396             continue;
397          c=0;
398          do {
399             int q2;
400             celt_word16 offset;
401             q2 = error[i+c*m->nbEBands]<0 ? 0 : 1;
402             ec_enc_bits(enc, q2, 1);
403 #ifdef FIXED_POINT
404             offset = SHR16(SHL16(q2,DB_SHIFT)-QCONST16(.5f,DB_SHIFT),fine_quant[i]+1);
405 #else
406             offset = (q2-.5f)*(1<<(14-fine_quant[i]-1))*(1.f/16384);
407 #endif
408             oldEBands[i+c*m->nbEBands] += offset;
409             bits_left--;
410          } while (++c < C);
411       }
412    }
413 }
414
415 void unquant_coarse_energy(const CELTMode *m, int start, int end, celt_word16 *oldEBands, int intra, ec_dec *dec, int _C, int LM)
416 {
417    const unsigned char *prob_model = e_prob_model[LM][intra];
418    int i, c;
419    celt_word32 prev[2] = {0, 0};
420    celt_word16 coef;
421    celt_word16 beta;
422    const int C = CHANNELS(_C);
423    celt_int32 budget;
424    celt_int32 tell;
425
426
427    if (intra)
428    {
429       coef = 0;
430       beta = beta_intra;
431    } else {
432       beta = beta_coef[LM];
433       coef = pred_coef[LM];
434    }
435
436    budget = dec->storage*8;
437
438    /* Decode at a fixed coarse resolution */
439    for (i=start;i<end;i++)
440    {
441       c=0;
442       do {
443          int qi;
444          celt_word32 q;
445          celt_word32 tmp;
446          tell = ec_tell(dec);
447          if(budget-tell>=15)
448          {
449             int pi;
450             pi = 2*IMIN(i,20);
451             qi = ec_laplace_decode(dec,
452                   prob_model[pi]<<7, prob_model[pi+1]<<6);
453          }
454          else if(budget-tell>=2)
455          {
456             qi = ec_dec_icdf(dec, small_energy_icdf, 2);
457             qi = (qi>>1)^-(qi&1);
458          }
459          else if(budget-tell>=1)
460          {
461             qi = -ec_dec_bit_logp(dec, 1);
462          }
463          else
464             qi = -1;
465          q = SHL32(EXTEND32(qi),DB_SHIFT);
466
467          oldEBands[i+c*m->nbEBands] = MAX16(-QCONST16(9.f,DB_SHIFT), oldEBands[i+c*m->nbEBands]);
468          tmp = PSHR32(MULT16_16(coef,oldEBands[i+c*m->nbEBands]),8) + prev[c] + SHL32(q,7);
469 #ifdef FIXED_POINT
470          tmp = MAX32(-QCONST32(28.f, DB_SHIFT+7), tmp);
471 #endif
472          oldEBands[i+c*m->nbEBands] = PSHR32(tmp, 7);
473          prev[c] = prev[c] + SHL32(q,7) - MULT16_16(beta,PSHR32(q,8));
474       } while (++c < C);
475    }
476 }
477
478 void unquant_fine_energy(const CELTMode *m, int start, int end, celt_word16 *oldEBands, int *fine_quant, ec_dec *dec, int _C)
479 {
480    int i, c;
481    const int C = CHANNELS(_C);
482    /* Decode finer resolution */
483    for (i=start;i<end;i++)
484    {
485       if (fine_quant[i] <= 0)
486          continue;
487       c=0; 
488       do {
489          int q2;
490          celt_word16 offset;
491          q2 = ec_dec_bits(dec, fine_quant[i]);
492 #ifdef FIXED_POINT
493          offset = SUB16(SHR32(SHL32(EXTEND32(q2),DB_SHIFT)+QCONST16(.5f,DB_SHIFT),fine_quant[i]),QCONST16(.5f,DB_SHIFT));
494 #else
495          offset = (q2+.5f)*(1<<(14-fine_quant[i]))*(1.f/16384) - .5f;
496 #endif
497          oldEBands[i+c*m->nbEBands] += offset;
498       } while (++c < C);
499    }
500 }
501
502 void unquant_energy_finalise(const CELTMode *m, int start, int end, celt_word16 *oldEBands, int *fine_quant,  int *fine_priority, int bits_left, ec_dec *dec, int _C)
503 {
504    int i, prio, c;
505    const int C = CHANNELS(_C);
506
507    /* Use up the remaining bits */
508    for (prio=0;prio<2;prio++)
509    {
510       for (i=start;i<end && bits_left>=C ;i++)
511       {
512          if (fine_quant[i] >= MAX_FINE_BITS || fine_priority[i]!=prio)
513             continue;
514          c=0;
515          do {
516             int q2;
517             celt_word16 offset;
518             q2 = ec_dec_bits(dec, 1);
519 #ifdef FIXED_POINT
520             offset = SHR16(SHL16(q2,DB_SHIFT)-QCONST16(.5f,DB_SHIFT),fine_quant[i]+1);
521 #else
522             offset = (q2-.5f)*(1<<(14-fine_quant[i]-1))*(1.f/16384);
523 #endif
524             oldEBands[i+c*m->nbEBands] += offset;
525             bits_left--;
526          } while (++c < C);
527       }
528    }
529 }
530
531 void log2Amp(const CELTMode *m, int start, int end,
532       celt_ener *eBands, celt_word16 *oldEBands, int _C)
533 {
534    int c, i;
535    const int C = CHANNELS(_C);
536    c=0;
537    do {
538       for (i=0;i<start;i++)
539          eBands[i+c*m->nbEBands] = 0;
540       for (;i<end;i++)
541       {
542          celt_word16 lg = ADD16(oldEBands[i+c*m->nbEBands],
543                          SHL16((celt_word16)eMeans[i],6));
544          eBands[i+c*m->nbEBands] = PSHR32(celt_exp2(lg),4);
545       }
546       for (;i<m->nbEBands;i++)
547          eBands[i+c*m->nbEBands] = 0;
548    } while (++c < C);
549 }
550
551 void amp2Log2(const CELTMode *m, int effEnd, int end,
552       celt_ener *bandE, celt_word16 *bandLogE, int _C)
553 {
554    int c, i;
555    const int C = CHANNELS(_C);
556    c=0;
557    do {
558       for (i=0;i<effEnd;i++)
559          bandLogE[i+c*m->nbEBands] =
560                celt_log2(SHL32(bandE[i+c*m->nbEBands],2))
561                - SHL16((celt_word16)eMeans[i],6);
562       for (i=effEnd;i<end;i++)
563          bandLogE[c*m->nbEBands+i] = -QCONST16(14.f,DB_SHIFT);
564    } while (++c < C);
565 }