isbn 2.0.4 → 2.0.5

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (288) hide show
  1. data/{README → README.md} +5 -11
  2. data/Rakefile +20 -14
  3. data/isbn.gemspec +23 -0
  4. data/lib/isbn.rb +2 -0
  5. data/test/isbn_spec.rb +1 -1
  6. metadata +29 -316
  7. data/VERSION +0 -1
  8. data/src/gocr-0.48/.cvsignore +0 -6
  9. data/src/gocr-0.48/AUTHORS +0 -7
  10. data/src/gocr-0.48/BUGS +0 -55
  11. data/src/gocr-0.48/CREDITS +0 -17
  12. data/src/gocr-0.48/HISTORY +0 -243
  13. data/src/gocr-0.48/INSTALL +0 -83
  14. data/src/gocr-0.48/Makefile +0 -193
  15. data/src/gocr-0.48/Makefile.in +0 -193
  16. data/src/gocr-0.48/README +0 -165
  17. data/src/gocr-0.48/READMEde.txt +0 -80
  18. data/src/gocr-0.48/REMARK.txt +0 -18
  19. data/src/gocr-0.48/REVIEW +0 -538
  20. data/src/gocr-0.48/TODO +0 -65
  21. data/src/gocr-0.48/bin/.cvsignore +0 -2
  22. data/src/gocr-0.48/bin/create_db +0 -38
  23. data/src/gocr-0.48/bin/gocr.tcl +0 -527
  24. data/src/gocr-0.48/bin/gocr_chk.sh +0 -44
  25. data/src/gocr-0.48/configure +0 -4689
  26. data/src/gocr-0.48/configure.in +0 -71
  27. data/src/gocr-0.48/doc/.#Makefile.1.6 +0 -39
  28. data/src/gocr-0.48/doc/.cvsignore +0 -2
  29. data/src/gocr-0.48/doc/Makefile +0 -39
  30. data/src/gocr-0.48/doc/Makefile.in +0 -39
  31. data/src/gocr-0.48/doc/example.dtd +0 -53
  32. data/src/gocr-0.48/doc/example.xml +0 -21
  33. data/src/gocr-0.48/doc/examples.txt +0 -67
  34. data/src/gocr-0.48/doc/gocr.html +0 -578
  35. data/src/gocr-0.48/doc/unicode.txt +0 -57
  36. data/src/gocr-0.48/examples/.#Makefile.1.22 +0 -166
  37. data/src/gocr-0.48/examples/4x6.png +0 -0
  38. data/src/gocr-0.48/examples/4x6.txt +0 -2
  39. data/src/gocr-0.48/examples/5x7.png +0 -0
  40. data/src/gocr-0.48/examples/5x7.png.txt +0 -2
  41. data/src/gocr-0.48/examples/5x8.png +0 -0
  42. data/src/gocr-0.48/examples/5x8.png.txt +0 -2
  43. data/src/gocr-0.48/examples/Makefile +0 -166
  44. data/src/gocr-0.48/examples/color.fig +0 -20
  45. data/src/gocr-0.48/examples/ex.fig +0 -16
  46. data/src/gocr-0.48/examples/font.tex +0 -22
  47. data/src/gocr-0.48/examples/font1.tex +0 -46
  48. data/src/gocr-0.48/examples/font2.fig +0 -27
  49. data/src/gocr-0.48/examples/font_nw.tex +0 -24
  50. data/src/gocr-0.48/examples/handwrt1.jpg +0 -0
  51. data/src/gocr-0.48/examples/handwrt1.txt +0 -10
  52. data/src/gocr-0.48/examples/inverse.fig +0 -20
  53. data/src/gocr-0.48/examples/matrix.jpg +0 -0
  54. data/src/gocr-0.48/examples/ocr-a-subset.png +0 -0
  55. data/src/gocr-0.48/examples/ocr-a-subset.png.txt +0 -4
  56. data/src/gocr-0.48/examples/ocr-a.png +0 -0
  57. data/src/gocr-0.48/examples/ocr-a.txt +0 -6
  58. data/src/gocr-0.48/examples/ocr-b.png +0 -0
  59. data/src/gocr-0.48/examples/ocr-b.png.txt +0 -4
  60. data/src/gocr-0.48/examples/polish.tex +0 -28
  61. data/src/gocr-0.48/examples/rotate45.fig +0 -14
  62. data/src/gocr-0.48/examples/score +0 -36
  63. data/src/gocr-0.48/examples/text.tex +0 -28
  64. data/src/gocr-0.48/gpl.html +0 -537
  65. data/src/gocr-0.48/include/.cvsignore +0 -2
  66. data/src/gocr-0.48/include/config.h +0 -36
  67. data/src/gocr-0.48/include/config.h.in +0 -36
  68. data/src/gocr-0.48/include/version.h +0 -2
  69. data/src/gocr-0.48/install-sh +0 -3
  70. data/src/gocr-0.48/make.bat +0 -57
  71. data/src/gocr-0.48/man/.cvsignore +0 -2
  72. data/src/gocr-0.48/man/Makefile +0 -29
  73. data/src/gocr-0.48/man/Makefile.in +0 -29
  74. data/src/gocr-0.48/man/man1/gocr.1 +0 -166
  75. data/src/gocr-0.48/src/.cvsignore +0 -4
  76. data/src/gocr-0.48/src/Makefile +0 -132
  77. data/src/gocr-0.48/src/Makefile.in +0 -132
  78. data/src/gocr-0.48/src/amiga.h +0 -31
  79. data/src/gocr-0.48/src/barcode.c +0 -846
  80. data/src/gocr-0.48/src/barcode.c.orig +0 -593
  81. data/src/gocr-0.48/src/barcode.h +0 -11
  82. data/src/gocr-0.48/src/box.c +0 -372
  83. data/src/gocr-0.48/src/database.c +0 -462
  84. data/src/gocr-0.48/src/detect.c +0 -943
  85. data/src/gocr-0.48/src/gocr.c +0 -373
  86. data/src/gocr-0.48/src/gocr.h +0 -288
  87. data/src/gocr-0.48/src/jconv.c +0 -168
  88. data/src/gocr-0.48/src/job.c +0 -84
  89. data/src/gocr-0.48/src/lines.c +0 -350
  90. data/src/gocr-0.48/src/list.c +0 -334
  91. data/src/gocr-0.48/src/list.h +0 -90
  92. data/src/gocr-0.48/src/ocr0.c +0 -6756
  93. data/src/gocr-0.48/src/ocr0.h +0 -63
  94. data/src/gocr-0.48/src/ocr0n.c +0 -1475
  95. data/src/gocr-0.48/src/ocr1.c +0 -85
  96. data/src/gocr-0.48/src/ocr1.h +0 -3
  97. data/src/gocr-0.48/src/otsu.c +0 -289
  98. data/src/gocr-0.48/src/otsu.h +0 -23
  99. data/src/gocr-0.48/src/output.c +0 -289
  100. data/src/gocr-0.48/src/output.h +0 -37
  101. data/src/gocr-0.48/src/pcx.c +0 -153
  102. data/src/gocr-0.48/src/pcx.h +0 -9
  103. data/src/gocr-0.48/src/pgm2asc.c +0 -2893
  104. data/src/gocr-0.48/src/pgm2asc.h +0 -105
  105. data/src/gocr-0.48/src/pixel.c +0 -537
  106. data/src/gocr-0.48/src/pnm.c +0 -533
  107. data/src/gocr-0.48/src/pnm.h +0 -35
  108. data/src/gocr-0.48/src/progress.c +0 -87
  109. data/src/gocr-0.48/src/progress.h +0 -42
  110. data/src/gocr-0.48/src/remove.c +0 -703
  111. data/src/gocr-0.48/src/tga.c +0 -87
  112. data/src/gocr-0.48/src/tga.h +0 -6
  113. data/src/gocr-0.48/src/unicode.c +0 -1314
  114. data/src/gocr-0.48/src/unicode.h +0 -1257
  115. data/src/jpeg-7/Makefile.am +0 -133
  116. data/src/jpeg-7/Makefile.in +0 -1089
  117. data/src/jpeg-7/README +0 -322
  118. data/src/jpeg-7/aclocal.m4 +0 -8990
  119. data/src/jpeg-7/ansi2knr.1 +0 -36
  120. data/src/jpeg-7/ansi2knr.c +0 -739
  121. data/src/jpeg-7/cderror.h +0 -132
  122. data/src/jpeg-7/cdjpeg.c +0 -181
  123. data/src/jpeg-7/cdjpeg.h +0 -187
  124. data/src/jpeg-7/change.log +0 -270
  125. data/src/jpeg-7/cjpeg.1 +0 -325
  126. data/src/jpeg-7/cjpeg.c +0 -616
  127. data/src/jpeg-7/ckconfig.c +0 -402
  128. data/src/jpeg-7/coderules.txt +0 -118
  129. data/src/jpeg-7/config.guess +0 -1561
  130. data/src/jpeg-7/config.sub +0 -1686
  131. data/src/jpeg-7/configure +0 -17139
  132. data/src/jpeg-7/configure.ac +0 -317
  133. data/src/jpeg-7/depcomp +0 -630
  134. data/src/jpeg-7/djpeg.1 +0 -251
  135. data/src/jpeg-7/djpeg.c +0 -617
  136. data/src/jpeg-7/example.c +0 -433
  137. data/src/jpeg-7/filelist.txt +0 -215
  138. data/src/jpeg-7/install-sh +0 -520
  139. data/src/jpeg-7/install.txt +0 -1097
  140. data/src/jpeg-7/jaricom.c +0 -148
  141. data/src/jpeg-7/jcapimin.c +0 -282
  142. data/src/jpeg-7/jcapistd.c +0 -161
  143. data/src/jpeg-7/jcarith.c +0 -921
  144. data/src/jpeg-7/jccoefct.c +0 -453
  145. data/src/jpeg-7/jccolor.c +0 -459
  146. data/src/jpeg-7/jcdctmgr.c +0 -482
  147. data/src/jpeg-7/jchuff.c +0 -1612
  148. data/src/jpeg-7/jcinit.c +0 -65
  149. data/src/jpeg-7/jcmainct.c +0 -293
  150. data/src/jpeg-7/jcmarker.c +0 -667
  151. data/src/jpeg-7/jcmaster.c +0 -770
  152. data/src/jpeg-7/jcomapi.c +0 -106
  153. data/src/jpeg-7/jconfig.bcc +0 -48
  154. data/src/jpeg-7/jconfig.cfg +0 -45
  155. data/src/jpeg-7/jconfig.dj +0 -38
  156. data/src/jpeg-7/jconfig.mac +0 -43
  157. data/src/jpeg-7/jconfig.manx +0 -43
  158. data/src/jpeg-7/jconfig.mc6 +0 -52
  159. data/src/jpeg-7/jconfig.sas +0 -43
  160. data/src/jpeg-7/jconfig.st +0 -42
  161. data/src/jpeg-7/jconfig.txt +0 -155
  162. data/src/jpeg-7/jconfig.vc +0 -45
  163. data/src/jpeg-7/jconfig.vms +0 -37
  164. data/src/jpeg-7/jconfig.wat +0 -38
  165. data/src/jpeg-7/jcparam.c +0 -632
  166. data/src/jpeg-7/jcprepct.c +0 -358
  167. data/src/jpeg-7/jcsample.c +0 -545
  168. data/src/jpeg-7/jctrans.c +0 -381
  169. data/src/jpeg-7/jdapimin.c +0 -396
  170. data/src/jpeg-7/jdapistd.c +0 -275
  171. data/src/jpeg-7/jdarith.c +0 -762
  172. data/src/jpeg-7/jdatadst.c +0 -151
  173. data/src/jpeg-7/jdatasrc.c +0 -212
  174. data/src/jpeg-7/jdcoefct.c +0 -736
  175. data/src/jpeg-7/jdcolor.c +0 -396
  176. data/src/jpeg-7/jdct.h +0 -393
  177. data/src/jpeg-7/jddctmgr.c +0 -382
  178. data/src/jpeg-7/jdhuff.c +0 -1309
  179. data/src/jpeg-7/jdinput.c +0 -384
  180. data/src/jpeg-7/jdmainct.c +0 -512
  181. data/src/jpeg-7/jdmarker.c +0 -1360
  182. data/src/jpeg-7/jdmaster.c +0 -663
  183. data/src/jpeg-7/jdmerge.c +0 -400
  184. data/src/jpeg-7/jdpostct.c +0 -290
  185. data/src/jpeg-7/jdsample.c +0 -361
  186. data/src/jpeg-7/jdtrans.c +0 -136
  187. data/src/jpeg-7/jerror.c +0 -252
  188. data/src/jpeg-7/jerror.h +0 -304
  189. data/src/jpeg-7/jfdctflt.c +0 -174
  190. data/src/jpeg-7/jfdctfst.c +0 -230
  191. data/src/jpeg-7/jfdctint.c +0 -4348
  192. data/src/jpeg-7/jidctflt.c +0 -242
  193. data/src/jpeg-7/jidctfst.c +0 -368
  194. data/src/jpeg-7/jidctint.c +0 -5137
  195. data/src/jpeg-7/jinclude.h +0 -91
  196. data/src/jpeg-7/jmemansi.c +0 -167
  197. data/src/jpeg-7/jmemdos.c +0 -638
  198. data/src/jpeg-7/jmemdosa.asm +0 -379
  199. data/src/jpeg-7/jmemmac.c +0 -289
  200. data/src/jpeg-7/jmemmgr.c +0 -1118
  201. data/src/jpeg-7/jmemname.c +0 -276
  202. data/src/jpeg-7/jmemnobs.c +0 -109
  203. data/src/jpeg-7/jmemsys.h +0 -198
  204. data/src/jpeg-7/jmorecfg.h +0 -369
  205. data/src/jpeg-7/jpegint.h +0 -395
  206. data/src/jpeg-7/jpeglib.h +0 -1135
  207. data/src/jpeg-7/jpegtran.1 +0 -272
  208. data/src/jpeg-7/jpegtran.c +0 -546
  209. data/src/jpeg-7/jquant1.c +0 -856
  210. data/src/jpeg-7/jquant2.c +0 -1310
  211. data/src/jpeg-7/jutils.c +0 -179
  212. data/src/jpeg-7/jversion.h +0 -14
  213. data/src/jpeg-7/libjpeg.map +0 -4
  214. data/src/jpeg-7/libjpeg.txt +0 -3067
  215. data/src/jpeg-7/ltmain.sh +0 -8406
  216. data/src/jpeg-7/makcjpeg.st +0 -36
  217. data/src/jpeg-7/makdjpeg.st +0 -36
  218. data/src/jpeg-7/makeadsw.vc6 +0 -77
  219. data/src/jpeg-7/makeasln.vc9 +0 -33
  220. data/src/jpeg-7/makecdep.vc6 +0 -82
  221. data/src/jpeg-7/makecdsp.vc6 +0 -130
  222. data/src/jpeg-7/makecmak.vc6 +0 -159
  223. data/src/jpeg-7/makecvcp.vc9 +0 -186
  224. data/src/jpeg-7/makeddep.vc6 +0 -82
  225. data/src/jpeg-7/makeddsp.vc6 +0 -130
  226. data/src/jpeg-7/makedmak.vc6 +0 -159
  227. data/src/jpeg-7/makedvcp.vc9 +0 -186
  228. data/src/jpeg-7/makefile.ansi +0 -220
  229. data/src/jpeg-7/makefile.bcc +0 -291
  230. data/src/jpeg-7/makefile.dj +0 -226
  231. data/src/jpeg-7/makefile.manx +0 -220
  232. data/src/jpeg-7/makefile.mc6 +0 -255
  233. data/src/jpeg-7/makefile.mms +0 -224
  234. data/src/jpeg-7/makefile.sas +0 -258
  235. data/src/jpeg-7/makefile.unix +0 -234
  236. data/src/jpeg-7/makefile.vc +0 -217
  237. data/src/jpeg-7/makefile.vms +0 -142
  238. data/src/jpeg-7/makefile.wat +0 -239
  239. data/src/jpeg-7/makejdep.vc6 +0 -423
  240. data/src/jpeg-7/makejdsp.vc6 +0 -285
  241. data/src/jpeg-7/makejdsw.vc6 +0 -29
  242. data/src/jpeg-7/makejmak.vc6 +0 -425
  243. data/src/jpeg-7/makejsln.vc9 +0 -17
  244. data/src/jpeg-7/makejvcp.vc9 +0 -328
  245. data/src/jpeg-7/makeproj.mac +0 -213
  246. data/src/jpeg-7/makerdep.vc6 +0 -6
  247. data/src/jpeg-7/makerdsp.vc6 +0 -78
  248. data/src/jpeg-7/makermak.vc6 +0 -110
  249. data/src/jpeg-7/makervcp.vc9 +0 -133
  250. data/src/jpeg-7/maketdep.vc6 +0 -43
  251. data/src/jpeg-7/maketdsp.vc6 +0 -122
  252. data/src/jpeg-7/maketmak.vc6 +0 -131
  253. data/src/jpeg-7/maketvcp.vc9 +0 -178
  254. data/src/jpeg-7/makewdep.vc6 +0 -6
  255. data/src/jpeg-7/makewdsp.vc6 +0 -78
  256. data/src/jpeg-7/makewmak.vc6 +0 -110
  257. data/src/jpeg-7/makewvcp.vc9 +0 -133
  258. data/src/jpeg-7/makljpeg.st +0 -68
  259. data/src/jpeg-7/maktjpeg.st +0 -30
  260. data/src/jpeg-7/makvms.opt +0 -4
  261. data/src/jpeg-7/missing +0 -376
  262. data/src/jpeg-7/rdbmp.c +0 -439
  263. data/src/jpeg-7/rdcolmap.c +0 -253
  264. data/src/jpeg-7/rdgif.c +0 -38
  265. data/src/jpeg-7/rdjpgcom.1 +0 -63
  266. data/src/jpeg-7/rdjpgcom.c +0 -515
  267. data/src/jpeg-7/rdppm.c +0 -459
  268. data/src/jpeg-7/rdrle.c +0 -387
  269. data/src/jpeg-7/rdswitch.c +0 -365
  270. data/src/jpeg-7/rdtarga.c +0 -500
  271. data/src/jpeg-7/structure.txt +0 -945
  272. data/src/jpeg-7/testimg.bmp +0 -0
  273. data/src/jpeg-7/testimg.jpg +0 -0
  274. data/src/jpeg-7/testimg.ppm +0 -4
  275. data/src/jpeg-7/testimgp.jpg +0 -0
  276. data/src/jpeg-7/testorig.jpg +0 -0
  277. data/src/jpeg-7/testprog.jpg +0 -0
  278. data/src/jpeg-7/transupp.c +0 -1533
  279. data/src/jpeg-7/transupp.h +0 -205
  280. data/src/jpeg-7/usage.txt +0 -605
  281. data/src/jpeg-7/wizard.txt +0 -211
  282. data/src/jpeg-7/wrbmp.c +0 -442
  283. data/src/jpeg-7/wrgif.c +0 -399
  284. data/src/jpeg-7/wrjpgcom.1 +0 -103
  285. data/src/jpeg-7/wrjpgcom.c +0 -583
  286. data/src/jpeg-7/wrppm.c +0 -269
  287. data/src/jpeg-7/wrrle.c +0 -305
  288. data/src/jpeg-7/wrtarga.c +0 -253
@@ -1,174 +0,0 @@
1
- /*
2
- * jfdctflt.c
3
- *
4
- * Copyright (C) 1994-1996, Thomas G. Lane.
5
- * Modified 2003-2009 by Guido Vollbeding.
6
- * This file is part of the Independent JPEG Group's software.
7
- * For conditions of distribution and use, see the accompanying README file.
8
- *
9
- * This file contains a floating-point implementation of the
10
- * forward DCT (Discrete Cosine Transform).
11
- *
12
- * This implementation should be more accurate than either of the integer
13
- * DCT implementations. However, it may not give the same results on all
14
- * machines because of differences in roundoff behavior. Speed will depend
15
- * on the hardware's floating point capacity.
16
- *
17
- * A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
18
- * on each column. Direct algorithms are also available, but they are
19
- * much more complex and seem not to be any faster when reduced to code.
20
- *
21
- * This implementation is based on Arai, Agui, and Nakajima's algorithm for
22
- * scaled DCT. Their original paper (Trans. IEICE E-71(11):1095) is in
23
- * Japanese, but the algorithm is described in the Pennebaker & Mitchell
24
- * JPEG textbook (see REFERENCES section in file README). The following code
25
- * is based directly on figure 4-8 in P&M.
26
- * While an 8-point DCT cannot be done in less than 11 multiplies, it is
27
- * possible to arrange the computation so that many of the multiplies are
28
- * simple scalings of the final outputs. These multiplies can then be
29
- * folded into the multiplications or divisions by the JPEG quantization
30
- * table entries. The AA&N method leaves only 5 multiplies and 29 adds
31
- * to be done in the DCT itself.
32
- * The primary disadvantage of this method is that with a fixed-point
33
- * implementation, accuracy is lost due to imprecise representation of the
34
- * scaled quantization values. However, that problem does not arise if
35
- * we use floating point arithmetic.
36
- */
37
-
38
- #define JPEG_INTERNALS
39
- #include "jinclude.h"
40
- #include "jpeglib.h"
41
- #include "jdct.h" /* Private declarations for DCT subsystem */
42
-
43
- #ifdef DCT_FLOAT_SUPPORTED
44
-
45
-
46
- /*
47
- * This module is specialized to the case DCTSIZE = 8.
48
- */
49
-
50
- #if DCTSIZE != 8
51
- Sorry, this code only copes with 8x8 DCTs. /* deliberate syntax err */
52
- #endif
53
-
54
-
55
- /*
56
- * Perform the forward DCT on one block of samples.
57
- */
58
-
59
- GLOBAL(void)
60
- jpeg_fdct_float (FAST_FLOAT * data, JSAMPARRAY sample_data, JDIMENSION start_col)
61
- {
62
- FAST_FLOAT tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
63
- FAST_FLOAT tmp10, tmp11, tmp12, tmp13;
64
- FAST_FLOAT z1, z2, z3, z4, z5, z11, z13;
65
- FAST_FLOAT *dataptr;
66
- JSAMPROW elemptr;
67
- int ctr;
68
-
69
- /* Pass 1: process rows. */
70
-
71
- dataptr = data;
72
- for (ctr = 0; ctr < DCTSIZE; ctr++) {
73
- elemptr = sample_data[ctr] + start_col;
74
-
75
- /* Load data into workspace */
76
- tmp0 = (FAST_FLOAT) (GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[7]));
77
- tmp7 = (FAST_FLOAT) (GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[7]));
78
- tmp1 = (FAST_FLOAT) (GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[6]));
79
- tmp6 = (FAST_FLOAT) (GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[6]));
80
- tmp2 = (FAST_FLOAT) (GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[5]));
81
- tmp5 = (FAST_FLOAT) (GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[5]));
82
- tmp3 = (FAST_FLOAT) (GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[4]));
83
- tmp4 = (FAST_FLOAT) (GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[4]));
84
-
85
- /* Even part */
86
-
87
- tmp10 = tmp0 + tmp3; /* phase 2 */
88
- tmp13 = tmp0 - tmp3;
89
- tmp11 = tmp1 + tmp2;
90
- tmp12 = tmp1 - tmp2;
91
-
92
- /* Apply unsigned->signed conversion */
93
- dataptr[0] = tmp10 + tmp11 - 8 * CENTERJSAMPLE; /* phase 3 */
94
- dataptr[4] = tmp10 - tmp11;
95
-
96
- z1 = (tmp12 + tmp13) * ((FAST_FLOAT) 0.707106781); /* c4 */
97
- dataptr[2] = tmp13 + z1; /* phase 5 */
98
- dataptr[6] = tmp13 - z1;
99
-
100
- /* Odd part */
101
-
102
- tmp10 = tmp4 + tmp5; /* phase 2 */
103
- tmp11 = tmp5 + tmp6;
104
- tmp12 = tmp6 + tmp7;
105
-
106
- /* The rotator is modified from fig 4-8 to avoid extra negations. */
107
- z5 = (tmp10 - tmp12) * ((FAST_FLOAT) 0.382683433); /* c6 */
108
- z2 = ((FAST_FLOAT) 0.541196100) * tmp10 + z5; /* c2-c6 */
109
- z4 = ((FAST_FLOAT) 1.306562965) * tmp12 + z5; /* c2+c6 */
110
- z3 = tmp11 * ((FAST_FLOAT) 0.707106781); /* c4 */
111
-
112
- z11 = tmp7 + z3; /* phase 5 */
113
- z13 = tmp7 - z3;
114
-
115
- dataptr[5] = z13 + z2; /* phase 6 */
116
- dataptr[3] = z13 - z2;
117
- dataptr[1] = z11 + z4;
118
- dataptr[7] = z11 - z4;
119
-
120
- dataptr += DCTSIZE; /* advance pointer to next row */
121
- }
122
-
123
- /* Pass 2: process columns. */
124
-
125
- dataptr = data;
126
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
127
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*7];
128
- tmp7 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*7];
129
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*6];
130
- tmp6 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*6];
131
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*5];
132
- tmp5 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*5];
133
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*4];
134
- tmp4 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*4];
135
-
136
- /* Even part */
137
-
138
- tmp10 = tmp0 + tmp3; /* phase 2 */
139
- tmp13 = tmp0 - tmp3;
140
- tmp11 = tmp1 + tmp2;
141
- tmp12 = tmp1 - tmp2;
142
-
143
- dataptr[DCTSIZE*0] = tmp10 + tmp11; /* phase 3 */
144
- dataptr[DCTSIZE*4] = tmp10 - tmp11;
145
-
146
- z1 = (tmp12 + tmp13) * ((FAST_FLOAT) 0.707106781); /* c4 */
147
- dataptr[DCTSIZE*2] = tmp13 + z1; /* phase 5 */
148
- dataptr[DCTSIZE*6] = tmp13 - z1;
149
-
150
- /* Odd part */
151
-
152
- tmp10 = tmp4 + tmp5; /* phase 2 */
153
- tmp11 = tmp5 + tmp6;
154
- tmp12 = tmp6 + tmp7;
155
-
156
- /* The rotator is modified from fig 4-8 to avoid extra negations. */
157
- z5 = (tmp10 - tmp12) * ((FAST_FLOAT) 0.382683433); /* c6 */
158
- z2 = ((FAST_FLOAT) 0.541196100) * tmp10 + z5; /* c2-c6 */
159
- z4 = ((FAST_FLOAT) 1.306562965) * tmp12 + z5; /* c2+c6 */
160
- z3 = tmp11 * ((FAST_FLOAT) 0.707106781); /* c4 */
161
-
162
- z11 = tmp7 + z3; /* phase 5 */
163
- z13 = tmp7 - z3;
164
-
165
- dataptr[DCTSIZE*5] = z13 + z2; /* phase 6 */
166
- dataptr[DCTSIZE*3] = z13 - z2;
167
- dataptr[DCTSIZE*1] = z11 + z4;
168
- dataptr[DCTSIZE*7] = z11 - z4;
169
-
170
- dataptr++; /* advance pointer to next column */
171
- }
172
- }
173
-
174
- #endif /* DCT_FLOAT_SUPPORTED */
@@ -1,230 +0,0 @@
1
- /*
2
- * jfdctfst.c
3
- *
4
- * Copyright (C) 1994-1996, Thomas G. Lane.
5
- * Modified 2003-2009 by Guido Vollbeding.
6
- * This file is part of the Independent JPEG Group's software.
7
- * For conditions of distribution and use, see the accompanying README file.
8
- *
9
- * This file contains a fast, not so accurate integer implementation of the
10
- * forward DCT (Discrete Cosine Transform).
11
- *
12
- * A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
13
- * on each column. Direct algorithms are also available, but they are
14
- * much more complex and seem not to be any faster when reduced to code.
15
- *
16
- * This implementation is based on Arai, Agui, and Nakajima's algorithm for
17
- * scaled DCT. Their original paper (Trans. IEICE E-71(11):1095) is in
18
- * Japanese, but the algorithm is described in the Pennebaker & Mitchell
19
- * JPEG textbook (see REFERENCES section in file README). The following code
20
- * is based directly on figure 4-8 in P&M.
21
- * While an 8-point DCT cannot be done in less than 11 multiplies, it is
22
- * possible to arrange the computation so that many of the multiplies are
23
- * simple scalings of the final outputs. These multiplies can then be
24
- * folded into the multiplications or divisions by the JPEG quantization
25
- * table entries. The AA&N method leaves only 5 multiplies and 29 adds
26
- * to be done in the DCT itself.
27
- * The primary disadvantage of this method is that with fixed-point math,
28
- * accuracy is lost due to imprecise representation of the scaled
29
- * quantization values. The smaller the quantization table entry, the less
30
- * precise the scaled value, so this implementation does worse with high-
31
- * quality-setting files than with low-quality ones.
32
- */
33
-
34
- #define JPEG_INTERNALS
35
- #include "jinclude.h"
36
- #include "jpeglib.h"
37
- #include "jdct.h" /* Private declarations for DCT subsystem */
38
-
39
- #ifdef DCT_IFAST_SUPPORTED
40
-
41
-
42
- /*
43
- * This module is specialized to the case DCTSIZE = 8.
44
- */
45
-
46
- #if DCTSIZE != 8
47
- Sorry, this code only copes with 8x8 DCTs. /* deliberate syntax err */
48
- #endif
49
-
50
-
51
- /* Scaling decisions are generally the same as in the LL&M algorithm;
52
- * see jfdctint.c for more details. However, we choose to descale
53
- * (right shift) multiplication products as soon as they are formed,
54
- * rather than carrying additional fractional bits into subsequent additions.
55
- * This compromises accuracy slightly, but it lets us save a few shifts.
56
- * More importantly, 16-bit arithmetic is then adequate (for 8-bit samples)
57
- * everywhere except in the multiplications proper; this saves a good deal
58
- * of work on 16-bit-int machines.
59
- *
60
- * Again to save a few shifts, the intermediate results between pass 1 and
61
- * pass 2 are not upscaled, but are represented only to integral precision.
62
- *
63
- * A final compromise is to represent the multiplicative constants to only
64
- * 8 fractional bits, rather than 13. This saves some shifting work on some
65
- * machines, and may also reduce the cost of multiplication (since there
66
- * are fewer one-bits in the constants).
67
- */
68
-
69
- #define CONST_BITS 8
70
-
71
-
72
- /* Some C compilers fail to reduce "FIX(constant)" at compile time, thus
73
- * causing a lot of useless floating-point operations at run time.
74
- * To get around this we use the following pre-calculated constants.
75
- * If you change CONST_BITS you may want to add appropriate values.
76
- * (With a reasonable C compiler, you can just rely on the FIX() macro...)
77
- */
78
-
79
- #if CONST_BITS == 8
80
- #define FIX_0_382683433 ((INT32) 98) /* FIX(0.382683433) */
81
- #define FIX_0_541196100 ((INT32) 139) /* FIX(0.541196100) */
82
- #define FIX_0_707106781 ((INT32) 181) /* FIX(0.707106781) */
83
- #define FIX_1_306562965 ((INT32) 334) /* FIX(1.306562965) */
84
- #else
85
- #define FIX_0_382683433 FIX(0.382683433)
86
- #define FIX_0_541196100 FIX(0.541196100)
87
- #define FIX_0_707106781 FIX(0.707106781)
88
- #define FIX_1_306562965 FIX(1.306562965)
89
- #endif
90
-
91
-
92
- /* We can gain a little more speed, with a further compromise in accuracy,
93
- * by omitting the addition in a descaling shift. This yields an incorrectly
94
- * rounded result half the time...
95
- */
96
-
97
- #ifndef USE_ACCURATE_ROUNDING
98
- #undef DESCALE
99
- #define DESCALE(x,n) RIGHT_SHIFT(x, n)
100
- #endif
101
-
102
-
103
- /* Multiply a DCTELEM variable by an INT32 constant, and immediately
104
- * descale to yield a DCTELEM result.
105
- */
106
-
107
- #define MULTIPLY(var,const) ((DCTELEM) DESCALE((var) * (const), CONST_BITS))
108
-
109
-
110
- /*
111
- * Perform the forward DCT on one block of samples.
112
- */
113
-
114
- GLOBAL(void)
115
- jpeg_fdct_ifast (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
116
- {
117
- DCTELEM tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
118
- DCTELEM tmp10, tmp11, tmp12, tmp13;
119
- DCTELEM z1, z2, z3, z4, z5, z11, z13;
120
- DCTELEM *dataptr;
121
- JSAMPROW elemptr;
122
- int ctr;
123
- SHIFT_TEMPS
124
-
125
- /* Pass 1: process rows. */
126
-
127
- dataptr = data;
128
- for (ctr = 0; ctr < DCTSIZE; ctr++) {
129
- elemptr = sample_data[ctr] + start_col;
130
-
131
- /* Load data into workspace */
132
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[7]);
133
- tmp7 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[7]);
134
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[6]);
135
- tmp6 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[6]);
136
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[5]);
137
- tmp5 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[5]);
138
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[4]);
139
- tmp4 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[4]);
140
-
141
- /* Even part */
142
-
143
- tmp10 = tmp0 + tmp3; /* phase 2 */
144
- tmp13 = tmp0 - tmp3;
145
- tmp11 = tmp1 + tmp2;
146
- tmp12 = tmp1 - tmp2;
147
-
148
- /* Apply unsigned->signed conversion */
149
- dataptr[0] = tmp10 + tmp11 - 8 * CENTERJSAMPLE; /* phase 3 */
150
- dataptr[4] = tmp10 - tmp11;
151
-
152
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_707106781); /* c4 */
153
- dataptr[2] = tmp13 + z1; /* phase 5 */
154
- dataptr[6] = tmp13 - z1;
155
-
156
- /* Odd part */
157
-
158
- tmp10 = tmp4 + tmp5; /* phase 2 */
159
- tmp11 = tmp5 + tmp6;
160
- tmp12 = tmp6 + tmp7;
161
-
162
- /* The rotator is modified from fig 4-8 to avoid extra negations. */
163
- z5 = MULTIPLY(tmp10 - tmp12, FIX_0_382683433); /* c6 */
164
- z2 = MULTIPLY(tmp10, FIX_0_541196100) + z5; /* c2-c6 */
165
- z4 = MULTIPLY(tmp12, FIX_1_306562965) + z5; /* c2+c6 */
166
- z3 = MULTIPLY(tmp11, FIX_0_707106781); /* c4 */
167
-
168
- z11 = tmp7 + z3; /* phase 5 */
169
- z13 = tmp7 - z3;
170
-
171
- dataptr[5] = z13 + z2; /* phase 6 */
172
- dataptr[3] = z13 - z2;
173
- dataptr[1] = z11 + z4;
174
- dataptr[7] = z11 - z4;
175
-
176
- dataptr += DCTSIZE; /* advance pointer to next row */
177
- }
178
-
179
- /* Pass 2: process columns. */
180
-
181
- dataptr = data;
182
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
183
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*7];
184
- tmp7 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*7];
185
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*6];
186
- tmp6 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*6];
187
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*5];
188
- tmp5 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*5];
189
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*4];
190
- tmp4 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*4];
191
-
192
- /* Even part */
193
-
194
- tmp10 = tmp0 + tmp3; /* phase 2 */
195
- tmp13 = tmp0 - tmp3;
196
- tmp11 = tmp1 + tmp2;
197
- tmp12 = tmp1 - tmp2;
198
-
199
- dataptr[DCTSIZE*0] = tmp10 + tmp11; /* phase 3 */
200
- dataptr[DCTSIZE*4] = tmp10 - tmp11;
201
-
202
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_707106781); /* c4 */
203
- dataptr[DCTSIZE*2] = tmp13 + z1; /* phase 5 */
204
- dataptr[DCTSIZE*6] = tmp13 - z1;
205
-
206
- /* Odd part */
207
-
208
- tmp10 = tmp4 + tmp5; /* phase 2 */
209
- tmp11 = tmp5 + tmp6;
210
- tmp12 = tmp6 + tmp7;
211
-
212
- /* The rotator is modified from fig 4-8 to avoid extra negations. */
213
- z5 = MULTIPLY(tmp10 - tmp12, FIX_0_382683433); /* c6 */
214
- z2 = MULTIPLY(tmp10, FIX_0_541196100) + z5; /* c2-c6 */
215
- z4 = MULTIPLY(tmp12, FIX_1_306562965) + z5; /* c2+c6 */
216
- z3 = MULTIPLY(tmp11, FIX_0_707106781); /* c4 */
217
-
218
- z11 = tmp7 + z3; /* phase 5 */
219
- z13 = tmp7 - z3;
220
-
221
- dataptr[DCTSIZE*5] = z13 + z2; /* phase 6 */
222
- dataptr[DCTSIZE*3] = z13 - z2;
223
- dataptr[DCTSIZE*1] = z11 + z4;
224
- dataptr[DCTSIZE*7] = z11 - z4;
225
-
226
- dataptr++; /* advance pointer to next column */
227
- }
228
- }
229
-
230
- #endif /* DCT_IFAST_SUPPORTED */
@@ -1,4348 +0,0 @@
1
- /*
2
- * jfdctint.c
3
- *
4
- * Copyright (C) 1991-1996, Thomas G. Lane.
5
- * Modification developed 2003-2009 by Guido Vollbeding.
6
- * This file is part of the Independent JPEG Group's software.
7
- * For conditions of distribution and use, see the accompanying README file.
8
- *
9
- * This file contains a slow-but-accurate integer implementation of the
10
- * forward DCT (Discrete Cosine Transform).
11
- *
12
- * A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
13
- * on each column. Direct algorithms are also available, but they are
14
- * much more complex and seem not to be any faster when reduced to code.
15
- *
16
- * This implementation is based on an algorithm described in
17
- * C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT
18
- * Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics,
19
- * Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991.
20
- * The primary algorithm described there uses 11 multiplies and 29 adds.
21
- * We use their alternate method with 12 multiplies and 32 adds.
22
- * The advantage of this method is that no data path contains more than one
23
- * multiplication; this allows a very simple and accurate implementation in
24
- * scaled fixed-point arithmetic, with a minimal number of shifts.
25
- *
26
- * We also provide FDCT routines with various input sample block sizes for
27
- * direct resolution reduction or enlargement and for direct resolving the
28
- * common 2x1 and 1x2 subsampling cases without additional resampling: NxN
29
- * (N=1...16), 2NxN, and Nx2N (N=1...8) pixels for one 8x8 output DCT block.
30
- *
31
- * For N<8 we fill the remaining block coefficients with zero.
32
- * For N>8 we apply a partial N-point FDCT on the input samples, computing
33
- * just the lower 8 frequency coefficients and discarding the rest.
34
- *
35
- * We must scale the output coefficients of the N-point FDCT appropriately
36
- * to the standard 8-point FDCT level by 8/N per 1-D pass. This scaling
37
- * is folded into the constant multipliers (pass 2) and/or final/initial
38
- * shifting.
39
- *
40
- * CAUTION: We rely on the FIX() macro except for the N=1,2,4,8 cases
41
- * since there would be too many additional constants to pre-calculate.
42
- */
43
-
44
- #define JPEG_INTERNALS
45
- #include "jinclude.h"
46
- #include "jpeglib.h"
47
- #include "jdct.h" /* Private declarations for DCT subsystem */
48
-
49
- #ifdef DCT_ISLOW_SUPPORTED
50
-
51
-
52
- /*
53
- * This module is specialized to the case DCTSIZE = 8.
54
- */
55
-
56
- #if DCTSIZE != 8
57
- Sorry, this code only copes with 8x8 DCT blocks. /* deliberate syntax err */
58
- #endif
59
-
60
-
61
- /*
62
- * The poop on this scaling stuff is as follows:
63
- *
64
- * Each 1-D DCT step produces outputs which are a factor of sqrt(N)
65
- * larger than the true DCT outputs. The final outputs are therefore
66
- * a factor of N larger than desired; since N=8 this can be cured by
67
- * a simple right shift at the end of the algorithm. The advantage of
68
- * this arrangement is that we save two multiplications per 1-D DCT,
69
- * because the y0 and y4 outputs need not be divided by sqrt(N).
70
- * In the IJG code, this factor of 8 is removed by the quantization step
71
- * (in jcdctmgr.c), NOT in this module.
72
- *
73
- * We have to do addition and subtraction of the integer inputs, which
74
- * is no problem, and multiplication by fractional constants, which is
75
- * a problem to do in integer arithmetic. We multiply all the constants
76
- * by CONST_SCALE and convert them to integer constants (thus retaining
77
- * CONST_BITS bits of precision in the constants). After doing a
78
- * multiplication we have to divide the product by CONST_SCALE, with proper
79
- * rounding, to produce the correct output. This division can be done
80
- * cheaply as a right shift of CONST_BITS bits. We postpone shifting
81
- * as long as possible so that partial sums can be added together with
82
- * full fractional precision.
83
- *
84
- * The outputs of the first pass are scaled up by PASS1_BITS bits so that
85
- * they are represented to better-than-integral precision. These outputs
86
- * require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word
87
- * with the recommended scaling. (For 12-bit sample data, the intermediate
88
- * array is INT32 anyway.)
89
- *
90
- * To avoid overflow of the 32-bit intermediate results in pass 2, we must
91
- * have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26. Error analysis
92
- * shows that the values given below are the most effective.
93
- */
94
-
95
- #if BITS_IN_JSAMPLE == 8
96
- #define CONST_BITS 13
97
- #define PASS1_BITS 2
98
- #else
99
- #define CONST_BITS 13
100
- #define PASS1_BITS 1 /* lose a little precision to avoid overflow */
101
- #endif
102
-
103
- /* Some C compilers fail to reduce "FIX(constant)" at compile time, thus
104
- * causing a lot of useless floating-point operations at run time.
105
- * To get around this we use the following pre-calculated constants.
106
- * If you change CONST_BITS you may want to add appropriate values.
107
- * (With a reasonable C compiler, you can just rely on the FIX() macro...)
108
- */
109
-
110
- #if CONST_BITS == 13
111
- #define FIX_0_298631336 ((INT32) 2446) /* FIX(0.298631336) */
112
- #define FIX_0_390180644 ((INT32) 3196) /* FIX(0.390180644) */
113
- #define FIX_0_541196100 ((INT32) 4433) /* FIX(0.541196100) */
114
- #define FIX_0_765366865 ((INT32) 6270) /* FIX(0.765366865) */
115
- #define FIX_0_899976223 ((INT32) 7373) /* FIX(0.899976223) */
116
- #define FIX_1_175875602 ((INT32) 9633) /* FIX(1.175875602) */
117
- #define FIX_1_501321110 ((INT32) 12299) /* FIX(1.501321110) */
118
- #define FIX_1_847759065 ((INT32) 15137) /* FIX(1.847759065) */
119
- #define FIX_1_961570560 ((INT32) 16069) /* FIX(1.961570560) */
120
- #define FIX_2_053119869 ((INT32) 16819) /* FIX(2.053119869) */
121
- #define FIX_2_562915447 ((INT32) 20995) /* FIX(2.562915447) */
122
- #define FIX_3_072711026 ((INT32) 25172) /* FIX(3.072711026) */
123
- #else
124
- #define FIX_0_298631336 FIX(0.298631336)
125
- #define FIX_0_390180644 FIX(0.390180644)
126
- #define FIX_0_541196100 FIX(0.541196100)
127
- #define FIX_0_765366865 FIX(0.765366865)
128
- #define FIX_0_899976223 FIX(0.899976223)
129
- #define FIX_1_175875602 FIX(1.175875602)
130
- #define FIX_1_501321110 FIX(1.501321110)
131
- #define FIX_1_847759065 FIX(1.847759065)
132
- #define FIX_1_961570560 FIX(1.961570560)
133
- #define FIX_2_053119869 FIX(2.053119869)
134
- #define FIX_2_562915447 FIX(2.562915447)
135
- #define FIX_3_072711026 FIX(3.072711026)
136
- #endif
137
-
138
-
139
- /* Multiply an INT32 variable by an INT32 constant to yield an INT32 result.
140
- * For 8-bit samples with the recommended scaling, all the variable
141
- * and constant values involved are no more than 16 bits wide, so a
142
- * 16x16->32 bit multiply can be used instead of a full 32x32 multiply.
143
- * For 12-bit samples, a full 32-bit multiplication will be needed.
144
- */
145
-
146
- #if BITS_IN_JSAMPLE == 8
147
- #define MULTIPLY(var,const) MULTIPLY16C16(var,const)
148
- #else
149
- #define MULTIPLY(var,const) ((var) * (const))
150
- #endif
151
-
152
-
153
- /*
154
- * Perform the forward DCT on one block of samples.
155
- */
156
-
157
- GLOBAL(void)
158
- jpeg_fdct_islow (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
159
- {
160
- INT32 tmp0, tmp1, tmp2, tmp3;
161
- INT32 tmp10, tmp11, tmp12, tmp13;
162
- INT32 z1;
163
- DCTELEM *dataptr;
164
- JSAMPROW elemptr;
165
- int ctr;
166
- SHIFT_TEMPS
167
-
168
- /* Pass 1: process rows. */
169
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
170
- /* furthermore, we scale the results by 2**PASS1_BITS. */
171
-
172
- dataptr = data;
173
- for (ctr = 0; ctr < DCTSIZE; ctr++) {
174
- elemptr = sample_data[ctr] + start_col;
175
-
176
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
177
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
178
- */
179
-
180
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[7]);
181
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[6]);
182
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[5]);
183
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[4]);
184
-
185
- tmp10 = tmp0 + tmp3;
186
- tmp12 = tmp0 - tmp3;
187
- tmp11 = tmp1 + tmp2;
188
- tmp13 = tmp1 - tmp2;
189
-
190
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[7]);
191
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[6]);
192
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[5]);
193
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[4]);
194
-
195
- /* Apply unsigned->signed conversion */
196
- dataptr[0] = (DCTELEM) ((tmp10 + tmp11 - 8 * CENTERJSAMPLE) << PASS1_BITS);
197
- dataptr[4] = (DCTELEM) ((tmp10 - tmp11) << PASS1_BITS);
198
-
199
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
200
- /* Add fudge factor here for final descale. */
201
- z1 += ONE << (CONST_BITS-PASS1_BITS-1);
202
- dataptr[2] = (DCTELEM) RIGHT_SHIFT(z1 + MULTIPLY(tmp12, FIX_0_765366865),
203
- CONST_BITS-PASS1_BITS);
204
- dataptr[6] = (DCTELEM) RIGHT_SHIFT(z1 - MULTIPLY(tmp13, FIX_1_847759065),
205
- CONST_BITS-PASS1_BITS);
206
-
207
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
208
- * cK represents sqrt(2) * cos(K*pi/16).
209
- * i0..i3 in the paper are tmp0..tmp3 here.
210
- */
211
-
212
- tmp10 = tmp0 + tmp3;
213
- tmp11 = tmp1 + tmp2;
214
- tmp12 = tmp0 + tmp2;
215
- tmp13 = tmp1 + tmp3;
216
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
217
- /* Add fudge factor here for final descale. */
218
- z1 += ONE << (CONST_BITS-PASS1_BITS-1);
219
-
220
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
221
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
222
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
223
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
224
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
225
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
226
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
227
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
228
-
229
- tmp12 += z1;
230
- tmp13 += z1;
231
-
232
- dataptr[1] = (DCTELEM)
233
- RIGHT_SHIFT(tmp0 + tmp10 + tmp12, CONST_BITS-PASS1_BITS);
234
- dataptr[3] = (DCTELEM)
235
- RIGHT_SHIFT(tmp1 + tmp11 + tmp13, CONST_BITS-PASS1_BITS);
236
- dataptr[5] = (DCTELEM)
237
- RIGHT_SHIFT(tmp2 + tmp11 + tmp12, CONST_BITS-PASS1_BITS);
238
- dataptr[7] = (DCTELEM)
239
- RIGHT_SHIFT(tmp3 + tmp10 + tmp13, CONST_BITS-PASS1_BITS);
240
-
241
- dataptr += DCTSIZE; /* advance pointer to next row */
242
- }
243
-
244
- /* Pass 2: process columns.
245
- * We remove the PASS1_BITS scaling, but leave the results scaled up
246
- * by an overall factor of 8.
247
- */
248
-
249
- dataptr = data;
250
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
251
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
252
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
253
- */
254
-
255
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*7];
256
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*6];
257
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*5];
258
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*4];
259
-
260
- /* Add fudge factor here for final descale. */
261
- tmp10 = tmp0 + tmp3 + (ONE << (PASS1_BITS-1));
262
- tmp12 = tmp0 - tmp3;
263
- tmp11 = tmp1 + tmp2;
264
- tmp13 = tmp1 - tmp2;
265
-
266
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*7];
267
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*6];
268
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*5];
269
- tmp3 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*4];
270
-
271
- dataptr[DCTSIZE*0] = (DCTELEM) RIGHT_SHIFT(tmp10 + tmp11, PASS1_BITS);
272
- dataptr[DCTSIZE*4] = (DCTELEM) RIGHT_SHIFT(tmp10 - tmp11, PASS1_BITS);
273
-
274
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
275
- /* Add fudge factor here for final descale. */
276
- z1 += ONE << (CONST_BITS+PASS1_BITS-1);
277
- dataptr[DCTSIZE*2] = (DCTELEM)
278
- RIGHT_SHIFT(z1 + MULTIPLY(tmp12, FIX_0_765366865), CONST_BITS+PASS1_BITS);
279
- dataptr[DCTSIZE*6] = (DCTELEM)
280
- RIGHT_SHIFT(z1 - MULTIPLY(tmp13, FIX_1_847759065), CONST_BITS+PASS1_BITS);
281
-
282
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
283
- * cK represents sqrt(2) * cos(K*pi/16).
284
- * i0..i3 in the paper are tmp0..tmp3 here.
285
- */
286
-
287
- tmp10 = tmp0 + tmp3;
288
- tmp11 = tmp1 + tmp2;
289
- tmp12 = tmp0 + tmp2;
290
- tmp13 = tmp1 + tmp3;
291
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
292
- /* Add fudge factor here for final descale. */
293
- z1 += ONE << (CONST_BITS+PASS1_BITS-1);
294
-
295
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
296
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
297
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
298
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
299
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
300
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
301
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
302
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
303
-
304
- tmp12 += z1;
305
- tmp13 += z1;
306
-
307
- dataptr[DCTSIZE*1] = (DCTELEM)
308
- RIGHT_SHIFT(tmp0 + tmp10 + tmp12, CONST_BITS+PASS1_BITS);
309
- dataptr[DCTSIZE*3] = (DCTELEM)
310
- RIGHT_SHIFT(tmp1 + tmp11 + tmp13, CONST_BITS+PASS1_BITS);
311
- dataptr[DCTSIZE*5] = (DCTELEM)
312
- RIGHT_SHIFT(tmp2 + tmp11 + tmp12, CONST_BITS+PASS1_BITS);
313
- dataptr[DCTSIZE*7] = (DCTELEM)
314
- RIGHT_SHIFT(tmp3 + tmp10 + tmp13, CONST_BITS+PASS1_BITS);
315
-
316
- dataptr++; /* advance pointer to next column */
317
- }
318
- }
319
-
320
- #ifdef DCT_SCALING_SUPPORTED
321
-
322
-
323
- /*
324
- * Perform the forward DCT on a 7x7 sample block.
325
- */
326
-
327
- GLOBAL(void)
328
- jpeg_fdct_7x7 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
329
- {
330
- INT32 tmp0, tmp1, tmp2, tmp3;
331
- INT32 tmp10, tmp11, tmp12;
332
- INT32 z1, z2, z3;
333
- DCTELEM *dataptr;
334
- JSAMPROW elemptr;
335
- int ctr;
336
- SHIFT_TEMPS
337
-
338
- /* Pre-zero output coefficient block. */
339
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
340
-
341
- /* Pass 1: process rows. */
342
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
343
- /* furthermore, we scale the results by 2**PASS1_BITS. */
344
- /* cK represents sqrt(2) * cos(K*pi/14). */
345
-
346
- dataptr = data;
347
- for (ctr = 0; ctr < 7; ctr++) {
348
- elemptr = sample_data[ctr] + start_col;
349
-
350
- /* Even part */
351
-
352
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[6]);
353
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[5]);
354
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[4]);
355
- tmp3 = GETJSAMPLE(elemptr[3]);
356
-
357
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[6]);
358
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[5]);
359
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[4]);
360
-
361
- z1 = tmp0 + tmp2;
362
- /* Apply unsigned->signed conversion */
363
- dataptr[0] = (DCTELEM)
364
- ((z1 + tmp1 + tmp3 - 7 * CENTERJSAMPLE) << PASS1_BITS);
365
- tmp3 += tmp3;
366
- z1 -= tmp3;
367
- z1 -= tmp3;
368
- z1 = MULTIPLY(z1, FIX(0.353553391)); /* (c2+c6-c4)/2 */
369
- z2 = MULTIPLY(tmp0 - tmp2, FIX(0.920609002)); /* (c2+c4-c6)/2 */
370
- z3 = MULTIPLY(tmp1 - tmp2, FIX(0.314692123)); /* c6 */
371
- dataptr[2] = (DCTELEM) DESCALE(z1 + z2 + z3, CONST_BITS-PASS1_BITS);
372
- z1 -= z2;
373
- z2 = MULTIPLY(tmp0 - tmp1, FIX(0.881747734)); /* c4 */
374
- dataptr[4] = (DCTELEM)
375
- DESCALE(z2 + z3 - MULTIPLY(tmp1 - tmp3, FIX(0.707106781)), /* c2+c6-c4 */
376
- CONST_BITS-PASS1_BITS);
377
- dataptr[6] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS-PASS1_BITS);
378
-
379
- /* Odd part */
380
-
381
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(0.935414347)); /* (c3+c1-c5)/2 */
382
- tmp2 = MULTIPLY(tmp10 - tmp11, FIX(0.170262339)); /* (c3+c5-c1)/2 */
383
- tmp0 = tmp1 - tmp2;
384
- tmp1 += tmp2;
385
- tmp2 = MULTIPLY(tmp11 + tmp12, - FIX(1.378756276)); /* -c1 */
386
- tmp1 += tmp2;
387
- tmp3 = MULTIPLY(tmp10 + tmp12, FIX(0.613604268)); /* c5 */
388
- tmp0 += tmp3;
389
- tmp2 += tmp3 + MULTIPLY(tmp12, FIX(1.870828693)); /* c3+c1-c5 */
390
-
391
- dataptr[1] = (DCTELEM) DESCALE(tmp0, CONST_BITS-PASS1_BITS);
392
- dataptr[3] = (DCTELEM) DESCALE(tmp1, CONST_BITS-PASS1_BITS);
393
- dataptr[5] = (DCTELEM) DESCALE(tmp2, CONST_BITS-PASS1_BITS);
394
-
395
- dataptr += DCTSIZE; /* advance pointer to next row */
396
- }
397
-
398
- /* Pass 2: process columns.
399
- * We remove the PASS1_BITS scaling, but leave the results scaled up
400
- * by an overall factor of 8.
401
- * We must also scale the output by (8/7)**2 = 64/49, which we fold
402
- * into the constant multipliers:
403
- * cK now represents sqrt(2) * cos(K*pi/14) * 64/49.
404
- */
405
-
406
- dataptr = data;
407
- for (ctr = 0; ctr < 7; ctr++) {
408
- /* Even part */
409
-
410
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*6];
411
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*5];
412
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*4];
413
- tmp3 = dataptr[DCTSIZE*3];
414
-
415
- tmp10 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*6];
416
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*5];
417
- tmp12 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*4];
418
-
419
- z1 = tmp0 + tmp2;
420
- dataptr[DCTSIZE*0] = (DCTELEM)
421
- DESCALE(MULTIPLY(z1 + tmp1 + tmp3, FIX(1.306122449)), /* 64/49 */
422
- CONST_BITS+PASS1_BITS);
423
- tmp3 += tmp3;
424
- z1 -= tmp3;
425
- z1 -= tmp3;
426
- z1 = MULTIPLY(z1, FIX(0.461784020)); /* (c2+c6-c4)/2 */
427
- z2 = MULTIPLY(tmp0 - tmp2, FIX(1.202428084)); /* (c2+c4-c6)/2 */
428
- z3 = MULTIPLY(tmp1 - tmp2, FIX(0.411026446)); /* c6 */
429
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(z1 + z2 + z3, CONST_BITS+PASS1_BITS);
430
- z1 -= z2;
431
- z2 = MULTIPLY(tmp0 - tmp1, FIX(1.151670509)); /* c4 */
432
- dataptr[DCTSIZE*4] = (DCTELEM)
433
- DESCALE(z2 + z3 - MULTIPLY(tmp1 - tmp3, FIX(0.923568041)), /* c2+c6-c4 */
434
- CONST_BITS+PASS1_BITS);
435
- dataptr[DCTSIZE*6] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS+PASS1_BITS);
436
-
437
- /* Odd part */
438
-
439
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.221765677)); /* (c3+c1-c5)/2 */
440
- tmp2 = MULTIPLY(tmp10 - tmp11, FIX(0.222383464)); /* (c3+c5-c1)/2 */
441
- tmp0 = tmp1 - tmp2;
442
- tmp1 += tmp2;
443
- tmp2 = MULTIPLY(tmp11 + tmp12, - FIX(1.800824523)); /* -c1 */
444
- tmp1 += tmp2;
445
- tmp3 = MULTIPLY(tmp10 + tmp12, FIX(0.801442310)); /* c5 */
446
- tmp0 += tmp3;
447
- tmp2 += tmp3 + MULTIPLY(tmp12, FIX(2.443531355)); /* c3+c1-c5 */
448
-
449
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0, CONST_BITS+PASS1_BITS);
450
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1, CONST_BITS+PASS1_BITS);
451
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2, CONST_BITS+PASS1_BITS);
452
-
453
- dataptr++; /* advance pointer to next column */
454
- }
455
- }
456
-
457
-
458
- /*
459
- * Perform the forward DCT on a 6x6 sample block.
460
- */
461
-
462
- GLOBAL(void)
463
- jpeg_fdct_6x6 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
464
- {
465
- INT32 tmp0, tmp1, tmp2;
466
- INT32 tmp10, tmp11, tmp12;
467
- DCTELEM *dataptr;
468
- JSAMPROW elemptr;
469
- int ctr;
470
- SHIFT_TEMPS
471
-
472
- /* Pre-zero output coefficient block. */
473
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
474
-
475
- /* Pass 1: process rows. */
476
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
477
- /* furthermore, we scale the results by 2**PASS1_BITS. */
478
- /* cK represents sqrt(2) * cos(K*pi/12). */
479
-
480
- dataptr = data;
481
- for (ctr = 0; ctr < 6; ctr++) {
482
- elemptr = sample_data[ctr] + start_col;
483
-
484
- /* Even part */
485
-
486
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[5]);
487
- tmp11 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[4]);
488
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[3]);
489
-
490
- tmp10 = tmp0 + tmp2;
491
- tmp12 = tmp0 - tmp2;
492
-
493
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[5]);
494
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[4]);
495
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[3]);
496
-
497
- /* Apply unsigned->signed conversion */
498
- dataptr[0] = (DCTELEM)
499
- ((tmp10 + tmp11 - 6 * CENTERJSAMPLE) << PASS1_BITS);
500
- dataptr[2] = (DCTELEM)
501
- DESCALE(MULTIPLY(tmp12, FIX(1.224744871)), /* c2 */
502
- CONST_BITS-PASS1_BITS);
503
- dataptr[4] = (DCTELEM)
504
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(0.707106781)), /* c4 */
505
- CONST_BITS-PASS1_BITS);
506
-
507
- /* Odd part */
508
-
509
- tmp10 = DESCALE(MULTIPLY(tmp0 + tmp2, FIX(0.366025404)), /* c5 */
510
- CONST_BITS-PASS1_BITS);
511
-
512
- dataptr[1] = (DCTELEM) (tmp10 + ((tmp0 + tmp1) << PASS1_BITS));
513
- dataptr[3] = (DCTELEM) ((tmp0 - tmp1 - tmp2) << PASS1_BITS);
514
- dataptr[5] = (DCTELEM) (tmp10 + ((tmp2 - tmp1) << PASS1_BITS));
515
-
516
- dataptr += DCTSIZE; /* advance pointer to next row */
517
- }
518
-
519
- /* Pass 2: process columns.
520
- * We remove the PASS1_BITS scaling, but leave the results scaled up
521
- * by an overall factor of 8.
522
- * We must also scale the output by (8/6)**2 = 16/9, which we fold
523
- * into the constant multipliers:
524
- * cK now represents sqrt(2) * cos(K*pi/12) * 16/9.
525
- */
526
-
527
- dataptr = data;
528
- for (ctr = 0; ctr < 6; ctr++) {
529
- /* Even part */
530
-
531
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*5];
532
- tmp11 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*4];
533
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*3];
534
-
535
- tmp10 = tmp0 + tmp2;
536
- tmp12 = tmp0 - tmp2;
537
-
538
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*5];
539
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*4];
540
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*3];
541
-
542
- dataptr[DCTSIZE*0] = (DCTELEM)
543
- DESCALE(MULTIPLY(tmp10 + tmp11, FIX(1.777777778)), /* 16/9 */
544
- CONST_BITS+PASS1_BITS);
545
- dataptr[DCTSIZE*2] = (DCTELEM)
546
- DESCALE(MULTIPLY(tmp12, FIX(2.177324216)), /* c2 */
547
- CONST_BITS+PASS1_BITS);
548
- dataptr[DCTSIZE*4] = (DCTELEM)
549
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(1.257078722)), /* c4 */
550
- CONST_BITS+PASS1_BITS);
551
-
552
- /* Odd part */
553
-
554
- tmp10 = MULTIPLY(tmp0 + tmp2, FIX(0.650711829)); /* c5 */
555
-
556
- dataptr[DCTSIZE*1] = (DCTELEM)
557
- DESCALE(tmp10 + MULTIPLY(tmp0 + tmp1, FIX(1.777777778)), /* 16/9 */
558
- CONST_BITS+PASS1_BITS);
559
- dataptr[DCTSIZE*3] = (DCTELEM)
560
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp2, FIX(1.777777778)), /* 16/9 */
561
- CONST_BITS+PASS1_BITS);
562
- dataptr[DCTSIZE*5] = (DCTELEM)
563
- DESCALE(tmp10 + MULTIPLY(tmp2 - tmp1, FIX(1.777777778)), /* 16/9 */
564
- CONST_BITS+PASS1_BITS);
565
-
566
- dataptr++; /* advance pointer to next column */
567
- }
568
- }
569
-
570
-
571
- /*
572
- * Perform the forward DCT on a 5x5 sample block.
573
- */
574
-
575
- GLOBAL(void)
576
- jpeg_fdct_5x5 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
577
- {
578
- INT32 tmp0, tmp1, tmp2;
579
- INT32 tmp10, tmp11;
580
- DCTELEM *dataptr;
581
- JSAMPROW elemptr;
582
- int ctr;
583
- SHIFT_TEMPS
584
-
585
- /* Pre-zero output coefficient block. */
586
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
587
-
588
- /* Pass 1: process rows. */
589
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
590
- /* furthermore, we scale the results by 2**PASS1_BITS. */
591
- /* We scale the results further by 2 as part of output adaption */
592
- /* scaling for different DCT size. */
593
- /* cK represents sqrt(2) * cos(K*pi/10). */
594
-
595
- dataptr = data;
596
- for (ctr = 0; ctr < 5; ctr++) {
597
- elemptr = sample_data[ctr] + start_col;
598
-
599
- /* Even part */
600
-
601
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[4]);
602
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[3]);
603
- tmp2 = GETJSAMPLE(elemptr[2]);
604
-
605
- tmp10 = tmp0 + tmp1;
606
- tmp11 = tmp0 - tmp1;
607
-
608
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[4]);
609
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[3]);
610
-
611
- /* Apply unsigned->signed conversion */
612
- dataptr[0] = (DCTELEM)
613
- ((tmp10 + tmp2 - 5 * CENTERJSAMPLE) << (PASS1_BITS+1));
614
- tmp11 = MULTIPLY(tmp11, FIX(0.790569415)); /* (c2+c4)/2 */
615
- tmp10 -= tmp2 << 2;
616
- tmp10 = MULTIPLY(tmp10, FIX(0.353553391)); /* (c2-c4)/2 */
617
- dataptr[2] = (DCTELEM) DESCALE(tmp11 + tmp10, CONST_BITS-PASS1_BITS-1);
618
- dataptr[4] = (DCTELEM) DESCALE(tmp11 - tmp10, CONST_BITS-PASS1_BITS-1);
619
-
620
- /* Odd part */
621
-
622
- tmp10 = MULTIPLY(tmp0 + tmp1, FIX(0.831253876)); /* c3 */
623
-
624
- dataptr[1] = (DCTELEM)
625
- DESCALE(tmp10 + MULTIPLY(tmp0, FIX(0.513743148)), /* c1-c3 */
626
- CONST_BITS-PASS1_BITS-1);
627
- dataptr[3] = (DCTELEM)
628
- DESCALE(tmp10 - MULTIPLY(tmp1, FIX(2.176250899)), /* c1+c3 */
629
- CONST_BITS-PASS1_BITS-1);
630
-
631
- dataptr += DCTSIZE; /* advance pointer to next row */
632
- }
633
-
634
- /* Pass 2: process columns.
635
- * We remove the PASS1_BITS scaling, but leave the results scaled up
636
- * by an overall factor of 8.
637
- * We must also scale the output by (8/5)**2 = 64/25, which we partially
638
- * fold into the constant multipliers (other part was done in pass 1):
639
- * cK now represents sqrt(2) * cos(K*pi/10) * 32/25.
640
- */
641
-
642
- dataptr = data;
643
- for (ctr = 0; ctr < 5; ctr++) {
644
- /* Even part */
645
-
646
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*4];
647
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*3];
648
- tmp2 = dataptr[DCTSIZE*2];
649
-
650
- tmp10 = tmp0 + tmp1;
651
- tmp11 = tmp0 - tmp1;
652
-
653
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*4];
654
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*3];
655
-
656
- dataptr[DCTSIZE*0] = (DCTELEM)
657
- DESCALE(MULTIPLY(tmp10 + tmp2, FIX(1.28)), /* 32/25 */
658
- CONST_BITS+PASS1_BITS);
659
- tmp11 = MULTIPLY(tmp11, FIX(1.011928851)); /* (c2+c4)/2 */
660
- tmp10 -= tmp2 << 2;
661
- tmp10 = MULTIPLY(tmp10, FIX(0.452548340)); /* (c2-c4)/2 */
662
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(tmp11 + tmp10, CONST_BITS+PASS1_BITS);
663
- dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(tmp11 - tmp10, CONST_BITS+PASS1_BITS);
664
-
665
- /* Odd part */
666
-
667
- tmp10 = MULTIPLY(tmp0 + tmp1, FIX(1.064004961)); /* c3 */
668
-
669
- dataptr[DCTSIZE*1] = (DCTELEM)
670
- DESCALE(tmp10 + MULTIPLY(tmp0, FIX(0.657591230)), /* c1-c3 */
671
- CONST_BITS+PASS1_BITS);
672
- dataptr[DCTSIZE*3] = (DCTELEM)
673
- DESCALE(tmp10 - MULTIPLY(tmp1, FIX(2.785601151)), /* c1+c3 */
674
- CONST_BITS+PASS1_BITS);
675
-
676
- dataptr++; /* advance pointer to next column */
677
- }
678
- }
679
-
680
-
681
- /*
682
- * Perform the forward DCT on a 4x4 sample block.
683
- */
684
-
685
- GLOBAL(void)
686
- jpeg_fdct_4x4 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
687
- {
688
- INT32 tmp0, tmp1;
689
- INT32 tmp10, tmp11;
690
- DCTELEM *dataptr;
691
- JSAMPROW elemptr;
692
- int ctr;
693
- SHIFT_TEMPS
694
-
695
- /* Pre-zero output coefficient block. */
696
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
697
-
698
- /* Pass 1: process rows. */
699
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
700
- /* furthermore, we scale the results by 2**PASS1_BITS. */
701
- /* We must also scale the output by (8/4)**2 = 2**2, which we add here. */
702
- /* cK represents sqrt(2) * cos(K*pi/16) [refers to 8-point FDCT]. */
703
-
704
- dataptr = data;
705
- for (ctr = 0; ctr < 4; ctr++) {
706
- elemptr = sample_data[ctr] + start_col;
707
-
708
- /* Even part */
709
-
710
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[3]);
711
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[2]);
712
-
713
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[3]);
714
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[2]);
715
-
716
- /* Apply unsigned->signed conversion */
717
- dataptr[0] = (DCTELEM)
718
- ((tmp0 + tmp1 - 4 * CENTERJSAMPLE) << (PASS1_BITS+2));
719
- dataptr[2] = (DCTELEM) ((tmp0 - tmp1) << (PASS1_BITS+2));
720
-
721
- /* Odd part */
722
-
723
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
724
- /* Add fudge factor here for final descale. */
725
- tmp0 += ONE << (CONST_BITS-PASS1_BITS-3);
726
-
727
- dataptr[1] = (DCTELEM)
728
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
729
- CONST_BITS-PASS1_BITS-2);
730
- dataptr[3] = (DCTELEM)
731
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
732
- CONST_BITS-PASS1_BITS-2);
733
-
734
- dataptr += DCTSIZE; /* advance pointer to next row */
735
- }
736
-
737
- /* Pass 2: process columns.
738
- * We remove the PASS1_BITS scaling, but leave the results scaled up
739
- * by an overall factor of 8.
740
- */
741
-
742
- dataptr = data;
743
- for (ctr = 0; ctr < 4; ctr++) {
744
- /* Even part */
745
-
746
- /* Add fudge factor here for final descale. */
747
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*3] + (ONE << (PASS1_BITS-1));
748
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*2];
749
-
750
- tmp10 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*3];
751
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*2];
752
-
753
- dataptr[DCTSIZE*0] = (DCTELEM) RIGHT_SHIFT(tmp0 + tmp1, PASS1_BITS);
754
- dataptr[DCTSIZE*2] = (DCTELEM) RIGHT_SHIFT(tmp0 - tmp1, PASS1_BITS);
755
-
756
- /* Odd part */
757
-
758
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
759
- /* Add fudge factor here for final descale. */
760
- tmp0 += ONE << (CONST_BITS+PASS1_BITS-1);
761
-
762
- dataptr[DCTSIZE*1] = (DCTELEM)
763
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
764
- CONST_BITS+PASS1_BITS);
765
- dataptr[DCTSIZE*3] = (DCTELEM)
766
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
767
- CONST_BITS+PASS1_BITS);
768
-
769
- dataptr++; /* advance pointer to next column */
770
- }
771
- }
772
-
773
-
774
- /*
775
- * Perform the forward DCT on a 3x3 sample block.
776
- */
777
-
778
- GLOBAL(void)
779
- jpeg_fdct_3x3 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
780
- {
781
- INT32 tmp0, tmp1, tmp2;
782
- DCTELEM *dataptr;
783
- JSAMPROW elemptr;
784
- int ctr;
785
- SHIFT_TEMPS
786
-
787
- /* Pre-zero output coefficient block. */
788
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
789
-
790
- /* Pass 1: process rows. */
791
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
792
- /* furthermore, we scale the results by 2**PASS1_BITS. */
793
- /* We scale the results further by 2**2 as part of output adaption */
794
- /* scaling for different DCT size. */
795
- /* cK represents sqrt(2) * cos(K*pi/6). */
796
-
797
- dataptr = data;
798
- for (ctr = 0; ctr < 3; ctr++) {
799
- elemptr = sample_data[ctr] + start_col;
800
-
801
- /* Even part */
802
-
803
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[2]);
804
- tmp1 = GETJSAMPLE(elemptr[1]);
805
-
806
- tmp2 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[2]);
807
-
808
- /* Apply unsigned->signed conversion */
809
- dataptr[0] = (DCTELEM)
810
- ((tmp0 + tmp1 - 3 * CENTERJSAMPLE) << (PASS1_BITS+2));
811
- dataptr[2] = (DCTELEM)
812
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp1, FIX(0.707106781)), /* c2 */
813
- CONST_BITS-PASS1_BITS-2);
814
-
815
- /* Odd part */
816
-
817
- dataptr[1] = (DCTELEM)
818
- DESCALE(MULTIPLY(tmp2, FIX(1.224744871)), /* c1 */
819
- CONST_BITS-PASS1_BITS-2);
820
-
821
- dataptr += DCTSIZE; /* advance pointer to next row */
822
- }
823
-
824
- /* Pass 2: process columns.
825
- * We remove the PASS1_BITS scaling, but leave the results scaled up
826
- * by an overall factor of 8.
827
- * We must also scale the output by (8/3)**2 = 64/9, which we partially
828
- * fold into the constant multipliers (other part was done in pass 1):
829
- * cK now represents sqrt(2) * cos(K*pi/6) * 16/9.
830
- */
831
-
832
- dataptr = data;
833
- for (ctr = 0; ctr < 3; ctr++) {
834
- /* Even part */
835
-
836
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*2];
837
- tmp1 = dataptr[DCTSIZE*1];
838
-
839
- tmp2 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*2];
840
-
841
- dataptr[DCTSIZE*0] = (DCTELEM)
842
- DESCALE(MULTIPLY(tmp0 + tmp1, FIX(1.777777778)), /* 16/9 */
843
- CONST_BITS+PASS1_BITS);
844
- dataptr[DCTSIZE*2] = (DCTELEM)
845
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp1, FIX(1.257078722)), /* c2 */
846
- CONST_BITS+PASS1_BITS);
847
-
848
- /* Odd part */
849
-
850
- dataptr[DCTSIZE*1] = (DCTELEM)
851
- DESCALE(MULTIPLY(tmp2, FIX(2.177324216)), /* c1 */
852
- CONST_BITS+PASS1_BITS);
853
-
854
- dataptr++; /* advance pointer to next column */
855
- }
856
- }
857
-
858
-
859
- /*
860
- * Perform the forward DCT on a 2x2 sample block.
861
- */
862
-
863
- GLOBAL(void)
864
- jpeg_fdct_2x2 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
865
- {
866
- INT32 tmp0, tmp1, tmp2, tmp3;
867
- JSAMPROW elemptr;
868
-
869
- /* Pre-zero output coefficient block. */
870
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
871
-
872
- /* Pass 1: process rows. */
873
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
874
-
875
- /* Row 0 */
876
- elemptr = sample_data[0] + start_col;
877
-
878
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[1]);
879
- tmp1 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[1]);
880
-
881
- /* Row 1 */
882
- elemptr = sample_data[1] + start_col;
883
-
884
- tmp2 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[1]);
885
- tmp3 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[1]);
886
-
887
- /* Pass 2: process columns.
888
- * We leave the results scaled up by an overall factor of 8.
889
- * We must also scale the output by (8/2)**2 = 2**4.
890
- */
891
-
892
- /* Column 0 */
893
- /* Apply unsigned->signed conversion */
894
- data[DCTSIZE*0] = (DCTELEM) ((tmp0 + tmp2 - 4 * CENTERJSAMPLE) << 4);
895
- data[DCTSIZE*1] = (DCTELEM) ((tmp0 - tmp2) << 4);
896
-
897
- /* Column 1 */
898
- data[DCTSIZE*0+1] = (DCTELEM) ((tmp1 + tmp3) << 4);
899
- data[DCTSIZE*1+1] = (DCTELEM) ((tmp1 - tmp3) << 4);
900
- }
901
-
902
-
903
- /*
904
- * Perform the forward DCT on a 1x1 sample block.
905
- */
906
-
907
- GLOBAL(void)
908
- jpeg_fdct_1x1 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
909
- {
910
- /* Pre-zero output coefficient block. */
911
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
912
-
913
- /* We leave the result scaled up by an overall factor of 8. */
914
- /* We must also scale the output by (8/1)**2 = 2**6. */
915
- /* Apply unsigned->signed conversion */
916
- data[0] = (DCTELEM)
917
- ((GETJSAMPLE(sample_data[0][start_col]) - CENTERJSAMPLE) << 6);
918
- }
919
-
920
-
921
- /*
922
- * Perform the forward DCT on a 9x9 sample block.
923
- */
924
-
925
- GLOBAL(void)
926
- jpeg_fdct_9x9 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
927
- {
928
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4;
929
- INT32 tmp10, tmp11, tmp12, tmp13;
930
- INT32 z1, z2;
931
- DCTELEM workspace[8];
932
- DCTELEM *dataptr;
933
- DCTELEM *wsptr;
934
- JSAMPROW elemptr;
935
- int ctr;
936
- SHIFT_TEMPS
937
-
938
- /* Pass 1: process rows. */
939
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
940
- /* we scale the results further by 2 as part of output adaption */
941
- /* scaling for different DCT size. */
942
- /* cK represents sqrt(2) * cos(K*pi/18). */
943
-
944
- dataptr = data;
945
- ctr = 0;
946
- for (;;) {
947
- elemptr = sample_data[ctr] + start_col;
948
-
949
- /* Even part */
950
-
951
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[8]);
952
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[7]);
953
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[6]);
954
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[5]);
955
- tmp4 = GETJSAMPLE(elemptr[4]);
956
-
957
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[8]);
958
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[7]);
959
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[6]);
960
- tmp13 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[5]);
961
-
962
- z1 = tmp0 + tmp2 + tmp3;
963
- z2 = tmp1 + tmp4;
964
- /* Apply unsigned->signed conversion */
965
- dataptr[0] = (DCTELEM) ((z1 + z2 - 9 * CENTERJSAMPLE) << 1);
966
- dataptr[6] = (DCTELEM)
967
- DESCALE(MULTIPLY(z1 - z2 - z2, FIX(0.707106781)), /* c6 */
968
- CONST_BITS-1);
969
- z1 = MULTIPLY(tmp0 - tmp2, FIX(1.328926049)); /* c2 */
970
- z2 = MULTIPLY(tmp1 - tmp4 - tmp4, FIX(0.707106781)); /* c6 */
971
- dataptr[2] = (DCTELEM)
972
- DESCALE(MULTIPLY(tmp2 - tmp3, FIX(1.083350441)) /* c4 */
973
- + z1 + z2, CONST_BITS-1);
974
- dataptr[4] = (DCTELEM)
975
- DESCALE(MULTIPLY(tmp3 - tmp0, FIX(0.245575608)) /* c8 */
976
- + z1 - z2, CONST_BITS-1);
977
-
978
- /* Odd part */
979
-
980
- dataptr[3] = (DCTELEM)
981
- DESCALE(MULTIPLY(tmp10 - tmp12 - tmp13, FIX(1.224744871)), /* c3 */
982
- CONST_BITS-1);
983
-
984
- tmp11 = MULTIPLY(tmp11, FIX(1.224744871)); /* c3 */
985
- tmp0 = MULTIPLY(tmp10 + tmp12, FIX(0.909038955)); /* c5 */
986
- tmp1 = MULTIPLY(tmp10 + tmp13, FIX(0.483689525)); /* c7 */
987
-
988
- dataptr[1] = (DCTELEM) DESCALE(tmp11 + tmp0 + tmp1, CONST_BITS-1);
989
-
990
- tmp2 = MULTIPLY(tmp12 - tmp13, FIX(1.392728481)); /* c1 */
991
-
992
- dataptr[5] = (DCTELEM) DESCALE(tmp0 - tmp11 - tmp2, CONST_BITS-1);
993
- dataptr[7] = (DCTELEM) DESCALE(tmp1 - tmp11 + tmp2, CONST_BITS-1);
994
-
995
- ctr++;
996
-
997
- if (ctr != DCTSIZE) {
998
- if (ctr == 9)
999
- break; /* Done. */
1000
- dataptr += DCTSIZE; /* advance pointer to next row */
1001
- } else
1002
- dataptr = workspace; /* switch pointer to extended workspace */
1003
- }
1004
-
1005
- /* Pass 2: process columns.
1006
- * We leave the results scaled up by an overall factor of 8.
1007
- * We must also scale the output by (8/9)**2 = 64/81, which we partially
1008
- * fold into the constant multipliers and final/initial shifting:
1009
- * cK now represents sqrt(2) * cos(K*pi/18) * 128/81.
1010
- */
1011
-
1012
- dataptr = data;
1013
- wsptr = workspace;
1014
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1015
- /* Even part */
1016
-
1017
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*0];
1018
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*7];
1019
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*6];
1020
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*5];
1021
- tmp4 = dataptr[DCTSIZE*4];
1022
-
1023
- tmp10 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*0];
1024
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*7];
1025
- tmp12 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*6];
1026
- tmp13 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*5];
1027
-
1028
- z1 = tmp0 + tmp2 + tmp3;
1029
- z2 = tmp1 + tmp4;
1030
- dataptr[DCTSIZE*0] = (DCTELEM)
1031
- DESCALE(MULTIPLY(z1 + z2, FIX(1.580246914)), /* 128/81 */
1032
- CONST_BITS+2);
1033
- dataptr[DCTSIZE*6] = (DCTELEM)
1034
- DESCALE(MULTIPLY(z1 - z2 - z2, FIX(1.117403309)), /* c6 */
1035
- CONST_BITS+2);
1036
- z1 = MULTIPLY(tmp0 - tmp2, FIX(2.100031287)); /* c2 */
1037
- z2 = MULTIPLY(tmp1 - tmp4 - tmp4, FIX(1.117403309)); /* c6 */
1038
- dataptr[DCTSIZE*2] = (DCTELEM)
1039
- DESCALE(MULTIPLY(tmp2 - tmp3, FIX(1.711961190)) /* c4 */
1040
- + z1 + z2, CONST_BITS+2);
1041
- dataptr[DCTSIZE*4] = (DCTELEM)
1042
- DESCALE(MULTIPLY(tmp3 - tmp0, FIX(0.388070096)) /* c8 */
1043
- + z1 - z2, CONST_BITS+2);
1044
-
1045
- /* Odd part */
1046
-
1047
- dataptr[DCTSIZE*3] = (DCTELEM)
1048
- DESCALE(MULTIPLY(tmp10 - tmp12 - tmp13, FIX(1.935399303)), /* c3 */
1049
- CONST_BITS+2);
1050
-
1051
- tmp11 = MULTIPLY(tmp11, FIX(1.935399303)); /* c3 */
1052
- tmp0 = MULTIPLY(tmp10 + tmp12, FIX(1.436506004)); /* c5 */
1053
- tmp1 = MULTIPLY(tmp10 + tmp13, FIX(0.764348879)); /* c7 */
1054
-
1055
- dataptr[DCTSIZE*1] = (DCTELEM)
1056
- DESCALE(tmp11 + tmp0 + tmp1, CONST_BITS+2);
1057
-
1058
- tmp2 = MULTIPLY(tmp12 - tmp13, FIX(2.200854883)); /* c1 */
1059
-
1060
- dataptr[DCTSIZE*5] = (DCTELEM)
1061
- DESCALE(tmp0 - tmp11 - tmp2, CONST_BITS+2);
1062
- dataptr[DCTSIZE*7] = (DCTELEM)
1063
- DESCALE(tmp1 - tmp11 + tmp2, CONST_BITS+2);
1064
-
1065
- dataptr++; /* advance pointer to next column */
1066
- wsptr++; /* advance pointer to next column */
1067
- }
1068
- }
1069
-
1070
-
1071
- /*
1072
- * Perform the forward DCT on a 10x10 sample block.
1073
- */
1074
-
1075
- GLOBAL(void)
1076
- jpeg_fdct_10x10 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1077
- {
1078
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4;
1079
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14;
1080
- DCTELEM workspace[8*2];
1081
- DCTELEM *dataptr;
1082
- DCTELEM *wsptr;
1083
- JSAMPROW elemptr;
1084
- int ctr;
1085
- SHIFT_TEMPS
1086
-
1087
- /* Pass 1: process rows. */
1088
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
1089
- /* we scale the results further by 2 as part of output adaption */
1090
- /* scaling for different DCT size. */
1091
- /* cK represents sqrt(2) * cos(K*pi/20). */
1092
-
1093
- dataptr = data;
1094
- ctr = 0;
1095
- for (;;) {
1096
- elemptr = sample_data[ctr] + start_col;
1097
-
1098
- /* Even part */
1099
-
1100
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[9]);
1101
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[8]);
1102
- tmp12 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[7]);
1103
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[6]);
1104
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[5]);
1105
-
1106
- tmp10 = tmp0 + tmp4;
1107
- tmp13 = tmp0 - tmp4;
1108
- tmp11 = tmp1 + tmp3;
1109
- tmp14 = tmp1 - tmp3;
1110
-
1111
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[9]);
1112
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[8]);
1113
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[7]);
1114
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[6]);
1115
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[5]);
1116
-
1117
- /* Apply unsigned->signed conversion */
1118
- dataptr[0] = (DCTELEM)
1119
- ((tmp10 + tmp11 + tmp12 - 10 * CENTERJSAMPLE) << 1);
1120
- tmp12 += tmp12;
1121
- dataptr[4] = (DCTELEM)
1122
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.144122806)) - /* c4 */
1123
- MULTIPLY(tmp11 - tmp12, FIX(0.437016024)), /* c8 */
1124
- CONST_BITS-1);
1125
- tmp10 = MULTIPLY(tmp13 + tmp14, FIX(0.831253876)); /* c6 */
1126
- dataptr[2] = (DCTELEM)
1127
- DESCALE(tmp10 + MULTIPLY(tmp13, FIX(0.513743148)), /* c2-c6 */
1128
- CONST_BITS-1);
1129
- dataptr[6] = (DCTELEM)
1130
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(2.176250899)), /* c2+c6 */
1131
- CONST_BITS-1);
1132
-
1133
- /* Odd part */
1134
-
1135
- tmp10 = tmp0 + tmp4;
1136
- tmp11 = tmp1 - tmp3;
1137
- dataptr[5] = (DCTELEM) ((tmp10 - tmp11 - tmp2) << 1);
1138
- tmp2 <<= CONST_BITS;
1139
- dataptr[1] = (DCTELEM)
1140
- DESCALE(MULTIPLY(tmp0, FIX(1.396802247)) + /* c1 */
1141
- MULTIPLY(tmp1, FIX(1.260073511)) + tmp2 + /* c3 */
1142
- MULTIPLY(tmp3, FIX(0.642039522)) + /* c7 */
1143
- MULTIPLY(tmp4, FIX(0.221231742)), /* c9 */
1144
- CONST_BITS-1);
1145
- tmp12 = MULTIPLY(tmp0 - tmp4, FIX(0.951056516)) - /* (c3+c7)/2 */
1146
- MULTIPLY(tmp1 + tmp3, FIX(0.587785252)); /* (c1-c9)/2 */
1147
- tmp13 = MULTIPLY(tmp10 + tmp11, FIX(0.309016994)) + /* (c3-c7)/2 */
1148
- (tmp11 << (CONST_BITS - 1)) - tmp2;
1149
- dataptr[3] = (DCTELEM) DESCALE(tmp12 + tmp13, CONST_BITS-1);
1150
- dataptr[7] = (DCTELEM) DESCALE(tmp12 - tmp13, CONST_BITS-1);
1151
-
1152
- ctr++;
1153
-
1154
- if (ctr != DCTSIZE) {
1155
- if (ctr == 10)
1156
- break; /* Done. */
1157
- dataptr += DCTSIZE; /* advance pointer to next row */
1158
- } else
1159
- dataptr = workspace; /* switch pointer to extended workspace */
1160
- }
1161
-
1162
- /* Pass 2: process columns.
1163
- * We leave the results scaled up by an overall factor of 8.
1164
- * We must also scale the output by (8/10)**2 = 16/25, which we partially
1165
- * fold into the constant multipliers and final/initial shifting:
1166
- * cK now represents sqrt(2) * cos(K*pi/20) * 32/25.
1167
- */
1168
-
1169
- dataptr = data;
1170
- wsptr = workspace;
1171
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1172
- /* Even part */
1173
-
1174
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*1];
1175
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*0];
1176
- tmp12 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*7];
1177
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*6];
1178
- tmp4 = dataptr[DCTSIZE*4] + dataptr[DCTSIZE*5];
1179
-
1180
- tmp10 = tmp0 + tmp4;
1181
- tmp13 = tmp0 - tmp4;
1182
- tmp11 = tmp1 + tmp3;
1183
- tmp14 = tmp1 - tmp3;
1184
-
1185
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*1];
1186
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*0];
1187
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*7];
1188
- tmp3 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*6];
1189
- tmp4 = dataptr[DCTSIZE*4] - dataptr[DCTSIZE*5];
1190
-
1191
- dataptr[DCTSIZE*0] = (DCTELEM)
1192
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12, FIX(1.28)), /* 32/25 */
1193
- CONST_BITS+2);
1194
- tmp12 += tmp12;
1195
- dataptr[DCTSIZE*4] = (DCTELEM)
1196
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.464477191)) - /* c4 */
1197
- MULTIPLY(tmp11 - tmp12, FIX(0.559380511)), /* c8 */
1198
- CONST_BITS+2);
1199
- tmp10 = MULTIPLY(tmp13 + tmp14, FIX(1.064004961)); /* c6 */
1200
- dataptr[DCTSIZE*2] = (DCTELEM)
1201
- DESCALE(tmp10 + MULTIPLY(tmp13, FIX(0.657591230)), /* c2-c6 */
1202
- CONST_BITS+2);
1203
- dataptr[DCTSIZE*6] = (DCTELEM)
1204
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(2.785601151)), /* c2+c6 */
1205
- CONST_BITS+2);
1206
-
1207
- /* Odd part */
1208
-
1209
- tmp10 = tmp0 + tmp4;
1210
- tmp11 = tmp1 - tmp3;
1211
- dataptr[DCTSIZE*5] = (DCTELEM)
1212
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp2, FIX(1.28)), /* 32/25 */
1213
- CONST_BITS+2);
1214
- tmp2 = MULTIPLY(tmp2, FIX(1.28)); /* 32/25 */
1215
- dataptr[DCTSIZE*1] = (DCTELEM)
1216
- DESCALE(MULTIPLY(tmp0, FIX(1.787906876)) + /* c1 */
1217
- MULTIPLY(tmp1, FIX(1.612894094)) + tmp2 + /* c3 */
1218
- MULTIPLY(tmp3, FIX(0.821810588)) + /* c7 */
1219
- MULTIPLY(tmp4, FIX(0.283176630)), /* c9 */
1220
- CONST_BITS+2);
1221
- tmp12 = MULTIPLY(tmp0 - tmp4, FIX(1.217352341)) - /* (c3+c7)/2 */
1222
- MULTIPLY(tmp1 + tmp3, FIX(0.752365123)); /* (c1-c9)/2 */
1223
- tmp13 = MULTIPLY(tmp10 + tmp11, FIX(0.395541753)) + /* (c3-c7)/2 */
1224
- MULTIPLY(tmp11, FIX(0.64)) - tmp2; /* 16/25 */
1225
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp12 + tmp13, CONST_BITS+2);
1226
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp12 - tmp13, CONST_BITS+2);
1227
-
1228
- dataptr++; /* advance pointer to next column */
1229
- wsptr++; /* advance pointer to next column */
1230
- }
1231
- }
1232
-
1233
-
1234
- /*
1235
- * Perform the forward DCT on an 11x11 sample block.
1236
- */
1237
-
1238
- GLOBAL(void)
1239
- jpeg_fdct_11x11 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1240
- {
1241
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5;
1242
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14;
1243
- INT32 z1, z2, z3;
1244
- DCTELEM workspace[8*3];
1245
- DCTELEM *dataptr;
1246
- DCTELEM *wsptr;
1247
- JSAMPROW elemptr;
1248
- int ctr;
1249
- SHIFT_TEMPS
1250
-
1251
- /* Pass 1: process rows. */
1252
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
1253
- /* we scale the results further by 2 as part of output adaption */
1254
- /* scaling for different DCT size. */
1255
- /* cK represents sqrt(2) * cos(K*pi/22). */
1256
-
1257
- dataptr = data;
1258
- ctr = 0;
1259
- for (;;) {
1260
- elemptr = sample_data[ctr] + start_col;
1261
-
1262
- /* Even part */
1263
-
1264
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[10]);
1265
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[9]);
1266
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[8]);
1267
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[7]);
1268
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[6]);
1269
- tmp5 = GETJSAMPLE(elemptr[5]);
1270
-
1271
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[10]);
1272
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[9]);
1273
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[8]);
1274
- tmp13 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[7]);
1275
- tmp14 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[6]);
1276
-
1277
- /* Apply unsigned->signed conversion */
1278
- dataptr[0] = (DCTELEM)
1279
- ((tmp0 + tmp1 + tmp2 + tmp3 + tmp4 + tmp5 - 11 * CENTERJSAMPLE) << 1);
1280
- tmp5 += tmp5;
1281
- tmp0 -= tmp5;
1282
- tmp1 -= tmp5;
1283
- tmp2 -= tmp5;
1284
- tmp3 -= tmp5;
1285
- tmp4 -= tmp5;
1286
- z1 = MULTIPLY(tmp0 + tmp3, FIX(1.356927976)) + /* c2 */
1287
- MULTIPLY(tmp2 + tmp4, FIX(0.201263574)); /* c10 */
1288
- z2 = MULTIPLY(tmp1 - tmp3, FIX(0.926112931)); /* c6 */
1289
- z3 = MULTIPLY(tmp0 - tmp1, FIX(1.189712156)); /* c4 */
1290
- dataptr[2] = (DCTELEM)
1291
- DESCALE(z1 + z2 - MULTIPLY(tmp3, FIX(1.018300590)) /* c2+c8-c6 */
1292
- - MULTIPLY(tmp4, FIX(1.390975730)), /* c4+c10 */
1293
- CONST_BITS-1);
1294
- dataptr[4] = (DCTELEM)
1295
- DESCALE(z2 + z3 + MULTIPLY(tmp1, FIX(0.062335650)) /* c4-c6-c10 */
1296
- - MULTIPLY(tmp2, FIX(1.356927976)) /* c2 */
1297
- + MULTIPLY(tmp4, FIX(0.587485545)), /* c8 */
1298
- CONST_BITS-1);
1299
- dataptr[6] = (DCTELEM)
1300
- DESCALE(z1 + z3 - MULTIPLY(tmp0, FIX(1.620527200)) /* c2+c4-c6 */
1301
- - MULTIPLY(tmp2, FIX(0.788749120)), /* c8+c10 */
1302
- CONST_BITS-1);
1303
-
1304
- /* Odd part */
1305
-
1306
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.286413905)); /* c3 */
1307
- tmp2 = MULTIPLY(tmp10 + tmp12, FIX(1.068791298)); /* c5 */
1308
- tmp3 = MULTIPLY(tmp10 + tmp13, FIX(0.764581576)); /* c7 */
1309
- tmp0 = tmp1 + tmp2 + tmp3 - MULTIPLY(tmp10, FIX(1.719967871)) /* c7+c5+c3-c1 */
1310
- + MULTIPLY(tmp14, FIX(0.398430003)); /* c9 */
1311
- tmp4 = MULTIPLY(tmp11 + tmp12, - FIX(0.764581576)); /* -c7 */
1312
- tmp5 = MULTIPLY(tmp11 + tmp13, - FIX(1.399818907)); /* -c1 */
1313
- tmp1 += tmp4 + tmp5 + MULTIPLY(tmp11, FIX(1.276416582)) /* c9+c7+c1-c3 */
1314
- - MULTIPLY(tmp14, FIX(1.068791298)); /* c5 */
1315
- tmp10 = MULTIPLY(tmp12 + tmp13, FIX(0.398430003)); /* c9 */
1316
- tmp2 += tmp4 + tmp10 - MULTIPLY(tmp12, FIX(1.989053629)) /* c9+c5+c3-c7 */
1317
- + MULTIPLY(tmp14, FIX(1.399818907)); /* c1 */
1318
- tmp3 += tmp5 + tmp10 + MULTIPLY(tmp13, FIX(1.305598626)) /* c1+c5-c9-c7 */
1319
- - MULTIPLY(tmp14, FIX(1.286413905)); /* c3 */
1320
-
1321
- dataptr[1] = (DCTELEM) DESCALE(tmp0, CONST_BITS-1);
1322
- dataptr[3] = (DCTELEM) DESCALE(tmp1, CONST_BITS-1);
1323
- dataptr[5] = (DCTELEM) DESCALE(tmp2, CONST_BITS-1);
1324
- dataptr[7] = (DCTELEM) DESCALE(tmp3, CONST_BITS-1);
1325
-
1326
- ctr++;
1327
-
1328
- if (ctr != DCTSIZE) {
1329
- if (ctr == 11)
1330
- break; /* Done. */
1331
- dataptr += DCTSIZE; /* advance pointer to next row */
1332
- } else
1333
- dataptr = workspace; /* switch pointer to extended workspace */
1334
- }
1335
-
1336
- /* Pass 2: process columns.
1337
- * We leave the results scaled up by an overall factor of 8.
1338
- * We must also scale the output by (8/11)**2 = 64/121, which we partially
1339
- * fold into the constant multipliers and final/initial shifting:
1340
- * cK now represents sqrt(2) * cos(K*pi/22) * 128/121.
1341
- */
1342
-
1343
- dataptr = data;
1344
- wsptr = workspace;
1345
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1346
- /* Even part */
1347
-
1348
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*2];
1349
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*1];
1350
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*0];
1351
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*7];
1352
- tmp4 = dataptr[DCTSIZE*4] + dataptr[DCTSIZE*6];
1353
- tmp5 = dataptr[DCTSIZE*5];
1354
-
1355
- tmp10 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*2];
1356
- tmp11 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*1];
1357
- tmp12 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*0];
1358
- tmp13 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*7];
1359
- tmp14 = dataptr[DCTSIZE*4] - dataptr[DCTSIZE*6];
1360
-
1361
- dataptr[DCTSIZE*0] = (DCTELEM)
1362
- DESCALE(MULTIPLY(tmp0 + tmp1 + tmp2 + tmp3 + tmp4 + tmp5,
1363
- FIX(1.057851240)), /* 128/121 */
1364
- CONST_BITS+2);
1365
- tmp5 += tmp5;
1366
- tmp0 -= tmp5;
1367
- tmp1 -= tmp5;
1368
- tmp2 -= tmp5;
1369
- tmp3 -= tmp5;
1370
- tmp4 -= tmp5;
1371
- z1 = MULTIPLY(tmp0 + tmp3, FIX(1.435427942)) + /* c2 */
1372
- MULTIPLY(tmp2 + tmp4, FIX(0.212906922)); /* c10 */
1373
- z2 = MULTIPLY(tmp1 - tmp3, FIX(0.979689713)); /* c6 */
1374
- z3 = MULTIPLY(tmp0 - tmp1, FIX(1.258538479)); /* c4 */
1375
- dataptr[DCTSIZE*2] = (DCTELEM)
1376
- DESCALE(z1 + z2 - MULTIPLY(tmp3, FIX(1.077210542)) /* c2+c8-c6 */
1377
- - MULTIPLY(tmp4, FIX(1.471445400)), /* c4+c10 */
1378
- CONST_BITS+2);
1379
- dataptr[DCTSIZE*4] = (DCTELEM)
1380
- DESCALE(z2 + z3 + MULTIPLY(tmp1, FIX(0.065941844)) /* c4-c6-c10 */
1381
- - MULTIPLY(tmp2, FIX(1.435427942)) /* c2 */
1382
- + MULTIPLY(tmp4, FIX(0.621472312)), /* c8 */
1383
- CONST_BITS+2);
1384
- dataptr[DCTSIZE*6] = (DCTELEM)
1385
- DESCALE(z1 + z3 - MULTIPLY(tmp0, FIX(1.714276708)) /* c2+c4-c6 */
1386
- - MULTIPLY(tmp2, FIX(0.834379234)), /* c8+c10 */
1387
- CONST_BITS+2);
1388
-
1389
- /* Odd part */
1390
-
1391
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.360834544)); /* c3 */
1392
- tmp2 = MULTIPLY(tmp10 + tmp12, FIX(1.130622199)); /* c5 */
1393
- tmp3 = MULTIPLY(tmp10 + tmp13, FIX(0.808813568)); /* c7 */
1394
- tmp0 = tmp1 + tmp2 + tmp3 - MULTIPLY(tmp10, FIX(1.819470145)) /* c7+c5+c3-c1 */
1395
- + MULTIPLY(tmp14, FIX(0.421479672)); /* c9 */
1396
- tmp4 = MULTIPLY(tmp11 + tmp12, - FIX(0.808813568)); /* -c7 */
1397
- tmp5 = MULTIPLY(tmp11 + tmp13, - FIX(1.480800167)); /* -c1 */
1398
- tmp1 += tmp4 + tmp5 + MULTIPLY(tmp11, FIX(1.350258864)) /* c9+c7+c1-c3 */
1399
- - MULTIPLY(tmp14, FIX(1.130622199)); /* c5 */
1400
- tmp10 = MULTIPLY(tmp12 + tmp13, FIX(0.421479672)); /* c9 */
1401
- tmp2 += tmp4 + tmp10 - MULTIPLY(tmp12, FIX(2.104122847)) /* c9+c5+c3-c7 */
1402
- + MULTIPLY(tmp14, FIX(1.480800167)); /* c1 */
1403
- tmp3 += tmp5 + tmp10 + MULTIPLY(tmp13, FIX(1.381129125)) /* c1+c5-c9-c7 */
1404
- - MULTIPLY(tmp14, FIX(1.360834544)); /* c3 */
1405
-
1406
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0, CONST_BITS+2);
1407
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1, CONST_BITS+2);
1408
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2, CONST_BITS+2);
1409
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp3, CONST_BITS+2);
1410
-
1411
- dataptr++; /* advance pointer to next column */
1412
- wsptr++; /* advance pointer to next column */
1413
- }
1414
- }
1415
-
1416
-
1417
- /*
1418
- * Perform the forward DCT on a 12x12 sample block.
1419
- */
1420
-
1421
- GLOBAL(void)
1422
- jpeg_fdct_12x12 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1423
- {
1424
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5;
1425
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15;
1426
- DCTELEM workspace[8*4];
1427
- DCTELEM *dataptr;
1428
- DCTELEM *wsptr;
1429
- JSAMPROW elemptr;
1430
- int ctr;
1431
- SHIFT_TEMPS
1432
-
1433
- /* Pass 1: process rows. */
1434
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
1435
- /* cK represents sqrt(2) * cos(K*pi/24). */
1436
-
1437
- dataptr = data;
1438
- ctr = 0;
1439
- for (;;) {
1440
- elemptr = sample_data[ctr] + start_col;
1441
-
1442
- /* Even part */
1443
-
1444
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[11]);
1445
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[10]);
1446
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[9]);
1447
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[8]);
1448
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[7]);
1449
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[6]);
1450
-
1451
- tmp10 = tmp0 + tmp5;
1452
- tmp13 = tmp0 - tmp5;
1453
- tmp11 = tmp1 + tmp4;
1454
- tmp14 = tmp1 - tmp4;
1455
- tmp12 = tmp2 + tmp3;
1456
- tmp15 = tmp2 - tmp3;
1457
-
1458
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[11]);
1459
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[10]);
1460
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[9]);
1461
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[8]);
1462
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[7]);
1463
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[6]);
1464
-
1465
- /* Apply unsigned->signed conversion */
1466
- dataptr[0] = (DCTELEM) (tmp10 + tmp11 + tmp12 - 12 * CENTERJSAMPLE);
1467
- dataptr[6] = (DCTELEM) (tmp13 - tmp14 - tmp15);
1468
- dataptr[4] = (DCTELEM)
1469
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.224744871)), /* c4 */
1470
- CONST_BITS);
1471
- dataptr[2] = (DCTELEM)
1472
- DESCALE(tmp14 - tmp15 + MULTIPLY(tmp13 + tmp15, FIX(1.366025404)), /* c2 */
1473
- CONST_BITS);
1474
-
1475
- /* Odd part */
1476
-
1477
- tmp10 = MULTIPLY(tmp1 + tmp4, FIX_0_541196100); /* c9 */
1478
- tmp14 = tmp10 + MULTIPLY(tmp1, FIX_0_765366865); /* c3-c9 */
1479
- tmp15 = tmp10 - MULTIPLY(tmp4, FIX_1_847759065); /* c3+c9 */
1480
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.121971054)); /* c5 */
1481
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(0.860918669)); /* c7 */
1482
- tmp10 = tmp12 + tmp13 + tmp14 - MULTIPLY(tmp0, FIX(0.580774953)) /* c5+c7-c1 */
1483
- + MULTIPLY(tmp5, FIX(0.184591911)); /* c11 */
1484
- tmp11 = MULTIPLY(tmp2 + tmp3, - FIX(0.184591911)); /* -c11 */
1485
- tmp12 += tmp11 - tmp15 - MULTIPLY(tmp2, FIX(2.339493912)) /* c1+c5-c11 */
1486
- + MULTIPLY(tmp5, FIX(0.860918669)); /* c7 */
1487
- tmp13 += tmp11 - tmp14 + MULTIPLY(tmp3, FIX(0.725788011)) /* c1+c11-c7 */
1488
- - MULTIPLY(tmp5, FIX(1.121971054)); /* c5 */
1489
- tmp11 = tmp15 + MULTIPLY(tmp0 - tmp3, FIX(1.306562965)) /* c3 */
1490
- - MULTIPLY(tmp2 + tmp5, FIX_0_541196100); /* c9 */
1491
-
1492
- dataptr[1] = (DCTELEM) DESCALE(tmp10, CONST_BITS);
1493
- dataptr[3] = (DCTELEM) DESCALE(tmp11, CONST_BITS);
1494
- dataptr[5] = (DCTELEM) DESCALE(tmp12, CONST_BITS);
1495
- dataptr[7] = (DCTELEM) DESCALE(tmp13, CONST_BITS);
1496
-
1497
- ctr++;
1498
-
1499
- if (ctr != DCTSIZE) {
1500
- if (ctr == 12)
1501
- break; /* Done. */
1502
- dataptr += DCTSIZE; /* advance pointer to next row */
1503
- } else
1504
- dataptr = workspace; /* switch pointer to extended workspace */
1505
- }
1506
-
1507
- /* Pass 2: process columns.
1508
- * We leave the results scaled up by an overall factor of 8.
1509
- * We must also scale the output by (8/12)**2 = 4/9, which we partially
1510
- * fold into the constant multipliers and final shifting:
1511
- * cK now represents sqrt(2) * cos(K*pi/24) * 8/9.
1512
- */
1513
-
1514
- dataptr = data;
1515
- wsptr = workspace;
1516
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1517
- /* Even part */
1518
-
1519
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*3];
1520
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*2];
1521
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*1];
1522
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*0];
1523
- tmp4 = dataptr[DCTSIZE*4] + dataptr[DCTSIZE*7];
1524
- tmp5 = dataptr[DCTSIZE*5] + dataptr[DCTSIZE*6];
1525
-
1526
- tmp10 = tmp0 + tmp5;
1527
- tmp13 = tmp0 - tmp5;
1528
- tmp11 = tmp1 + tmp4;
1529
- tmp14 = tmp1 - tmp4;
1530
- tmp12 = tmp2 + tmp3;
1531
- tmp15 = tmp2 - tmp3;
1532
-
1533
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*3];
1534
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*2];
1535
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*1];
1536
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*0];
1537
- tmp4 = dataptr[DCTSIZE*4] - dataptr[DCTSIZE*7];
1538
- tmp5 = dataptr[DCTSIZE*5] - dataptr[DCTSIZE*6];
1539
-
1540
- dataptr[DCTSIZE*0] = (DCTELEM)
1541
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12, FIX(0.888888889)), /* 8/9 */
1542
- CONST_BITS+1);
1543
- dataptr[DCTSIZE*6] = (DCTELEM)
1544
- DESCALE(MULTIPLY(tmp13 - tmp14 - tmp15, FIX(0.888888889)), /* 8/9 */
1545
- CONST_BITS+1);
1546
- dataptr[DCTSIZE*4] = (DCTELEM)
1547
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.088662108)), /* c4 */
1548
- CONST_BITS+1);
1549
- dataptr[DCTSIZE*2] = (DCTELEM)
1550
- DESCALE(MULTIPLY(tmp14 - tmp15, FIX(0.888888889)) + /* 8/9 */
1551
- MULTIPLY(tmp13 + tmp15, FIX(1.214244803)), /* c2 */
1552
- CONST_BITS+1);
1553
-
1554
- /* Odd part */
1555
-
1556
- tmp10 = MULTIPLY(tmp1 + tmp4, FIX(0.481063200)); /* c9 */
1557
- tmp14 = tmp10 + MULTIPLY(tmp1, FIX(0.680326102)); /* c3-c9 */
1558
- tmp15 = tmp10 - MULTIPLY(tmp4, FIX(1.642452502)); /* c3+c9 */
1559
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(0.997307603)); /* c5 */
1560
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(0.765261039)); /* c7 */
1561
- tmp10 = tmp12 + tmp13 + tmp14 - MULTIPLY(tmp0, FIX(0.516244403)) /* c5+c7-c1 */
1562
- + MULTIPLY(tmp5, FIX(0.164081699)); /* c11 */
1563
- tmp11 = MULTIPLY(tmp2 + tmp3, - FIX(0.164081699)); /* -c11 */
1564
- tmp12 += tmp11 - tmp15 - MULTIPLY(tmp2, FIX(2.079550144)) /* c1+c5-c11 */
1565
- + MULTIPLY(tmp5, FIX(0.765261039)); /* c7 */
1566
- tmp13 += tmp11 - tmp14 + MULTIPLY(tmp3, FIX(0.645144899)) /* c1+c11-c7 */
1567
- - MULTIPLY(tmp5, FIX(0.997307603)); /* c5 */
1568
- tmp11 = tmp15 + MULTIPLY(tmp0 - tmp3, FIX(1.161389302)) /* c3 */
1569
- - MULTIPLY(tmp2 + tmp5, FIX(0.481063200)); /* c9 */
1570
-
1571
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp10, CONST_BITS+1);
1572
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp11, CONST_BITS+1);
1573
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp12, CONST_BITS+1);
1574
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp13, CONST_BITS+1);
1575
-
1576
- dataptr++; /* advance pointer to next column */
1577
- wsptr++; /* advance pointer to next column */
1578
- }
1579
- }
1580
-
1581
-
1582
- /*
1583
- * Perform the forward DCT on a 13x13 sample block.
1584
- */
1585
-
1586
- GLOBAL(void)
1587
- jpeg_fdct_13x13 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1588
- {
1589
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6;
1590
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15;
1591
- INT32 z1, z2;
1592
- DCTELEM workspace[8*5];
1593
- DCTELEM *dataptr;
1594
- DCTELEM *wsptr;
1595
- JSAMPROW elemptr;
1596
- int ctr;
1597
- SHIFT_TEMPS
1598
-
1599
- /* Pass 1: process rows. */
1600
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
1601
- /* cK represents sqrt(2) * cos(K*pi/26). */
1602
-
1603
- dataptr = data;
1604
- ctr = 0;
1605
- for (;;) {
1606
- elemptr = sample_data[ctr] + start_col;
1607
-
1608
- /* Even part */
1609
-
1610
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[12]);
1611
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[11]);
1612
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[10]);
1613
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[9]);
1614
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[8]);
1615
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[7]);
1616
- tmp6 = GETJSAMPLE(elemptr[6]);
1617
-
1618
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[12]);
1619
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[11]);
1620
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[10]);
1621
- tmp13 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[9]);
1622
- tmp14 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[8]);
1623
- tmp15 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[7]);
1624
-
1625
- /* Apply unsigned->signed conversion */
1626
- dataptr[0] = (DCTELEM)
1627
- (tmp0 + tmp1 + tmp2 + tmp3 + tmp4 + tmp5 + tmp6 - 13 * CENTERJSAMPLE);
1628
- tmp6 += tmp6;
1629
- tmp0 -= tmp6;
1630
- tmp1 -= tmp6;
1631
- tmp2 -= tmp6;
1632
- tmp3 -= tmp6;
1633
- tmp4 -= tmp6;
1634
- tmp5 -= tmp6;
1635
- dataptr[2] = (DCTELEM)
1636
- DESCALE(MULTIPLY(tmp0, FIX(1.373119086)) + /* c2 */
1637
- MULTIPLY(tmp1, FIX(1.058554052)) + /* c6 */
1638
- MULTIPLY(tmp2, FIX(0.501487041)) - /* c10 */
1639
- MULTIPLY(tmp3, FIX(0.170464608)) - /* c12 */
1640
- MULTIPLY(tmp4, FIX(0.803364869)) - /* c8 */
1641
- MULTIPLY(tmp5, FIX(1.252223920)), /* c4 */
1642
- CONST_BITS);
1643
- z1 = MULTIPLY(tmp0 - tmp2, FIX(1.155388986)) - /* (c4+c6)/2 */
1644
- MULTIPLY(tmp3 - tmp4, FIX(0.435816023)) - /* (c2-c10)/2 */
1645
- MULTIPLY(tmp1 - tmp5, FIX(0.316450131)); /* (c8-c12)/2 */
1646
- z2 = MULTIPLY(tmp0 + tmp2, FIX(0.096834934)) - /* (c4-c6)/2 */
1647
- MULTIPLY(tmp3 + tmp4, FIX(0.937303064)) + /* (c2+c10)/2 */
1648
- MULTIPLY(tmp1 + tmp5, FIX(0.486914739)); /* (c8+c12)/2 */
1649
-
1650
- dataptr[4] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS);
1651
- dataptr[6] = (DCTELEM) DESCALE(z1 - z2, CONST_BITS);
1652
-
1653
- /* Odd part */
1654
-
1655
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.322312651)); /* c3 */
1656
- tmp2 = MULTIPLY(tmp10 + tmp12, FIX(1.163874945)); /* c5 */
1657
- tmp3 = MULTIPLY(tmp10 + tmp13, FIX(0.937797057)) + /* c7 */
1658
- MULTIPLY(tmp14 + tmp15, FIX(0.338443458)); /* c11 */
1659
- tmp0 = tmp1 + tmp2 + tmp3 -
1660
- MULTIPLY(tmp10, FIX(2.020082300)) + /* c3+c5+c7-c1 */
1661
- MULTIPLY(tmp14, FIX(0.318774355)); /* c9-c11 */
1662
- tmp4 = MULTIPLY(tmp14 - tmp15, FIX(0.937797057)) - /* c7 */
1663
- MULTIPLY(tmp11 + tmp12, FIX(0.338443458)); /* c11 */
1664
- tmp5 = MULTIPLY(tmp11 + tmp13, - FIX(1.163874945)); /* -c5 */
1665
- tmp1 += tmp4 + tmp5 +
1666
- MULTIPLY(tmp11, FIX(0.837223564)) - /* c5+c9+c11-c3 */
1667
- MULTIPLY(tmp14, FIX(2.341699410)); /* c1+c7 */
1668
- tmp6 = MULTIPLY(tmp12 + tmp13, - FIX(0.657217813)); /* -c9 */
1669
- tmp2 += tmp4 + tmp6 -
1670
- MULTIPLY(tmp12, FIX(1.572116027)) + /* c1+c5-c9-c11 */
1671
- MULTIPLY(tmp15, FIX(2.260109708)); /* c3+c7 */
1672
- tmp3 += tmp5 + tmp6 +
1673
- MULTIPLY(tmp13, FIX(2.205608352)) - /* c3+c5+c9-c7 */
1674
- MULTIPLY(tmp15, FIX(1.742345811)); /* c1+c11 */
1675
-
1676
- dataptr[1] = (DCTELEM) DESCALE(tmp0, CONST_BITS);
1677
- dataptr[3] = (DCTELEM) DESCALE(tmp1, CONST_BITS);
1678
- dataptr[5] = (DCTELEM) DESCALE(tmp2, CONST_BITS);
1679
- dataptr[7] = (DCTELEM) DESCALE(tmp3, CONST_BITS);
1680
-
1681
- ctr++;
1682
-
1683
- if (ctr != DCTSIZE) {
1684
- if (ctr == 13)
1685
- break; /* Done. */
1686
- dataptr += DCTSIZE; /* advance pointer to next row */
1687
- } else
1688
- dataptr = workspace; /* switch pointer to extended workspace */
1689
- }
1690
-
1691
- /* Pass 2: process columns.
1692
- * We leave the results scaled up by an overall factor of 8.
1693
- * We must also scale the output by (8/13)**2 = 64/169, which we partially
1694
- * fold into the constant multipliers and final shifting:
1695
- * cK now represents sqrt(2) * cos(K*pi/26) * 128/169.
1696
- */
1697
-
1698
- dataptr = data;
1699
- wsptr = workspace;
1700
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1701
- /* Even part */
1702
-
1703
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*4];
1704
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*3];
1705
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*2];
1706
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*1];
1707
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*0];
1708
- tmp5 = dataptr[DCTSIZE*5] + dataptr[DCTSIZE*7];
1709
- tmp6 = dataptr[DCTSIZE*6];
1710
-
1711
- tmp10 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*4];
1712
- tmp11 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*3];
1713
- tmp12 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*2];
1714
- tmp13 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*1];
1715
- tmp14 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*0];
1716
- tmp15 = dataptr[DCTSIZE*5] - dataptr[DCTSIZE*7];
1717
-
1718
- dataptr[DCTSIZE*0] = (DCTELEM)
1719
- DESCALE(MULTIPLY(tmp0 + tmp1 + tmp2 + tmp3 + tmp4 + tmp5 + tmp6,
1720
- FIX(0.757396450)), /* 128/169 */
1721
- CONST_BITS+1);
1722
- tmp6 += tmp6;
1723
- tmp0 -= tmp6;
1724
- tmp1 -= tmp6;
1725
- tmp2 -= tmp6;
1726
- tmp3 -= tmp6;
1727
- tmp4 -= tmp6;
1728
- tmp5 -= tmp6;
1729
- dataptr[DCTSIZE*2] = (DCTELEM)
1730
- DESCALE(MULTIPLY(tmp0, FIX(1.039995521)) + /* c2 */
1731
- MULTIPLY(tmp1, FIX(0.801745081)) + /* c6 */
1732
- MULTIPLY(tmp2, FIX(0.379824504)) - /* c10 */
1733
- MULTIPLY(tmp3, FIX(0.129109289)) - /* c12 */
1734
- MULTIPLY(tmp4, FIX(0.608465700)) - /* c8 */
1735
- MULTIPLY(tmp5, FIX(0.948429952)), /* c4 */
1736
- CONST_BITS+1);
1737
- z1 = MULTIPLY(tmp0 - tmp2, FIX(0.875087516)) - /* (c4+c6)/2 */
1738
- MULTIPLY(tmp3 - tmp4, FIX(0.330085509)) - /* (c2-c10)/2 */
1739
- MULTIPLY(tmp1 - tmp5, FIX(0.239678205)); /* (c8-c12)/2 */
1740
- z2 = MULTIPLY(tmp0 + tmp2, FIX(0.073342435)) - /* (c4-c6)/2 */
1741
- MULTIPLY(tmp3 + tmp4, FIX(0.709910013)) + /* (c2+c10)/2 */
1742
- MULTIPLY(tmp1 + tmp5, FIX(0.368787494)); /* (c8+c12)/2 */
1743
-
1744
- dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS+1);
1745
- dataptr[DCTSIZE*6] = (DCTELEM) DESCALE(z1 - z2, CONST_BITS+1);
1746
-
1747
- /* Odd part */
1748
-
1749
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.001514908)); /* c3 */
1750
- tmp2 = MULTIPLY(tmp10 + tmp12, FIX(0.881514751)); /* c5 */
1751
- tmp3 = MULTIPLY(tmp10 + tmp13, FIX(0.710284161)) + /* c7 */
1752
- MULTIPLY(tmp14 + tmp15, FIX(0.256335874)); /* c11 */
1753
- tmp0 = tmp1 + tmp2 + tmp3 -
1754
- MULTIPLY(tmp10, FIX(1.530003162)) + /* c3+c5+c7-c1 */
1755
- MULTIPLY(tmp14, FIX(0.241438564)); /* c9-c11 */
1756
- tmp4 = MULTIPLY(tmp14 - tmp15, FIX(0.710284161)) - /* c7 */
1757
- MULTIPLY(tmp11 + tmp12, FIX(0.256335874)); /* c11 */
1758
- tmp5 = MULTIPLY(tmp11 + tmp13, - FIX(0.881514751)); /* -c5 */
1759
- tmp1 += tmp4 + tmp5 +
1760
- MULTIPLY(tmp11, FIX(0.634110155)) - /* c5+c9+c11-c3 */
1761
- MULTIPLY(tmp14, FIX(1.773594819)); /* c1+c7 */
1762
- tmp6 = MULTIPLY(tmp12 + tmp13, - FIX(0.497774438)); /* -c9 */
1763
- tmp2 += tmp4 + tmp6 -
1764
- MULTIPLY(tmp12, FIX(1.190715098)) + /* c1+c5-c9-c11 */
1765
- MULTIPLY(tmp15, FIX(1.711799069)); /* c3+c7 */
1766
- tmp3 += tmp5 + tmp6 +
1767
- MULTIPLY(tmp13, FIX(1.670519935)) - /* c3+c5+c9-c7 */
1768
- MULTIPLY(tmp15, FIX(1.319646532)); /* c1+c11 */
1769
-
1770
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0, CONST_BITS+1);
1771
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1, CONST_BITS+1);
1772
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2, CONST_BITS+1);
1773
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp3, CONST_BITS+1);
1774
-
1775
- dataptr++; /* advance pointer to next column */
1776
- wsptr++; /* advance pointer to next column */
1777
- }
1778
- }
1779
-
1780
-
1781
- /*
1782
- * Perform the forward DCT on a 14x14 sample block.
1783
- */
1784
-
1785
- GLOBAL(void)
1786
- jpeg_fdct_14x14 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1787
- {
1788
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6;
1789
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16;
1790
- DCTELEM workspace[8*6];
1791
- DCTELEM *dataptr;
1792
- DCTELEM *wsptr;
1793
- JSAMPROW elemptr;
1794
- int ctr;
1795
- SHIFT_TEMPS
1796
-
1797
- /* Pass 1: process rows. */
1798
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
1799
- /* cK represents sqrt(2) * cos(K*pi/28). */
1800
-
1801
- dataptr = data;
1802
- ctr = 0;
1803
- for (;;) {
1804
- elemptr = sample_data[ctr] + start_col;
1805
-
1806
- /* Even part */
1807
-
1808
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[13]);
1809
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[12]);
1810
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[11]);
1811
- tmp13 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[10]);
1812
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[9]);
1813
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[8]);
1814
- tmp6 = GETJSAMPLE(elemptr[6]) + GETJSAMPLE(elemptr[7]);
1815
-
1816
- tmp10 = tmp0 + tmp6;
1817
- tmp14 = tmp0 - tmp6;
1818
- tmp11 = tmp1 + tmp5;
1819
- tmp15 = tmp1 - tmp5;
1820
- tmp12 = tmp2 + tmp4;
1821
- tmp16 = tmp2 - tmp4;
1822
-
1823
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[13]);
1824
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[12]);
1825
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[11]);
1826
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[10]);
1827
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[9]);
1828
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[8]);
1829
- tmp6 = GETJSAMPLE(elemptr[6]) - GETJSAMPLE(elemptr[7]);
1830
-
1831
- /* Apply unsigned->signed conversion */
1832
- dataptr[0] = (DCTELEM)
1833
- (tmp10 + tmp11 + tmp12 + tmp13 - 14 * CENTERJSAMPLE);
1834
- tmp13 += tmp13;
1835
- dataptr[4] = (DCTELEM)
1836
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.274162392)) + /* c4 */
1837
- MULTIPLY(tmp11 - tmp13, FIX(0.314692123)) - /* c12 */
1838
- MULTIPLY(tmp12 - tmp13, FIX(0.881747734)), /* c8 */
1839
- CONST_BITS);
1840
-
1841
- tmp10 = MULTIPLY(tmp14 + tmp15, FIX(1.105676686)); /* c6 */
1842
-
1843
- dataptr[2] = (DCTELEM)
1844
- DESCALE(tmp10 + MULTIPLY(tmp14, FIX(0.273079590)) /* c2-c6 */
1845
- + MULTIPLY(tmp16, FIX(0.613604268)), /* c10 */
1846
- CONST_BITS);
1847
- dataptr[6] = (DCTELEM)
1848
- DESCALE(tmp10 - MULTIPLY(tmp15, FIX(1.719280954)) /* c6+c10 */
1849
- - MULTIPLY(tmp16, FIX(1.378756276)), /* c2 */
1850
- CONST_BITS);
1851
-
1852
- /* Odd part */
1853
-
1854
- tmp10 = tmp1 + tmp2;
1855
- tmp11 = tmp5 - tmp4;
1856
- dataptr[7] = (DCTELEM) (tmp0 - tmp10 + tmp3 - tmp11 - tmp6);
1857
- tmp3 <<= CONST_BITS;
1858
- tmp10 = MULTIPLY(tmp10, - FIX(0.158341681)); /* -c13 */
1859
- tmp11 = MULTIPLY(tmp11, FIX(1.405321284)); /* c1 */
1860
- tmp10 += tmp11 - tmp3;
1861
- tmp11 = MULTIPLY(tmp0 + tmp2, FIX(1.197448846)) + /* c5 */
1862
- MULTIPLY(tmp4 + tmp6, FIX(0.752406978)); /* c9 */
1863
- dataptr[5] = (DCTELEM)
1864
- DESCALE(tmp10 + tmp11 - MULTIPLY(tmp2, FIX(2.373959773)) /* c3+c5-c13 */
1865
- + MULTIPLY(tmp4, FIX(1.119999435)), /* c1+c11-c9 */
1866
- CONST_BITS);
1867
- tmp12 = MULTIPLY(tmp0 + tmp1, FIX(1.334852607)) + /* c3 */
1868
- MULTIPLY(tmp5 - tmp6, FIX(0.467085129)); /* c11 */
1869
- dataptr[3] = (DCTELEM)
1870
- DESCALE(tmp10 + tmp12 - MULTIPLY(tmp1, FIX(0.424103948)) /* c3-c9-c13 */
1871
- - MULTIPLY(tmp5, FIX(3.069855259)), /* c1+c5+c11 */
1872
- CONST_BITS);
1873
- dataptr[1] = (DCTELEM)
1874
- DESCALE(tmp11 + tmp12 + tmp3 + tmp6 -
1875
- MULTIPLY(tmp0 + tmp6, FIX(1.126980169)), /* c3+c5-c1 */
1876
- CONST_BITS);
1877
-
1878
- ctr++;
1879
-
1880
- if (ctr != DCTSIZE) {
1881
- if (ctr == 14)
1882
- break; /* Done. */
1883
- dataptr += DCTSIZE; /* advance pointer to next row */
1884
- } else
1885
- dataptr = workspace; /* switch pointer to extended workspace */
1886
- }
1887
-
1888
- /* Pass 2: process columns.
1889
- * We leave the results scaled up by an overall factor of 8.
1890
- * We must also scale the output by (8/14)**2 = 16/49, which we partially
1891
- * fold into the constant multipliers and final shifting:
1892
- * cK now represents sqrt(2) * cos(K*pi/28) * 32/49.
1893
- */
1894
-
1895
- dataptr = data;
1896
- wsptr = workspace;
1897
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
1898
- /* Even part */
1899
-
1900
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*5];
1901
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*4];
1902
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*3];
1903
- tmp13 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*2];
1904
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*1];
1905
- tmp5 = dataptr[DCTSIZE*5] + wsptr[DCTSIZE*0];
1906
- tmp6 = dataptr[DCTSIZE*6] + dataptr[DCTSIZE*7];
1907
-
1908
- tmp10 = tmp0 + tmp6;
1909
- tmp14 = tmp0 - tmp6;
1910
- tmp11 = tmp1 + tmp5;
1911
- tmp15 = tmp1 - tmp5;
1912
- tmp12 = tmp2 + tmp4;
1913
- tmp16 = tmp2 - tmp4;
1914
-
1915
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*5];
1916
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*4];
1917
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*3];
1918
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*2];
1919
- tmp4 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*1];
1920
- tmp5 = dataptr[DCTSIZE*5] - wsptr[DCTSIZE*0];
1921
- tmp6 = dataptr[DCTSIZE*6] - dataptr[DCTSIZE*7];
1922
-
1923
- dataptr[DCTSIZE*0] = (DCTELEM)
1924
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12 + tmp13,
1925
- FIX(0.653061224)), /* 32/49 */
1926
- CONST_BITS+1);
1927
- tmp13 += tmp13;
1928
- dataptr[DCTSIZE*4] = (DCTELEM)
1929
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(0.832106052)) + /* c4 */
1930
- MULTIPLY(tmp11 - tmp13, FIX(0.205513223)) - /* c12 */
1931
- MULTIPLY(tmp12 - tmp13, FIX(0.575835255)), /* c8 */
1932
- CONST_BITS+1);
1933
-
1934
- tmp10 = MULTIPLY(tmp14 + tmp15, FIX(0.722074570)); /* c6 */
1935
-
1936
- dataptr[DCTSIZE*2] = (DCTELEM)
1937
- DESCALE(tmp10 + MULTIPLY(tmp14, FIX(0.178337691)) /* c2-c6 */
1938
- + MULTIPLY(tmp16, FIX(0.400721155)), /* c10 */
1939
- CONST_BITS+1);
1940
- dataptr[DCTSIZE*6] = (DCTELEM)
1941
- DESCALE(tmp10 - MULTIPLY(tmp15, FIX(1.122795725)) /* c6+c10 */
1942
- - MULTIPLY(tmp16, FIX(0.900412262)), /* c2 */
1943
- CONST_BITS+1);
1944
-
1945
- /* Odd part */
1946
-
1947
- tmp10 = tmp1 + tmp2;
1948
- tmp11 = tmp5 - tmp4;
1949
- dataptr[DCTSIZE*7] = (DCTELEM)
1950
- DESCALE(MULTIPLY(tmp0 - tmp10 + tmp3 - tmp11 - tmp6,
1951
- FIX(0.653061224)), /* 32/49 */
1952
- CONST_BITS+1);
1953
- tmp3 = MULTIPLY(tmp3 , FIX(0.653061224)); /* 32/49 */
1954
- tmp10 = MULTIPLY(tmp10, - FIX(0.103406812)); /* -c13 */
1955
- tmp11 = MULTIPLY(tmp11, FIX(0.917760839)); /* c1 */
1956
- tmp10 += tmp11 - tmp3;
1957
- tmp11 = MULTIPLY(tmp0 + tmp2, FIX(0.782007410)) + /* c5 */
1958
- MULTIPLY(tmp4 + tmp6, FIX(0.491367823)); /* c9 */
1959
- dataptr[DCTSIZE*5] = (DCTELEM)
1960
- DESCALE(tmp10 + tmp11 - MULTIPLY(tmp2, FIX(1.550341076)) /* c3+c5-c13 */
1961
- + MULTIPLY(tmp4, FIX(0.731428202)), /* c1+c11-c9 */
1962
- CONST_BITS+1);
1963
- tmp12 = MULTIPLY(tmp0 + tmp1, FIX(0.871740478)) + /* c3 */
1964
- MULTIPLY(tmp5 - tmp6, FIX(0.305035186)); /* c11 */
1965
- dataptr[DCTSIZE*3] = (DCTELEM)
1966
- DESCALE(tmp10 + tmp12 - MULTIPLY(tmp1, FIX(0.276965844)) /* c3-c9-c13 */
1967
- - MULTIPLY(tmp5, FIX(2.004803435)), /* c1+c5+c11 */
1968
- CONST_BITS+1);
1969
- dataptr[DCTSIZE*1] = (DCTELEM)
1970
- DESCALE(tmp11 + tmp12 + tmp3
1971
- - MULTIPLY(tmp0, FIX(0.735987049)) /* c3+c5-c1 */
1972
- - MULTIPLY(tmp6, FIX(0.082925825)), /* c9-c11-c13 */
1973
- CONST_BITS+1);
1974
-
1975
- dataptr++; /* advance pointer to next column */
1976
- wsptr++; /* advance pointer to next column */
1977
- }
1978
- }
1979
-
1980
-
1981
- /*
1982
- * Perform the forward DCT on a 15x15 sample block.
1983
- */
1984
-
1985
- GLOBAL(void)
1986
- jpeg_fdct_15x15 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
1987
- {
1988
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
1989
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16;
1990
- INT32 z1, z2, z3;
1991
- DCTELEM workspace[8*7];
1992
- DCTELEM *dataptr;
1993
- DCTELEM *wsptr;
1994
- JSAMPROW elemptr;
1995
- int ctr;
1996
- SHIFT_TEMPS
1997
-
1998
- /* Pass 1: process rows. */
1999
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
2000
- /* cK represents sqrt(2) * cos(K*pi/30). */
2001
-
2002
- dataptr = data;
2003
- ctr = 0;
2004
- for (;;) {
2005
- elemptr = sample_data[ctr] + start_col;
2006
-
2007
- /* Even part */
2008
-
2009
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[14]);
2010
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[13]);
2011
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[12]);
2012
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[11]);
2013
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[10]);
2014
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[9]);
2015
- tmp6 = GETJSAMPLE(elemptr[6]) + GETJSAMPLE(elemptr[8]);
2016
- tmp7 = GETJSAMPLE(elemptr[7]);
2017
-
2018
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[14]);
2019
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[13]);
2020
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[12]);
2021
- tmp13 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[11]);
2022
- tmp14 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[10]);
2023
- tmp15 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[9]);
2024
- tmp16 = GETJSAMPLE(elemptr[6]) - GETJSAMPLE(elemptr[8]);
2025
-
2026
- z1 = tmp0 + tmp4 + tmp5;
2027
- z2 = tmp1 + tmp3 + tmp6;
2028
- z3 = tmp2 + tmp7;
2029
- /* Apply unsigned->signed conversion */
2030
- dataptr[0] = (DCTELEM) (z1 + z2 + z3 - 15 * CENTERJSAMPLE);
2031
- z3 += z3;
2032
- dataptr[6] = (DCTELEM)
2033
- DESCALE(MULTIPLY(z1 - z3, FIX(1.144122806)) - /* c6 */
2034
- MULTIPLY(z2 - z3, FIX(0.437016024)), /* c12 */
2035
- CONST_BITS);
2036
- tmp2 += ((tmp1 + tmp4) >> 1) - tmp7 - tmp7;
2037
- z1 = MULTIPLY(tmp3 - tmp2, FIX(1.531135173)) - /* c2+c14 */
2038
- MULTIPLY(tmp6 - tmp2, FIX(2.238241955)); /* c4+c8 */
2039
- z2 = MULTIPLY(tmp5 - tmp2, FIX(0.798468008)) - /* c8-c14 */
2040
- MULTIPLY(tmp0 - tmp2, FIX(0.091361227)); /* c2-c4 */
2041
- z3 = MULTIPLY(tmp0 - tmp3, FIX(1.383309603)) + /* c2 */
2042
- MULTIPLY(tmp6 - tmp5, FIX(0.946293579)) + /* c8 */
2043
- MULTIPLY(tmp1 - tmp4, FIX(0.790569415)); /* (c6+c12)/2 */
2044
-
2045
- dataptr[2] = (DCTELEM) DESCALE(z1 + z3, CONST_BITS);
2046
- dataptr[4] = (DCTELEM) DESCALE(z2 + z3, CONST_BITS);
2047
-
2048
- /* Odd part */
2049
-
2050
- tmp2 = MULTIPLY(tmp10 - tmp12 - tmp13 + tmp15 + tmp16,
2051
- FIX(1.224744871)); /* c5 */
2052
- tmp1 = MULTIPLY(tmp10 - tmp14 - tmp15, FIX(1.344997024)) + /* c3 */
2053
- MULTIPLY(tmp11 - tmp13 - tmp16, FIX(0.831253876)); /* c9 */
2054
- tmp12 = MULTIPLY(tmp12, FIX(1.224744871)); /* c5 */
2055
- tmp4 = MULTIPLY(tmp10 - tmp16, FIX(1.406466353)) + /* c1 */
2056
- MULTIPLY(tmp11 + tmp14, FIX(1.344997024)) + /* c3 */
2057
- MULTIPLY(tmp13 + tmp15, FIX(0.575212477)); /* c11 */
2058
- tmp0 = MULTIPLY(tmp13, FIX(0.475753014)) - /* c7-c11 */
2059
- MULTIPLY(tmp14, FIX(0.513743148)) + /* c3-c9 */
2060
- MULTIPLY(tmp16, FIX(1.700497885)) + tmp4 + tmp12; /* c1+c13 */
2061
- tmp3 = MULTIPLY(tmp10, - FIX(0.355500862)) - /* -(c1-c7) */
2062
- MULTIPLY(tmp11, FIX(2.176250899)) - /* c3+c9 */
2063
- MULTIPLY(tmp15, FIX(0.869244010)) + tmp4 - tmp12; /* c11+c13 */
2064
-
2065
- dataptr[1] = (DCTELEM) DESCALE(tmp0, CONST_BITS);
2066
- dataptr[3] = (DCTELEM) DESCALE(tmp1, CONST_BITS);
2067
- dataptr[5] = (DCTELEM) DESCALE(tmp2, CONST_BITS);
2068
- dataptr[7] = (DCTELEM) DESCALE(tmp3, CONST_BITS);
2069
-
2070
- ctr++;
2071
-
2072
- if (ctr != DCTSIZE) {
2073
- if (ctr == 15)
2074
- break; /* Done. */
2075
- dataptr += DCTSIZE; /* advance pointer to next row */
2076
- } else
2077
- dataptr = workspace; /* switch pointer to extended workspace */
2078
- }
2079
-
2080
- /* Pass 2: process columns.
2081
- * We leave the results scaled up by an overall factor of 8.
2082
- * We must also scale the output by (8/15)**2 = 64/225, which we partially
2083
- * fold into the constant multipliers and final shifting:
2084
- * cK now represents sqrt(2) * cos(K*pi/30) * 256/225.
2085
- */
2086
-
2087
- dataptr = data;
2088
- wsptr = workspace;
2089
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2090
- /* Even part */
2091
-
2092
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*6];
2093
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*5];
2094
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*4];
2095
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*3];
2096
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*2];
2097
- tmp5 = dataptr[DCTSIZE*5] + wsptr[DCTSIZE*1];
2098
- tmp6 = dataptr[DCTSIZE*6] + wsptr[DCTSIZE*0];
2099
- tmp7 = dataptr[DCTSIZE*7];
2100
-
2101
- tmp10 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*6];
2102
- tmp11 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*5];
2103
- tmp12 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*4];
2104
- tmp13 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*3];
2105
- tmp14 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*2];
2106
- tmp15 = dataptr[DCTSIZE*5] - wsptr[DCTSIZE*1];
2107
- tmp16 = dataptr[DCTSIZE*6] - wsptr[DCTSIZE*0];
2108
-
2109
- z1 = tmp0 + tmp4 + tmp5;
2110
- z2 = tmp1 + tmp3 + tmp6;
2111
- z3 = tmp2 + tmp7;
2112
- dataptr[DCTSIZE*0] = (DCTELEM)
2113
- DESCALE(MULTIPLY(z1 + z2 + z3, FIX(1.137777778)), /* 256/225 */
2114
- CONST_BITS+2);
2115
- z3 += z3;
2116
- dataptr[DCTSIZE*6] = (DCTELEM)
2117
- DESCALE(MULTIPLY(z1 - z3, FIX(1.301757503)) - /* c6 */
2118
- MULTIPLY(z2 - z3, FIX(0.497227121)), /* c12 */
2119
- CONST_BITS+2);
2120
- tmp2 += ((tmp1 + tmp4) >> 1) - tmp7 - tmp7;
2121
- z1 = MULTIPLY(tmp3 - tmp2, FIX(1.742091575)) - /* c2+c14 */
2122
- MULTIPLY(tmp6 - tmp2, FIX(2.546621957)); /* c4+c8 */
2123
- z2 = MULTIPLY(tmp5 - tmp2, FIX(0.908479156)) - /* c8-c14 */
2124
- MULTIPLY(tmp0 - tmp2, FIX(0.103948774)); /* c2-c4 */
2125
- z3 = MULTIPLY(tmp0 - tmp3, FIX(1.573898926)) + /* c2 */
2126
- MULTIPLY(tmp6 - tmp5, FIX(1.076671805)) + /* c8 */
2127
- MULTIPLY(tmp1 - tmp4, FIX(0.899492312)); /* (c6+c12)/2 */
2128
-
2129
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(z1 + z3, CONST_BITS+2);
2130
- dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(z2 + z3, CONST_BITS+2);
2131
-
2132
- /* Odd part */
2133
-
2134
- tmp2 = MULTIPLY(tmp10 - tmp12 - tmp13 + tmp15 + tmp16,
2135
- FIX(1.393487498)); /* c5 */
2136
- tmp1 = MULTIPLY(tmp10 - tmp14 - tmp15, FIX(1.530307725)) + /* c3 */
2137
- MULTIPLY(tmp11 - tmp13 - tmp16, FIX(0.945782187)); /* c9 */
2138
- tmp12 = MULTIPLY(tmp12, FIX(1.393487498)); /* c5 */
2139
- tmp4 = MULTIPLY(tmp10 - tmp16, FIX(1.600246161)) + /* c1 */
2140
- MULTIPLY(tmp11 + tmp14, FIX(1.530307725)) + /* c3 */
2141
- MULTIPLY(tmp13 + tmp15, FIX(0.654463974)); /* c11 */
2142
- tmp0 = MULTIPLY(tmp13, FIX(0.541301207)) - /* c7-c11 */
2143
- MULTIPLY(tmp14, FIX(0.584525538)) + /* c3-c9 */
2144
- MULTIPLY(tmp16, FIX(1.934788705)) + tmp4 + tmp12; /* c1+c13 */
2145
- tmp3 = MULTIPLY(tmp10, - FIX(0.404480980)) - /* -(c1-c7) */
2146
- MULTIPLY(tmp11, FIX(2.476089912)) - /* c3+c9 */
2147
- MULTIPLY(tmp15, FIX(0.989006518)) + tmp4 - tmp12; /* c11+c13 */
2148
-
2149
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0, CONST_BITS+2);
2150
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1, CONST_BITS+2);
2151
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2, CONST_BITS+2);
2152
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp3, CONST_BITS+2);
2153
-
2154
- dataptr++; /* advance pointer to next column */
2155
- wsptr++; /* advance pointer to next column */
2156
- }
2157
- }
2158
-
2159
-
2160
- /*
2161
- * Perform the forward DCT on a 16x16 sample block.
2162
- */
2163
-
2164
- GLOBAL(void)
2165
- jpeg_fdct_16x16 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2166
- {
2167
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
2168
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16, tmp17;
2169
- DCTELEM workspace[DCTSIZE2];
2170
- DCTELEM *dataptr;
2171
- DCTELEM *wsptr;
2172
- JSAMPROW elemptr;
2173
- int ctr;
2174
- SHIFT_TEMPS
2175
-
2176
- /* Pass 1: process rows. */
2177
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
2178
- /* furthermore, we scale the results by 2**PASS1_BITS. */
2179
- /* cK represents sqrt(2) * cos(K*pi/32). */
2180
-
2181
- dataptr = data;
2182
- ctr = 0;
2183
- for (;;) {
2184
- elemptr = sample_data[ctr] + start_col;
2185
-
2186
- /* Even part */
2187
-
2188
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[15]);
2189
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[14]);
2190
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[13]);
2191
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[12]);
2192
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[11]);
2193
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[10]);
2194
- tmp6 = GETJSAMPLE(elemptr[6]) + GETJSAMPLE(elemptr[9]);
2195
- tmp7 = GETJSAMPLE(elemptr[7]) + GETJSAMPLE(elemptr[8]);
2196
-
2197
- tmp10 = tmp0 + tmp7;
2198
- tmp14 = tmp0 - tmp7;
2199
- tmp11 = tmp1 + tmp6;
2200
- tmp15 = tmp1 - tmp6;
2201
- tmp12 = tmp2 + tmp5;
2202
- tmp16 = tmp2 - tmp5;
2203
- tmp13 = tmp3 + tmp4;
2204
- tmp17 = tmp3 - tmp4;
2205
-
2206
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[15]);
2207
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[14]);
2208
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[13]);
2209
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[12]);
2210
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[11]);
2211
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[10]);
2212
- tmp6 = GETJSAMPLE(elemptr[6]) - GETJSAMPLE(elemptr[9]);
2213
- tmp7 = GETJSAMPLE(elemptr[7]) - GETJSAMPLE(elemptr[8]);
2214
-
2215
- /* Apply unsigned->signed conversion */
2216
- dataptr[0] = (DCTELEM)
2217
- ((tmp10 + tmp11 + tmp12 + tmp13 - 16 * CENTERJSAMPLE) << PASS1_BITS);
2218
- dataptr[4] = (DCTELEM)
2219
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.306562965)) + /* c4[16] = c2[8] */
2220
- MULTIPLY(tmp11 - tmp12, FIX_0_541196100), /* c12[16] = c6[8] */
2221
- CONST_BITS-PASS1_BITS);
2222
-
2223
- tmp10 = MULTIPLY(tmp17 - tmp15, FIX(0.275899379)) + /* c14[16] = c7[8] */
2224
- MULTIPLY(tmp14 - tmp16, FIX(1.387039845)); /* c2[16] = c1[8] */
2225
-
2226
- dataptr[2] = (DCTELEM)
2227
- DESCALE(tmp10 + MULTIPLY(tmp15, FIX(1.451774982)) /* c6+c14 */
2228
- + MULTIPLY(tmp16, FIX(2.172734804)), /* c2+c10 */
2229
- CONST_BITS-PASS1_BITS);
2230
- dataptr[6] = (DCTELEM)
2231
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(0.211164243)) /* c2-c6 */
2232
- - MULTIPLY(tmp17, FIX(1.061594338)), /* c10+c14 */
2233
- CONST_BITS-PASS1_BITS);
2234
-
2235
- /* Odd part */
2236
-
2237
- tmp11 = MULTIPLY(tmp0 + tmp1, FIX(1.353318001)) + /* c3 */
2238
- MULTIPLY(tmp6 - tmp7, FIX(0.410524528)); /* c13 */
2239
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.247225013)) + /* c5 */
2240
- MULTIPLY(tmp5 + tmp7, FIX(0.666655658)); /* c11 */
2241
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(1.093201867)) + /* c7 */
2242
- MULTIPLY(tmp4 - tmp7, FIX(0.897167586)); /* c9 */
2243
- tmp14 = MULTIPLY(tmp1 + tmp2, FIX(0.138617169)) + /* c15 */
2244
- MULTIPLY(tmp6 - tmp5, FIX(1.407403738)); /* c1 */
2245
- tmp15 = MULTIPLY(tmp1 + tmp3, - FIX(0.666655658)) + /* -c11 */
2246
- MULTIPLY(tmp4 + tmp6, - FIX(1.247225013)); /* -c5 */
2247
- tmp16 = MULTIPLY(tmp2 + tmp3, - FIX(1.353318001)) + /* -c3 */
2248
- MULTIPLY(tmp5 - tmp4, FIX(0.410524528)); /* c13 */
2249
- tmp10 = tmp11 + tmp12 + tmp13 -
2250
- MULTIPLY(tmp0, FIX(2.286341144)) + /* c7+c5+c3-c1 */
2251
- MULTIPLY(tmp7, FIX(0.779653625)); /* c15+c13-c11+c9 */
2252
- tmp11 += tmp14 + tmp15 + MULTIPLY(tmp1, FIX(0.071888074)) /* c9-c3-c15+c11 */
2253
- - MULTIPLY(tmp6, FIX(1.663905119)); /* c7+c13+c1-c5 */
2254
- tmp12 += tmp14 + tmp16 - MULTIPLY(tmp2, FIX(1.125726048)) /* c7+c5+c15-c3 */
2255
- + MULTIPLY(tmp5, FIX(1.227391138)); /* c9-c11+c1-c13 */
2256
- tmp13 += tmp15 + tmp16 + MULTIPLY(tmp3, FIX(1.065388962)) /* c15+c3+c11-c7 */
2257
- + MULTIPLY(tmp4, FIX(2.167985692)); /* c1+c13+c5-c9 */
2258
-
2259
- dataptr[1] = (DCTELEM) DESCALE(tmp10, CONST_BITS-PASS1_BITS);
2260
- dataptr[3] = (DCTELEM) DESCALE(tmp11, CONST_BITS-PASS1_BITS);
2261
- dataptr[5] = (DCTELEM) DESCALE(tmp12, CONST_BITS-PASS1_BITS);
2262
- dataptr[7] = (DCTELEM) DESCALE(tmp13, CONST_BITS-PASS1_BITS);
2263
-
2264
- ctr++;
2265
-
2266
- if (ctr != DCTSIZE) {
2267
- if (ctr == DCTSIZE * 2)
2268
- break; /* Done. */
2269
- dataptr += DCTSIZE; /* advance pointer to next row */
2270
- } else
2271
- dataptr = workspace; /* switch pointer to extended workspace */
2272
- }
2273
-
2274
- /* Pass 2: process columns.
2275
- * We remove the PASS1_BITS scaling, but leave the results scaled up
2276
- * by an overall factor of 8.
2277
- * We must also scale the output by (8/16)**2 = 1/2**2.
2278
- */
2279
-
2280
- dataptr = data;
2281
- wsptr = workspace;
2282
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2283
- /* Even part */
2284
-
2285
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*7];
2286
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*6];
2287
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*5];
2288
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*4];
2289
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*3];
2290
- tmp5 = dataptr[DCTSIZE*5] + wsptr[DCTSIZE*2];
2291
- tmp6 = dataptr[DCTSIZE*6] + wsptr[DCTSIZE*1];
2292
- tmp7 = dataptr[DCTSIZE*7] + wsptr[DCTSIZE*0];
2293
-
2294
- tmp10 = tmp0 + tmp7;
2295
- tmp14 = tmp0 - tmp7;
2296
- tmp11 = tmp1 + tmp6;
2297
- tmp15 = tmp1 - tmp6;
2298
- tmp12 = tmp2 + tmp5;
2299
- tmp16 = tmp2 - tmp5;
2300
- tmp13 = tmp3 + tmp4;
2301
- tmp17 = tmp3 - tmp4;
2302
-
2303
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*7];
2304
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*6];
2305
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*5];
2306
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*4];
2307
- tmp4 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*3];
2308
- tmp5 = dataptr[DCTSIZE*5] - wsptr[DCTSIZE*2];
2309
- tmp6 = dataptr[DCTSIZE*6] - wsptr[DCTSIZE*1];
2310
- tmp7 = dataptr[DCTSIZE*7] - wsptr[DCTSIZE*0];
2311
-
2312
- dataptr[DCTSIZE*0] = (DCTELEM)
2313
- DESCALE(tmp10 + tmp11 + tmp12 + tmp13, PASS1_BITS+2);
2314
- dataptr[DCTSIZE*4] = (DCTELEM)
2315
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.306562965)) + /* c4[16] = c2[8] */
2316
- MULTIPLY(tmp11 - tmp12, FIX_0_541196100), /* c12[16] = c6[8] */
2317
- CONST_BITS+PASS1_BITS+2);
2318
-
2319
- tmp10 = MULTIPLY(tmp17 - tmp15, FIX(0.275899379)) + /* c14[16] = c7[8] */
2320
- MULTIPLY(tmp14 - tmp16, FIX(1.387039845)); /* c2[16] = c1[8] */
2321
-
2322
- dataptr[DCTSIZE*2] = (DCTELEM)
2323
- DESCALE(tmp10 + MULTIPLY(tmp15, FIX(1.451774982)) /* c6+c14 */
2324
- + MULTIPLY(tmp16, FIX(2.172734804)), /* c2+10 */
2325
- CONST_BITS+PASS1_BITS+2);
2326
- dataptr[DCTSIZE*6] = (DCTELEM)
2327
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(0.211164243)) /* c2-c6 */
2328
- - MULTIPLY(tmp17, FIX(1.061594338)), /* c10+c14 */
2329
- CONST_BITS+PASS1_BITS+2);
2330
-
2331
- /* Odd part */
2332
-
2333
- tmp11 = MULTIPLY(tmp0 + tmp1, FIX(1.353318001)) + /* c3 */
2334
- MULTIPLY(tmp6 - tmp7, FIX(0.410524528)); /* c13 */
2335
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.247225013)) + /* c5 */
2336
- MULTIPLY(tmp5 + tmp7, FIX(0.666655658)); /* c11 */
2337
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(1.093201867)) + /* c7 */
2338
- MULTIPLY(tmp4 - tmp7, FIX(0.897167586)); /* c9 */
2339
- tmp14 = MULTIPLY(tmp1 + tmp2, FIX(0.138617169)) + /* c15 */
2340
- MULTIPLY(tmp6 - tmp5, FIX(1.407403738)); /* c1 */
2341
- tmp15 = MULTIPLY(tmp1 + tmp3, - FIX(0.666655658)) + /* -c11 */
2342
- MULTIPLY(tmp4 + tmp6, - FIX(1.247225013)); /* -c5 */
2343
- tmp16 = MULTIPLY(tmp2 + tmp3, - FIX(1.353318001)) + /* -c3 */
2344
- MULTIPLY(tmp5 - tmp4, FIX(0.410524528)); /* c13 */
2345
- tmp10 = tmp11 + tmp12 + tmp13 -
2346
- MULTIPLY(tmp0, FIX(2.286341144)) + /* c7+c5+c3-c1 */
2347
- MULTIPLY(tmp7, FIX(0.779653625)); /* c15+c13-c11+c9 */
2348
- tmp11 += tmp14 + tmp15 + MULTIPLY(tmp1, FIX(0.071888074)) /* c9-c3-c15+c11 */
2349
- - MULTIPLY(tmp6, FIX(1.663905119)); /* c7+c13+c1-c5 */
2350
- tmp12 += tmp14 + tmp16 - MULTIPLY(tmp2, FIX(1.125726048)) /* c7+c5+c15-c3 */
2351
- + MULTIPLY(tmp5, FIX(1.227391138)); /* c9-c11+c1-c13 */
2352
- tmp13 += tmp15 + tmp16 + MULTIPLY(tmp3, FIX(1.065388962)) /* c15+c3+c11-c7 */
2353
- + MULTIPLY(tmp4, FIX(2.167985692)); /* c1+c13+c5-c9 */
2354
-
2355
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp10, CONST_BITS+PASS1_BITS+2);
2356
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp11, CONST_BITS+PASS1_BITS+2);
2357
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp12, CONST_BITS+PASS1_BITS+2);
2358
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp13, CONST_BITS+PASS1_BITS+2);
2359
-
2360
- dataptr++; /* advance pointer to next column */
2361
- wsptr++; /* advance pointer to next column */
2362
- }
2363
- }
2364
-
2365
-
2366
- /*
2367
- * Perform the forward DCT on a 16x8 sample block.
2368
- *
2369
- * 16-point FDCT in pass 1 (rows), 8-point in pass 2 (columns).
2370
- */
2371
-
2372
- GLOBAL(void)
2373
- jpeg_fdct_16x8 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2374
- {
2375
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
2376
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16, tmp17;
2377
- INT32 z1;
2378
- DCTELEM *dataptr;
2379
- JSAMPROW elemptr;
2380
- int ctr;
2381
- SHIFT_TEMPS
2382
-
2383
- /* Pass 1: process rows. */
2384
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
2385
- /* furthermore, we scale the results by 2**PASS1_BITS. */
2386
- /* 16-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/32). */
2387
-
2388
- dataptr = data;
2389
- ctr = 0;
2390
- for (ctr = 0; ctr < DCTSIZE; ctr++) {
2391
- elemptr = sample_data[ctr] + start_col;
2392
-
2393
- /* Even part */
2394
-
2395
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[15]);
2396
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[14]);
2397
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[13]);
2398
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[12]);
2399
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[11]);
2400
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[10]);
2401
- tmp6 = GETJSAMPLE(elemptr[6]) + GETJSAMPLE(elemptr[9]);
2402
- tmp7 = GETJSAMPLE(elemptr[7]) + GETJSAMPLE(elemptr[8]);
2403
-
2404
- tmp10 = tmp0 + tmp7;
2405
- tmp14 = tmp0 - tmp7;
2406
- tmp11 = tmp1 + tmp6;
2407
- tmp15 = tmp1 - tmp6;
2408
- tmp12 = tmp2 + tmp5;
2409
- tmp16 = tmp2 - tmp5;
2410
- tmp13 = tmp3 + tmp4;
2411
- tmp17 = tmp3 - tmp4;
2412
-
2413
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[15]);
2414
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[14]);
2415
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[13]);
2416
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[12]);
2417
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[11]);
2418
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[10]);
2419
- tmp6 = GETJSAMPLE(elemptr[6]) - GETJSAMPLE(elemptr[9]);
2420
- tmp7 = GETJSAMPLE(elemptr[7]) - GETJSAMPLE(elemptr[8]);
2421
-
2422
- /* Apply unsigned->signed conversion */
2423
- dataptr[0] = (DCTELEM)
2424
- ((tmp10 + tmp11 + tmp12 + tmp13 - 16 * CENTERJSAMPLE) << PASS1_BITS);
2425
- dataptr[4] = (DCTELEM)
2426
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.306562965)) + /* c4[16] = c2[8] */
2427
- MULTIPLY(tmp11 - tmp12, FIX_0_541196100), /* c12[16] = c6[8] */
2428
- CONST_BITS-PASS1_BITS);
2429
-
2430
- tmp10 = MULTIPLY(tmp17 - tmp15, FIX(0.275899379)) + /* c14[16] = c7[8] */
2431
- MULTIPLY(tmp14 - tmp16, FIX(1.387039845)); /* c2[16] = c1[8] */
2432
-
2433
- dataptr[2] = (DCTELEM)
2434
- DESCALE(tmp10 + MULTIPLY(tmp15, FIX(1.451774982)) /* c6+c14 */
2435
- + MULTIPLY(tmp16, FIX(2.172734804)), /* c2+c10 */
2436
- CONST_BITS-PASS1_BITS);
2437
- dataptr[6] = (DCTELEM)
2438
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(0.211164243)) /* c2-c6 */
2439
- - MULTIPLY(tmp17, FIX(1.061594338)), /* c10+c14 */
2440
- CONST_BITS-PASS1_BITS);
2441
-
2442
- /* Odd part */
2443
-
2444
- tmp11 = MULTIPLY(tmp0 + tmp1, FIX(1.353318001)) + /* c3 */
2445
- MULTIPLY(tmp6 - tmp7, FIX(0.410524528)); /* c13 */
2446
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.247225013)) + /* c5 */
2447
- MULTIPLY(tmp5 + tmp7, FIX(0.666655658)); /* c11 */
2448
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(1.093201867)) + /* c7 */
2449
- MULTIPLY(tmp4 - tmp7, FIX(0.897167586)); /* c9 */
2450
- tmp14 = MULTIPLY(tmp1 + tmp2, FIX(0.138617169)) + /* c15 */
2451
- MULTIPLY(tmp6 - tmp5, FIX(1.407403738)); /* c1 */
2452
- tmp15 = MULTIPLY(tmp1 + tmp3, - FIX(0.666655658)) + /* -c11 */
2453
- MULTIPLY(tmp4 + tmp6, - FIX(1.247225013)); /* -c5 */
2454
- tmp16 = MULTIPLY(tmp2 + tmp3, - FIX(1.353318001)) + /* -c3 */
2455
- MULTIPLY(tmp5 - tmp4, FIX(0.410524528)); /* c13 */
2456
- tmp10 = tmp11 + tmp12 + tmp13 -
2457
- MULTIPLY(tmp0, FIX(2.286341144)) + /* c7+c5+c3-c1 */
2458
- MULTIPLY(tmp7, FIX(0.779653625)); /* c15+c13-c11+c9 */
2459
- tmp11 += tmp14 + tmp15 + MULTIPLY(tmp1, FIX(0.071888074)) /* c9-c3-c15+c11 */
2460
- - MULTIPLY(tmp6, FIX(1.663905119)); /* c7+c13+c1-c5 */
2461
- tmp12 += tmp14 + tmp16 - MULTIPLY(tmp2, FIX(1.125726048)) /* c7+c5+c15-c3 */
2462
- + MULTIPLY(tmp5, FIX(1.227391138)); /* c9-c11+c1-c13 */
2463
- tmp13 += tmp15 + tmp16 + MULTIPLY(tmp3, FIX(1.065388962)) /* c15+c3+c11-c7 */
2464
- + MULTIPLY(tmp4, FIX(2.167985692)); /* c1+c13+c5-c9 */
2465
-
2466
- dataptr[1] = (DCTELEM) DESCALE(tmp10, CONST_BITS-PASS1_BITS);
2467
- dataptr[3] = (DCTELEM) DESCALE(tmp11, CONST_BITS-PASS1_BITS);
2468
- dataptr[5] = (DCTELEM) DESCALE(tmp12, CONST_BITS-PASS1_BITS);
2469
- dataptr[7] = (DCTELEM) DESCALE(tmp13, CONST_BITS-PASS1_BITS);
2470
-
2471
- dataptr += DCTSIZE; /* advance pointer to next row */
2472
- }
2473
-
2474
- /* Pass 2: process columns.
2475
- * We remove the PASS1_BITS scaling, but leave the results scaled up
2476
- * by an overall factor of 8.
2477
- * We must also scale the output by 8/16 = 1/2.
2478
- */
2479
-
2480
- dataptr = data;
2481
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2482
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
2483
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
2484
- */
2485
-
2486
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*7];
2487
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*6];
2488
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*5];
2489
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*4];
2490
-
2491
- tmp10 = tmp0 + tmp3;
2492
- tmp12 = tmp0 - tmp3;
2493
- tmp11 = tmp1 + tmp2;
2494
- tmp13 = tmp1 - tmp2;
2495
-
2496
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*7];
2497
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*6];
2498
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*5];
2499
- tmp3 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*4];
2500
-
2501
- dataptr[DCTSIZE*0] = (DCTELEM) DESCALE(tmp10 + tmp11, PASS1_BITS+1);
2502
- dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(tmp10 - tmp11, PASS1_BITS+1);
2503
-
2504
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
2505
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(z1 + MULTIPLY(tmp12, FIX_0_765366865),
2506
- CONST_BITS+PASS1_BITS+1);
2507
- dataptr[DCTSIZE*6] = (DCTELEM) DESCALE(z1 - MULTIPLY(tmp13, FIX_1_847759065),
2508
- CONST_BITS+PASS1_BITS+1);
2509
-
2510
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
2511
- * 8-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16).
2512
- * i0..i3 in the paper are tmp0..tmp3 here.
2513
- */
2514
-
2515
- tmp10 = tmp0 + tmp3;
2516
- tmp11 = tmp1 + tmp2;
2517
- tmp12 = tmp0 + tmp2;
2518
- tmp13 = tmp1 + tmp3;
2519
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
2520
-
2521
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
2522
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
2523
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
2524
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
2525
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
2526
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
2527
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
2528
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
2529
-
2530
- tmp12 += z1;
2531
- tmp13 += z1;
2532
-
2533
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0 + tmp10 + tmp12,
2534
- CONST_BITS+PASS1_BITS+1);
2535
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1 + tmp11 + tmp13,
2536
- CONST_BITS+PASS1_BITS+1);
2537
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2 + tmp11 + tmp12,
2538
- CONST_BITS+PASS1_BITS+1);
2539
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp3 + tmp10 + tmp13,
2540
- CONST_BITS+PASS1_BITS+1);
2541
-
2542
- dataptr++; /* advance pointer to next column */
2543
- }
2544
- }
2545
-
2546
-
2547
- /*
2548
- * Perform the forward DCT on a 14x7 sample block.
2549
- *
2550
- * 14-point FDCT in pass 1 (rows), 7-point in pass 2 (columns).
2551
- */
2552
-
2553
- GLOBAL(void)
2554
- jpeg_fdct_14x7 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2555
- {
2556
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6;
2557
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16;
2558
- INT32 z1, z2, z3;
2559
- DCTELEM *dataptr;
2560
- JSAMPROW elemptr;
2561
- int ctr;
2562
- SHIFT_TEMPS
2563
-
2564
- /* Zero bottom row of output coefficient block. */
2565
- MEMZERO(&data[DCTSIZE*7], SIZEOF(DCTELEM) * DCTSIZE);
2566
-
2567
- /* Pass 1: process rows. */
2568
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
2569
- /* furthermore, we scale the results by 2**PASS1_BITS. */
2570
- /* 14-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/28). */
2571
-
2572
- dataptr = data;
2573
- for (ctr = 0; ctr < 7; ctr++) {
2574
- elemptr = sample_data[ctr] + start_col;
2575
-
2576
- /* Even part */
2577
-
2578
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[13]);
2579
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[12]);
2580
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[11]);
2581
- tmp13 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[10]);
2582
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[9]);
2583
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[8]);
2584
- tmp6 = GETJSAMPLE(elemptr[6]) + GETJSAMPLE(elemptr[7]);
2585
-
2586
- tmp10 = tmp0 + tmp6;
2587
- tmp14 = tmp0 - tmp6;
2588
- tmp11 = tmp1 + tmp5;
2589
- tmp15 = tmp1 - tmp5;
2590
- tmp12 = tmp2 + tmp4;
2591
- tmp16 = tmp2 - tmp4;
2592
-
2593
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[13]);
2594
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[12]);
2595
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[11]);
2596
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[10]);
2597
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[9]);
2598
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[8]);
2599
- tmp6 = GETJSAMPLE(elemptr[6]) - GETJSAMPLE(elemptr[7]);
2600
-
2601
- /* Apply unsigned->signed conversion */
2602
- dataptr[0] = (DCTELEM)
2603
- ((tmp10 + tmp11 + tmp12 + tmp13 - 14 * CENTERJSAMPLE) << PASS1_BITS);
2604
- tmp13 += tmp13;
2605
- dataptr[4] = (DCTELEM)
2606
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.274162392)) + /* c4 */
2607
- MULTIPLY(tmp11 - tmp13, FIX(0.314692123)) - /* c12 */
2608
- MULTIPLY(tmp12 - tmp13, FIX(0.881747734)), /* c8 */
2609
- CONST_BITS-PASS1_BITS);
2610
-
2611
- tmp10 = MULTIPLY(tmp14 + tmp15, FIX(1.105676686)); /* c6 */
2612
-
2613
- dataptr[2] = (DCTELEM)
2614
- DESCALE(tmp10 + MULTIPLY(tmp14, FIX(0.273079590)) /* c2-c6 */
2615
- + MULTIPLY(tmp16, FIX(0.613604268)), /* c10 */
2616
- CONST_BITS-PASS1_BITS);
2617
- dataptr[6] = (DCTELEM)
2618
- DESCALE(tmp10 - MULTIPLY(tmp15, FIX(1.719280954)) /* c6+c10 */
2619
- - MULTIPLY(tmp16, FIX(1.378756276)), /* c2 */
2620
- CONST_BITS-PASS1_BITS);
2621
-
2622
- /* Odd part */
2623
-
2624
- tmp10 = tmp1 + tmp2;
2625
- tmp11 = tmp5 - tmp4;
2626
- dataptr[7] = (DCTELEM) ((tmp0 - tmp10 + tmp3 - tmp11 - tmp6) << PASS1_BITS);
2627
- tmp3 <<= CONST_BITS;
2628
- tmp10 = MULTIPLY(tmp10, - FIX(0.158341681)); /* -c13 */
2629
- tmp11 = MULTIPLY(tmp11, FIX(1.405321284)); /* c1 */
2630
- tmp10 += tmp11 - tmp3;
2631
- tmp11 = MULTIPLY(tmp0 + tmp2, FIX(1.197448846)) + /* c5 */
2632
- MULTIPLY(tmp4 + tmp6, FIX(0.752406978)); /* c9 */
2633
- dataptr[5] = (DCTELEM)
2634
- DESCALE(tmp10 + tmp11 - MULTIPLY(tmp2, FIX(2.373959773)) /* c3+c5-c13 */
2635
- + MULTIPLY(tmp4, FIX(1.119999435)), /* c1+c11-c9 */
2636
- CONST_BITS-PASS1_BITS);
2637
- tmp12 = MULTIPLY(tmp0 + tmp1, FIX(1.334852607)) + /* c3 */
2638
- MULTIPLY(tmp5 - tmp6, FIX(0.467085129)); /* c11 */
2639
- dataptr[3] = (DCTELEM)
2640
- DESCALE(tmp10 + tmp12 - MULTIPLY(tmp1, FIX(0.424103948)) /* c3-c9-c13 */
2641
- - MULTIPLY(tmp5, FIX(3.069855259)), /* c1+c5+c11 */
2642
- CONST_BITS-PASS1_BITS);
2643
- dataptr[1] = (DCTELEM)
2644
- DESCALE(tmp11 + tmp12 + tmp3 + tmp6 -
2645
- MULTIPLY(tmp0 + tmp6, FIX(1.126980169)), /* c3+c5-c1 */
2646
- CONST_BITS-PASS1_BITS);
2647
-
2648
- dataptr += DCTSIZE; /* advance pointer to next row */
2649
- }
2650
-
2651
- /* Pass 2: process columns.
2652
- * We remove the PASS1_BITS scaling, but leave the results scaled up
2653
- * by an overall factor of 8.
2654
- * We must also scale the output by (8/14)*(8/7) = 32/49, which we
2655
- * partially fold into the constant multipliers and final shifting:
2656
- * 7-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/14) * 64/49.
2657
- */
2658
-
2659
- dataptr = data;
2660
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2661
- /* Even part */
2662
-
2663
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*6];
2664
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*5];
2665
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*4];
2666
- tmp3 = dataptr[DCTSIZE*3];
2667
-
2668
- tmp10 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*6];
2669
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*5];
2670
- tmp12 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*4];
2671
-
2672
- z1 = tmp0 + tmp2;
2673
- dataptr[DCTSIZE*0] = (DCTELEM)
2674
- DESCALE(MULTIPLY(z1 + tmp1 + tmp3, FIX(1.306122449)), /* 64/49 */
2675
- CONST_BITS+PASS1_BITS+1);
2676
- tmp3 += tmp3;
2677
- z1 -= tmp3;
2678
- z1 -= tmp3;
2679
- z1 = MULTIPLY(z1, FIX(0.461784020)); /* (c2+c6-c4)/2 */
2680
- z2 = MULTIPLY(tmp0 - tmp2, FIX(1.202428084)); /* (c2+c4-c6)/2 */
2681
- z3 = MULTIPLY(tmp1 - tmp2, FIX(0.411026446)); /* c6 */
2682
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(z1 + z2 + z3, CONST_BITS+PASS1_BITS+1);
2683
- z1 -= z2;
2684
- z2 = MULTIPLY(tmp0 - tmp1, FIX(1.151670509)); /* c4 */
2685
- dataptr[DCTSIZE*4] = (DCTELEM)
2686
- DESCALE(z2 + z3 - MULTIPLY(tmp1 - tmp3, FIX(0.923568041)), /* c2+c6-c4 */
2687
- CONST_BITS+PASS1_BITS+1);
2688
- dataptr[DCTSIZE*6] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS+PASS1_BITS+1);
2689
-
2690
- /* Odd part */
2691
-
2692
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(1.221765677)); /* (c3+c1-c5)/2 */
2693
- tmp2 = MULTIPLY(tmp10 - tmp11, FIX(0.222383464)); /* (c3+c5-c1)/2 */
2694
- tmp0 = tmp1 - tmp2;
2695
- tmp1 += tmp2;
2696
- tmp2 = MULTIPLY(tmp11 + tmp12, - FIX(1.800824523)); /* -c1 */
2697
- tmp1 += tmp2;
2698
- tmp3 = MULTIPLY(tmp10 + tmp12, FIX(0.801442310)); /* c5 */
2699
- tmp0 += tmp3;
2700
- tmp2 += tmp3 + MULTIPLY(tmp12, FIX(2.443531355)); /* c3+c1-c5 */
2701
-
2702
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp0, CONST_BITS+PASS1_BITS+1);
2703
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp1, CONST_BITS+PASS1_BITS+1);
2704
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp2, CONST_BITS+PASS1_BITS+1);
2705
-
2706
- dataptr++; /* advance pointer to next column */
2707
- }
2708
- }
2709
-
2710
-
2711
- /*
2712
- * Perform the forward DCT on a 12x6 sample block.
2713
- *
2714
- * 12-point FDCT in pass 1 (rows), 6-point in pass 2 (columns).
2715
- */
2716
-
2717
- GLOBAL(void)
2718
- jpeg_fdct_12x6 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2719
- {
2720
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5;
2721
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15;
2722
- DCTELEM *dataptr;
2723
- JSAMPROW elemptr;
2724
- int ctr;
2725
- SHIFT_TEMPS
2726
-
2727
- /* Zero 2 bottom rows of output coefficient block. */
2728
- MEMZERO(&data[DCTSIZE*6], SIZEOF(DCTELEM) * DCTSIZE * 2);
2729
-
2730
- /* Pass 1: process rows. */
2731
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
2732
- /* furthermore, we scale the results by 2**PASS1_BITS. */
2733
- /* 12-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/24). */
2734
-
2735
- dataptr = data;
2736
- for (ctr = 0; ctr < 6; ctr++) {
2737
- elemptr = sample_data[ctr] + start_col;
2738
-
2739
- /* Even part */
2740
-
2741
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[11]);
2742
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[10]);
2743
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[9]);
2744
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[8]);
2745
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[7]);
2746
- tmp5 = GETJSAMPLE(elemptr[5]) + GETJSAMPLE(elemptr[6]);
2747
-
2748
- tmp10 = tmp0 + tmp5;
2749
- tmp13 = tmp0 - tmp5;
2750
- tmp11 = tmp1 + tmp4;
2751
- tmp14 = tmp1 - tmp4;
2752
- tmp12 = tmp2 + tmp3;
2753
- tmp15 = tmp2 - tmp3;
2754
-
2755
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[11]);
2756
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[10]);
2757
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[9]);
2758
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[8]);
2759
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[7]);
2760
- tmp5 = GETJSAMPLE(elemptr[5]) - GETJSAMPLE(elemptr[6]);
2761
-
2762
- /* Apply unsigned->signed conversion */
2763
- dataptr[0] = (DCTELEM)
2764
- ((tmp10 + tmp11 + tmp12 - 12 * CENTERJSAMPLE) << PASS1_BITS);
2765
- dataptr[6] = (DCTELEM) ((tmp13 - tmp14 - tmp15) << PASS1_BITS);
2766
- dataptr[4] = (DCTELEM)
2767
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.224744871)), /* c4 */
2768
- CONST_BITS-PASS1_BITS);
2769
- dataptr[2] = (DCTELEM)
2770
- DESCALE(tmp14 - tmp15 + MULTIPLY(tmp13 + tmp15, FIX(1.366025404)), /* c2 */
2771
- CONST_BITS-PASS1_BITS);
2772
-
2773
- /* Odd part */
2774
-
2775
- tmp10 = MULTIPLY(tmp1 + tmp4, FIX_0_541196100); /* c9 */
2776
- tmp14 = tmp10 + MULTIPLY(tmp1, FIX_0_765366865); /* c3-c9 */
2777
- tmp15 = tmp10 - MULTIPLY(tmp4, FIX_1_847759065); /* c3+c9 */
2778
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.121971054)); /* c5 */
2779
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(0.860918669)); /* c7 */
2780
- tmp10 = tmp12 + tmp13 + tmp14 - MULTIPLY(tmp0, FIX(0.580774953)) /* c5+c7-c1 */
2781
- + MULTIPLY(tmp5, FIX(0.184591911)); /* c11 */
2782
- tmp11 = MULTIPLY(tmp2 + tmp3, - FIX(0.184591911)); /* -c11 */
2783
- tmp12 += tmp11 - tmp15 - MULTIPLY(tmp2, FIX(2.339493912)) /* c1+c5-c11 */
2784
- + MULTIPLY(tmp5, FIX(0.860918669)); /* c7 */
2785
- tmp13 += tmp11 - tmp14 + MULTIPLY(tmp3, FIX(0.725788011)) /* c1+c11-c7 */
2786
- - MULTIPLY(tmp5, FIX(1.121971054)); /* c5 */
2787
- tmp11 = tmp15 + MULTIPLY(tmp0 - tmp3, FIX(1.306562965)) /* c3 */
2788
- - MULTIPLY(tmp2 + tmp5, FIX_0_541196100); /* c9 */
2789
-
2790
- dataptr[1] = (DCTELEM) DESCALE(tmp10, CONST_BITS-PASS1_BITS);
2791
- dataptr[3] = (DCTELEM) DESCALE(tmp11, CONST_BITS-PASS1_BITS);
2792
- dataptr[5] = (DCTELEM) DESCALE(tmp12, CONST_BITS-PASS1_BITS);
2793
- dataptr[7] = (DCTELEM) DESCALE(tmp13, CONST_BITS-PASS1_BITS);
2794
-
2795
- dataptr += DCTSIZE; /* advance pointer to next row */
2796
- }
2797
-
2798
- /* Pass 2: process columns.
2799
- * We remove the PASS1_BITS scaling, but leave the results scaled up
2800
- * by an overall factor of 8.
2801
- * We must also scale the output by (8/12)*(8/6) = 8/9, which we
2802
- * partially fold into the constant multipliers and final shifting:
2803
- * 6-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/12) * 16/9.
2804
- */
2805
-
2806
- dataptr = data;
2807
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2808
- /* Even part */
2809
-
2810
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*5];
2811
- tmp11 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*4];
2812
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*3];
2813
-
2814
- tmp10 = tmp0 + tmp2;
2815
- tmp12 = tmp0 - tmp2;
2816
-
2817
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*5];
2818
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*4];
2819
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*3];
2820
-
2821
- dataptr[DCTSIZE*0] = (DCTELEM)
2822
- DESCALE(MULTIPLY(tmp10 + tmp11, FIX(1.777777778)), /* 16/9 */
2823
- CONST_BITS+PASS1_BITS+1);
2824
- dataptr[DCTSIZE*2] = (DCTELEM)
2825
- DESCALE(MULTIPLY(tmp12, FIX(2.177324216)), /* c2 */
2826
- CONST_BITS+PASS1_BITS+1);
2827
- dataptr[DCTSIZE*4] = (DCTELEM)
2828
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(1.257078722)), /* c4 */
2829
- CONST_BITS+PASS1_BITS+1);
2830
-
2831
- /* Odd part */
2832
-
2833
- tmp10 = MULTIPLY(tmp0 + tmp2, FIX(0.650711829)); /* c5 */
2834
-
2835
- dataptr[DCTSIZE*1] = (DCTELEM)
2836
- DESCALE(tmp10 + MULTIPLY(tmp0 + tmp1, FIX(1.777777778)), /* 16/9 */
2837
- CONST_BITS+PASS1_BITS+1);
2838
- dataptr[DCTSIZE*3] = (DCTELEM)
2839
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp2, FIX(1.777777778)), /* 16/9 */
2840
- CONST_BITS+PASS1_BITS+1);
2841
- dataptr[DCTSIZE*5] = (DCTELEM)
2842
- DESCALE(tmp10 + MULTIPLY(tmp2 - tmp1, FIX(1.777777778)), /* 16/9 */
2843
- CONST_BITS+PASS1_BITS+1);
2844
-
2845
- dataptr++; /* advance pointer to next column */
2846
- }
2847
- }
2848
-
2849
-
2850
- /*
2851
- * Perform the forward DCT on a 10x5 sample block.
2852
- *
2853
- * 10-point FDCT in pass 1 (rows), 5-point in pass 2 (columns).
2854
- */
2855
-
2856
- GLOBAL(void)
2857
- jpeg_fdct_10x5 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2858
- {
2859
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4;
2860
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14;
2861
- DCTELEM *dataptr;
2862
- JSAMPROW elemptr;
2863
- int ctr;
2864
- SHIFT_TEMPS
2865
-
2866
- /* Zero 3 bottom rows of output coefficient block. */
2867
- MEMZERO(&data[DCTSIZE*5], SIZEOF(DCTELEM) * DCTSIZE * 3);
2868
-
2869
- /* Pass 1: process rows. */
2870
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
2871
- /* furthermore, we scale the results by 2**PASS1_BITS. */
2872
- /* 10-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/20). */
2873
-
2874
- dataptr = data;
2875
- for (ctr = 0; ctr < 5; ctr++) {
2876
- elemptr = sample_data[ctr] + start_col;
2877
-
2878
- /* Even part */
2879
-
2880
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[9]);
2881
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[8]);
2882
- tmp12 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[7]);
2883
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[6]);
2884
- tmp4 = GETJSAMPLE(elemptr[4]) + GETJSAMPLE(elemptr[5]);
2885
-
2886
- tmp10 = tmp0 + tmp4;
2887
- tmp13 = tmp0 - tmp4;
2888
- tmp11 = tmp1 + tmp3;
2889
- tmp14 = tmp1 - tmp3;
2890
-
2891
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[9]);
2892
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[8]);
2893
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[7]);
2894
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[6]);
2895
- tmp4 = GETJSAMPLE(elemptr[4]) - GETJSAMPLE(elemptr[5]);
2896
-
2897
- /* Apply unsigned->signed conversion */
2898
- dataptr[0] = (DCTELEM)
2899
- ((tmp10 + tmp11 + tmp12 - 10 * CENTERJSAMPLE) << PASS1_BITS);
2900
- tmp12 += tmp12;
2901
- dataptr[4] = (DCTELEM)
2902
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.144122806)) - /* c4 */
2903
- MULTIPLY(tmp11 - tmp12, FIX(0.437016024)), /* c8 */
2904
- CONST_BITS-PASS1_BITS);
2905
- tmp10 = MULTIPLY(tmp13 + tmp14, FIX(0.831253876)); /* c6 */
2906
- dataptr[2] = (DCTELEM)
2907
- DESCALE(tmp10 + MULTIPLY(tmp13, FIX(0.513743148)), /* c2-c6 */
2908
- CONST_BITS-PASS1_BITS);
2909
- dataptr[6] = (DCTELEM)
2910
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(2.176250899)), /* c2+c6 */
2911
- CONST_BITS-PASS1_BITS);
2912
-
2913
- /* Odd part */
2914
-
2915
- tmp10 = tmp0 + tmp4;
2916
- tmp11 = tmp1 - tmp3;
2917
- dataptr[5] = (DCTELEM) ((tmp10 - tmp11 - tmp2) << PASS1_BITS);
2918
- tmp2 <<= CONST_BITS;
2919
- dataptr[1] = (DCTELEM)
2920
- DESCALE(MULTIPLY(tmp0, FIX(1.396802247)) + /* c1 */
2921
- MULTIPLY(tmp1, FIX(1.260073511)) + tmp2 + /* c3 */
2922
- MULTIPLY(tmp3, FIX(0.642039522)) + /* c7 */
2923
- MULTIPLY(tmp4, FIX(0.221231742)), /* c9 */
2924
- CONST_BITS-PASS1_BITS);
2925
- tmp12 = MULTIPLY(tmp0 - tmp4, FIX(0.951056516)) - /* (c3+c7)/2 */
2926
- MULTIPLY(tmp1 + tmp3, FIX(0.587785252)); /* (c1-c9)/2 */
2927
- tmp13 = MULTIPLY(tmp10 + tmp11, FIX(0.309016994)) + /* (c3-c7)/2 */
2928
- (tmp11 << (CONST_BITS - 1)) - tmp2;
2929
- dataptr[3] = (DCTELEM) DESCALE(tmp12 + tmp13, CONST_BITS-PASS1_BITS);
2930
- dataptr[7] = (DCTELEM) DESCALE(tmp12 - tmp13, CONST_BITS-PASS1_BITS);
2931
-
2932
- dataptr += DCTSIZE; /* advance pointer to next row */
2933
- }
2934
-
2935
- /* Pass 2: process columns.
2936
- * We remove the PASS1_BITS scaling, but leave the results scaled up
2937
- * by an overall factor of 8.
2938
- * We must also scale the output by (8/10)*(8/5) = 32/25, which we
2939
- * fold into the constant multipliers:
2940
- * 5-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/10) * 32/25.
2941
- */
2942
-
2943
- dataptr = data;
2944
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
2945
- /* Even part */
2946
-
2947
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*4];
2948
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*3];
2949
- tmp2 = dataptr[DCTSIZE*2];
2950
-
2951
- tmp10 = tmp0 + tmp1;
2952
- tmp11 = tmp0 - tmp1;
2953
-
2954
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*4];
2955
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*3];
2956
-
2957
- dataptr[DCTSIZE*0] = (DCTELEM)
2958
- DESCALE(MULTIPLY(tmp10 + tmp2, FIX(1.28)), /* 32/25 */
2959
- CONST_BITS+PASS1_BITS);
2960
- tmp11 = MULTIPLY(tmp11, FIX(1.011928851)); /* (c2+c4)/2 */
2961
- tmp10 -= tmp2 << 2;
2962
- tmp10 = MULTIPLY(tmp10, FIX(0.452548340)); /* (c2-c4)/2 */
2963
- dataptr[DCTSIZE*2] = (DCTELEM) DESCALE(tmp11 + tmp10, CONST_BITS+PASS1_BITS);
2964
- dataptr[DCTSIZE*4] = (DCTELEM) DESCALE(tmp11 - tmp10, CONST_BITS+PASS1_BITS);
2965
-
2966
- /* Odd part */
2967
-
2968
- tmp10 = MULTIPLY(tmp0 + tmp1, FIX(1.064004961)); /* c3 */
2969
-
2970
- dataptr[DCTSIZE*1] = (DCTELEM)
2971
- DESCALE(tmp10 + MULTIPLY(tmp0, FIX(0.657591230)), /* c1-c3 */
2972
- CONST_BITS+PASS1_BITS);
2973
- dataptr[DCTSIZE*3] = (DCTELEM)
2974
- DESCALE(tmp10 - MULTIPLY(tmp1, FIX(2.785601151)), /* c1+c3 */
2975
- CONST_BITS+PASS1_BITS);
2976
-
2977
- dataptr++; /* advance pointer to next column */
2978
- }
2979
- }
2980
-
2981
-
2982
- /*
2983
- * Perform the forward DCT on an 8x4 sample block.
2984
- *
2985
- * 8-point FDCT in pass 1 (rows), 4-point in pass 2 (columns).
2986
- */
2987
-
2988
- GLOBAL(void)
2989
- jpeg_fdct_8x4 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
2990
- {
2991
- INT32 tmp0, tmp1, tmp2, tmp3;
2992
- INT32 tmp10, tmp11, tmp12, tmp13;
2993
- INT32 z1;
2994
- DCTELEM *dataptr;
2995
- JSAMPROW elemptr;
2996
- int ctr;
2997
- SHIFT_TEMPS
2998
-
2999
- /* Zero 4 bottom rows of output coefficient block. */
3000
- MEMZERO(&data[DCTSIZE*4], SIZEOF(DCTELEM) * DCTSIZE * 4);
3001
-
3002
- /* Pass 1: process rows. */
3003
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3004
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3005
- /* We must also scale the output by 8/4 = 2, which we add here. */
3006
-
3007
- dataptr = data;
3008
- for (ctr = 0; ctr < 4; ctr++) {
3009
- elemptr = sample_data[ctr] + start_col;
3010
-
3011
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
3012
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
3013
- */
3014
-
3015
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[7]);
3016
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[6]);
3017
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[5]);
3018
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[4]);
3019
-
3020
- tmp10 = tmp0 + tmp3;
3021
- tmp12 = tmp0 - tmp3;
3022
- tmp11 = tmp1 + tmp2;
3023
- tmp13 = tmp1 - tmp2;
3024
-
3025
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[7]);
3026
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[6]);
3027
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[5]);
3028
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[4]);
3029
-
3030
- /* Apply unsigned->signed conversion */
3031
- dataptr[0] = (DCTELEM)
3032
- ((tmp10 + tmp11 - 8 * CENTERJSAMPLE) << (PASS1_BITS+1));
3033
- dataptr[4] = (DCTELEM) ((tmp10 - tmp11) << (PASS1_BITS+1));
3034
-
3035
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
3036
- /* Add fudge factor here for final descale. */
3037
- z1 += ONE << (CONST_BITS-PASS1_BITS-2);
3038
- dataptr[2] = (DCTELEM) RIGHT_SHIFT(z1 + MULTIPLY(tmp12, FIX_0_765366865),
3039
- CONST_BITS-PASS1_BITS-1);
3040
- dataptr[6] = (DCTELEM) RIGHT_SHIFT(z1 - MULTIPLY(tmp13, FIX_1_847759065),
3041
- CONST_BITS-PASS1_BITS-1);
3042
-
3043
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
3044
- * 8-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16).
3045
- * i0..i3 in the paper are tmp0..tmp3 here.
3046
- */
3047
-
3048
- tmp10 = tmp0 + tmp3;
3049
- tmp11 = tmp1 + tmp2;
3050
- tmp12 = tmp0 + tmp2;
3051
- tmp13 = tmp1 + tmp3;
3052
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
3053
- /* Add fudge factor here for final descale. */
3054
- z1 += ONE << (CONST_BITS-PASS1_BITS-2);
3055
-
3056
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
3057
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
3058
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
3059
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
3060
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
3061
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
3062
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
3063
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
3064
-
3065
- tmp12 += z1;
3066
- tmp13 += z1;
3067
-
3068
- dataptr[1] = (DCTELEM)
3069
- RIGHT_SHIFT(tmp0 + tmp10 + tmp12, CONST_BITS-PASS1_BITS-1);
3070
- dataptr[3] = (DCTELEM)
3071
- RIGHT_SHIFT(tmp1 + tmp11 + tmp13, CONST_BITS-PASS1_BITS-1);
3072
- dataptr[5] = (DCTELEM)
3073
- RIGHT_SHIFT(tmp2 + tmp11 + tmp12, CONST_BITS-PASS1_BITS-1);
3074
- dataptr[7] = (DCTELEM)
3075
- RIGHT_SHIFT(tmp3 + tmp10 + tmp13, CONST_BITS-PASS1_BITS-1);
3076
-
3077
- dataptr += DCTSIZE; /* advance pointer to next row */
3078
- }
3079
-
3080
- /* Pass 2: process columns.
3081
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3082
- * by an overall factor of 8.
3083
- * 4-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16).
3084
- */
3085
-
3086
- dataptr = data;
3087
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
3088
- /* Even part */
3089
-
3090
- /* Add fudge factor here for final descale. */
3091
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*3] + (ONE << (PASS1_BITS-1));
3092
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*2];
3093
-
3094
- tmp10 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*3];
3095
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*2];
3096
-
3097
- dataptr[DCTSIZE*0] = (DCTELEM) RIGHT_SHIFT(tmp0 + tmp1, PASS1_BITS);
3098
- dataptr[DCTSIZE*2] = (DCTELEM) RIGHT_SHIFT(tmp0 - tmp1, PASS1_BITS);
3099
-
3100
- /* Odd part */
3101
-
3102
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
3103
- /* Add fudge factor here for final descale. */
3104
- tmp0 += ONE << (CONST_BITS+PASS1_BITS-1);
3105
-
3106
- dataptr[DCTSIZE*1] = (DCTELEM)
3107
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
3108
- CONST_BITS+PASS1_BITS);
3109
- dataptr[DCTSIZE*3] = (DCTELEM)
3110
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
3111
- CONST_BITS+PASS1_BITS);
3112
-
3113
- dataptr++; /* advance pointer to next column */
3114
- }
3115
- }
3116
-
3117
-
3118
- /*
3119
- * Perform the forward DCT on a 6x3 sample block.
3120
- *
3121
- * 6-point FDCT in pass 1 (rows), 3-point in pass 2 (columns).
3122
- */
3123
-
3124
- GLOBAL(void)
3125
- jpeg_fdct_6x3 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3126
- {
3127
- INT32 tmp0, tmp1, tmp2;
3128
- INT32 tmp10, tmp11, tmp12;
3129
- DCTELEM *dataptr;
3130
- JSAMPROW elemptr;
3131
- int ctr;
3132
- SHIFT_TEMPS
3133
-
3134
- /* Pre-zero output coefficient block. */
3135
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3136
-
3137
- /* Pass 1: process rows. */
3138
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3139
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3140
- /* We scale the results further by 2 as part of output adaption */
3141
- /* scaling for different DCT size. */
3142
- /* 6-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/12). */
3143
-
3144
- dataptr = data;
3145
- for (ctr = 0; ctr < 3; ctr++) {
3146
- elemptr = sample_data[ctr] + start_col;
3147
-
3148
- /* Even part */
3149
-
3150
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[5]);
3151
- tmp11 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[4]);
3152
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[3]);
3153
-
3154
- tmp10 = tmp0 + tmp2;
3155
- tmp12 = tmp0 - tmp2;
3156
-
3157
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[5]);
3158
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[4]);
3159
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[3]);
3160
-
3161
- /* Apply unsigned->signed conversion */
3162
- dataptr[0] = (DCTELEM)
3163
- ((tmp10 + tmp11 - 6 * CENTERJSAMPLE) << (PASS1_BITS+1));
3164
- dataptr[2] = (DCTELEM)
3165
- DESCALE(MULTIPLY(tmp12, FIX(1.224744871)), /* c2 */
3166
- CONST_BITS-PASS1_BITS-1);
3167
- dataptr[4] = (DCTELEM)
3168
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(0.707106781)), /* c4 */
3169
- CONST_BITS-PASS1_BITS-1);
3170
-
3171
- /* Odd part */
3172
-
3173
- tmp10 = DESCALE(MULTIPLY(tmp0 + tmp2, FIX(0.366025404)), /* c5 */
3174
- CONST_BITS-PASS1_BITS-1);
3175
-
3176
- dataptr[1] = (DCTELEM) (tmp10 + ((tmp0 + tmp1) << (PASS1_BITS+1)));
3177
- dataptr[3] = (DCTELEM) ((tmp0 - tmp1 - tmp2) << (PASS1_BITS+1));
3178
- dataptr[5] = (DCTELEM) (tmp10 + ((tmp2 - tmp1) << (PASS1_BITS+1)));
3179
-
3180
- dataptr += DCTSIZE; /* advance pointer to next row */
3181
- }
3182
-
3183
- /* Pass 2: process columns.
3184
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3185
- * by an overall factor of 8.
3186
- * We must also scale the output by (8/6)*(8/3) = 32/9, which we partially
3187
- * fold into the constant multipliers (other part was done in pass 1):
3188
- * 3-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/6) * 16/9.
3189
- */
3190
-
3191
- dataptr = data;
3192
- for (ctr = 0; ctr < 6; ctr++) {
3193
- /* Even part */
3194
-
3195
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*2];
3196
- tmp1 = dataptr[DCTSIZE*1];
3197
-
3198
- tmp2 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*2];
3199
-
3200
- dataptr[DCTSIZE*0] = (DCTELEM)
3201
- DESCALE(MULTIPLY(tmp0 + tmp1, FIX(1.777777778)), /* 16/9 */
3202
- CONST_BITS+PASS1_BITS);
3203
- dataptr[DCTSIZE*2] = (DCTELEM)
3204
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp1, FIX(1.257078722)), /* c2 */
3205
- CONST_BITS+PASS1_BITS);
3206
-
3207
- /* Odd part */
3208
-
3209
- dataptr[DCTSIZE*1] = (DCTELEM)
3210
- DESCALE(MULTIPLY(tmp2, FIX(2.177324216)), /* c1 */
3211
- CONST_BITS+PASS1_BITS);
3212
-
3213
- dataptr++; /* advance pointer to next column */
3214
- }
3215
- }
3216
-
3217
-
3218
- /*
3219
- * Perform the forward DCT on a 4x2 sample block.
3220
- *
3221
- * 4-point FDCT in pass 1 (rows), 2-point in pass 2 (columns).
3222
- */
3223
-
3224
- GLOBAL(void)
3225
- jpeg_fdct_4x2 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3226
- {
3227
- INT32 tmp0, tmp1;
3228
- INT32 tmp10, tmp11;
3229
- DCTELEM *dataptr;
3230
- JSAMPROW elemptr;
3231
- int ctr;
3232
- SHIFT_TEMPS
3233
-
3234
- /* Pre-zero output coefficient block. */
3235
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3236
-
3237
- /* Pass 1: process rows. */
3238
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3239
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3240
- /* We must also scale the output by (8/4)*(8/2) = 2**3, which we add here. */
3241
- /* 4-point FDCT kernel, */
3242
- /* cK represents sqrt(2) * cos(K*pi/16) [refers to 8-point FDCT]. */
3243
-
3244
- dataptr = data;
3245
- for (ctr = 0; ctr < 2; ctr++) {
3246
- elemptr = sample_data[ctr] + start_col;
3247
-
3248
- /* Even part */
3249
-
3250
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[3]);
3251
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[2]);
3252
-
3253
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[3]);
3254
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[2]);
3255
-
3256
- /* Apply unsigned->signed conversion */
3257
- dataptr[0] = (DCTELEM)
3258
- ((tmp0 + tmp1 - 4 * CENTERJSAMPLE) << (PASS1_BITS+3));
3259
- dataptr[2] = (DCTELEM) ((tmp0 - tmp1) << (PASS1_BITS+3));
3260
-
3261
- /* Odd part */
3262
-
3263
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
3264
- /* Add fudge factor here for final descale. */
3265
- tmp0 += ONE << (CONST_BITS-PASS1_BITS-4);
3266
-
3267
- dataptr[1] = (DCTELEM)
3268
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
3269
- CONST_BITS-PASS1_BITS-3);
3270
- dataptr[3] = (DCTELEM)
3271
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
3272
- CONST_BITS-PASS1_BITS-3);
3273
-
3274
- dataptr += DCTSIZE; /* advance pointer to next row */
3275
- }
3276
-
3277
- /* Pass 2: process columns.
3278
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3279
- * by an overall factor of 8.
3280
- */
3281
-
3282
- dataptr = data;
3283
- for (ctr = 0; ctr < 4; ctr++) {
3284
- /* Even part */
3285
-
3286
- /* Add fudge factor here for final descale. */
3287
- tmp0 = dataptr[DCTSIZE*0] + (ONE << (PASS1_BITS-1));
3288
- tmp1 = dataptr[DCTSIZE*1];
3289
-
3290
- dataptr[DCTSIZE*0] = (DCTELEM) RIGHT_SHIFT(tmp0 + tmp1, PASS1_BITS);
3291
-
3292
- /* Odd part */
3293
-
3294
- dataptr[DCTSIZE*1] = (DCTELEM) RIGHT_SHIFT(tmp0 - tmp1, PASS1_BITS);
3295
-
3296
- dataptr++; /* advance pointer to next column */
3297
- }
3298
- }
3299
-
3300
-
3301
- /*
3302
- * Perform the forward DCT on a 2x1 sample block.
3303
- *
3304
- * 2-point FDCT in pass 1 (rows), 1-point in pass 2 (columns).
3305
- */
3306
-
3307
- GLOBAL(void)
3308
- jpeg_fdct_2x1 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3309
- {
3310
- INT32 tmp0, tmp1;
3311
- JSAMPROW elemptr;
3312
-
3313
- /* Pre-zero output coefficient block. */
3314
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3315
-
3316
- elemptr = sample_data[0] + start_col;
3317
-
3318
- tmp0 = GETJSAMPLE(elemptr[0]);
3319
- tmp1 = GETJSAMPLE(elemptr[1]);
3320
-
3321
- /* We leave the results scaled up by an overall factor of 8.
3322
- * We must also scale the output by (8/2)*(8/1) = 2**5.
3323
- */
3324
-
3325
- /* Even part */
3326
- /* Apply unsigned->signed conversion */
3327
- data[0] = (DCTELEM) ((tmp0 + tmp1 - 2 * CENTERJSAMPLE) << 5);
3328
-
3329
- /* Odd part */
3330
- data[1] = (DCTELEM) ((tmp0 - tmp1) << 5);
3331
- }
3332
-
3333
-
3334
- /*
3335
- * Perform the forward DCT on an 8x16 sample block.
3336
- *
3337
- * 8-point FDCT in pass 1 (rows), 16-point in pass 2 (columns).
3338
- */
3339
-
3340
- GLOBAL(void)
3341
- jpeg_fdct_8x16 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3342
- {
3343
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7;
3344
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16, tmp17;
3345
- INT32 z1;
3346
- DCTELEM workspace[DCTSIZE2];
3347
- DCTELEM *dataptr;
3348
- DCTELEM *wsptr;
3349
- JSAMPROW elemptr;
3350
- int ctr;
3351
- SHIFT_TEMPS
3352
-
3353
- /* Pass 1: process rows. */
3354
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3355
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3356
-
3357
- dataptr = data;
3358
- ctr = 0;
3359
- for (;;) {
3360
- elemptr = sample_data[ctr] + start_col;
3361
-
3362
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
3363
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
3364
- */
3365
-
3366
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[7]);
3367
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[6]);
3368
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[5]);
3369
- tmp3 = GETJSAMPLE(elemptr[3]) + GETJSAMPLE(elemptr[4]);
3370
-
3371
- tmp10 = tmp0 + tmp3;
3372
- tmp12 = tmp0 - tmp3;
3373
- tmp11 = tmp1 + tmp2;
3374
- tmp13 = tmp1 - tmp2;
3375
-
3376
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[7]);
3377
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[6]);
3378
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[5]);
3379
- tmp3 = GETJSAMPLE(elemptr[3]) - GETJSAMPLE(elemptr[4]);
3380
-
3381
- /* Apply unsigned->signed conversion */
3382
- dataptr[0] = (DCTELEM) ((tmp10 + tmp11 - 8 * CENTERJSAMPLE) << PASS1_BITS);
3383
- dataptr[4] = (DCTELEM) ((tmp10 - tmp11) << PASS1_BITS);
3384
-
3385
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
3386
- dataptr[2] = (DCTELEM) DESCALE(z1 + MULTIPLY(tmp12, FIX_0_765366865),
3387
- CONST_BITS-PASS1_BITS);
3388
- dataptr[6] = (DCTELEM) DESCALE(z1 - MULTIPLY(tmp13, FIX_1_847759065),
3389
- CONST_BITS-PASS1_BITS);
3390
-
3391
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
3392
- * 8-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16).
3393
- * i0..i3 in the paper are tmp0..tmp3 here.
3394
- */
3395
-
3396
- tmp10 = tmp0 + tmp3;
3397
- tmp11 = tmp1 + tmp2;
3398
- tmp12 = tmp0 + tmp2;
3399
- tmp13 = tmp1 + tmp3;
3400
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
3401
-
3402
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
3403
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
3404
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
3405
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
3406
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
3407
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
3408
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
3409
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
3410
-
3411
- tmp12 += z1;
3412
- tmp13 += z1;
3413
-
3414
- dataptr[1] = (DCTELEM) DESCALE(tmp0 + tmp10 + tmp12, CONST_BITS-PASS1_BITS);
3415
- dataptr[3] = (DCTELEM) DESCALE(tmp1 + tmp11 + tmp13, CONST_BITS-PASS1_BITS);
3416
- dataptr[5] = (DCTELEM) DESCALE(tmp2 + tmp11 + tmp12, CONST_BITS-PASS1_BITS);
3417
- dataptr[7] = (DCTELEM) DESCALE(tmp3 + tmp10 + tmp13, CONST_BITS-PASS1_BITS);
3418
-
3419
- ctr++;
3420
-
3421
- if (ctr != DCTSIZE) {
3422
- if (ctr == DCTSIZE * 2)
3423
- break; /* Done. */
3424
- dataptr += DCTSIZE; /* advance pointer to next row */
3425
- } else
3426
- dataptr = workspace; /* switch pointer to extended workspace */
3427
- }
3428
-
3429
- /* Pass 2: process columns.
3430
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3431
- * by an overall factor of 8.
3432
- * We must also scale the output by 8/16 = 1/2.
3433
- * 16-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/32).
3434
- */
3435
-
3436
- dataptr = data;
3437
- wsptr = workspace;
3438
- for (ctr = DCTSIZE-1; ctr >= 0; ctr--) {
3439
- /* Even part */
3440
-
3441
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*7];
3442
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*6];
3443
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*5];
3444
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*4];
3445
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*3];
3446
- tmp5 = dataptr[DCTSIZE*5] + wsptr[DCTSIZE*2];
3447
- tmp6 = dataptr[DCTSIZE*6] + wsptr[DCTSIZE*1];
3448
- tmp7 = dataptr[DCTSIZE*7] + wsptr[DCTSIZE*0];
3449
-
3450
- tmp10 = tmp0 + tmp7;
3451
- tmp14 = tmp0 - tmp7;
3452
- tmp11 = tmp1 + tmp6;
3453
- tmp15 = tmp1 - tmp6;
3454
- tmp12 = tmp2 + tmp5;
3455
- tmp16 = tmp2 - tmp5;
3456
- tmp13 = tmp3 + tmp4;
3457
- tmp17 = tmp3 - tmp4;
3458
-
3459
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*7];
3460
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*6];
3461
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*5];
3462
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*4];
3463
- tmp4 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*3];
3464
- tmp5 = dataptr[DCTSIZE*5] - wsptr[DCTSIZE*2];
3465
- tmp6 = dataptr[DCTSIZE*6] - wsptr[DCTSIZE*1];
3466
- tmp7 = dataptr[DCTSIZE*7] - wsptr[DCTSIZE*0];
3467
-
3468
- dataptr[DCTSIZE*0] = (DCTELEM)
3469
- DESCALE(tmp10 + tmp11 + tmp12 + tmp13, PASS1_BITS+1);
3470
- dataptr[DCTSIZE*4] = (DCTELEM)
3471
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(1.306562965)) + /* c4[16] = c2[8] */
3472
- MULTIPLY(tmp11 - tmp12, FIX_0_541196100), /* c12[16] = c6[8] */
3473
- CONST_BITS+PASS1_BITS+1);
3474
-
3475
- tmp10 = MULTIPLY(tmp17 - tmp15, FIX(0.275899379)) + /* c14[16] = c7[8] */
3476
- MULTIPLY(tmp14 - tmp16, FIX(1.387039845)); /* c2[16] = c1[8] */
3477
-
3478
- dataptr[DCTSIZE*2] = (DCTELEM)
3479
- DESCALE(tmp10 + MULTIPLY(tmp15, FIX(1.451774982)) /* c6+c14 */
3480
- + MULTIPLY(tmp16, FIX(2.172734804)), /* c2+c10 */
3481
- CONST_BITS+PASS1_BITS+1);
3482
- dataptr[DCTSIZE*6] = (DCTELEM)
3483
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(0.211164243)) /* c2-c6 */
3484
- - MULTIPLY(tmp17, FIX(1.061594338)), /* c10+c14 */
3485
- CONST_BITS+PASS1_BITS+1);
3486
-
3487
- /* Odd part */
3488
-
3489
- tmp11 = MULTIPLY(tmp0 + tmp1, FIX(1.353318001)) + /* c3 */
3490
- MULTIPLY(tmp6 - tmp7, FIX(0.410524528)); /* c13 */
3491
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(1.247225013)) + /* c5 */
3492
- MULTIPLY(tmp5 + tmp7, FIX(0.666655658)); /* c11 */
3493
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(1.093201867)) + /* c7 */
3494
- MULTIPLY(tmp4 - tmp7, FIX(0.897167586)); /* c9 */
3495
- tmp14 = MULTIPLY(tmp1 + tmp2, FIX(0.138617169)) + /* c15 */
3496
- MULTIPLY(tmp6 - tmp5, FIX(1.407403738)); /* c1 */
3497
- tmp15 = MULTIPLY(tmp1 + tmp3, - FIX(0.666655658)) + /* -c11 */
3498
- MULTIPLY(tmp4 + tmp6, - FIX(1.247225013)); /* -c5 */
3499
- tmp16 = MULTIPLY(tmp2 + tmp3, - FIX(1.353318001)) + /* -c3 */
3500
- MULTIPLY(tmp5 - tmp4, FIX(0.410524528)); /* c13 */
3501
- tmp10 = tmp11 + tmp12 + tmp13 -
3502
- MULTIPLY(tmp0, FIX(2.286341144)) + /* c7+c5+c3-c1 */
3503
- MULTIPLY(tmp7, FIX(0.779653625)); /* c15+c13-c11+c9 */
3504
- tmp11 += tmp14 + tmp15 + MULTIPLY(tmp1, FIX(0.071888074)) /* c9-c3-c15+c11 */
3505
- - MULTIPLY(tmp6, FIX(1.663905119)); /* c7+c13+c1-c5 */
3506
- tmp12 += tmp14 + tmp16 - MULTIPLY(tmp2, FIX(1.125726048)) /* c7+c5+c15-c3 */
3507
- + MULTIPLY(tmp5, FIX(1.227391138)); /* c9-c11+c1-c13 */
3508
- tmp13 += tmp15 + tmp16 + MULTIPLY(tmp3, FIX(1.065388962)) /* c15+c3+c11-c7 */
3509
- + MULTIPLY(tmp4, FIX(2.167985692)); /* c1+c13+c5-c9 */
3510
-
3511
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp10, CONST_BITS+PASS1_BITS+1);
3512
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp11, CONST_BITS+PASS1_BITS+1);
3513
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp12, CONST_BITS+PASS1_BITS+1);
3514
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp13, CONST_BITS+PASS1_BITS+1);
3515
-
3516
- dataptr++; /* advance pointer to next column */
3517
- wsptr++; /* advance pointer to next column */
3518
- }
3519
- }
3520
-
3521
-
3522
- /*
3523
- * Perform the forward DCT on a 7x14 sample block.
3524
- *
3525
- * 7-point FDCT in pass 1 (rows), 14-point in pass 2 (columns).
3526
- */
3527
-
3528
- GLOBAL(void)
3529
- jpeg_fdct_7x14 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3530
- {
3531
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6;
3532
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16;
3533
- INT32 z1, z2, z3;
3534
- DCTELEM workspace[8*6];
3535
- DCTELEM *dataptr;
3536
- DCTELEM *wsptr;
3537
- JSAMPROW elemptr;
3538
- int ctr;
3539
- SHIFT_TEMPS
3540
-
3541
- /* Pre-zero output coefficient block. */
3542
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3543
-
3544
- /* Pass 1: process rows. */
3545
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3546
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3547
- /* 7-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/14). */
3548
-
3549
- dataptr = data;
3550
- ctr = 0;
3551
- for (;;) {
3552
- elemptr = sample_data[ctr] + start_col;
3553
-
3554
- /* Even part */
3555
-
3556
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[6]);
3557
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[5]);
3558
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[4]);
3559
- tmp3 = GETJSAMPLE(elemptr[3]);
3560
-
3561
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[6]);
3562
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[5]);
3563
- tmp12 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[4]);
3564
-
3565
- z1 = tmp0 + tmp2;
3566
- /* Apply unsigned->signed conversion */
3567
- dataptr[0] = (DCTELEM)
3568
- ((z1 + tmp1 + tmp3 - 7 * CENTERJSAMPLE) << PASS1_BITS);
3569
- tmp3 += tmp3;
3570
- z1 -= tmp3;
3571
- z1 -= tmp3;
3572
- z1 = MULTIPLY(z1, FIX(0.353553391)); /* (c2+c6-c4)/2 */
3573
- z2 = MULTIPLY(tmp0 - tmp2, FIX(0.920609002)); /* (c2+c4-c6)/2 */
3574
- z3 = MULTIPLY(tmp1 - tmp2, FIX(0.314692123)); /* c6 */
3575
- dataptr[2] = (DCTELEM) DESCALE(z1 + z2 + z3, CONST_BITS-PASS1_BITS);
3576
- z1 -= z2;
3577
- z2 = MULTIPLY(tmp0 - tmp1, FIX(0.881747734)); /* c4 */
3578
- dataptr[4] = (DCTELEM)
3579
- DESCALE(z2 + z3 - MULTIPLY(tmp1 - tmp3, FIX(0.707106781)), /* c2+c6-c4 */
3580
- CONST_BITS-PASS1_BITS);
3581
- dataptr[6] = (DCTELEM) DESCALE(z1 + z2, CONST_BITS-PASS1_BITS);
3582
-
3583
- /* Odd part */
3584
-
3585
- tmp1 = MULTIPLY(tmp10 + tmp11, FIX(0.935414347)); /* (c3+c1-c5)/2 */
3586
- tmp2 = MULTIPLY(tmp10 - tmp11, FIX(0.170262339)); /* (c3+c5-c1)/2 */
3587
- tmp0 = tmp1 - tmp2;
3588
- tmp1 += tmp2;
3589
- tmp2 = MULTIPLY(tmp11 + tmp12, - FIX(1.378756276)); /* -c1 */
3590
- tmp1 += tmp2;
3591
- tmp3 = MULTIPLY(tmp10 + tmp12, FIX(0.613604268)); /* c5 */
3592
- tmp0 += tmp3;
3593
- tmp2 += tmp3 + MULTIPLY(tmp12, FIX(1.870828693)); /* c3+c1-c5 */
3594
-
3595
- dataptr[1] = (DCTELEM) DESCALE(tmp0, CONST_BITS-PASS1_BITS);
3596
- dataptr[3] = (DCTELEM) DESCALE(tmp1, CONST_BITS-PASS1_BITS);
3597
- dataptr[5] = (DCTELEM) DESCALE(tmp2, CONST_BITS-PASS1_BITS);
3598
-
3599
- ctr++;
3600
-
3601
- if (ctr != DCTSIZE) {
3602
- if (ctr == 14)
3603
- break; /* Done. */
3604
- dataptr += DCTSIZE; /* advance pointer to next row */
3605
- } else
3606
- dataptr = workspace; /* switch pointer to extended workspace */
3607
- }
3608
-
3609
- /* Pass 2: process columns.
3610
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3611
- * by an overall factor of 8.
3612
- * We must also scale the output by (8/7)*(8/14) = 32/49, which we
3613
- * fold into the constant multipliers:
3614
- * 14-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/28) * 32/49.
3615
- */
3616
-
3617
- dataptr = data;
3618
- wsptr = workspace;
3619
- for (ctr = 0; ctr < 7; ctr++) {
3620
- /* Even part */
3621
-
3622
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*5];
3623
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*4];
3624
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*3];
3625
- tmp13 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*2];
3626
- tmp4 = dataptr[DCTSIZE*4] + wsptr[DCTSIZE*1];
3627
- tmp5 = dataptr[DCTSIZE*5] + wsptr[DCTSIZE*0];
3628
- tmp6 = dataptr[DCTSIZE*6] + dataptr[DCTSIZE*7];
3629
-
3630
- tmp10 = tmp0 + tmp6;
3631
- tmp14 = tmp0 - tmp6;
3632
- tmp11 = tmp1 + tmp5;
3633
- tmp15 = tmp1 - tmp5;
3634
- tmp12 = tmp2 + tmp4;
3635
- tmp16 = tmp2 - tmp4;
3636
-
3637
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*5];
3638
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*4];
3639
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*3];
3640
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*2];
3641
- tmp4 = dataptr[DCTSIZE*4] - wsptr[DCTSIZE*1];
3642
- tmp5 = dataptr[DCTSIZE*5] - wsptr[DCTSIZE*0];
3643
- tmp6 = dataptr[DCTSIZE*6] - dataptr[DCTSIZE*7];
3644
-
3645
- dataptr[DCTSIZE*0] = (DCTELEM)
3646
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12 + tmp13,
3647
- FIX(0.653061224)), /* 32/49 */
3648
- CONST_BITS+PASS1_BITS);
3649
- tmp13 += tmp13;
3650
- dataptr[DCTSIZE*4] = (DCTELEM)
3651
- DESCALE(MULTIPLY(tmp10 - tmp13, FIX(0.832106052)) + /* c4 */
3652
- MULTIPLY(tmp11 - tmp13, FIX(0.205513223)) - /* c12 */
3653
- MULTIPLY(tmp12 - tmp13, FIX(0.575835255)), /* c8 */
3654
- CONST_BITS+PASS1_BITS);
3655
-
3656
- tmp10 = MULTIPLY(tmp14 + tmp15, FIX(0.722074570)); /* c6 */
3657
-
3658
- dataptr[DCTSIZE*2] = (DCTELEM)
3659
- DESCALE(tmp10 + MULTIPLY(tmp14, FIX(0.178337691)) /* c2-c6 */
3660
- + MULTIPLY(tmp16, FIX(0.400721155)), /* c10 */
3661
- CONST_BITS+PASS1_BITS);
3662
- dataptr[DCTSIZE*6] = (DCTELEM)
3663
- DESCALE(tmp10 - MULTIPLY(tmp15, FIX(1.122795725)) /* c6+c10 */
3664
- - MULTIPLY(tmp16, FIX(0.900412262)), /* c2 */
3665
- CONST_BITS+PASS1_BITS);
3666
-
3667
- /* Odd part */
3668
-
3669
- tmp10 = tmp1 + tmp2;
3670
- tmp11 = tmp5 - tmp4;
3671
- dataptr[DCTSIZE*7] = (DCTELEM)
3672
- DESCALE(MULTIPLY(tmp0 - tmp10 + tmp3 - tmp11 - tmp6,
3673
- FIX(0.653061224)), /* 32/49 */
3674
- CONST_BITS+PASS1_BITS);
3675
- tmp3 = MULTIPLY(tmp3 , FIX(0.653061224)); /* 32/49 */
3676
- tmp10 = MULTIPLY(tmp10, - FIX(0.103406812)); /* -c13 */
3677
- tmp11 = MULTIPLY(tmp11, FIX(0.917760839)); /* c1 */
3678
- tmp10 += tmp11 - tmp3;
3679
- tmp11 = MULTIPLY(tmp0 + tmp2, FIX(0.782007410)) + /* c5 */
3680
- MULTIPLY(tmp4 + tmp6, FIX(0.491367823)); /* c9 */
3681
- dataptr[DCTSIZE*5] = (DCTELEM)
3682
- DESCALE(tmp10 + tmp11 - MULTIPLY(tmp2, FIX(1.550341076)) /* c3+c5-c13 */
3683
- + MULTIPLY(tmp4, FIX(0.731428202)), /* c1+c11-c9 */
3684
- CONST_BITS+PASS1_BITS);
3685
- tmp12 = MULTIPLY(tmp0 + tmp1, FIX(0.871740478)) + /* c3 */
3686
- MULTIPLY(tmp5 - tmp6, FIX(0.305035186)); /* c11 */
3687
- dataptr[DCTSIZE*3] = (DCTELEM)
3688
- DESCALE(tmp10 + tmp12 - MULTIPLY(tmp1, FIX(0.276965844)) /* c3-c9-c13 */
3689
- - MULTIPLY(tmp5, FIX(2.004803435)), /* c1+c5+c11 */
3690
- CONST_BITS+PASS1_BITS);
3691
- dataptr[DCTSIZE*1] = (DCTELEM)
3692
- DESCALE(tmp11 + tmp12 + tmp3
3693
- - MULTIPLY(tmp0, FIX(0.735987049)) /* c3+c5-c1 */
3694
- - MULTIPLY(tmp6, FIX(0.082925825)), /* c9-c11-c13 */
3695
- CONST_BITS+PASS1_BITS);
3696
-
3697
- dataptr++; /* advance pointer to next column */
3698
- wsptr++; /* advance pointer to next column */
3699
- }
3700
- }
3701
-
3702
-
3703
- /*
3704
- * Perform the forward DCT on a 6x12 sample block.
3705
- *
3706
- * 6-point FDCT in pass 1 (rows), 12-point in pass 2 (columns).
3707
- */
3708
-
3709
- GLOBAL(void)
3710
- jpeg_fdct_6x12 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3711
- {
3712
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4, tmp5;
3713
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14, tmp15;
3714
- DCTELEM workspace[8*4];
3715
- DCTELEM *dataptr;
3716
- DCTELEM *wsptr;
3717
- JSAMPROW elemptr;
3718
- int ctr;
3719
- SHIFT_TEMPS
3720
-
3721
- /* Pre-zero output coefficient block. */
3722
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3723
-
3724
- /* Pass 1: process rows. */
3725
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3726
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3727
- /* 6-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/12). */
3728
-
3729
- dataptr = data;
3730
- ctr = 0;
3731
- for (;;) {
3732
- elemptr = sample_data[ctr] + start_col;
3733
-
3734
- /* Even part */
3735
-
3736
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[5]);
3737
- tmp11 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[4]);
3738
- tmp2 = GETJSAMPLE(elemptr[2]) + GETJSAMPLE(elemptr[3]);
3739
-
3740
- tmp10 = tmp0 + tmp2;
3741
- tmp12 = tmp0 - tmp2;
3742
-
3743
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[5]);
3744
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[4]);
3745
- tmp2 = GETJSAMPLE(elemptr[2]) - GETJSAMPLE(elemptr[3]);
3746
-
3747
- /* Apply unsigned->signed conversion */
3748
- dataptr[0] = (DCTELEM)
3749
- ((tmp10 + tmp11 - 6 * CENTERJSAMPLE) << PASS1_BITS);
3750
- dataptr[2] = (DCTELEM)
3751
- DESCALE(MULTIPLY(tmp12, FIX(1.224744871)), /* c2 */
3752
- CONST_BITS-PASS1_BITS);
3753
- dataptr[4] = (DCTELEM)
3754
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(0.707106781)), /* c4 */
3755
- CONST_BITS-PASS1_BITS);
3756
-
3757
- /* Odd part */
3758
-
3759
- tmp10 = DESCALE(MULTIPLY(tmp0 + tmp2, FIX(0.366025404)), /* c5 */
3760
- CONST_BITS-PASS1_BITS);
3761
-
3762
- dataptr[1] = (DCTELEM) (tmp10 + ((tmp0 + tmp1) << PASS1_BITS));
3763
- dataptr[3] = (DCTELEM) ((tmp0 - tmp1 - tmp2) << PASS1_BITS);
3764
- dataptr[5] = (DCTELEM) (tmp10 + ((tmp2 - tmp1) << PASS1_BITS));
3765
-
3766
- ctr++;
3767
-
3768
- if (ctr != DCTSIZE) {
3769
- if (ctr == 12)
3770
- break; /* Done. */
3771
- dataptr += DCTSIZE; /* advance pointer to next row */
3772
- } else
3773
- dataptr = workspace; /* switch pointer to extended workspace */
3774
- }
3775
-
3776
- /* Pass 2: process columns.
3777
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3778
- * by an overall factor of 8.
3779
- * We must also scale the output by (8/6)*(8/12) = 8/9, which we
3780
- * fold into the constant multipliers:
3781
- * 12-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/24) * 8/9.
3782
- */
3783
-
3784
- dataptr = data;
3785
- wsptr = workspace;
3786
- for (ctr = 0; ctr < 6; ctr++) {
3787
- /* Even part */
3788
-
3789
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*3];
3790
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*2];
3791
- tmp2 = dataptr[DCTSIZE*2] + wsptr[DCTSIZE*1];
3792
- tmp3 = dataptr[DCTSIZE*3] + wsptr[DCTSIZE*0];
3793
- tmp4 = dataptr[DCTSIZE*4] + dataptr[DCTSIZE*7];
3794
- tmp5 = dataptr[DCTSIZE*5] + dataptr[DCTSIZE*6];
3795
-
3796
- tmp10 = tmp0 + tmp5;
3797
- tmp13 = tmp0 - tmp5;
3798
- tmp11 = tmp1 + tmp4;
3799
- tmp14 = tmp1 - tmp4;
3800
- tmp12 = tmp2 + tmp3;
3801
- tmp15 = tmp2 - tmp3;
3802
-
3803
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*3];
3804
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*2];
3805
- tmp2 = dataptr[DCTSIZE*2] - wsptr[DCTSIZE*1];
3806
- tmp3 = dataptr[DCTSIZE*3] - wsptr[DCTSIZE*0];
3807
- tmp4 = dataptr[DCTSIZE*4] - dataptr[DCTSIZE*7];
3808
- tmp5 = dataptr[DCTSIZE*5] - dataptr[DCTSIZE*6];
3809
-
3810
- dataptr[DCTSIZE*0] = (DCTELEM)
3811
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12, FIX(0.888888889)), /* 8/9 */
3812
- CONST_BITS+PASS1_BITS);
3813
- dataptr[DCTSIZE*6] = (DCTELEM)
3814
- DESCALE(MULTIPLY(tmp13 - tmp14 - tmp15, FIX(0.888888889)), /* 8/9 */
3815
- CONST_BITS+PASS1_BITS);
3816
- dataptr[DCTSIZE*4] = (DCTELEM)
3817
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.088662108)), /* c4 */
3818
- CONST_BITS+PASS1_BITS);
3819
- dataptr[DCTSIZE*2] = (DCTELEM)
3820
- DESCALE(MULTIPLY(tmp14 - tmp15, FIX(0.888888889)) + /* 8/9 */
3821
- MULTIPLY(tmp13 + tmp15, FIX(1.214244803)), /* c2 */
3822
- CONST_BITS+PASS1_BITS);
3823
-
3824
- /* Odd part */
3825
-
3826
- tmp10 = MULTIPLY(tmp1 + tmp4, FIX(0.481063200)); /* c9 */
3827
- tmp14 = tmp10 + MULTIPLY(tmp1, FIX(0.680326102)); /* c3-c9 */
3828
- tmp15 = tmp10 - MULTIPLY(tmp4, FIX(1.642452502)); /* c3+c9 */
3829
- tmp12 = MULTIPLY(tmp0 + tmp2, FIX(0.997307603)); /* c5 */
3830
- tmp13 = MULTIPLY(tmp0 + tmp3, FIX(0.765261039)); /* c7 */
3831
- tmp10 = tmp12 + tmp13 + tmp14 - MULTIPLY(tmp0, FIX(0.516244403)) /* c5+c7-c1 */
3832
- + MULTIPLY(tmp5, FIX(0.164081699)); /* c11 */
3833
- tmp11 = MULTIPLY(tmp2 + tmp3, - FIX(0.164081699)); /* -c11 */
3834
- tmp12 += tmp11 - tmp15 - MULTIPLY(tmp2, FIX(2.079550144)) /* c1+c5-c11 */
3835
- + MULTIPLY(tmp5, FIX(0.765261039)); /* c7 */
3836
- tmp13 += tmp11 - tmp14 + MULTIPLY(tmp3, FIX(0.645144899)) /* c1+c11-c7 */
3837
- - MULTIPLY(tmp5, FIX(0.997307603)); /* c5 */
3838
- tmp11 = tmp15 + MULTIPLY(tmp0 - tmp3, FIX(1.161389302)) /* c3 */
3839
- - MULTIPLY(tmp2 + tmp5, FIX(0.481063200)); /* c9 */
3840
-
3841
- dataptr[DCTSIZE*1] = (DCTELEM) DESCALE(tmp10, CONST_BITS+PASS1_BITS);
3842
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp11, CONST_BITS+PASS1_BITS);
3843
- dataptr[DCTSIZE*5] = (DCTELEM) DESCALE(tmp12, CONST_BITS+PASS1_BITS);
3844
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp13, CONST_BITS+PASS1_BITS);
3845
-
3846
- dataptr++; /* advance pointer to next column */
3847
- wsptr++; /* advance pointer to next column */
3848
- }
3849
- }
3850
-
3851
-
3852
- /*
3853
- * Perform the forward DCT on a 5x10 sample block.
3854
- *
3855
- * 5-point FDCT in pass 1 (rows), 10-point in pass 2 (columns).
3856
- */
3857
-
3858
- GLOBAL(void)
3859
- jpeg_fdct_5x10 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
3860
- {
3861
- INT32 tmp0, tmp1, tmp2, tmp3, tmp4;
3862
- INT32 tmp10, tmp11, tmp12, tmp13, tmp14;
3863
- DCTELEM workspace[8*2];
3864
- DCTELEM *dataptr;
3865
- DCTELEM *wsptr;
3866
- JSAMPROW elemptr;
3867
- int ctr;
3868
- SHIFT_TEMPS
3869
-
3870
- /* Pre-zero output coefficient block. */
3871
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
3872
-
3873
- /* Pass 1: process rows. */
3874
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
3875
- /* furthermore, we scale the results by 2**PASS1_BITS. */
3876
- /* 5-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/10). */
3877
-
3878
- dataptr = data;
3879
- ctr = 0;
3880
- for (;;) {
3881
- elemptr = sample_data[ctr] + start_col;
3882
-
3883
- /* Even part */
3884
-
3885
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[4]);
3886
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[3]);
3887
- tmp2 = GETJSAMPLE(elemptr[2]);
3888
-
3889
- tmp10 = tmp0 + tmp1;
3890
- tmp11 = tmp0 - tmp1;
3891
-
3892
- tmp0 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[4]);
3893
- tmp1 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[3]);
3894
-
3895
- /* Apply unsigned->signed conversion */
3896
- dataptr[0] = (DCTELEM)
3897
- ((tmp10 + tmp2 - 5 * CENTERJSAMPLE) << PASS1_BITS);
3898
- tmp11 = MULTIPLY(tmp11, FIX(0.790569415)); /* (c2+c4)/2 */
3899
- tmp10 -= tmp2 << 2;
3900
- tmp10 = MULTIPLY(tmp10, FIX(0.353553391)); /* (c2-c4)/2 */
3901
- dataptr[2] = (DCTELEM) DESCALE(tmp11 + tmp10, CONST_BITS-PASS1_BITS);
3902
- dataptr[4] = (DCTELEM) DESCALE(tmp11 - tmp10, CONST_BITS-PASS1_BITS);
3903
-
3904
- /* Odd part */
3905
-
3906
- tmp10 = MULTIPLY(tmp0 + tmp1, FIX(0.831253876)); /* c3 */
3907
-
3908
- dataptr[1] = (DCTELEM)
3909
- DESCALE(tmp10 + MULTIPLY(tmp0, FIX(0.513743148)), /* c1-c3 */
3910
- CONST_BITS-PASS1_BITS);
3911
- dataptr[3] = (DCTELEM)
3912
- DESCALE(tmp10 - MULTIPLY(tmp1, FIX(2.176250899)), /* c1+c3 */
3913
- CONST_BITS-PASS1_BITS);
3914
-
3915
- ctr++;
3916
-
3917
- if (ctr != DCTSIZE) {
3918
- if (ctr == 10)
3919
- break; /* Done. */
3920
- dataptr += DCTSIZE; /* advance pointer to next row */
3921
- } else
3922
- dataptr = workspace; /* switch pointer to extended workspace */
3923
- }
3924
-
3925
- /* Pass 2: process columns.
3926
- * We remove the PASS1_BITS scaling, but leave the results scaled up
3927
- * by an overall factor of 8.
3928
- * We must also scale the output by (8/5)*(8/10) = 32/25, which we
3929
- * fold into the constant multipliers:
3930
- * 10-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/20) * 32/25.
3931
- */
3932
-
3933
- dataptr = data;
3934
- wsptr = workspace;
3935
- for (ctr = 0; ctr < 5; ctr++) {
3936
- /* Even part */
3937
-
3938
- tmp0 = dataptr[DCTSIZE*0] + wsptr[DCTSIZE*1];
3939
- tmp1 = dataptr[DCTSIZE*1] + wsptr[DCTSIZE*0];
3940
- tmp12 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*7];
3941
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*6];
3942
- tmp4 = dataptr[DCTSIZE*4] + dataptr[DCTSIZE*5];
3943
-
3944
- tmp10 = tmp0 + tmp4;
3945
- tmp13 = tmp0 - tmp4;
3946
- tmp11 = tmp1 + tmp3;
3947
- tmp14 = tmp1 - tmp3;
3948
-
3949
- tmp0 = dataptr[DCTSIZE*0] - wsptr[DCTSIZE*1];
3950
- tmp1 = dataptr[DCTSIZE*1] - wsptr[DCTSIZE*0];
3951
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*7];
3952
- tmp3 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*6];
3953
- tmp4 = dataptr[DCTSIZE*4] - dataptr[DCTSIZE*5];
3954
-
3955
- dataptr[DCTSIZE*0] = (DCTELEM)
3956
- DESCALE(MULTIPLY(tmp10 + tmp11 + tmp12, FIX(1.28)), /* 32/25 */
3957
- CONST_BITS+PASS1_BITS);
3958
- tmp12 += tmp12;
3959
- dataptr[DCTSIZE*4] = (DCTELEM)
3960
- DESCALE(MULTIPLY(tmp10 - tmp12, FIX(1.464477191)) - /* c4 */
3961
- MULTIPLY(tmp11 - tmp12, FIX(0.559380511)), /* c8 */
3962
- CONST_BITS+PASS1_BITS);
3963
- tmp10 = MULTIPLY(tmp13 + tmp14, FIX(1.064004961)); /* c6 */
3964
- dataptr[DCTSIZE*2] = (DCTELEM)
3965
- DESCALE(tmp10 + MULTIPLY(tmp13, FIX(0.657591230)), /* c2-c6 */
3966
- CONST_BITS+PASS1_BITS);
3967
- dataptr[DCTSIZE*6] = (DCTELEM)
3968
- DESCALE(tmp10 - MULTIPLY(tmp14, FIX(2.785601151)), /* c2+c6 */
3969
- CONST_BITS+PASS1_BITS);
3970
-
3971
- /* Odd part */
3972
-
3973
- tmp10 = tmp0 + tmp4;
3974
- tmp11 = tmp1 - tmp3;
3975
- dataptr[DCTSIZE*5] = (DCTELEM)
3976
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp2, FIX(1.28)), /* 32/25 */
3977
- CONST_BITS+PASS1_BITS);
3978
- tmp2 = MULTIPLY(tmp2, FIX(1.28)); /* 32/25 */
3979
- dataptr[DCTSIZE*1] = (DCTELEM)
3980
- DESCALE(MULTIPLY(tmp0, FIX(1.787906876)) + /* c1 */
3981
- MULTIPLY(tmp1, FIX(1.612894094)) + tmp2 + /* c3 */
3982
- MULTIPLY(tmp3, FIX(0.821810588)) + /* c7 */
3983
- MULTIPLY(tmp4, FIX(0.283176630)), /* c9 */
3984
- CONST_BITS+PASS1_BITS);
3985
- tmp12 = MULTIPLY(tmp0 - tmp4, FIX(1.217352341)) - /* (c3+c7)/2 */
3986
- MULTIPLY(tmp1 + tmp3, FIX(0.752365123)); /* (c1-c9)/2 */
3987
- tmp13 = MULTIPLY(tmp10 + tmp11, FIX(0.395541753)) + /* (c3-c7)/2 */
3988
- MULTIPLY(tmp11, FIX(0.64)) - tmp2; /* 16/25 */
3989
- dataptr[DCTSIZE*3] = (DCTELEM) DESCALE(tmp12 + tmp13, CONST_BITS+PASS1_BITS);
3990
- dataptr[DCTSIZE*7] = (DCTELEM) DESCALE(tmp12 - tmp13, CONST_BITS+PASS1_BITS);
3991
-
3992
- dataptr++; /* advance pointer to next column */
3993
- wsptr++; /* advance pointer to next column */
3994
- }
3995
- }
3996
-
3997
-
3998
- /*
3999
- * Perform the forward DCT on a 4x8 sample block.
4000
- *
4001
- * 4-point FDCT in pass 1 (rows), 8-point in pass 2 (columns).
4002
- */
4003
-
4004
- GLOBAL(void)
4005
- jpeg_fdct_4x8 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
4006
- {
4007
- INT32 tmp0, tmp1, tmp2, tmp3;
4008
- INT32 tmp10, tmp11, tmp12, tmp13;
4009
- INT32 z1;
4010
- DCTELEM *dataptr;
4011
- JSAMPROW elemptr;
4012
- int ctr;
4013
- SHIFT_TEMPS
4014
-
4015
- /* Pre-zero output coefficient block. */
4016
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
4017
-
4018
- /* Pass 1: process rows. */
4019
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
4020
- /* furthermore, we scale the results by 2**PASS1_BITS. */
4021
- /* We must also scale the output by 8/4 = 2, which we add here. */
4022
- /* 4-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16). */
4023
-
4024
- dataptr = data;
4025
- for (ctr = 0; ctr < DCTSIZE; ctr++) {
4026
- elemptr = sample_data[ctr] + start_col;
4027
-
4028
- /* Even part */
4029
-
4030
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[3]);
4031
- tmp1 = GETJSAMPLE(elemptr[1]) + GETJSAMPLE(elemptr[2]);
4032
-
4033
- tmp10 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[3]);
4034
- tmp11 = GETJSAMPLE(elemptr[1]) - GETJSAMPLE(elemptr[2]);
4035
-
4036
- /* Apply unsigned->signed conversion */
4037
- dataptr[0] = (DCTELEM)
4038
- ((tmp0 + tmp1 - 4 * CENTERJSAMPLE) << (PASS1_BITS+1));
4039
- dataptr[2] = (DCTELEM) ((tmp0 - tmp1) << (PASS1_BITS+1));
4040
-
4041
- /* Odd part */
4042
-
4043
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
4044
- /* Add fudge factor here for final descale. */
4045
- tmp0 += ONE << (CONST_BITS-PASS1_BITS-2);
4046
-
4047
- dataptr[1] = (DCTELEM)
4048
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
4049
- CONST_BITS-PASS1_BITS-1);
4050
- dataptr[3] = (DCTELEM)
4051
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
4052
- CONST_BITS-PASS1_BITS-1);
4053
-
4054
- dataptr += DCTSIZE; /* advance pointer to next row */
4055
- }
4056
-
4057
- /* Pass 2: process columns.
4058
- * We remove the PASS1_BITS scaling, but leave the results scaled up
4059
- * by an overall factor of 8.
4060
- */
4061
-
4062
- dataptr = data;
4063
- for (ctr = 0; ctr < 4; ctr++) {
4064
- /* Even part per LL&M figure 1 --- note that published figure is faulty;
4065
- * rotator "sqrt(2)*c1" should be "sqrt(2)*c6".
4066
- */
4067
-
4068
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*7];
4069
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*6];
4070
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*5];
4071
- tmp3 = dataptr[DCTSIZE*3] + dataptr[DCTSIZE*4];
4072
-
4073
- /* Add fudge factor here for final descale. */
4074
- tmp10 = tmp0 + tmp3 + (ONE << (PASS1_BITS-1));
4075
- tmp12 = tmp0 - tmp3;
4076
- tmp11 = tmp1 + tmp2;
4077
- tmp13 = tmp1 - tmp2;
4078
-
4079
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*7];
4080
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*6];
4081
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*5];
4082
- tmp3 = dataptr[DCTSIZE*3] - dataptr[DCTSIZE*4];
4083
-
4084
- dataptr[DCTSIZE*0] = (DCTELEM) RIGHT_SHIFT(tmp10 + tmp11, PASS1_BITS);
4085
- dataptr[DCTSIZE*4] = (DCTELEM) RIGHT_SHIFT(tmp10 - tmp11, PASS1_BITS);
4086
-
4087
- z1 = MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
4088
- /* Add fudge factor here for final descale. */
4089
- z1 += ONE << (CONST_BITS+PASS1_BITS-1);
4090
- dataptr[DCTSIZE*2] = (DCTELEM)
4091
- RIGHT_SHIFT(z1 + MULTIPLY(tmp12, FIX_0_765366865), CONST_BITS+PASS1_BITS);
4092
- dataptr[DCTSIZE*6] = (DCTELEM)
4093
- RIGHT_SHIFT(z1 - MULTIPLY(tmp13, FIX_1_847759065), CONST_BITS+PASS1_BITS);
4094
-
4095
- /* Odd part per figure 8 --- note paper omits factor of sqrt(2).
4096
- * 8-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/16).
4097
- * i0..i3 in the paper are tmp0..tmp3 here.
4098
- */
4099
-
4100
- tmp10 = tmp0 + tmp3;
4101
- tmp11 = tmp1 + tmp2;
4102
- tmp12 = tmp0 + tmp2;
4103
- tmp13 = tmp1 + tmp3;
4104
- z1 = MULTIPLY(tmp12 + tmp13, FIX_1_175875602); /* c3 */
4105
- /* Add fudge factor here for final descale. */
4106
- z1 += ONE << (CONST_BITS+PASS1_BITS-1);
4107
-
4108
- tmp0 = MULTIPLY(tmp0, FIX_1_501321110); /* c1+c3-c5-c7 */
4109
- tmp1 = MULTIPLY(tmp1, FIX_3_072711026); /* c1+c3+c5-c7 */
4110
- tmp2 = MULTIPLY(tmp2, FIX_2_053119869); /* c1+c3-c5+c7 */
4111
- tmp3 = MULTIPLY(tmp3, FIX_0_298631336); /* -c1+c3+c5-c7 */
4112
- tmp10 = MULTIPLY(tmp10, - FIX_0_899976223); /* c7-c3 */
4113
- tmp11 = MULTIPLY(tmp11, - FIX_2_562915447); /* -c1-c3 */
4114
- tmp12 = MULTIPLY(tmp12, - FIX_0_390180644); /* c5-c3 */
4115
- tmp13 = MULTIPLY(tmp13, - FIX_1_961570560); /* -c3-c5 */
4116
-
4117
- tmp12 += z1;
4118
- tmp13 += z1;
4119
-
4120
- dataptr[DCTSIZE*1] = (DCTELEM)
4121
- RIGHT_SHIFT(tmp0 + tmp10 + tmp12, CONST_BITS+PASS1_BITS);
4122
- dataptr[DCTSIZE*3] = (DCTELEM)
4123
- RIGHT_SHIFT(tmp1 + tmp11 + tmp13, CONST_BITS+PASS1_BITS);
4124
- dataptr[DCTSIZE*5] = (DCTELEM)
4125
- RIGHT_SHIFT(tmp2 + tmp11 + tmp12, CONST_BITS+PASS1_BITS);
4126
- dataptr[DCTSIZE*7] = (DCTELEM)
4127
- RIGHT_SHIFT(tmp3 + tmp10 + tmp13, CONST_BITS+PASS1_BITS);
4128
-
4129
- dataptr++; /* advance pointer to next column */
4130
- }
4131
- }
4132
-
4133
-
4134
- /*
4135
- * Perform the forward DCT on a 3x6 sample block.
4136
- *
4137
- * 3-point FDCT in pass 1 (rows), 6-point in pass 2 (columns).
4138
- */
4139
-
4140
- GLOBAL(void)
4141
- jpeg_fdct_3x6 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
4142
- {
4143
- INT32 tmp0, tmp1, tmp2;
4144
- INT32 tmp10, tmp11, tmp12;
4145
- DCTELEM *dataptr;
4146
- JSAMPROW elemptr;
4147
- int ctr;
4148
- SHIFT_TEMPS
4149
-
4150
- /* Pre-zero output coefficient block. */
4151
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
4152
-
4153
- /* Pass 1: process rows. */
4154
- /* Note results are scaled up by sqrt(8) compared to a true DCT; */
4155
- /* furthermore, we scale the results by 2**PASS1_BITS. */
4156
- /* We scale the results further by 2 as part of output adaption */
4157
- /* scaling for different DCT size. */
4158
- /* 3-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/6). */
4159
-
4160
- dataptr = data;
4161
- for (ctr = 0; ctr < 6; ctr++) {
4162
- elemptr = sample_data[ctr] + start_col;
4163
-
4164
- /* Even part */
4165
-
4166
- tmp0 = GETJSAMPLE(elemptr[0]) + GETJSAMPLE(elemptr[2]);
4167
- tmp1 = GETJSAMPLE(elemptr[1]);
4168
-
4169
- tmp2 = GETJSAMPLE(elemptr[0]) - GETJSAMPLE(elemptr[2]);
4170
-
4171
- /* Apply unsigned->signed conversion */
4172
- dataptr[0] = (DCTELEM)
4173
- ((tmp0 + tmp1 - 3 * CENTERJSAMPLE) << (PASS1_BITS+1));
4174
- dataptr[2] = (DCTELEM)
4175
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp1, FIX(0.707106781)), /* c2 */
4176
- CONST_BITS-PASS1_BITS-1);
4177
-
4178
- /* Odd part */
4179
-
4180
- dataptr[1] = (DCTELEM)
4181
- DESCALE(MULTIPLY(tmp2, FIX(1.224744871)), /* c1 */
4182
- CONST_BITS-PASS1_BITS-1);
4183
-
4184
- dataptr += DCTSIZE; /* advance pointer to next row */
4185
- }
4186
-
4187
- /* Pass 2: process columns.
4188
- * We remove the PASS1_BITS scaling, but leave the results scaled up
4189
- * by an overall factor of 8.
4190
- * We must also scale the output by (8/6)*(8/3) = 32/9, which we partially
4191
- * fold into the constant multipliers (other part was done in pass 1):
4192
- * 6-point FDCT kernel, cK represents sqrt(2) * cos(K*pi/12) * 16/9.
4193
- */
4194
-
4195
- dataptr = data;
4196
- for (ctr = 0; ctr < 3; ctr++) {
4197
- /* Even part */
4198
-
4199
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*5];
4200
- tmp11 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*4];
4201
- tmp2 = dataptr[DCTSIZE*2] + dataptr[DCTSIZE*3];
4202
-
4203
- tmp10 = tmp0 + tmp2;
4204
- tmp12 = tmp0 - tmp2;
4205
-
4206
- tmp0 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*5];
4207
- tmp1 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*4];
4208
- tmp2 = dataptr[DCTSIZE*2] - dataptr[DCTSIZE*3];
4209
-
4210
- dataptr[DCTSIZE*0] = (DCTELEM)
4211
- DESCALE(MULTIPLY(tmp10 + tmp11, FIX(1.777777778)), /* 16/9 */
4212
- CONST_BITS+PASS1_BITS);
4213
- dataptr[DCTSIZE*2] = (DCTELEM)
4214
- DESCALE(MULTIPLY(tmp12, FIX(2.177324216)), /* c2 */
4215
- CONST_BITS+PASS1_BITS);
4216
- dataptr[DCTSIZE*4] = (DCTELEM)
4217
- DESCALE(MULTIPLY(tmp10 - tmp11 - tmp11, FIX(1.257078722)), /* c4 */
4218
- CONST_BITS+PASS1_BITS);
4219
-
4220
- /* Odd part */
4221
-
4222
- tmp10 = MULTIPLY(tmp0 + tmp2, FIX(0.650711829)); /* c5 */
4223
-
4224
- dataptr[DCTSIZE*1] = (DCTELEM)
4225
- DESCALE(tmp10 + MULTIPLY(tmp0 + tmp1, FIX(1.777777778)), /* 16/9 */
4226
- CONST_BITS+PASS1_BITS);
4227
- dataptr[DCTSIZE*3] = (DCTELEM)
4228
- DESCALE(MULTIPLY(tmp0 - tmp1 - tmp2, FIX(1.777777778)), /* 16/9 */
4229
- CONST_BITS+PASS1_BITS);
4230
- dataptr[DCTSIZE*5] = (DCTELEM)
4231
- DESCALE(tmp10 + MULTIPLY(tmp2 - tmp1, FIX(1.777777778)), /* 16/9 */
4232
- CONST_BITS+PASS1_BITS);
4233
-
4234
- dataptr++; /* advance pointer to next column */
4235
- }
4236
- }
4237
-
4238
-
4239
- /*
4240
- * Perform the forward DCT on a 2x4 sample block.
4241
- *
4242
- * 2-point FDCT in pass 1 (rows), 4-point in pass 2 (columns).
4243
- */
4244
-
4245
- GLOBAL(void)
4246
- jpeg_fdct_2x4 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
4247
- {
4248
- INT32 tmp0, tmp1;
4249
- INT32 tmp10, tmp11;
4250
- DCTELEM *dataptr;
4251
- JSAMPROW elemptr;
4252
- int ctr;
4253
- SHIFT_TEMPS
4254
-
4255
- /* Pre-zero output coefficient block. */
4256
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
4257
-
4258
- /* Pass 1: process rows. */
4259
- /* Note results are scaled up by sqrt(8) compared to a true DCT. */
4260
- /* We must also scale the output by (8/2)*(8/4) = 2**3, which we add here. */
4261
-
4262
- dataptr = data;
4263
- for (ctr = 0; ctr < 4; ctr++) {
4264
- elemptr = sample_data[ctr] + start_col;
4265
-
4266
- /* Even part */
4267
-
4268
- tmp0 = GETJSAMPLE(elemptr[0]);
4269
- tmp1 = GETJSAMPLE(elemptr[1]);
4270
-
4271
- /* Apply unsigned->signed conversion */
4272
- dataptr[0] = (DCTELEM) ((tmp0 + tmp1 - 2 * CENTERJSAMPLE) << 3);
4273
-
4274
- /* Odd part */
4275
-
4276
- dataptr[1] = (DCTELEM) ((tmp0 - tmp1) << 3);
4277
-
4278
- dataptr += DCTSIZE; /* advance pointer to next row */
4279
- }
4280
-
4281
- /* Pass 2: process columns.
4282
- * We leave the results scaled up by an overall factor of 8.
4283
- * 4-point FDCT kernel,
4284
- * cK represents sqrt(2) * cos(K*pi/16) [refers to 8-point FDCT].
4285
- */
4286
-
4287
- dataptr = data;
4288
- for (ctr = 0; ctr < 2; ctr++) {
4289
- /* Even part */
4290
-
4291
- tmp0 = dataptr[DCTSIZE*0] + dataptr[DCTSIZE*3];
4292
- tmp1 = dataptr[DCTSIZE*1] + dataptr[DCTSIZE*2];
4293
-
4294
- tmp10 = dataptr[DCTSIZE*0] - dataptr[DCTSIZE*3];
4295
- tmp11 = dataptr[DCTSIZE*1] - dataptr[DCTSIZE*2];
4296
-
4297
- dataptr[DCTSIZE*0] = (DCTELEM) (tmp0 + tmp1);
4298
- dataptr[DCTSIZE*2] = (DCTELEM) (tmp0 - tmp1);
4299
-
4300
- /* Odd part */
4301
-
4302
- tmp0 = MULTIPLY(tmp10 + tmp11, FIX_0_541196100); /* c6 */
4303
- /* Add fudge factor here for final descale. */
4304
- tmp0 += ONE << (CONST_BITS-1);
4305
-
4306
- dataptr[DCTSIZE*1] = (DCTELEM)
4307
- RIGHT_SHIFT(tmp0 + MULTIPLY(tmp10, FIX_0_765366865), /* c2-c6 */
4308
- CONST_BITS);
4309
- dataptr[DCTSIZE*3] = (DCTELEM)
4310
- RIGHT_SHIFT(tmp0 - MULTIPLY(tmp11, FIX_1_847759065), /* c2+c6 */
4311
- CONST_BITS);
4312
-
4313
- dataptr++; /* advance pointer to next column */
4314
- }
4315
- }
4316
-
4317
-
4318
- /*
4319
- * Perform the forward DCT on a 1x2 sample block.
4320
- *
4321
- * 1-point FDCT in pass 1 (rows), 2-point in pass 2 (columns).
4322
- */
4323
-
4324
- GLOBAL(void)
4325
- jpeg_fdct_1x2 (DCTELEM * data, JSAMPARRAY sample_data, JDIMENSION start_col)
4326
- {
4327
- INT32 tmp0, tmp1;
4328
-
4329
- /* Pre-zero output coefficient block. */
4330
- MEMZERO(data, SIZEOF(DCTELEM) * DCTSIZE2);
4331
-
4332
- tmp0 = GETJSAMPLE(sample_data[0][start_col]);
4333
- tmp1 = GETJSAMPLE(sample_data[1][start_col]);
4334
-
4335
- /* We leave the results scaled up by an overall factor of 8.
4336
- * We must also scale the output by (8/1)*(8/2) = 2**5.
4337
- */
4338
-
4339
- /* Even part */
4340
- /* Apply unsigned->signed conversion */
4341
- data[DCTSIZE*0] = (DCTELEM) ((tmp0 + tmp1 - 2 * CENTERJSAMPLE) << 5);
4342
-
4343
- /* Odd part */
4344
- data[DCTSIZE*1] = (DCTELEM) ((tmp0 - tmp1) << 5);
4345
- }
4346
-
4347
- #endif /* DCT_SCALING_SUPPORTED */
4348
- #endif /* DCT_ISLOW_SUPPORTED */