annotate jrevdct.c @ 1111:54dc72414a69 libavcodec

typo
author michaelni
date Thu, 06 Mar 2003 14:42:07 +0000
parents 1e39f273ecd6
children 7e0b2e86afa9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
1 /*
986e461dc072 Initial revision
glantau
parents:
diff changeset
2 * jrevdct.c
986e461dc072 Initial revision
glantau
parents:
diff changeset
3 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
4 * Copyright (C) 1991, 1992, Thomas G. Lane.
986e461dc072 Initial revision
glantau
parents:
diff changeset
5 * This file is part of the Independent JPEG Group's software.
986e461dc072 Initial revision
glantau
parents:
diff changeset
6 * For conditions of distribution and use, see the accompanying README file.
986e461dc072 Initial revision
glantau
parents:
diff changeset
7 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
8 * This file contains the basic inverse-DCT transformation subroutine.
986e461dc072 Initial revision
glantau
parents:
diff changeset
9 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
10 * This implementation is based on an algorithm described in
986e461dc072 Initial revision
glantau
parents:
diff changeset
11 * C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT
986e461dc072 Initial revision
glantau
parents:
diff changeset
12 * Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics,
986e461dc072 Initial revision
glantau
parents:
diff changeset
13 * Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991.
986e461dc072 Initial revision
glantau
parents:
diff changeset
14 * The primary algorithm described there uses 11 multiplies and 29 adds.
986e461dc072 Initial revision
glantau
parents:
diff changeset
15 * We use their alternate method with 12 multiplies and 32 adds.
986e461dc072 Initial revision
glantau
parents:
diff changeset
16 * The advantage of this method is that no data path contains more than one
986e461dc072 Initial revision
glantau
parents:
diff changeset
17 * multiplication; this allows a very simple and accurate implementation in
986e461dc072 Initial revision
glantau
parents:
diff changeset
18 * scaled fixed-point arithmetic, with a minimal number of shifts.
986e461dc072 Initial revision
glantau
parents:
diff changeset
19 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
20 * I've made lots of modifications to attempt to take advantage of the
986e461dc072 Initial revision
glantau
parents:
diff changeset
21 * sparse nature of the DCT matrices we're getting. Although the logic
986e461dc072 Initial revision
glantau
parents:
diff changeset
22 * is cumbersome, it's straightforward and the resulting code is much
986e461dc072 Initial revision
glantau
parents:
diff changeset
23 * faster.
986e461dc072 Initial revision
glantau
parents:
diff changeset
24 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
25 * A better way to do this would be to pass in the DCT block as a sparse
986e461dc072 Initial revision
glantau
parents:
diff changeset
26 * matrix, perhaps with the difference cases encoded.
986e461dc072 Initial revision
glantau
parents:
diff changeset
27 */
1106
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
28
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
29 /**
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
30 * @file jrevdct.c
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
31 * Independent JPEG Group's LLM idct.
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
32 */
1e39f273ecd6 per file doxy
michaelni
parents: 1064
diff changeset
33
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
34 #include "common.h"
986e461dc072 Initial revision
glantau
parents:
diff changeset
35 #include "dsputil.h"
986e461dc072 Initial revision
glantau
parents:
diff changeset
36
986e461dc072 Initial revision
glantau
parents:
diff changeset
37 #define EIGHT_BIT_SAMPLES
986e461dc072 Initial revision
glantau
parents:
diff changeset
38
986e461dc072 Initial revision
glantau
parents:
diff changeset
39 #define DCTSIZE 8
986e461dc072 Initial revision
glantau
parents:
diff changeset
40 #define DCTSIZE2 64
986e461dc072 Initial revision
glantau
parents:
diff changeset
41
986e461dc072 Initial revision
glantau
parents:
diff changeset
42 #define GLOBAL
986e461dc072 Initial revision
glantau
parents:
diff changeset
43
986e461dc072 Initial revision
glantau
parents:
diff changeset
44 #define RIGHT_SHIFT(x, n) ((x) >> (n))
986e461dc072 Initial revision
glantau
parents:
diff changeset
45
986e461dc072 Initial revision
glantau
parents:
diff changeset
46 typedef DCTELEM DCTBLOCK[DCTSIZE2];
986e461dc072 Initial revision
glantau
parents:
diff changeset
47
986e461dc072 Initial revision
glantau
parents:
diff changeset
48 #define CONST_BITS 13
986e461dc072 Initial revision
glantau
parents:
diff changeset
49
986e461dc072 Initial revision
glantau
parents:
diff changeset
50 /*
986e461dc072 Initial revision
glantau
parents:
diff changeset
51 * This routine is specialized to the case DCTSIZE = 8.
986e461dc072 Initial revision
glantau
parents:
diff changeset
52 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
53
986e461dc072 Initial revision
glantau
parents:
diff changeset
54 #if DCTSIZE != 8
986e461dc072 Initial revision
glantau
parents:
diff changeset
55 Sorry, this code only copes with 8x8 DCTs. /* deliberate syntax err */
986e461dc072 Initial revision
glantau
parents:
diff changeset
56 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
57
986e461dc072 Initial revision
glantau
parents:
diff changeset
58
986e461dc072 Initial revision
glantau
parents:
diff changeset
59 /*
986e461dc072 Initial revision
glantau
parents:
diff changeset
60 * A 2-D IDCT can be done by 1-D IDCT on each row followed by 1-D IDCT
986e461dc072 Initial revision
glantau
parents:
diff changeset
61 * on each column. Direct algorithms are also available, but they are
986e461dc072 Initial revision
glantau
parents:
diff changeset
62 * much more complex and seem not to be any faster when reduced to code.
986e461dc072 Initial revision
glantau
parents:
diff changeset
63 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
64 * The poop on this scaling stuff is as follows:
986e461dc072 Initial revision
glantau
parents:
diff changeset
65 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
66 * Each 1-D IDCT step produces outputs which are a factor of sqrt(N)
986e461dc072 Initial revision
glantau
parents:
diff changeset
67 * larger than the true IDCT outputs. The final outputs are therefore
986e461dc072 Initial revision
glantau
parents:
diff changeset
68 * a factor of N larger than desired; since N=8 this can be cured by
986e461dc072 Initial revision
glantau
parents:
diff changeset
69 * a simple right shift at the end of the algorithm. The advantage of
986e461dc072 Initial revision
glantau
parents:
diff changeset
70 * this arrangement is that we save two multiplications per 1-D IDCT,
986e461dc072 Initial revision
glantau
parents:
diff changeset
71 * because the y0 and y4 inputs need not be divided by sqrt(N).
986e461dc072 Initial revision
glantau
parents:
diff changeset
72 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
73 * We have to do addition and subtraction of the integer inputs, which
986e461dc072 Initial revision
glantau
parents:
diff changeset
74 * is no problem, and multiplication by fractional constants, which is
986e461dc072 Initial revision
glantau
parents:
diff changeset
75 * a problem to do in integer arithmetic. We multiply all the constants
986e461dc072 Initial revision
glantau
parents:
diff changeset
76 * by CONST_SCALE and convert them to integer constants (thus retaining
986e461dc072 Initial revision
glantau
parents:
diff changeset
77 * CONST_BITS bits of precision in the constants). After doing a
986e461dc072 Initial revision
glantau
parents:
diff changeset
78 * multiplication we have to divide the product by CONST_SCALE, with proper
986e461dc072 Initial revision
glantau
parents:
diff changeset
79 * rounding, to produce the correct output. This division can be done
986e461dc072 Initial revision
glantau
parents:
diff changeset
80 * cheaply as a right shift of CONST_BITS bits. We postpone shifting
986e461dc072 Initial revision
glantau
parents:
diff changeset
81 * as long as possible so that partial sums can be added together with
986e461dc072 Initial revision
glantau
parents:
diff changeset
82 * full fractional precision.
986e461dc072 Initial revision
glantau
parents:
diff changeset
83 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
84 * The outputs of the first pass are scaled up by PASS1_BITS bits so that
986e461dc072 Initial revision
glantau
parents:
diff changeset
85 * they are represented to better-than-integral precision. These outputs
986e461dc072 Initial revision
glantau
parents:
diff changeset
86 * require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word
986e461dc072 Initial revision
glantau
parents:
diff changeset
87 * with the recommended scaling. (To scale up 12-bit sample data further, an
986e461dc072 Initial revision
glantau
parents:
diff changeset
88 * intermediate int32 array would be needed.)
986e461dc072 Initial revision
glantau
parents:
diff changeset
89 *
986e461dc072 Initial revision
glantau
parents:
diff changeset
90 * To avoid overflow of the 32-bit intermediate results in pass 2, we must
986e461dc072 Initial revision
glantau
parents:
diff changeset
91 * have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26. Error analysis
986e461dc072 Initial revision
glantau
parents:
diff changeset
92 * shows that the values given below are the most effective.
986e461dc072 Initial revision
glantau
parents:
diff changeset
93 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
94
986e461dc072 Initial revision
glantau
parents:
diff changeset
95 #ifdef EIGHT_BIT_SAMPLES
986e461dc072 Initial revision
glantau
parents:
diff changeset
96 #define PASS1_BITS 2
986e461dc072 Initial revision
glantau
parents:
diff changeset
97 #else
986e461dc072 Initial revision
glantau
parents:
diff changeset
98 #define PASS1_BITS 1 /* lose a little precision to avoid overflow */
986e461dc072 Initial revision
glantau
parents:
diff changeset
99 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
100
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
101 #define ONE ((int32_t) 1)
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
102
986e461dc072 Initial revision
glantau
parents:
diff changeset
103 #define CONST_SCALE (ONE << CONST_BITS)
986e461dc072 Initial revision
glantau
parents:
diff changeset
104
986e461dc072 Initial revision
glantau
parents:
diff changeset
105 /* Convert a positive real constant to an integer scaled by CONST_SCALE.
986e461dc072 Initial revision
glantau
parents:
diff changeset
106 * IMPORTANT: if your compiler doesn't do this arithmetic at compile time,
986e461dc072 Initial revision
glantau
parents:
diff changeset
107 * you will pay a significant penalty in run time. In that case, figure
986e461dc072 Initial revision
glantau
parents:
diff changeset
108 * the correct integer constant values and insert them by hand.
986e461dc072 Initial revision
glantau
parents:
diff changeset
109 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
110
986e461dc072 Initial revision
glantau
parents:
diff changeset
111 /* Actually FIX is no longer used, we precomputed them all */
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
112 #define FIX(x) ((int32_t) ((x) * CONST_SCALE + 0.5))
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
113
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
114 /* Descale and correctly round an int32_t value that's scaled by N bits.
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
115 * We assume RIGHT_SHIFT rounds towards minus infinity, so adding
986e461dc072 Initial revision
glantau
parents:
diff changeset
116 * the fudge factor is correct for either sign of X.
986e461dc072 Initial revision
glantau
parents:
diff changeset
117 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
118
986e461dc072 Initial revision
glantau
parents:
diff changeset
119 #define DESCALE(x,n) RIGHT_SHIFT((x) + (ONE << ((n)-1)), n)
986e461dc072 Initial revision
glantau
parents:
diff changeset
120
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
121 /* Multiply an int32_t variable by an int32_t constant to yield an int32_t result.
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
122 * For 8-bit samples with the recommended scaling, all the variable
986e461dc072 Initial revision
glantau
parents:
diff changeset
123 * and constant values involved are no more than 16 bits wide, so a
986e461dc072 Initial revision
glantau
parents:
diff changeset
124 * 16x16->32 bit multiply can be used instead of a full 32x32 multiply;
986e461dc072 Initial revision
glantau
parents:
diff changeset
125 * this provides a useful speedup on many machines.
986e461dc072 Initial revision
glantau
parents:
diff changeset
126 * There is no way to specify a 16x16->32 multiply in portable C, but
986e461dc072 Initial revision
glantau
parents:
diff changeset
127 * some C compilers will do the right thing if you provide the correct
986e461dc072 Initial revision
glantau
parents:
diff changeset
128 * combination of casts.
986e461dc072 Initial revision
glantau
parents:
diff changeset
129 * NB: for 12-bit samples, a full 32-bit multiplication will be needed.
986e461dc072 Initial revision
glantau
parents:
diff changeset
130 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
131
986e461dc072 Initial revision
glantau
parents:
diff changeset
132 #ifdef EIGHT_BIT_SAMPLES
986e461dc072 Initial revision
glantau
parents:
diff changeset
133 #ifdef SHORTxSHORT_32 /* may work if 'int' is 32 bits */
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
134 #define MULTIPLY(var,const) (((int16_t) (var)) * ((int16_t) (const)))
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
135 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
136 #ifdef SHORTxLCONST_32 /* known to work with Microsoft C 6.0 */
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
137 #define MULTIPLY(var,const) (((int16_t) (var)) * ((int32_t) (const)))
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
138 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
139 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
140
986e461dc072 Initial revision
glantau
parents:
diff changeset
141 #ifndef MULTIPLY /* default definition */
986e461dc072 Initial revision
glantau
parents:
diff changeset
142 #define MULTIPLY(var,const) ((var) * (const))
986e461dc072 Initial revision
glantau
parents:
diff changeset
143 #endif
986e461dc072 Initial revision
glantau
parents:
diff changeset
144
986e461dc072 Initial revision
glantau
parents:
diff changeset
145
986e461dc072 Initial revision
glantau
parents:
diff changeset
146 /*
986e461dc072 Initial revision
glantau
parents:
diff changeset
147 Unlike our decoder where we approximate the FIXes, we need to use exact
986e461dc072 Initial revision
glantau
parents:
diff changeset
148 ones here or successive P-frames will drift too much with Reference frame coding
986e461dc072 Initial revision
glantau
parents:
diff changeset
149 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
150 #define FIX_0_211164243 1730
986e461dc072 Initial revision
glantau
parents:
diff changeset
151 #define FIX_0_275899380 2260
986e461dc072 Initial revision
glantau
parents:
diff changeset
152 #define FIX_0_298631336 2446
986e461dc072 Initial revision
glantau
parents:
diff changeset
153 #define FIX_0_390180644 3196
986e461dc072 Initial revision
glantau
parents:
diff changeset
154 #define FIX_0_509795579 4176
986e461dc072 Initial revision
glantau
parents:
diff changeset
155 #define FIX_0_541196100 4433
986e461dc072 Initial revision
glantau
parents:
diff changeset
156 #define FIX_0_601344887 4926
986e461dc072 Initial revision
glantau
parents:
diff changeset
157 #define FIX_0_765366865 6270
986e461dc072 Initial revision
glantau
parents:
diff changeset
158 #define FIX_0_785694958 6436
986e461dc072 Initial revision
glantau
parents:
diff changeset
159 #define FIX_0_899976223 7373
986e461dc072 Initial revision
glantau
parents:
diff changeset
160 #define FIX_1_061594337 8697
986e461dc072 Initial revision
glantau
parents:
diff changeset
161 #define FIX_1_111140466 9102
986e461dc072 Initial revision
glantau
parents:
diff changeset
162 #define FIX_1_175875602 9633
986e461dc072 Initial revision
glantau
parents:
diff changeset
163 #define FIX_1_306562965 10703
986e461dc072 Initial revision
glantau
parents:
diff changeset
164 #define FIX_1_387039845 11363
986e461dc072 Initial revision
glantau
parents:
diff changeset
165 #define FIX_1_451774981 11893
986e461dc072 Initial revision
glantau
parents:
diff changeset
166 #define FIX_1_501321110 12299
986e461dc072 Initial revision
glantau
parents:
diff changeset
167 #define FIX_1_662939225 13623
986e461dc072 Initial revision
glantau
parents:
diff changeset
168 #define FIX_1_847759065 15137
986e461dc072 Initial revision
glantau
parents:
diff changeset
169 #define FIX_1_961570560 16069
986e461dc072 Initial revision
glantau
parents:
diff changeset
170 #define FIX_2_053119869 16819
986e461dc072 Initial revision
glantau
parents:
diff changeset
171 #define FIX_2_172734803 17799
986e461dc072 Initial revision
glantau
parents:
diff changeset
172 #define FIX_2_562915447 20995
986e461dc072 Initial revision
glantau
parents:
diff changeset
173 #define FIX_3_072711026 25172
986e461dc072 Initial revision
glantau
parents:
diff changeset
174
986e461dc072 Initial revision
glantau
parents:
diff changeset
175 /*
986e461dc072 Initial revision
glantau
parents:
diff changeset
176 * Perform the inverse DCT on one block of coefficients.
986e461dc072 Initial revision
glantau
parents:
diff changeset
177 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
178
986e461dc072 Initial revision
glantau
parents:
diff changeset
179 void j_rev_dct(DCTBLOCK data)
986e461dc072 Initial revision
glantau
parents:
diff changeset
180 {
1064
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
181 int32_t tmp0, tmp1, tmp2, tmp3;
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
182 int32_t tmp10, tmp11, tmp12, tmp13;
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
183 int32_t z1, z2, z3, z4, z5;
b32afefe7d33 * UINTX -> uintx_t INTX -> intx_t
kabi
parents: 440
diff changeset
184 int32_t d0, d1, d2, d3, d4, d5, d6, d7;
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
185 register DCTELEM *dataptr;
986e461dc072 Initial revision
glantau
parents:
diff changeset
186 int rowctr;
986e461dc072 Initial revision
glantau
parents:
diff changeset
187
986e461dc072 Initial revision
glantau
parents:
diff changeset
188 /* Pass 1: process rows. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
189 /* Note results are scaled up by sqrt(8) compared to a true IDCT; */
986e461dc072 Initial revision
glantau
parents:
diff changeset
190 /* furthermore, we scale the results by 2**PASS1_BITS. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
191
986e461dc072 Initial revision
glantau
parents:
diff changeset
192 dataptr = data;
986e461dc072 Initial revision
glantau
parents:
diff changeset
193
986e461dc072 Initial revision
glantau
parents:
diff changeset
194 for (rowctr = DCTSIZE-1; rowctr >= 0; rowctr--) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
195 /* Due to quantization, we will usually find that many of the input
986e461dc072 Initial revision
glantau
parents:
diff changeset
196 * coefficients are zero, especially the AC terms. We can exploit this
986e461dc072 Initial revision
glantau
parents:
diff changeset
197 * by short-circuiting the IDCT calculation for any row in which all
986e461dc072 Initial revision
glantau
parents:
diff changeset
198 * the AC terms are zero. In that case each output is equal to the
986e461dc072 Initial revision
glantau
parents:
diff changeset
199 * DC coefficient (with scale factor as needed).
986e461dc072 Initial revision
glantau
parents:
diff changeset
200 * With typical images and quantization tables, half or more of the
986e461dc072 Initial revision
glantau
parents:
diff changeset
201 * row DCT calculations can be simplified this way.
986e461dc072 Initial revision
glantau
parents:
diff changeset
202 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
203
986e461dc072 Initial revision
glantau
parents:
diff changeset
204 register int *idataptr = (int*)dataptr;
986e461dc072 Initial revision
glantau
parents:
diff changeset
205
36
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
206 /* WARNING: we do the same permutation as MMX idct to simplify the
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
207 video core */
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
208 d0 = dataptr[0];
36
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
209 d2 = dataptr[1];
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
210 d4 = dataptr[2];
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
211 d6 = dataptr[3];
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
212 d1 = dataptr[4];
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
213 d3 = dataptr[5];
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
214 d5 = dataptr[6];
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
215 d7 = dataptr[7];
986e461dc072 Initial revision
glantau
parents:
diff changeset
216
36
23723a0ebd24 permuted coefs in normal IDCT to avoid having different cases there
glantau
parents: 0
diff changeset
217 if ((d1 | d2 | d3 | d4 | d5 | d6 | d7) == 0) {
0
986e461dc072 Initial revision
glantau
parents:
diff changeset
218 /* AC terms all zero */
986e461dc072 Initial revision
glantau
parents:
diff changeset
219 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
220 /* Compute a 32 bit value to assign. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
221 DCTELEM dcval = (DCTELEM) (d0 << PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
222 register int v = (dcval & 0xffff) | ((dcval << 16) & 0xffff0000);
986e461dc072 Initial revision
glantau
parents:
diff changeset
223
986e461dc072 Initial revision
glantau
parents:
diff changeset
224 idataptr[0] = v;
986e461dc072 Initial revision
glantau
parents:
diff changeset
225 idataptr[1] = v;
986e461dc072 Initial revision
glantau
parents:
diff changeset
226 idataptr[2] = v;
986e461dc072 Initial revision
glantau
parents:
diff changeset
227 idataptr[3] = v;
986e461dc072 Initial revision
glantau
parents:
diff changeset
228 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
229
986e461dc072 Initial revision
glantau
parents:
diff changeset
230 dataptr += DCTSIZE; /* advance pointer to next row */
986e461dc072 Initial revision
glantau
parents:
diff changeset
231 continue;
986e461dc072 Initial revision
glantau
parents:
diff changeset
232 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
233
986e461dc072 Initial revision
glantau
parents:
diff changeset
234 /* Even part: reverse the even part of the forward DCT. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
235 /* The rotator is sqrt(2)*c(-6). */
986e461dc072 Initial revision
glantau
parents:
diff changeset
236 {
986e461dc072 Initial revision
glantau
parents:
diff changeset
237 if (d6) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
238 if (d4) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
239 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
240 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
241 /* d0 != 0, d2 != 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
242 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
243 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
244 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
245
986e461dc072 Initial revision
glantau
parents:
diff changeset
246 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
247 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
248
986e461dc072 Initial revision
glantau
parents:
diff changeset
249 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
250 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
251 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
252 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
253 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
254 /* d0 == 0, d2 != 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
255 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
256 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
257 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
258
986e461dc072 Initial revision
glantau
parents:
diff changeset
259 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
260
986e461dc072 Initial revision
glantau
parents:
diff changeset
261 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
262 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
263 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
264 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
265 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
266 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
267 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
268 /* d0 != 0, d2 == 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
269 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
270 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
271
986e461dc072 Initial revision
glantau
parents:
diff changeset
272 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
273 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
274
986e461dc072 Initial revision
glantau
parents:
diff changeset
275 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
276 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
277 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
278 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
279 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
280 /* d0 == 0, d2 == 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
281 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
282 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
283
986e461dc072 Initial revision
glantau
parents:
diff changeset
284 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
285
986e461dc072 Initial revision
glantau
parents:
diff changeset
286 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
287 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
288 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
289 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
290 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
291 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
292 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
293 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
294 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
295 /* d0 != 0, d2 != 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
296 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
297 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
298 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
299
986e461dc072 Initial revision
glantau
parents:
diff changeset
300 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
301
986e461dc072 Initial revision
glantau
parents:
diff changeset
302 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
303 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
304 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
305 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
306 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
307 /* d0 == 0, d2 != 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
308 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
309 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
310 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
311
986e461dc072 Initial revision
glantau
parents:
diff changeset
312 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
313 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
314 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
315 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
316 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
317 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
318 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
319 /* d0 != 0, d2 == 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
320 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
321 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
322
986e461dc072 Initial revision
glantau
parents:
diff changeset
323 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
324
986e461dc072 Initial revision
glantau
parents:
diff changeset
325 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
326 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
327 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
328 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
329 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
330 /* d0 == 0, d2 == 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
331 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
332 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
333
986e461dc072 Initial revision
glantau
parents:
diff changeset
334 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
335 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
336 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
337 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
338 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
339 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
340 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
341 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
342 if (d4) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
343 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
344 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
345 /* d0 != 0, d2 != 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
346 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
347 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
348
986e461dc072 Initial revision
glantau
parents:
diff changeset
349 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
350 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
351
986e461dc072 Initial revision
glantau
parents:
diff changeset
352 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
353 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
354 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
355 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
356 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
357 /* d0 == 0, d2 != 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
358 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
359 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
360
986e461dc072 Initial revision
glantau
parents:
diff changeset
361 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
362
986e461dc072 Initial revision
glantau
parents:
diff changeset
363 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
364 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
365 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
366 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
367 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
368 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
369 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
370 /* d0 != 0, d2 == 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
371 tmp10 = tmp13 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
372 tmp11 = tmp12 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
373 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
374 /* d0 == 0, d2 == 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
375 tmp10 = tmp13 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
376 tmp11 = tmp12 = -tmp10;
986e461dc072 Initial revision
glantau
parents:
diff changeset
377 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
378 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
379 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
380 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
381 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
382 /* d0 != 0, d2 != 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
383 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
384 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
385
986e461dc072 Initial revision
glantau
parents:
diff changeset
386 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
387
986e461dc072 Initial revision
glantau
parents:
diff changeset
388 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
389 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
390 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
391 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
392 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
393 /* d0 == 0, d2 != 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
394 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
395 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
396
986e461dc072 Initial revision
glantau
parents:
diff changeset
397 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
398 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
399 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
400 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
401 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
402 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
403 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
404 /* d0 != 0, d2 == 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
405 tmp10 = tmp13 = tmp11 = tmp12 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
406 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
407 /* d0 == 0, d2 == 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
408 tmp10 = tmp13 = tmp11 = tmp12 = 0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
409 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
410 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
411 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
412 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
413
986e461dc072 Initial revision
glantau
parents:
diff changeset
414 /* Odd part per figure 8; the matrix is unitary and hence its
986e461dc072 Initial revision
glantau
parents:
diff changeset
415 * transpose is its inverse. i0..i3 are y7,y5,y3,y1 respectively.
986e461dc072 Initial revision
glantau
parents:
diff changeset
416 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
417
986e461dc072 Initial revision
glantau
parents:
diff changeset
418 if (d7) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
419 if (d5) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
420 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
421 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
422 /* d1 != 0, d3 != 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
423 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
424 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
425 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
426 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
427 z5 = MULTIPLY(z3 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
428
986e461dc072 Initial revision
glantau
parents:
diff changeset
429 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
430 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
431 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
432 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
433 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
434 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
435 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
436 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
437
986e461dc072 Initial revision
glantau
parents:
diff changeset
438 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
439 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
440
986e461dc072 Initial revision
glantau
parents:
diff changeset
441 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
442 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
443 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
444 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
445 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
446 /* d1 == 0, d3 != 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
447 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
448 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
449 z5 = MULTIPLY(z3 + d5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
450
986e461dc072 Initial revision
glantau
parents:
diff changeset
451 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
452 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
453 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
454 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
455 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
456 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
457 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
458
986e461dc072 Initial revision
glantau
parents:
diff changeset
459 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
460 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
461
986e461dc072 Initial revision
glantau
parents:
diff changeset
462 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
463 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
464 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
465 tmp3 = z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
466 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
467 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
468 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
469 /* d1 != 0, d3 == 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
470 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
471 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
472 z5 = MULTIPLY(d7 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
473
986e461dc072 Initial revision
glantau
parents:
diff changeset
474 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
475 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
476 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
477 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
478 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
479 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
480 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
481
986e461dc072 Initial revision
glantau
parents:
diff changeset
482 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
483 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
484
986e461dc072 Initial revision
glantau
parents:
diff changeset
485 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
486 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
487 tmp2 = z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
488 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
489 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
490 /* d1 == 0, d3 == 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
491 tmp0 = MULTIPLY(-d7, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
492 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
493 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
494 tmp1 = MULTIPLY(-d5, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
495 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
496 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
497 z5 = MULTIPLY(d5 + d7, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
498
986e461dc072 Initial revision
glantau
parents:
diff changeset
499 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
500 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
501
986e461dc072 Initial revision
glantau
parents:
diff changeset
502 tmp0 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
503 tmp1 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
504 tmp2 = z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
505 tmp3 = z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
506 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
507 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
508 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
509 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
510 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
511 /* d1 != 0, d3 != 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
512 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
513 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
514 z5 = MULTIPLY(z3 + d1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
515
986e461dc072 Initial revision
glantau
parents:
diff changeset
516 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
517 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
518 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
519 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
520 z2 = MULTIPLY(-d3, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
521 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
522 z4 = MULTIPLY(-d1, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
523
986e461dc072 Initial revision
glantau
parents:
diff changeset
524 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
525 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
526
986e461dc072 Initial revision
glantau
parents:
diff changeset
527 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
528 tmp1 = z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
529 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
530 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
531 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
532 /* d1 == 0, d3 != 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
533 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
534
986e461dc072 Initial revision
glantau
parents:
diff changeset
535 tmp0 = MULTIPLY(-d7, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
536 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
537 tmp2 = MULTIPLY(d3, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
538 z2 = MULTIPLY(-d3, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
539 z5 = MULTIPLY(z3, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
540 z3 = MULTIPLY(-z3, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
541
986e461dc072 Initial revision
glantau
parents:
diff changeset
542 tmp0 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
543 tmp1 = z2 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
544 tmp2 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
545 tmp3 = z1 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
546 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
547 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
548 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
549 /* d1 != 0, d3 == 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
550 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
551 z5 = MULTIPLY(z1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
552
986e461dc072 Initial revision
glantau
parents:
diff changeset
553 z1 = MULTIPLY(z1, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
554 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
555 tmp0 = MULTIPLY(-d7, FIX_1_662939225);
986e461dc072 Initial revision
glantau
parents:
diff changeset
556 z4 = MULTIPLY(-d1, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
557 tmp3 = MULTIPLY(d1, FIX_1_111140466);
986e461dc072 Initial revision
glantau
parents:
diff changeset
558
986e461dc072 Initial revision
glantau
parents:
diff changeset
559 tmp0 += z1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
560 tmp1 = z4 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
561 tmp2 = z3 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
562 tmp3 += z1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
563 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
564 /* d1 == 0, d3 == 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
565 tmp0 = MULTIPLY(-d7, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
566 tmp1 = MULTIPLY(d7, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
567 tmp2 = MULTIPLY(-d7, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
568 tmp3 = MULTIPLY(d7, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
569 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
570 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
571 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
572 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
573 if (d5) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
574 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
575 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
576 /* d1 != 0, d3 != 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
577 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
578 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
579 z5 = MULTIPLY(d3 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
580
986e461dc072 Initial revision
glantau
parents:
diff changeset
581 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
582 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
583 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
584 z1 = MULTIPLY(-d1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
585 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
586 z3 = MULTIPLY(-d3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
587 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
588
986e461dc072 Initial revision
glantau
parents:
diff changeset
589 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
590 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
591
986e461dc072 Initial revision
glantau
parents:
diff changeset
592 tmp0 = z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
593 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
594 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
595 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
596 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
597 /* d1 == 0, d3 != 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
598 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
599
986e461dc072 Initial revision
glantau
parents:
diff changeset
600 z5 = MULTIPLY(z2, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
601 tmp1 = MULTIPLY(d5, FIX_1_662939225);
986e461dc072 Initial revision
glantau
parents:
diff changeset
602 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
603 z2 = MULTIPLY(-z2, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
604 tmp2 = MULTIPLY(d3, FIX_1_111140466);
986e461dc072 Initial revision
glantau
parents:
diff changeset
605 z3 = MULTIPLY(-d3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
606
986e461dc072 Initial revision
glantau
parents:
diff changeset
607 tmp0 = z3 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
608 tmp1 += z2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
609 tmp2 += z2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
610 tmp3 = z4 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
611 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
612 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
613 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
614 /* d1 != 0, d3 == 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
615 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
616
986e461dc072 Initial revision
glantau
parents:
diff changeset
617 z5 = MULTIPLY(z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
618 z1 = MULTIPLY(-d1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
619 tmp3 = MULTIPLY(d1, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
620 tmp1 = MULTIPLY(-d5, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
621 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
622 z4 = MULTIPLY(z4, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
623
986e461dc072 Initial revision
glantau
parents:
diff changeset
624 tmp0 = z1 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
625 tmp1 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
626 tmp2 = z2 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
627 tmp3 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
628 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
629 /* d1 == 0, d3 == 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
630 tmp0 = MULTIPLY(d5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
631 tmp1 = MULTIPLY(d5, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
632 tmp2 = MULTIPLY(-d5, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
633 tmp3 = MULTIPLY(d5, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
634 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
635 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
636 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
637 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
638 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
639 /* d1 != 0, d3 != 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
640 z5 = d1 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
641 tmp3 = MULTIPLY(d1, FIX_0_211164243);
986e461dc072 Initial revision
glantau
parents:
diff changeset
642 tmp2 = MULTIPLY(-d3, FIX_1_451774981);
986e461dc072 Initial revision
glantau
parents:
diff changeset
643 z1 = MULTIPLY(d1, FIX_1_061594337);
986e461dc072 Initial revision
glantau
parents:
diff changeset
644 z2 = MULTIPLY(-d3, FIX_2_172734803);
986e461dc072 Initial revision
glantau
parents:
diff changeset
645 z4 = MULTIPLY(z5, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
646 z5 = MULTIPLY(z5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
647
986e461dc072 Initial revision
glantau
parents:
diff changeset
648 tmp0 = z1 - z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
649 tmp1 = z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
650 tmp2 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
651 tmp3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
652 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
653 /* d1 == 0, d3 != 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
654 tmp0 = MULTIPLY(-d3, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
655 tmp1 = MULTIPLY(-d3, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
656 tmp2 = MULTIPLY(-d3, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
657 tmp3 = MULTIPLY(d3, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
658 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
659 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
660 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
661 /* d1 != 0, d3 == 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
662 tmp0 = MULTIPLY(d1, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
663 tmp1 = MULTIPLY(d1, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
664 tmp2 = MULTIPLY(d1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
665 tmp3 = MULTIPLY(d1, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
666 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
667 /* d1 == 0, d3 == 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
668 tmp0 = tmp1 = tmp2 = tmp3 = 0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
669 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
670 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
671 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
672 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
673 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
674 /* Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
675
986e461dc072 Initial revision
glantau
parents:
diff changeset
676 dataptr[0] = (DCTELEM) DESCALE(tmp10 + tmp3, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
677 dataptr[7] = (DCTELEM) DESCALE(tmp10 - tmp3, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
678 dataptr[1] = (DCTELEM) DESCALE(tmp11 + tmp2, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
679 dataptr[6] = (DCTELEM) DESCALE(tmp11 - tmp2, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
680 dataptr[2] = (DCTELEM) DESCALE(tmp12 + tmp1, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
681 dataptr[5] = (DCTELEM) DESCALE(tmp12 - tmp1, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
682 dataptr[3] = (DCTELEM) DESCALE(tmp13 + tmp0, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
683 dataptr[4] = (DCTELEM) DESCALE(tmp13 - tmp0, CONST_BITS-PASS1_BITS);
986e461dc072 Initial revision
glantau
parents:
diff changeset
684
986e461dc072 Initial revision
glantau
parents:
diff changeset
685 dataptr += DCTSIZE; /* advance pointer to next row */
986e461dc072 Initial revision
glantau
parents:
diff changeset
686 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
687
986e461dc072 Initial revision
glantau
parents:
diff changeset
688 /* Pass 2: process columns. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
689 /* Note that we must descale the results by a factor of 8 == 2**3, */
986e461dc072 Initial revision
glantau
parents:
diff changeset
690 /* and also undo the PASS1_BITS scaling. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
691
986e461dc072 Initial revision
glantau
parents:
diff changeset
692 dataptr = data;
986e461dc072 Initial revision
glantau
parents:
diff changeset
693 for (rowctr = DCTSIZE-1; rowctr >= 0; rowctr--) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
694 /* Columns of zeroes can be exploited in the same way as we did with rows.
986e461dc072 Initial revision
glantau
parents:
diff changeset
695 * However, the row calculation has created many nonzero AC terms, so the
986e461dc072 Initial revision
glantau
parents:
diff changeset
696 * simplification applies less often (typically 5% to 10% of the time).
986e461dc072 Initial revision
glantau
parents:
diff changeset
697 * On machines with very fast multiplication, it's possible that the
986e461dc072 Initial revision
glantau
parents:
diff changeset
698 * test takes more time than it's worth. In that case this section
986e461dc072 Initial revision
glantau
parents:
diff changeset
699 * may be commented out.
986e461dc072 Initial revision
glantau
parents:
diff changeset
700 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
701
986e461dc072 Initial revision
glantau
parents:
diff changeset
702 d0 = dataptr[DCTSIZE*0];
986e461dc072 Initial revision
glantau
parents:
diff changeset
703 d1 = dataptr[DCTSIZE*1];
986e461dc072 Initial revision
glantau
parents:
diff changeset
704 d2 = dataptr[DCTSIZE*2];
986e461dc072 Initial revision
glantau
parents:
diff changeset
705 d3 = dataptr[DCTSIZE*3];
986e461dc072 Initial revision
glantau
parents:
diff changeset
706 d4 = dataptr[DCTSIZE*4];
986e461dc072 Initial revision
glantau
parents:
diff changeset
707 d5 = dataptr[DCTSIZE*5];
986e461dc072 Initial revision
glantau
parents:
diff changeset
708 d6 = dataptr[DCTSIZE*6];
986e461dc072 Initial revision
glantau
parents:
diff changeset
709 d7 = dataptr[DCTSIZE*7];
986e461dc072 Initial revision
glantau
parents:
diff changeset
710
986e461dc072 Initial revision
glantau
parents:
diff changeset
711 /* Even part: reverse the even part of the forward DCT. */
986e461dc072 Initial revision
glantau
parents:
diff changeset
712 /* The rotator is sqrt(2)*c(-6). */
986e461dc072 Initial revision
glantau
parents:
diff changeset
713 if (d6) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
714 if (d4) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
715 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
716 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
717 /* d0 != 0, d2 != 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
718 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
719 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
720 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
721
986e461dc072 Initial revision
glantau
parents:
diff changeset
722 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
723 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
724
986e461dc072 Initial revision
glantau
parents:
diff changeset
725 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
726 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
727 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
728 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
729 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
730 /* d0 == 0, d2 != 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
731 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
732 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
733 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
734
986e461dc072 Initial revision
glantau
parents:
diff changeset
735 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
736
986e461dc072 Initial revision
glantau
parents:
diff changeset
737 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
738 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
739 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
740 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
741 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
742 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
743 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
744 /* d0 != 0, d2 == 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
745 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
746 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
747
986e461dc072 Initial revision
glantau
parents:
diff changeset
748 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
749 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
750
986e461dc072 Initial revision
glantau
parents:
diff changeset
751 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
752 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
753 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
754 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
755 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
756 /* d0 == 0, d2 == 0, d4 != 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
757 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
758 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
759
986e461dc072 Initial revision
glantau
parents:
diff changeset
760 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
761
986e461dc072 Initial revision
glantau
parents:
diff changeset
762 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
763 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
764 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
765 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
766 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
767 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
768 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
769 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
770 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
771 /* d0 != 0, d2 != 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
772 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
773 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
774 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
775
986e461dc072 Initial revision
glantau
parents:
diff changeset
776 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
777
986e461dc072 Initial revision
glantau
parents:
diff changeset
778 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
779 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
780 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
781 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
782 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
783 /* d0 == 0, d2 != 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
784 z1 = MULTIPLY(d2 + d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
785 tmp2 = z1 + MULTIPLY(-d6, FIX_1_847759065);
986e461dc072 Initial revision
glantau
parents:
diff changeset
786 tmp3 = z1 + MULTIPLY(d2, FIX_0_765366865);
986e461dc072 Initial revision
glantau
parents:
diff changeset
787
986e461dc072 Initial revision
glantau
parents:
diff changeset
788 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
789 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
790 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
791 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
792 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
793 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
794 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
795 /* d0 != 0, d2 == 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
796 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
797 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
798
986e461dc072 Initial revision
glantau
parents:
diff changeset
799 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
800
986e461dc072 Initial revision
glantau
parents:
diff changeset
801 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
802 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
803 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
804 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
805 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
806 /* d0 == 0, d2 == 0, d4 == 0, d6 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
807 tmp2 = MULTIPLY(-d6, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
808 tmp3 = MULTIPLY(d6, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
809
986e461dc072 Initial revision
glantau
parents:
diff changeset
810 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
811 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
812 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
813 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
814 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
815 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
816 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
817 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
818 if (d4) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
819 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
820 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
821 /* d0 != 0, d2 != 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
822 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
823 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
824
986e461dc072 Initial revision
glantau
parents:
diff changeset
825 tmp0 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
826 tmp1 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
827
986e461dc072 Initial revision
glantau
parents:
diff changeset
828 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
829 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
830 tmp11 = tmp1 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
831 tmp12 = tmp1 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
832 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
833 /* d0 == 0, d2 != 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
834 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
835 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
836
986e461dc072 Initial revision
glantau
parents:
diff changeset
837 tmp0 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
838
986e461dc072 Initial revision
glantau
parents:
diff changeset
839 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
840 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
841 tmp11 = tmp2 - tmp0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
842 tmp12 = -(tmp0 + tmp2);
986e461dc072 Initial revision
glantau
parents:
diff changeset
843 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
844 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
845 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
846 /* d0 != 0, d2 == 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
847 tmp10 = tmp13 = (d0 + d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
848 tmp11 = tmp12 = (d0 - d4) << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
849 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
850 /* d0 == 0, d2 == 0, d4 != 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
851 tmp10 = tmp13 = d4 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
852 tmp11 = tmp12 = -tmp10;
986e461dc072 Initial revision
glantau
parents:
diff changeset
853 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
854 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
855 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
856 if (d2) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
857 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
858 /* d0 != 0, d2 != 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
859 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
860 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
861
986e461dc072 Initial revision
glantau
parents:
diff changeset
862 tmp0 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
863
986e461dc072 Initial revision
glantau
parents:
diff changeset
864 tmp10 = tmp0 + tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
865 tmp13 = tmp0 - tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
866 tmp11 = tmp0 + tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
867 tmp12 = tmp0 - tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
868 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
869 /* d0 == 0, d2 != 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
870 tmp2 = MULTIPLY(d2, FIX_0_541196100);
986e461dc072 Initial revision
glantau
parents:
diff changeset
871 tmp3 = MULTIPLY(d2, FIX_1_306562965);
986e461dc072 Initial revision
glantau
parents:
diff changeset
872
986e461dc072 Initial revision
glantau
parents:
diff changeset
873 tmp10 = tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
874 tmp13 = -tmp3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
875 tmp11 = tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
876 tmp12 = -tmp2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
877 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
878 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
879 if (d0) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
880 /* d0 != 0, d2 == 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
881 tmp10 = tmp13 = tmp11 = tmp12 = d0 << CONST_BITS;
986e461dc072 Initial revision
glantau
parents:
diff changeset
882 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
883 /* d0 == 0, d2 == 0, d4 == 0, d6 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
884 tmp10 = tmp13 = tmp11 = tmp12 = 0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
885 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
886 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
887 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
888 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
889
986e461dc072 Initial revision
glantau
parents:
diff changeset
890 /* Odd part per figure 8; the matrix is unitary and hence its
986e461dc072 Initial revision
glantau
parents:
diff changeset
891 * transpose is its inverse. i0..i3 are y7,y5,y3,y1 respectively.
986e461dc072 Initial revision
glantau
parents:
diff changeset
892 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
893 if (d7) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
894 if (d5) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
895 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
896 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
897 /* d1 != 0, d3 != 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
898 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
899 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
900 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
901 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
902 z5 = MULTIPLY(z3 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
903
986e461dc072 Initial revision
glantau
parents:
diff changeset
904 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
905 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
906 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
907 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
908 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
909 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
910 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
911 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
912
986e461dc072 Initial revision
glantau
parents:
diff changeset
913 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
914 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
915
986e461dc072 Initial revision
glantau
parents:
diff changeset
916 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
917 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
918 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
919 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
920 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
921 /* d1 == 0, d3 != 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
922 z1 = d7;
986e461dc072 Initial revision
glantau
parents:
diff changeset
923 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
924 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
925 z5 = MULTIPLY(z3 + d5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
926
986e461dc072 Initial revision
glantau
parents:
diff changeset
927 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
928 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
929 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
930 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
931 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
932 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
933 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
934
986e461dc072 Initial revision
glantau
parents:
diff changeset
935 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
936 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
937
986e461dc072 Initial revision
glantau
parents:
diff changeset
938 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
939 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
940 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
941 tmp3 = z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
942 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
943 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
944 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
945 /* d1 != 0, d3 == 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
946 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
947 z2 = d5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
948 z3 = d7;
986e461dc072 Initial revision
glantau
parents:
diff changeset
949 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
950 z5 = MULTIPLY(z3 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
951
986e461dc072 Initial revision
glantau
parents:
diff changeset
952 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
953 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
954 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
955 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
956 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
957 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
958 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
959
986e461dc072 Initial revision
glantau
parents:
diff changeset
960 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
961 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
962
986e461dc072 Initial revision
glantau
parents:
diff changeset
963 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
964 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
965 tmp2 = z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
966 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
967 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
968 /* d1 == 0, d3 == 0, d5 != 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
969 tmp0 = MULTIPLY(-d7, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
970 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
971 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
972 tmp1 = MULTIPLY(-d5, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
973 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
974 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
975 z5 = MULTIPLY(d5 + d7, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
976
986e461dc072 Initial revision
glantau
parents:
diff changeset
977 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
978 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
979
986e461dc072 Initial revision
glantau
parents:
diff changeset
980 tmp0 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
981 tmp1 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
982 tmp2 = z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
983 tmp3 = z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
984 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
985 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
986 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
987 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
988 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
989 /* d1 != 0, d3 != 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
990 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
991 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
992 z5 = MULTIPLY(z3 + d1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
993
986e461dc072 Initial revision
glantau
parents:
diff changeset
994 tmp0 = MULTIPLY(d7, FIX_0_298631336);
986e461dc072 Initial revision
glantau
parents:
diff changeset
995 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
996 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
997 z1 = MULTIPLY(-z1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
998 z2 = MULTIPLY(-d3, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
999 z3 = MULTIPLY(-z3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1000 z4 = MULTIPLY(-d1, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1001
986e461dc072 Initial revision
glantau
parents:
diff changeset
1002 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1003 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1004
986e461dc072 Initial revision
glantau
parents:
diff changeset
1005 tmp0 += z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1006 tmp1 = z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1007 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1008 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1009 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1010 /* d1 == 0, d3 != 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1011 z3 = d7 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1012
986e461dc072 Initial revision
glantau
parents:
diff changeset
1013 tmp0 = MULTIPLY(-d7, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1014 z1 = MULTIPLY(-d7, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1015 tmp2 = MULTIPLY(d3, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1016 z2 = MULTIPLY(-d3, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1017 z5 = MULTIPLY(z3, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1018 z3 = MULTIPLY(-z3, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1019
986e461dc072 Initial revision
glantau
parents:
diff changeset
1020 tmp0 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1021 tmp1 = z2 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1022 tmp2 += z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1023 tmp3 = z1 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1024 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1025 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1026 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1027 /* d1 != 0, d3 == 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1028 z1 = d7 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1029 z5 = MULTIPLY(z1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1030
986e461dc072 Initial revision
glantau
parents:
diff changeset
1031 z1 = MULTIPLY(z1, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1032 z3 = MULTIPLY(-d7, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1033 tmp0 = MULTIPLY(-d7, FIX_1_662939225);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1034 z4 = MULTIPLY(-d1, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1035 tmp3 = MULTIPLY(d1, FIX_1_111140466);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1036
986e461dc072 Initial revision
glantau
parents:
diff changeset
1037 tmp0 += z1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1038 tmp1 = z4 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1039 tmp2 = z3 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1040 tmp3 += z1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1041 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1042 /* d1 == 0, d3 == 0, d5 == 0, d7 != 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1043 tmp0 = MULTIPLY(-d7, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1044 tmp1 = MULTIPLY(d7, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1045 tmp2 = MULTIPLY(-d7, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1046 tmp3 = MULTIPLY(d7, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1047 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1048 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1049 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1050 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1051 if (d5) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1052 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1053 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1054 /* d1 != 0, d3 != 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1055 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1056 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1057 z5 = MULTIPLY(d3 + z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1058
986e461dc072 Initial revision
glantau
parents:
diff changeset
1059 tmp1 = MULTIPLY(d5, FIX_2_053119869);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1060 tmp2 = MULTIPLY(d3, FIX_3_072711026);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1061 tmp3 = MULTIPLY(d1, FIX_1_501321110);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1062 z1 = MULTIPLY(-d1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1063 z2 = MULTIPLY(-z2, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1064 z3 = MULTIPLY(-d3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1065 z4 = MULTIPLY(-z4, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1066
986e461dc072 Initial revision
glantau
parents:
diff changeset
1067 z3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1068 z4 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1069
986e461dc072 Initial revision
glantau
parents:
diff changeset
1070 tmp0 = z1 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1071 tmp1 += z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1072 tmp2 += z2 + z3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1073 tmp3 += z1 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1074 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1075 /* d1 == 0, d3 != 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1076 z2 = d5 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1077
986e461dc072 Initial revision
glantau
parents:
diff changeset
1078 z5 = MULTIPLY(z2, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1079 tmp1 = MULTIPLY(d5, FIX_1_662939225);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1080 z4 = MULTIPLY(-d5, FIX_0_390180644);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1081 z2 = MULTIPLY(-z2, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1082 tmp2 = MULTIPLY(d3, FIX_1_111140466);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1083 z3 = MULTIPLY(-d3, FIX_1_961570560);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1084
986e461dc072 Initial revision
glantau
parents:
diff changeset
1085 tmp0 = z3 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1086 tmp1 += z2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1087 tmp2 += z2;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1088 tmp3 = z4 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1089 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1090 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1091 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1092 /* d1 != 0, d3 == 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1093 z4 = d5 + d1;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1094
986e461dc072 Initial revision
glantau
parents:
diff changeset
1095 z5 = MULTIPLY(z4, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1096 z1 = MULTIPLY(-d1, FIX_0_899976223);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1097 tmp3 = MULTIPLY(d1, FIX_0_601344887);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1098 tmp1 = MULTIPLY(-d5, FIX_0_509795579);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1099 z2 = MULTIPLY(-d5, FIX_2_562915447);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1100 z4 = MULTIPLY(z4, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1101
986e461dc072 Initial revision
glantau
parents:
diff changeset
1102 tmp0 = z1 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1103 tmp1 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1104 tmp2 = z2 + z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1105 tmp3 += z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1106 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1107 /* d1 == 0, d3 == 0, d5 != 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1108 tmp0 = MULTIPLY(d5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1109 tmp1 = MULTIPLY(d5, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1110 tmp2 = MULTIPLY(-d5, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1111 tmp3 = MULTIPLY(d5, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1112 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1113 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1114 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1115 if (d3) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1116 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1117 /* d1 != 0, d3 != 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1118 z5 = d1 + d3;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1119 tmp3 = MULTIPLY(d1, FIX_0_211164243);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1120 tmp2 = MULTIPLY(-d3, FIX_1_451774981);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1121 z1 = MULTIPLY(d1, FIX_1_061594337);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1122 z2 = MULTIPLY(-d3, FIX_2_172734803);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1123 z4 = MULTIPLY(z5, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1124 z5 = MULTIPLY(z5, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1125
986e461dc072 Initial revision
glantau
parents:
diff changeset
1126 tmp0 = z1 - z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1127 tmp1 = z2 + z4;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1128 tmp2 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1129 tmp3 += z5;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1130 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1131 /* d1 == 0, d3 != 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1132 tmp0 = MULTIPLY(-d3, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1133 tmp1 = MULTIPLY(-d3, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1134 tmp2 = MULTIPLY(-d3, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1135 tmp3 = MULTIPLY(d3, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1136 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1137 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1138 if (d1) {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1139 /* d1 != 0, d3 == 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1140 tmp0 = MULTIPLY(d1, FIX_0_275899380);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1141 tmp1 = MULTIPLY(d1, FIX_0_785694958);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1142 tmp2 = MULTIPLY(d1, FIX_1_175875602);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1143 tmp3 = MULTIPLY(d1, FIX_1_387039845);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1144 } else {
986e461dc072 Initial revision
glantau
parents:
diff changeset
1145 /* d1 == 0, d3 == 0, d5 == 0, d7 == 0 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1146 tmp0 = tmp1 = tmp2 = tmp3 = 0;
986e461dc072 Initial revision
glantau
parents:
diff changeset
1147 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1148 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1149 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1150 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1151
986e461dc072 Initial revision
glantau
parents:
diff changeset
1152 /* Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1153
986e461dc072 Initial revision
glantau
parents:
diff changeset
1154 dataptr[DCTSIZE*0] = (DCTELEM) DESCALE(tmp10 + tmp3,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1155 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1156 dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp10 - tmp3,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1157 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1158 dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp11 + tmp2,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1159 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1160 dataptr[DCTSIZE*6] = (DCTELEM) DESCALE(tmp11 - tmp2,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1161 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1162 dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(tmp12 + tmp1,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1163 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1164 dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp12 - tmp1,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1165 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1166 dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp13 + tmp0,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1167 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1168 dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(tmp13 - tmp0,
986e461dc072 Initial revision
glantau
parents:
diff changeset
1169 CONST_BITS+PASS1_BITS+3);
986e461dc072 Initial revision
glantau
parents:
diff changeset
1170
986e461dc072 Initial revision
glantau
parents:
diff changeset
1171 dataptr++; /* advance pointer to next column */
986e461dc072 Initial revision
glantau
parents:
diff changeset
1172 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1173 }
986e461dc072 Initial revision
glantau
parents:
diff changeset
1174
440
000aeeac27a2 * started to cleanup name clashes for onetime compilation
kabi
parents: 36
diff changeset
1175 #undef FIX
000aeeac27a2 * started to cleanup name clashes for onetime compilation
kabi
parents: 36
diff changeset
1176 #undef CONST_BITS