FFmpeg
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups Pages
j2kenc.c
Go to the documentation of this file.
1 /*
2  * JPEG2000 image encoder
3  * Copyright (c) 2007 Kamil Nowosad
4  *
5  * This file is part of FFmpeg.
6  *
7  * FFmpeg is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * FFmpeg is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with FFmpeg; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  *
21  * **********************************************************************************************************************
22  *
23  *
24  *
25  * This source code incorporates work covered by the following copyright and
26  * permission notice:
27  *
28  * Copyright (c) 2002-2007, Communications and Remote Sensing Laboratory, Universite catholique de Louvain (UCL), Belgium
29  * Copyright (c) 2002-2007, Professor Benoit Macq
30  * Copyright (c) 2001-2003, David Janssens
31  * Copyright (c) 2002-2003, Yannick Verschueren
32  * Copyright (c) 2003-2007, Francois-Olivier Devaux and Antonin Descampe
33  * Copyright (c) 2005, Herve Drolon, FreeImage Team
34  * Copyright (c) 2007, Callum Lerwick <seg@haxxed.com>
35  * All rights reserved.
36  *
37  * Redistribution and use in source and binary forms, with or without
38  * modification, are permitted provided that the following conditions
39  * are met:
40  * 1. Redistributions of source code must retain the above copyright
41  * notice, this list of conditions and the following disclaimer.
42  * 2. Redistributions in binary form must reproduce the above copyright
43  * notice, this list of conditions and the following disclaimer in the
44  * documentation and/or other materials provided with the distribution.
45  *
46  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
47  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
48  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
49  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
50  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
51  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
52  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
53  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
54  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
55  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
56  * POSSIBILITY OF SUCH DAMAGE.
57  */
58 
59 
60 /**
61  * JPEG2000 image encoder
62  * @file
63  * @author Kamil Nowosad
64  */
65 
66 #include <float.h>
67 #include "avcodec.h"
68 #include "internal.h"
69 #include "bytestream.h"
70 #include "jpeg2000.h"
71 #include "libavutil/common.h"
72 #include "libavutil/pixdesc.h"
73 #include "libavutil/opt.h"
74 
75 #define NMSEDEC_BITS 7
76 #define NMSEDEC_FRACBITS (NMSEDEC_BITS-1)
77 #define WMSEDEC_SHIFT 13 ///< must be >= 13
78 #define LAMBDA_SCALE (100000000LL << (WMSEDEC_SHIFT - 13))
79 
80 #define CODEC_JP2 1
81 #define CODEC_J2K 0
82 
83 static int lut_nmsedec_ref [1<<NMSEDEC_BITS],
87 
88 static const int dwt_norms[2][4][10] = { // [dwt_type][band][rlevel] (multiplied by 10000)
89  {{10000, 19650, 41770, 84030, 169000, 338400, 676900, 1353000, 2706000, 5409000},
90  {20220, 39890, 83550, 170400, 342700, 686300, 1373000, 2746000, 5490000},
91  {20220, 39890, 83550, 170400, 342700, 686300, 1373000, 2746000, 5490000},
92  {20800, 38650, 83070, 171800, 347100, 695900, 1393000, 2786000, 5572000}},
93 
94  {{10000, 15000, 27500, 53750, 106800, 213400, 426700, 853300, 1707000, 3413000},
95  {10380, 15920, 29190, 57030, 113300, 226400, 452500, 904800, 1809000},
96  {10380, 15920, 29190, 57030, 113300, 226400, 452500, 904800, 1809000},
97  { 7186, 9218, 15860, 30430, 60190, 120100, 240000, 479700, 959300}}
98 };
99 
100 typedef struct {
102 } Jpeg2000Tile;
103 
104 typedef struct {
105  AVClass *class;
107  const AVFrame *picture;
108 
109  int width, height; ///< image width and height
110  uint8_t cbps[4]; ///< bits per sample in particular components
111  int chroma_shift[2];
114  int tile_width, tile_height; ///< tile size
115  int numXtiles, numYtiles;
116 
121 
122  int64_t lambda;
123 
126 
128 
129  int format;
130  int pred;
132 
133 
134 /* debug */
135 #if 0
136 #undef ifprintf
137 #undef printf
138 
139 static void nspaces(FILE *fd, int n)
140 {
141  while(n--) putc(' ', fd);
142 }
143 
144 static void printcomp(Jpeg2000Component *comp)
145 {
146  int i;
147  for (i = 0; i < comp->y1 - comp->y0; i++)
148  ff_jpeg2000_printv(comp->i_data + i * (comp->x1 - comp->x0), comp->x1 - comp->x0);
149 }
150 
151 static void dump(Jpeg2000EncoderContext *s, FILE *fd)
152 {
153  int tileno, compno, reslevelno, bandno, precno;
154  fprintf(fd, "XSiz = %d, YSiz = %d, tile_width = %d, tile_height = %d\n"
155  "numXtiles = %d, numYtiles = %d, ncomponents = %d\n"
156  "tiles:\n",
157  s->width, s->height, s->tile_width, s->tile_height,
158  s->numXtiles, s->numYtiles, s->ncomponents);
159  for (tileno = 0; tileno < s->numXtiles * s->numYtiles; tileno++){
160  Jpeg2000Tile *tile = s->tile + tileno;
161  nspaces(fd, 2);
162  fprintf(fd, "tile %d:\n", tileno);
163  for(compno = 0; compno < s->ncomponents; compno++){
164  Jpeg2000Component *comp = tile->comp + compno;
165  nspaces(fd, 4);
166  fprintf(fd, "component %d:\n", compno);
167  nspaces(fd, 4);
168  fprintf(fd, "x0 = %d, x1 = %d, y0 = %d, y1 = %d\n",
169  comp->x0, comp->x1, comp->y0, comp->y1);
170  for(reslevelno = 0; reslevelno < s->nreslevels; reslevelno++){
171  Jpeg2000ResLevel *reslevel = comp->reslevel + reslevelno;
172  nspaces(fd, 6);
173  fprintf(fd, "reslevel %d:\n", reslevelno);
174  nspaces(fd, 6);
175  fprintf(fd, "x0 = %d, x1 = %d, y0 = %d, y1 = %d, nbands = %d\n",
176  reslevel->x0, reslevel->x1, reslevel->y0,
177  reslevel->y1, reslevel->nbands);
178  for(bandno = 0; bandno < reslevel->nbands; bandno++){
179  Jpeg2000Band *band = reslevel->band + bandno;
180  nspaces(fd, 8);
181  fprintf(fd, "band %d:\n", bandno);
182  nspaces(fd, 8);
183  fprintf(fd, "x0 = %d, x1 = %d, y0 = %d, y1 = %d,"
184  "codeblock_width = %d, codeblock_height = %d cblknx = %d cblkny = %d\n",
185  band->x0, band->x1,
186  band->y0, band->y1,
187  band->codeblock_width, band->codeblock_height,
188  band->cblknx, band->cblkny);
189  for (precno = 0; precno < reslevel->num_precincts_x * reslevel->num_precincts_y; precno++){
190  Jpeg2000Prec *prec = band->prec + precno;
191  nspaces(fd, 10);
192  fprintf(fd, "prec %d:\n", precno);
193  nspaces(fd, 10);
194  fprintf(fd, "xi0 = %d, xi1 = %d, yi0 = %d, yi1 = %d\n",
195  prec->xi0, prec->xi1, prec->yi0, prec->yi1);
196  }
197  }
198  }
199  }
200  }
201 }
202 #endif
203 
204 /* bitstream routines */
205 
206 /** put n times val bit */
207 static void put_bits(Jpeg2000EncoderContext *s, int val, int n) // TODO: optimize
208 {
209  while (n-- > 0){
210  if (s->bit_index == 8)
211  {
212  s->bit_index = *s->buf == 0xff;
213  *(++s->buf) = 0;
214  }
215  *s->buf |= val << (7 - s->bit_index++);
216  }
217 }
218 
219 /** put n least significant bits of a number num */
220 static void put_num(Jpeg2000EncoderContext *s, int num, int n)
221 {
222  while(--n >= 0)
223  put_bits(s, (num >> n) & 1, 1);
224 }
225 
226 /** flush the bitstream */
228 {
229  if (s->bit_index){
230  s->bit_index = 0;
231  s->buf++;
232  }
233 }
234 
235 /* tag tree routines */
236 
237 /** code the value stored in node */
238 static void tag_tree_code(Jpeg2000EncoderContext *s, Jpeg2000TgtNode *node, int threshold)
239 {
240  Jpeg2000TgtNode *stack[30];
241  int sp = 1, curval = 0;
242  stack[0] = node;
243 
244  node = node->parent;
245  while(node){
246  if (node->vis){
247  curval = node->val;
248  break;
249  }
250  node->vis++;
251  stack[sp++] = node;
252  node = node->parent;
253  }
254  while(--sp >= 0){
255  if (stack[sp]->val >= threshold){
256  put_bits(s, 0, threshold - curval);
257  break;
258  }
259  put_bits(s, 0, stack[sp]->val - curval);
260  put_bits(s, 1, 1);
261  curval = stack[sp]->val;
262  }
263 }
264 
265 /** update the value in node */
267 {
268  int lev = 0;
269  while (node->parent){
270  if (node->parent->val <= node->val)
271  break;
272  node->parent->val = node->val;
273  node = node->parent;
274  lev++;
275  }
276 }
277 
279 {
280  int i;
281 
282  if (s->buf_end - s->buf < 40 + 3 * s->ncomponents)
283  return -1;
284 
285  bytestream_put_be16(&s->buf, JPEG2000_SIZ);
286  bytestream_put_be16(&s->buf, 38 + 3 * s->ncomponents); // Lsiz
287  bytestream_put_be16(&s->buf, 0); // Rsiz
288  bytestream_put_be32(&s->buf, s->width); // width
289  bytestream_put_be32(&s->buf, s->height); // height
290  bytestream_put_be32(&s->buf, 0); // X0Siz
291  bytestream_put_be32(&s->buf, 0); // Y0Siz
292 
293  bytestream_put_be32(&s->buf, s->tile_width); // XTSiz
294  bytestream_put_be32(&s->buf, s->tile_height); // YTSiz
295  bytestream_put_be32(&s->buf, 0); // XT0Siz
296  bytestream_put_be32(&s->buf, 0); // YT0Siz
297  bytestream_put_be16(&s->buf, s->ncomponents); // CSiz
298 
299  for (i = 0; i < s->ncomponents; i++){ // Ssiz_i XRsiz_i, YRsiz_i
300  bytestream_put_byte(&s->buf, 7);
301  bytestream_put_byte(&s->buf, i?1<<s->chroma_shift[0]:1);
302  bytestream_put_byte(&s->buf, i?1<<s->chroma_shift[1]:1);
303  }
304  return 0;
305 }
306 
308 {
309  Jpeg2000CodingStyle *codsty = &s->codsty;
310 
311  if (s->buf_end - s->buf < 14)
312  return -1;
313 
314  bytestream_put_be16(&s->buf, JPEG2000_COD);
315  bytestream_put_be16(&s->buf, 12); // Lcod
316  bytestream_put_byte(&s->buf, 0); // Scod
317  // SGcod
318  bytestream_put_byte(&s->buf, 0); // progression level
319  bytestream_put_be16(&s->buf, 1); // num of layers
320  if(s->avctx->pix_fmt == AV_PIX_FMT_YUV444P){
321  bytestream_put_byte(&s->buf, 0); // unspecified
322  }else{
323  bytestream_put_byte(&s->buf, 0); // unspecified
324  }
325  // SPcod
326  bytestream_put_byte(&s->buf, codsty->nreslevels - 1); // num of decomp. levels
327  bytestream_put_byte(&s->buf, codsty->log2_cblk_width-2); // cblk width
328  bytestream_put_byte(&s->buf, codsty->log2_cblk_height-2); // cblk height
329  bytestream_put_byte(&s->buf, 0); // cblk style
330  bytestream_put_byte(&s->buf, codsty->transform == FF_DWT53); // transformation
331  return 0;
332 }
333 
334 static int put_qcd(Jpeg2000EncoderContext *s, int compno)
335 {
336  int i, size;
337  Jpeg2000CodingStyle *codsty = &s->codsty;
338  Jpeg2000QuantStyle *qntsty = &s->qntsty;
339 
340  if (qntsty->quantsty == JPEG2000_QSTY_NONE)
341  size = 4 + 3 * (codsty->nreslevels-1);
342  else // QSTY_SE
343  size = 5 + 6 * (codsty->nreslevels-1);
344 
345  if (s->buf_end - s->buf < size + 2)
346  return -1;
347 
348  bytestream_put_be16(&s->buf, JPEG2000_QCD);
349  bytestream_put_be16(&s->buf, size); // LQcd
350  bytestream_put_byte(&s->buf, (qntsty->nguardbits << 5) | qntsty->quantsty); // Sqcd
351  if (qntsty->quantsty == JPEG2000_QSTY_NONE)
352  for (i = 0; i < codsty->nreslevels * 3 - 2; i++)
353  bytestream_put_byte(&s->buf, qntsty->expn[i] << 3);
354  else // QSTY_SE
355  for (i = 0; i < codsty->nreslevels * 3 - 2; i++)
356  bytestream_put_be16(&s->buf, (qntsty->expn[i] << 11) | qntsty->mant[i]);
357  return 0;
358 }
359 
360 static int put_com(Jpeg2000EncoderContext *s, int compno)
361 {
362  int size = 4 + strlen(LIBAVCODEC_IDENT);
363 
365  return 0;
366 
367  if (s->buf_end - s->buf < size + 2)
368  return -1;
369 
370  bytestream_put_be16(&s->buf, JPEG2000_COM);
371  bytestream_put_be16(&s->buf, size);
372  bytestream_put_be16(&s->buf, 1); // General use (ISO/IEC 8859-15 (Latin) values)
373 
375 
376  return 0;
377 }
378 
379 static uint8_t *put_sot(Jpeg2000EncoderContext *s, int tileno)
380 {
381  uint8_t *psotptr;
382 
383  if (s->buf_end - s->buf < 12)
384  return NULL;
385 
386  bytestream_put_be16(&s->buf, JPEG2000_SOT);
387  bytestream_put_be16(&s->buf, 10); // Lsot
388  bytestream_put_be16(&s->buf, tileno); // Isot
389 
390  psotptr = s->buf;
391  bytestream_put_be32(&s->buf, 0); // Psot (filled in later)
392 
393  bytestream_put_byte(&s->buf, 0); // TPsot
394  bytestream_put_byte(&s->buf, 1); // TNsot
395  return psotptr;
396 }
397 
398 /**
399  * compute the sizes of tiles, resolution levels, bands, etc.
400  * allocate memory for them
401  * divide the input image into tile-components
402  */
404 {
405  int tileno, tilex, tiley, compno;
406  Jpeg2000CodingStyle *codsty = &s->codsty;
407  Jpeg2000QuantStyle *qntsty = &s->qntsty;
408 
411 
412  s->tile = av_malloc_array(s->numXtiles, s->numYtiles * sizeof(Jpeg2000Tile));
413  if (!s->tile)
414  return AVERROR(ENOMEM);
415  for (tileno = 0, tiley = 0; tiley < s->numYtiles; tiley++)
416  for (tilex = 0; tilex < s->numXtiles; tilex++, tileno++){
417  Jpeg2000Tile *tile = s->tile + tileno;
418 
419  tile->comp = av_mallocz_array(s->ncomponents, sizeof(Jpeg2000Component));
420  if (!tile->comp)
421  return AVERROR(ENOMEM);
422  for (compno = 0; compno < s->ncomponents; compno++){
423  Jpeg2000Component *comp = tile->comp + compno;
424  int ret, i, j;
425 
426  comp->coord[0][0] = comp->coord_o[0][0] = tilex * s->tile_width;
427  comp->coord[0][1] = comp->coord_o[0][1] = FFMIN((tilex+1)*s->tile_width, s->width);
428  comp->coord[1][0] = comp->coord_o[1][0] = tiley * s->tile_height;
429  comp->coord[1][1] = comp->coord_o[1][1] = FFMIN((tiley+1)*s->tile_height, s->height);
430  if (compno > 0)
431  for (i = 0; i < 2; i++)
432  for (j = 0; j < 2; j++)
433  comp->coord[i][j] = comp->coord_o[i][j] = ff_jpeg2000_ceildivpow2(comp->coord[i][j], s->chroma_shift[i]);
434 
435  if ((ret = ff_jpeg2000_init_component(comp,
436  codsty,
437  qntsty,
438  s->cbps[compno],
439  compno?1<<s->chroma_shift[0]:1,
440  compno?1<<s->chroma_shift[1]:1,
441  s->avctx
442  )) < 0)
443  return ret;
444  }
445  }
446  return 0;
447 }
448 
450 {
451  int tileno, compno, i, y, x;
452  uint8_t *line;
453  for (tileno = 0; tileno < s->numXtiles * s->numYtiles; tileno++){
454  Jpeg2000Tile *tile = s->tile + tileno;
455  if (s->planar){
456  for (compno = 0; compno < s->ncomponents; compno++){
457  Jpeg2000Component *comp = tile->comp + compno;
458  int *dst = comp->i_data;
459  line = s->picture->data[compno]
460  + comp->coord[1][0] * s->picture->linesize[compno]
461  + comp->coord[0][0];
462  for (y = comp->coord[1][0]; y < comp->coord[1][1]; y++){
463  uint8_t *ptr = line;
464  for (x = comp->coord[0][0]; x < comp->coord[0][1]; x++)
465  *dst++ = *ptr++ - (1 << 7);
466  line += s->picture->linesize[compno];
467  }
468  }
469  } else{
470  line = s->picture->data[0] + tile->comp[0].coord[1][0] * s->picture->linesize[0]
471  + tile->comp[0].coord[0][0] * s->ncomponents;
472 
473  i = 0;
474  for (y = tile->comp[0].coord[1][0]; y < tile->comp[0].coord[1][1]; y++){
475  uint8_t *ptr = line;
476  for (x = tile->comp[0].coord[0][0]; x < tile->comp[0].coord[0][1]; x++, i++){
477  for (compno = 0; compno < s->ncomponents; compno++){
478  tile->comp[compno].i_data[i] = *ptr++ - (1 << 7);
479  }
480  }
481  line += s->picture->linesize[0];
482  }
483  }
484  }
485 }
486 
488 {
489  int compno, reslevelno, bandno;
490  Jpeg2000QuantStyle *qntsty = &s->qntsty;
491  Jpeg2000CodingStyle *codsty = &s->codsty;
492 
493  for (compno = 0; compno < s->ncomponents; compno++){
494  int gbandno = 0;
495  for (reslevelno = 0; reslevelno < codsty->nreslevels; reslevelno++){
496  int nbands, lev = codsty->nreslevels - reslevelno - 1;
497  nbands = reslevelno ? 3 : 1;
498  for (bandno = 0; bandno < nbands; bandno++, gbandno++){
499  int expn, mant = 0;
500 
501  if (codsty->transform == FF_DWT97_INT){
502  int bandpos = bandno + (reslevelno>0),
503  ss = 81920000 / dwt_norms[0][bandpos][lev],
504  log = av_log2(ss);
505  mant = (11 - log < 0 ? ss >> log - 11 : ss << 11 - log) & 0x7ff;
506  expn = s->cbps[compno] - log + 13;
507  } else
508  expn = ((bandno&2)>>1) + (reslevelno>0) + s->cbps[compno];
509 
510  qntsty->expn[gbandno] = expn;
511  qntsty->mant[gbandno] = mant;
512  }
513  }
514  }
515 }
516 
517 static void init_luts(void)
518 {
519  int i, a,
520  mask = ~((1<<NMSEDEC_FRACBITS)-1);
521 
522  for (i = 0; i < (1 << NMSEDEC_BITS); i++){
523  lut_nmsedec_sig[i] = FFMAX(6*i - (9<<NMSEDEC_FRACBITS-1) << 12-NMSEDEC_FRACBITS, 0);
524  lut_nmsedec_sig0[i] = FFMAX((i*i + (1<<NMSEDEC_FRACBITS-1) & mask) << 1, 0);
525 
526  a = (i >> (NMSEDEC_BITS-2)&2) + 1;
527  lut_nmsedec_ref[i] = FFMAX((-2*i + (1<<NMSEDEC_FRACBITS) + a*i - (a*a<<NMSEDEC_FRACBITS-2))
528  << 13-NMSEDEC_FRACBITS, 0);
529  lut_nmsedec_ref0[i] = FFMAX(((i*i + (1-4*i << NMSEDEC_FRACBITS-1) + (1<<2*NMSEDEC_FRACBITS)) & mask)
530  << 1, 0);
531  }
532 }
533 
534 /* tier-1 routines */
535 static int getnmsedec_sig(int x, int bpno)
536 {
537  if (bpno > NMSEDEC_FRACBITS)
538  return lut_nmsedec_sig[(x >> (bpno - NMSEDEC_FRACBITS)) & ((1 << NMSEDEC_BITS) - 1)];
539  return lut_nmsedec_sig0[x & ((1 << NMSEDEC_BITS) - 1)];
540 }
541 
542 static int getnmsedec_ref(int x, int bpno)
543 {
544  if (bpno > NMSEDEC_FRACBITS)
545  return lut_nmsedec_ref[(x >> (bpno - NMSEDEC_FRACBITS)) & ((1 << NMSEDEC_BITS) - 1)];
546  return lut_nmsedec_ref0[x & ((1 << NMSEDEC_BITS) - 1)];
547 }
548 
549 static void encode_sigpass(Jpeg2000T1Context *t1, int width, int height, int bandno, int *nmsedec, int bpno)
550 {
551  int y0, x, y, mask = 1 << (bpno + NMSEDEC_FRACBITS);
552  for (y0 = 0; y0 < height; y0 += 4)
553  for (x = 0; x < width; x++)
554  for (y = y0; y < height && y < y0+4; y++){
555  if (!(t1->flags[(y+1) * t1->stride + x+1] & JPEG2000_T1_SIG) && (t1->flags[(y+1) * t1->stride + x+1] & JPEG2000_T1_SIG_NB)){
556  int ctxno = ff_jpeg2000_getsigctxno(t1->flags[(y+1) * t1->stride + x+1], bandno),
557  bit = t1->data[(y) * t1->stride + x] & mask ? 1 : 0;
558  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, bit);
559  if (bit){
560  int xorbit;
561  int ctxno = ff_jpeg2000_getsgnctxno(t1->flags[(y+1) * t1->stride + x+1], &xorbit);
562  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, (t1->flags[(y+1) * t1->stride + x+1] >> 15) ^ xorbit);
563  *nmsedec += getnmsedec_sig(t1->data[(y) * t1->stride + x], bpno + NMSEDEC_FRACBITS);
564  ff_jpeg2000_set_significance(t1, x, y, t1->flags[(y+1) * t1->stride + x+1] >> 15);
565  }
566  t1->flags[(y+1) * t1->stride + x+1] |= JPEG2000_T1_VIS;
567  }
568  }
569 }
570 
571 static void encode_refpass(Jpeg2000T1Context *t1, int width, int height, int *nmsedec, int bpno)
572 {
573  int y0, x, y, mask = 1 << (bpno + NMSEDEC_FRACBITS);
574  for (y0 = 0; y0 < height; y0 += 4)
575  for (x = 0; x < width; x++)
576  for (y = y0; y < height && y < y0+4; y++)
577  if ((t1->flags[(y+1) * t1->stride + x+1] & (JPEG2000_T1_SIG | JPEG2000_T1_VIS)) == JPEG2000_T1_SIG){
578  int ctxno = ff_jpeg2000_getrefctxno(t1->flags[(y+1) * t1->stride + x+1]);
579  *nmsedec += getnmsedec_ref(t1->data[(y) * t1->stride + x], bpno + NMSEDEC_FRACBITS);
580  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, t1->data[(y) * t1->stride + x] & mask ? 1:0);
581  t1->flags[(y+1) * t1->stride + x+1] |= JPEG2000_T1_REF;
582  }
583 }
584 
585 static void encode_clnpass(Jpeg2000T1Context *t1, int width, int height, int bandno, int *nmsedec, int bpno)
586 {
587  int y0, x, y, mask = 1 << (bpno + NMSEDEC_FRACBITS);
588  for (y0 = 0; y0 < height; y0 += 4)
589  for (x = 0; x < width; x++){
590  if (y0 + 3 < height && !(
591  (t1->flags[(y0+1) * t1->stride + x+1] & (JPEG2000_T1_SIG_NB | JPEG2000_T1_VIS | JPEG2000_T1_SIG)) ||
592  (t1->flags[(y0+2) * t1->stride + x+1] & (JPEG2000_T1_SIG_NB | JPEG2000_T1_VIS | JPEG2000_T1_SIG)) ||
593  (t1->flags[(y0+3) * t1->stride + x+1] & (JPEG2000_T1_SIG_NB | JPEG2000_T1_VIS | JPEG2000_T1_SIG)) ||
594  (t1->flags[(y0+4) * t1->stride + x+1] & (JPEG2000_T1_SIG_NB | JPEG2000_T1_VIS | JPEG2000_T1_SIG))))
595  {
596  // aggregation mode
597  int rlen;
598  for (rlen = 0; rlen < 4; rlen++)
599  if (t1->data[(y0+rlen) * t1->stride + x] & mask)
600  break;
601  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + MQC_CX_RL, rlen != 4);
602  if (rlen == 4)
603  continue;
604  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + MQC_CX_UNI, rlen >> 1);
605  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + MQC_CX_UNI, rlen & 1);
606  for (y = y0 + rlen; y < y0 + 4; y++){
607  if (!(t1->flags[(y+1) * t1->stride + x+1] & (JPEG2000_T1_SIG | JPEG2000_T1_VIS))){
608  int ctxno = ff_jpeg2000_getsigctxno(t1->flags[(y+1) * t1->stride + x+1], bandno);
609  if (y > y0 + rlen)
610  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, t1->data[(y) * t1->stride + x] & mask ? 1:0);
611  if (t1->data[(y) * t1->stride + x] & mask){ // newly significant
612  int xorbit;
613  int ctxno = ff_jpeg2000_getsgnctxno(t1->flags[(y+1) * t1->stride + x+1], &xorbit);
614  *nmsedec += getnmsedec_sig(t1->data[(y) * t1->stride + x], bpno + NMSEDEC_FRACBITS);
615  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, (t1->flags[(y+1) * t1->stride + x+1] >> 15) ^ xorbit);
616  ff_jpeg2000_set_significance(t1, x, y, t1->flags[(y+1) * t1->stride + x+1] >> 15);
617  }
618  }
619  t1->flags[(y+1) * t1->stride + x+1] &= ~JPEG2000_T1_VIS;
620  }
621  } else{
622  for (y = y0; y < y0 + 4 && y < height; y++){
623  if (!(t1->flags[(y+1) * t1->stride + x+1] & (JPEG2000_T1_SIG | JPEG2000_T1_VIS))){
624  int ctxno = ff_jpeg2000_getsigctxno(t1->flags[(y+1) * t1->stride + x+1], bandno);
625  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, t1->data[(y) * t1->stride + x] & mask ? 1:0);
626  if (t1->data[(y) * t1->stride + x] & mask){ // newly significant
627  int xorbit;
628  int ctxno = ff_jpeg2000_getsgnctxno(t1->flags[(y+1) * t1->stride + x+1], &xorbit);
629  *nmsedec += getnmsedec_sig(t1->data[(y) * t1->stride + x], bpno + NMSEDEC_FRACBITS);
630  ff_mqc_encode(&t1->mqc, t1->mqc.cx_states + ctxno, (t1->flags[(y+1) * t1->stride + x+1] >> 15) ^ xorbit);
631  ff_jpeg2000_set_significance(t1, x, y, t1->flags[(y+1) * t1->stride + x+1] >> 15);
632  }
633  }
634  t1->flags[(y+1) * t1->stride + x+1] &= ~JPEG2000_T1_VIS;
635  }
636  }
637  }
638 }
639 
641  int width, int height, int bandpos, int lev)
642 {
643  int pass_t = 2, passno, x, y, max=0, nmsedec, bpno;
644  int64_t wmsedec = 0;
645 
646  memset(t1->flags, 0, t1->stride * (height + 2) * sizeof(*t1->flags));
647 
648  for (y = 0; y < height; y++){
649  for (x = 0; x < width; x++){
650  if (t1->data[(y) * t1->stride + x] < 0){
651  t1->flags[(y+1) * t1->stride + x+1] |= JPEG2000_T1_SGN;
652  t1->data[(y) * t1->stride + x] = -t1->data[(y) * t1->stride + x];
653  }
654  max = FFMAX(max, t1->data[(y) * t1->stride + x]);
655  }
656  }
657 
658  if (max == 0){
659  cblk->nonzerobits = 0;
660  bpno = 0;
661  } else{
662  cblk->nonzerobits = av_log2(max) + 1 - NMSEDEC_FRACBITS;
663  bpno = cblk->nonzerobits - 1;
664  }
665 
666  cblk->data[0] = 0;
667  ff_mqc_initenc(&t1->mqc, cblk->data + 1);
668 
669  for (passno = 0; bpno >= 0; passno++){
670  nmsedec=0;
671 
672  switch(pass_t){
673  case 0: encode_sigpass(t1, width, height, bandpos, &nmsedec, bpno);
674  break;
675  case 1: encode_refpass(t1, width, height, &nmsedec, bpno);
676  break;
677  case 2: encode_clnpass(t1, width, height, bandpos, &nmsedec, bpno);
678  break;
679  }
680 
681  cblk->passes[passno].rate = ff_mqc_flush_to(&t1->mqc, cblk->passes[passno].flushed, &cblk->passes[passno].flushed_len);
682  wmsedec += (int64_t)nmsedec << (2*bpno);
683  cblk->passes[passno].disto = wmsedec;
684 
685  if (++pass_t == 3){
686  pass_t = 0;
687  bpno--;
688  }
689  }
690  cblk->npasses = passno;
691  cblk->ninclpasses = passno;
692 
693  if (passno)
694  cblk->passes[passno-1].rate = ff_mqc_flush_to(&t1->mqc, cblk->passes[passno-1].flushed, &cblk->passes[passno-1].flushed_len);
695 }
696 
697 /* tier-2 routines: */
698 
700 {
701  if (n == 1)
702  put_num(s, 0, 1);
703  else if (n == 2)
704  put_num(s, 2, 2);
705  else if (n <= 5)
706  put_num(s, 0xc | (n-3), 4);
707  else if (n <= 36)
708  put_num(s, 0x1e0 | (n-6), 9);
709  else
710  put_num(s, 0xff80 | (n-37), 16);
711 }
712 
713 
714 static int encode_packet(Jpeg2000EncoderContext *s, Jpeg2000ResLevel *rlevel, int precno,
715  uint8_t *expn, int numgbits)
716 {
717  int bandno, empty = 1;
718 
719  // init bitstream
720  *s->buf = 0;
721  s->bit_index = 0;
722 
723  // header
724 
725  // is the packet empty?
726  for (bandno = 0; bandno < rlevel->nbands; bandno++){
727  if (rlevel->band[bandno].coord[0][0] < rlevel->band[bandno].coord[0][1]
728  && rlevel->band[bandno].coord[1][0] < rlevel->band[bandno].coord[1][1]){
729  empty = 0;
730  break;
731  }
732  }
733 
734  put_bits(s, !empty, 1);
735  if (empty){
736  j2k_flush(s);
737  return 0;
738  }
739 
740  for (bandno = 0; bandno < rlevel->nbands; bandno++){
741  Jpeg2000Band *band = rlevel->band + bandno;
742  Jpeg2000Prec *prec = band->prec + precno;
743  int yi, xi, pos;
744  int cblknw = prec->nb_codeblocks_width;
745 
746  if (band->coord[0][0] == band->coord[0][1]
747  || band->coord[1][0] == band->coord[1][1])
748  continue;
749 
750  for (pos=0, yi = 0; yi < prec->nb_codeblocks_height; yi++){
751  for (xi = 0; xi < cblknw; xi++, pos++){
752  prec->cblkincl[pos].val = prec->cblk[yi * cblknw + xi].ninclpasses == 0;
753  tag_tree_update(prec->cblkincl + pos);
754  prec->zerobits[pos].val = expn[bandno] + numgbits - 1 - prec->cblk[yi * cblknw + xi].nonzerobits;
755  tag_tree_update(prec->zerobits + pos);
756  }
757  }
758 
759  for (pos=0, yi = 0; yi < prec->nb_codeblocks_height; yi++){
760  for (xi = 0; xi < cblknw; xi++, pos++){
761  int pad = 0, llen, length;
762  Jpeg2000Cblk *cblk = prec->cblk + yi * cblknw + xi;
763 
764  if (s->buf_end - s->buf < 20) // approximately
765  return -1;
766 
767  // inclusion information
768  tag_tree_code(s, prec->cblkincl + pos, 1);
769  if (!cblk->ninclpasses)
770  continue;
771  // zerobits information
772  tag_tree_code(s, prec->zerobits + pos, 100);
773  // number of passes
774  putnumpasses(s, cblk->ninclpasses);
775 
776  length = cblk->passes[cblk->ninclpasses-1].rate;
777  llen = av_log2(length) - av_log2(cblk->ninclpasses) - 2;
778  if (llen < 0){
779  pad = -llen;
780  llen = 0;
781  }
782  // length of code block
783  put_bits(s, 1, llen);
784  put_bits(s, 0, 1);
785  put_num(s, length, av_log2(length)+1+pad);
786  }
787  }
788  }
789  j2k_flush(s);
790  for (bandno = 0; bandno < rlevel->nbands; bandno++){
791  Jpeg2000Band *band = rlevel->band + bandno;
792  Jpeg2000Prec *prec = band->prec + precno;
793  int yi, cblknw = prec->nb_codeblocks_width;
794  for (yi =0; yi < prec->nb_codeblocks_height; yi++){
795  int xi;
796  for (xi = 0; xi < cblknw; xi++){
797  Jpeg2000Cblk *cblk = prec->cblk + yi * cblknw + xi;
798  if (cblk->ninclpasses){
799  if (s->buf_end - s->buf < cblk->passes[cblk->ninclpasses-1].rate)
800  return -1;
801  bytestream_put_buffer(&s->buf, cblk->data + 1, cblk->passes[cblk->ninclpasses-1].rate
802  - cblk->passes[cblk->ninclpasses-1].flushed_len);
803  bytestream_put_buffer(&s->buf, cblk->passes[cblk->ninclpasses-1].flushed,
804  cblk->passes[cblk->ninclpasses-1].flushed_len);
805  }
806  }
807  }
808  }
809  return 0;
810 }
811 
812 static int encode_packets(Jpeg2000EncoderContext *s, Jpeg2000Tile *tile, int tileno)
813 {
814  int compno, reslevelno, ret;
815  Jpeg2000CodingStyle *codsty = &s->codsty;
816  Jpeg2000QuantStyle *qntsty = &s->qntsty;
817 
818  av_log(s->avctx, AV_LOG_DEBUG, "tier2\n");
819  // lay-rlevel-comp-pos progression
820  for (reslevelno = 0; reslevelno < codsty->nreslevels; reslevelno++){
821  for (compno = 0; compno < s->ncomponents; compno++){
822  int precno;
823  Jpeg2000ResLevel *reslevel = s->tile[tileno].comp[compno].reslevel + reslevelno;
824  for (precno = 0; precno < reslevel->num_precincts_x * reslevel->num_precincts_y; precno++){
825  if ((ret = encode_packet(s, reslevel, precno, qntsty->expn + (reslevelno ? 3*reslevelno-2 : 0),
826  qntsty->nguardbits)) < 0)
827  return ret;
828  }
829  }
830  }
831  av_log(s->avctx, AV_LOG_DEBUG, "after tier2\n");
832  return 0;
833 }
834 
835 static int getcut(Jpeg2000Cblk *cblk, int64_t lambda, int dwt_norm)
836 {
837  int passno, res = 0;
838  for (passno = 0; passno < cblk->npasses; passno++){
839  int dr;
840  int64_t dd;
841 
842  dr = cblk->passes[passno].rate
843  - (res ? cblk->passes[res-1].rate:0);
844  dd = cblk->passes[passno].disto
845  - (res ? cblk->passes[res-1].disto:0);
846 
847  if (((dd * dwt_norm) >> WMSEDEC_SHIFT) * dwt_norm >= dr * lambda)
848  res = passno+1;
849  }
850  return res;
851 }
852 
854 {
855  int precno, compno, reslevelno, bandno, cblkno, lev;
856  Jpeg2000CodingStyle *codsty = &s->codsty;
857 
858  for (compno = 0; compno < s->ncomponents; compno++){
859  Jpeg2000Component *comp = tile->comp + compno;
860 
861  for (reslevelno = 0, lev = codsty->nreslevels-1; reslevelno < codsty->nreslevels; reslevelno++, lev--){
862  Jpeg2000ResLevel *reslevel = comp->reslevel + reslevelno;
863 
864  for (precno = 0; precno < reslevel->num_precincts_x * reslevel->num_precincts_y; precno++){
865  for (bandno = 0; bandno < reslevel->nbands ; bandno++){
866  int bandpos = bandno + (reslevelno > 0);
867  Jpeg2000Band *band = reslevel->band + bandno;
868  Jpeg2000Prec *prec = band->prec + precno;
869 
870  for (cblkno = 0; cblkno < prec->nb_codeblocks_height * prec->nb_codeblocks_width; cblkno++){
871  Jpeg2000Cblk *cblk = prec->cblk + cblkno;
872 
873  cblk->ninclpasses = getcut(cblk, s->lambda,
874  (int64_t)dwt_norms[codsty->transform == FF_DWT53][bandpos][lev] * (int64_t)band->i_stepsize >> 15);
875  }
876  }
877  }
878  }
879  }
880 }
881 
882 static int encode_tile(Jpeg2000EncoderContext *s, Jpeg2000Tile *tile, int tileno)
883 {
884  int compno, reslevelno, bandno, ret;
886  Jpeg2000CodingStyle *codsty = &s->codsty;
887  for (compno = 0; compno < s->ncomponents; compno++){
888  Jpeg2000Component *comp = s->tile[tileno].comp + compno;
889 
890  t1.stride = (1<<codsty->log2_cblk_width) + 2;
891 
892  av_log(s->avctx, AV_LOG_DEBUG,"dwt\n");
893  if ((ret = ff_dwt_encode(&comp->dwt, comp->i_data)) < 0)
894  return ret;
895  av_log(s->avctx, AV_LOG_DEBUG,"after dwt -> tier1\n");
896 
897  for (reslevelno = 0; reslevelno < codsty->nreslevels; reslevelno++){
898  Jpeg2000ResLevel *reslevel = comp->reslevel + reslevelno;
899 
900  for (bandno = 0; bandno < reslevel->nbands ; bandno++){
901  Jpeg2000Band *band = reslevel->band + bandno;
902  Jpeg2000Prec *prec = band->prec; // we support only 1 precinct per band ATM in the encoder
903  int cblkx, cblky, cblkno=0, xx0, x0, xx1, y0, yy0, yy1, bandpos;
904  yy0 = bandno == 0 ? 0 : comp->reslevel[reslevelno-1].coord[1][1] - comp->reslevel[reslevelno-1].coord[1][0];
905  y0 = yy0;
906  yy1 = FFMIN(ff_jpeg2000_ceildivpow2(band->coord[1][0] + 1, band->log2_cblk_height) << band->log2_cblk_height,
907  band->coord[1][1]) - band->coord[1][0] + yy0;
908 
909  if (band->coord[0][0] == band->coord[0][1] || band->coord[1][0] == band->coord[1][1])
910  continue;
911 
912  bandpos = bandno + (reslevelno > 0);
913 
914  for (cblky = 0; cblky < prec->nb_codeblocks_height; cblky++){
915  if (reslevelno == 0 || bandno == 1)
916  xx0 = 0;
917  else
918  xx0 = comp->reslevel[reslevelno-1].coord[0][1] - comp->reslevel[reslevelno-1].coord[0][0];
919  x0 = xx0;
920  xx1 = FFMIN(ff_jpeg2000_ceildivpow2(band->coord[0][0] + 1, band->log2_cblk_width) << band->log2_cblk_width,
921  band->coord[0][1]) - band->coord[0][0] + xx0;
922 
923  for (cblkx = 0; cblkx < prec->nb_codeblocks_width; cblkx++, cblkno++){
924  int y, x;
925  if (codsty->transform == FF_DWT53){
926  for (y = yy0; y < yy1; y++){
927  int *ptr = t1.data + (y-yy0)*t1.stride;
928  for (x = xx0; x < xx1; x++){
929  *ptr++ = comp->i_data[(comp->coord[0][1] - comp->coord[0][0]) * y + x] << NMSEDEC_FRACBITS;
930  }
931  }
932  } else{
933  for (y = yy0; y < yy1; y++){
934  int *ptr = t1.data + (y-yy0)*t1.stride;
935  for (x = xx0; x < xx1; x++){
936  *ptr = (comp->i_data[(comp->coord[0][1] - comp->coord[0][0]) * y + x]);
937  *ptr = (int64_t)*ptr * (int64_t)(16384 * 65536 / band->i_stepsize) >> 15 - NMSEDEC_FRACBITS;
938  ptr++;
939  }
940  }
941  }
942  if (!prec->cblk[cblkno].data)
943  prec->cblk[cblkno].data = av_malloc(1 + 8192);
944  if (!prec->cblk[cblkno].passes)
945  prec->cblk[cblkno].passes = av_malloc_array(JPEG2000_MAX_PASSES, sizeof (*prec->cblk[cblkno].passes));
946  if (!prec->cblk[cblkno].data || !prec->cblk[cblkno].passes)
947  return AVERROR(ENOMEM);
948  encode_cblk(s, &t1, prec->cblk + cblkno, tile, xx1 - xx0, yy1 - yy0,
949  bandpos, codsty->nreslevels - reslevelno - 1);
950  xx0 = xx1;
951  xx1 = FFMIN(xx1 + (1 << band->log2_cblk_width), band->coord[0][1] - band->coord[0][0] + x0);
952  }
953  yy0 = yy1;
954  yy1 = FFMIN(yy1 + (1 << band->log2_cblk_height), band->coord[1][1] - band->coord[1][0] + y0);
955  }
956  }
957  }
958  av_log(s->avctx, AV_LOG_DEBUG, "after tier1\n");
959  }
960 
961  av_log(s->avctx, AV_LOG_DEBUG, "rate control\n");
962  truncpasses(s, tile);
963  if ((ret = encode_packets(s, tile, tileno)) < 0)
964  return ret;
965  av_log(s->avctx, AV_LOG_DEBUG, "after rate control\n");
966  return 0;
967 }
968 
970 {
971  int tileno, compno;
972  Jpeg2000CodingStyle *codsty = &s->codsty;
973 
974  for (tileno = 0; tileno < s->numXtiles * s->numYtiles; tileno++){
975  for (compno = 0; compno < s->ncomponents; compno++){
976  Jpeg2000Component *comp = s->tile[tileno].comp + compno;
977  ff_jpeg2000_cleanup(comp, codsty);
978  }
979  av_freep(&s->tile[tileno].comp);
980  }
981  av_freep(&s->tile);
982 }
983 
985 {
986  int tileno, compno;
987  for (tileno = 0; tileno < s->numXtiles * s->numYtiles; tileno++){
988  Jpeg2000Tile *tile = s->tile + tileno;
989  for (compno = 0; compno < s->ncomponents; compno++)
990  ff_jpeg2000_reinit(tile->comp + compno, &s->codsty);
991  }
992 }
993 
994 static void update_size(uint8_t *size, const uint8_t *end)
995 {
996  AV_WB32(size, end-size);
997 }
998 
1000  const AVFrame *pict, int *got_packet)
1001 {
1002  int tileno, ret;
1003  Jpeg2000EncoderContext *s = avctx->priv_data;
1004  uint8_t *chunkstart, *jp2cstart, *jp2hstart;
1005 
1006  if ((ret = ff_alloc_packet2(avctx, pkt, avctx->width*avctx->height*9 + AV_INPUT_BUFFER_MIN_SIZE, 0)) < 0)
1007  return ret;
1008 
1009  // init:
1010  s->buf = s->buf_start = pkt->data;
1011  s->buf_end = pkt->data + pkt->size;
1012 
1013  s->picture = pict;
1014 
1015  s->lambda = s->picture->quality * LAMBDA_SCALE;
1016 
1017  copy_frame(s);
1018  reinit(s);
1019 
1020  if (s->format == CODEC_JP2) {
1021  av_assert0(s->buf == pkt->data);
1022 
1023  bytestream_put_be32(&s->buf, 0x0000000C);
1024  bytestream_put_be32(&s->buf, 0x6A502020);
1025  bytestream_put_be32(&s->buf, 0x0D0A870A);
1026 
1027  chunkstart = s->buf;
1028  bytestream_put_be32(&s->buf, 0);
1029  bytestream_put_buffer(&s->buf, "ftyp", 4);
1030  bytestream_put_buffer(&s->buf, "jp2\040\040", 4);
1031  bytestream_put_be32(&s->buf, 0);
1032  bytestream_put_buffer(&s->buf, "jp2\040", 4);
1033  update_size(chunkstart, s->buf);
1034 
1035  jp2hstart = s->buf;
1036  bytestream_put_be32(&s->buf, 0);
1037  bytestream_put_buffer(&s->buf, "jp2h", 4);
1038 
1039  chunkstart = s->buf;
1040  bytestream_put_be32(&s->buf, 0);
1041  bytestream_put_buffer(&s->buf, "ihdr", 4);
1042  bytestream_put_be32(&s->buf, avctx->height);
1043  bytestream_put_be32(&s->buf, avctx->width);
1044  bytestream_put_be16(&s->buf, s->ncomponents);
1045  bytestream_put_byte(&s->buf, s->cbps[0]);
1046  bytestream_put_byte(&s->buf, 7);
1047  bytestream_put_byte(&s->buf, 0);
1048  bytestream_put_byte(&s->buf, 0);
1049  update_size(chunkstart, s->buf);
1050 
1051  chunkstart = s->buf;
1052  bytestream_put_be32(&s->buf, 0);
1053  bytestream_put_buffer(&s->buf, "colr", 4);
1054  bytestream_put_byte(&s->buf, 1);
1055  bytestream_put_byte(&s->buf, 0);
1056  bytestream_put_byte(&s->buf, 0);
1057  if (s->ncomponents == 1) {
1058  bytestream_put_be32(&s->buf, 17);
1059  } else if (avctx->pix_fmt == AV_PIX_FMT_RGB24) {
1060  bytestream_put_be32(&s->buf, 16);
1061  } else {
1062  bytestream_put_be32(&s->buf, 18);
1063  }
1064  update_size(chunkstart, s->buf);
1065  update_size(jp2hstart, s->buf);
1066 
1067  jp2cstart = s->buf;
1068  bytestream_put_be32(&s->buf, 0);
1069  bytestream_put_buffer(&s->buf, "jp2c", 4);
1070  }
1071 
1072  if (s->buf_end - s->buf < 2)
1073  return -1;
1074  bytestream_put_be16(&s->buf, JPEG2000_SOC);
1075  if ((ret = put_siz(s)) < 0)
1076  return ret;
1077  if ((ret = put_cod(s)) < 0)
1078  return ret;
1079  if ((ret = put_qcd(s, 0)) < 0)
1080  return ret;
1081  if ((ret = put_com(s, 0)) < 0)
1082  return ret;
1083 
1084  for (tileno = 0; tileno < s->numXtiles * s->numYtiles; tileno++){
1085  uint8_t *psotptr;
1086  if (!(psotptr = put_sot(s, tileno)))
1087  return -1;
1088  if (s->buf_end - s->buf < 2)
1089  return -1;
1090  bytestream_put_be16(&s->buf, JPEG2000_SOD);
1091  if ((ret = encode_tile(s, s->tile + tileno, tileno)) < 0)
1092  return ret;
1093  bytestream_put_be32(&psotptr, s->buf - psotptr + 6);
1094  }
1095  if (s->buf_end - s->buf < 2)
1096  return -1;
1097  bytestream_put_be16(&s->buf, JPEG2000_EOC);
1098 
1099  if (s->format == CODEC_JP2)
1100  update_size(jp2cstart, s->buf);
1101 
1102  av_log(s->avctx, AV_LOG_DEBUG, "end\n");
1103  pkt->size = s->buf - s->buf_start;
1104  pkt->flags |= AV_PKT_FLAG_KEY;
1105  *got_packet = 1;
1106 
1107  return 0;
1108 }
1109 
1111 {
1112  int i, ret;
1113  Jpeg2000EncoderContext *s = avctx->priv_data;
1114  Jpeg2000CodingStyle *codsty = &s->codsty;
1115  Jpeg2000QuantStyle *qntsty = &s->qntsty;
1116 
1117  s->avctx = avctx;
1118  av_log(s->avctx, AV_LOG_DEBUG, "init\n");
1119 
1120 #if FF_API_PRIVATE_OPT
1122  if (avctx->prediction_method)
1123  s->pred = avctx->prediction_method;
1125 #endif
1126 
1127  // defaults:
1128  // TODO: implement setting non-standard precinct size
1129  memset(codsty->log2_prec_widths , 15, sizeof(codsty->log2_prec_widths ));
1130  memset(codsty->log2_prec_heights, 15, sizeof(codsty->log2_prec_heights));
1131  codsty->nreslevels2decode=
1132  codsty->nreslevels = 7;
1133  codsty->log2_cblk_width = 4;
1134  codsty->log2_cblk_height = 4;
1135  codsty->transform = s->pred ? FF_DWT53 : FF_DWT97_INT;
1136 
1137  qntsty->nguardbits = 1;
1138 
1139  if ((s->tile_width & (s->tile_width -1)) ||
1140  (s->tile_height & (s->tile_height-1))) {
1141  av_log(avctx, AV_LOG_WARNING, "Tile dimension not a power of 2\n");
1142  }
1143 
1144  if (codsty->transform == FF_DWT53)
1145  qntsty->quantsty = JPEG2000_QSTY_NONE;
1146  else
1147  qntsty->quantsty = JPEG2000_QSTY_SE;
1148 
1149  s->width = avctx->width;
1150  s->height = avctx->height;
1151 
1152  for (i = 0; i < 3; i++)
1153  s->cbps[i] = 8;
1154 
1155  if (avctx->pix_fmt == AV_PIX_FMT_RGB24){
1156  s->ncomponents = 3;
1157  } else if (avctx->pix_fmt == AV_PIX_FMT_GRAY8){
1158  s->ncomponents = 1;
1159  } else{ // planar YUV
1160  s->planar = 1;
1161  s->ncomponents = 3;
1163  s->chroma_shift, s->chroma_shift + 1);
1164  if (ret)
1165  return ret;
1166  }
1167 
1170  init_luts();
1171 
1172  init_quantization(s);
1173  if ((ret=init_tiles(s)) < 0)
1174  return ret;
1175 
1176  av_log(s->avctx, AV_LOG_DEBUG, "after init\n");
1177 
1178  return 0;
1179 }
1180 
1181 static int j2kenc_destroy(AVCodecContext *avctx)
1182 {
1183  Jpeg2000EncoderContext *s = avctx->priv_data;
1184 
1185  cleanup(s);
1186  return 0;
1187 }
1188 
1189 // taken from the libopenjpeg wraper so it matches
1190 
1191 #define OFFSET(x) offsetof(Jpeg2000EncoderContext, x)
1192 #define VE AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_ENCODING_PARAM
1193 static const AVOption options[] = {
1194  { "format", "Codec Format", OFFSET(format), AV_OPT_TYPE_INT, { .i64 = CODEC_JP2 }, CODEC_J2K, CODEC_JP2, VE, "format" },
1195  { "j2k", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = CODEC_J2K }, 0, 0, VE, "format" },
1196  { "jp2", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = CODEC_JP2 }, 0, 0, VE, "format" },
1197  { "tile_width", "Tile Width", OFFSET(tile_width), AV_OPT_TYPE_INT, { .i64 = 256 }, 1, 1<<30, VE, },
1198  { "tile_height", "Tile Height", OFFSET(tile_height), AV_OPT_TYPE_INT, { .i64 = 256 }, 1, 1<<30, VE, },
1199  { "pred", "DWT Type", OFFSET(pred), AV_OPT_TYPE_INT, { .i64 = 0 }, 0, 1, VE, "pred" },
1200  { "dwt97int", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = 0 }, INT_MIN, INT_MAX, VE, "pred" },
1201  { "dwt53", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = 0 }, INT_MIN, INT_MAX, VE, "pred" },
1202 
1203  { NULL }
1204 };
1205 
1206 static const AVClass j2k_class = {
1207  .class_name = "jpeg 2000 encoder",
1208  .item_name = av_default_item_name,
1209  .option = options,
1210  .version = LIBAVUTIL_VERSION_INT,
1211 };
1212 
1214  .name = "jpeg2000",
1215  .long_name = NULL_IF_CONFIG_SMALL("JPEG 2000"),
1216  .type = AVMEDIA_TYPE_VIDEO,
1217  .id = AV_CODEC_ID_JPEG2000,
1218  .priv_data_size = sizeof(Jpeg2000EncoderContext),
1219  .init = j2kenc_init,
1220  .encode2 = encode_frame,
1221  .close = j2kenc_destroy,
1222  .pix_fmts = (const enum AVPixelFormat[]) {
1227  },
1228  .priv_class = &j2k_class,
1229 };
static int getcut(Jpeg2000Cblk *cblk, int64_t lambda, int dwt_norm)
Definition: j2kenc.c:835
uint8_t nguardbits
Definition: jpeg2000.h:153
#define NULL
Definition: coverity.c:32
const char const char void * val
Definition: avisynth_c.h:771
const char * s
Definition: avisynth_c.h:768
#define NMSEDEC_BITS
Definition: j2kenc.c:75
void av_cold ff_jpeg2000_init_tier1_luts(void)
Definition: jpeg2000.c:159
void ff_jpeg2000_cleanup(Jpeg2000Component *comp, Jpeg2000CodingStyle *codsty)
Definition: jpeg2000.c:578
This structure describes decoded (raw) audio or video data.
Definition: frame.h:201
DWTContext dwt
Definition: jpeg2000.h:208
AVOption.
Definition: opt.h:246
Jpeg2000TgtNode * cblkincl
Definition: jpeg2000.h:184
static void cleanup(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:969
#define JPEG2000_T1_SIG_NB
Definition: jpeg2000.h:85
AVCodec ff_jpeg2000_encoder
Definition: j2kenc.c:1213
planar YUV 4:4:4, 24bpp, (1 Cr & Cb sample per 1x1 Y samples)
Definition: pixfmt.h:67
static void put_bits(Jpeg2000EncoderContext *s, int val, int n)
put n times val bit
Definition: j2kenc.c:207
#define AV_LOG_WARNING
Something somehow does not look correct.
Definition: log.h:182
#define LIBAVUTIL_VERSION_INT
Definition: version.h:85
packed RGB 8:8:8, 24bpp, RGBRGB...
Definition: pixfmt.h:64
static av_cold int init(AVCodecContext *avctx)
Definition: avrndec.c:35
uint8_t ninclpasses
Definition: jpeg2000.h:165
Jpeg2000QuantStyle qntsty
Definition: j2kenc.c:125
static int lut_nmsedec_ref[1<< NMSEDEC_BITS]
Definition: j2kenc.c:83
static av_cold int j2kenc_init(AVCodecContext *avctx)
Definition: j2kenc.c:1110
int size
Definition: avcodec.h:1415
const char * av_default_item_name(void *ptr)
Return the context name.
Definition: log.c:193
int nb_codeblocks_width
Definition: jpeg2000.h:181
int av_log2(unsigned v)
Definition: intmath.c:26
static int put_com(Jpeg2000EncoderContext *s, int compno)
Definition: j2kenc.c:360
AVCodecContext * avctx
Definition: j2kenc.c:106
enum AVPixelFormat pix_fmt
Pixel format, see AV_PIX_FMT_xxx.
Definition: avcodec.h:1711
uint16_t mant[JPEG2000_MAX_DECLEVELS *3]
Definition: jpeg2000.h:151
void ff_mqc_initenc(MqcState *mqc, uint8_t *bp)
initialize the encoder
Definition: mqcenc.c:69
static void tag_tree_code(Jpeg2000EncoderContext *s, Jpeg2000TgtNode *node, int threshold)
code the value stored in node
Definition: j2kenc.c:238
static AVPacket pkt
AVCodec.
Definition: avcodec.h:3365
static void tag_tree_update(Jpeg2000TgtNode *node)
update the value in node
Definition: j2kenc.c:266
static void update_size(uint8_t *size, const uint8_t *end)
Definition: j2kenc.c:994
static int getnmsedec_ref(int x, int bpno)
Definition: j2kenc.c:542
uint8_t npasses
Definition: jpeg2000.h:164
const char * class_name
The name of the class; usually it is the same name as the context structure type to which the AVClass...
Definition: log.h:72
uint16_t log2_cblk_width
Definition: jpeg2000.h:192
#define av_assert0(cond)
assert() equivalent, that is always enabled.
Definition: avassert.h:37
int ff_alloc_packet2(AVCodecContext *avctx, AVPacket *avpkt, int64_t size, int64_t min_size)
Check AVPacket size and/or allocate data.
Definition: encode.c:32
uint8_t
#define av_cold
Definition: attributes.h:82
#define av_malloc(s)
static int lut_nmsedec_ref0[1<< NMSEDEC_BITS]
Definition: j2kenc.c:83
AVOptions.
static int encode_packet(Jpeg2000EncoderContext *s, Jpeg2000ResLevel *rlevel, int precno, uint8_t *expn, int numgbits)
Definition: j2kenc.c:714
static av_cold int end(AVCodecContext *avctx)
Definition: avrndec.c:90
static const AVClass j2k_class
Definition: j2kenc.c:1206
Jpeg2000TgtNode * zerobits
Definition: jpeg2000.h:183
int64_t disto
Definition: jpeg2000.h:158
Jpeg2000Band * band
Definition: jpeg2000.h:203
uint8_t val
Definition: jpeg2000.h:129
int coord[2][2]
Definition: jpeg2000.h:211
#define height
uint8_t * data
Definition: avcodec.h:1414
static void j2k_flush(Jpeg2000EncoderContext *s)
flush the bitstream
Definition: j2kenc.c:227
#define sp
Definition: regdef.h:63
static int init_tiles(Jpeg2000EncoderContext *s)
compute the sizes of tiles, resolution levels, bands, etc.
Definition: j2kenc.c:403
#define JPEG2000_T1_VIS
Definition: jpeg2000.h:95
ptrdiff_t size
Definition: opengl_enc.c:101
#define AV_INPUT_BUFFER_MIN_SIZE
minimum encoding buffer size Used to avoid some checks during header writing.
Definition: avcodec.h:777
uint16_t flags[6156]
Definition: jpeg2000.h:123
#define av_log(a,...)
#define AV_PKT_FLAG_KEY
The packet contains a keyframe.
Definition: avcodec.h:1446
uint8_t nonzerobits
Definition: jpeg2000.h:166
uint8_t log2_prec_widths[JPEG2000_MAX_RESLEVELS]
Definition: jpeg2000.h:145
static const uint16_t mask[17]
Definition: lzw.c:38
uint8_t * buf_end
Definition: j2kenc.c:119
#define OFFSET(x)
Definition: j2kenc.c:1191
void ff_jpeg2000_set_significance(Jpeg2000T1Context *t1, int x, int y, int negative)
Definition: jpeg2000.c:171
#define AVERROR(e)
Definition: error.h:43
static int put_cod(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:307
int nb_codeblocks_height
Definition: jpeg2000.h:182
#define CODEC_J2K
Definition: j2kenc.c:81
int av_pix_fmt_get_chroma_sub_sample(enum AVPixelFormat pix_fmt, int *h_shift, int *v_shift)
Utility function to access log2_chroma_w log2_chroma_h from the pixel format AVPixFmtDescriptor.
Definition: pixdesc.c:2391
#define NULL_IF_CONFIG_SMALL(x)
Return NULL if CONFIG_SMALL is true, otherwise the argument without modification. ...
Definition: internal.h:186
#define AV_LOG_DEBUG
Stuff which is only useful for libav* developers.
Definition: log.h:197
uint8_t log2_prec_heights[JPEG2000_MAX_RESLEVELS]
Definition: jpeg2000.h:146
#define t1
Definition: regdef.h:29
int flags
AV_CODEC_FLAG_*.
Definition: avcodec.h:1582
#define JPEG2000_MAX_PASSES
Definition: jpeg2000.h:73
Definition: graph2dot.c:48
uint16_t width
Definition: gdv.c:47
static void put_num(Jpeg2000EncoderContext *s, int num, int n)
put n least significant bits of a number num
Definition: j2kenc.c:220
GLsizei GLsizei * length
Definition: opengl_enc.c:115
const char * name
Name of the codec implementation.
Definition: avcodec.h:3372
static int encode_frame(AVCodecContext *avctx, AVPacket *pkt, const AVFrame *pict, int *got_packet)
Definition: j2kenc.c:999
const AVFrame * picture
Definition: j2kenc.c:107
uint8_t flushed[4]
Definition: jpeg2000.h:159
Jpeg2000Cblk * cblk
Definition: jpeg2000.h:185
#define FFMAX(a, b)
Definition: common.h:94
int flags
A combination of AV_PKT_FLAG values.
Definition: avcodec.h:1420
planar YUV 4:2:2, 16bpp, (1 Cr & Cb sample per 2x1 Y samples)
Definition: pixfmt.h:66
static int put_siz(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:278
static int lut_nmsedec_sig0[1<< NMSEDEC_BITS]
Definition: j2kenc.c:83
#define JPEG2000_T1_REF
Definition: jpeg2000.h:97
int flushed_len
Definition: jpeg2000.h:160
#define AV_CODEC_FLAG_BITEXACT
Use only bitexact stuff (except (I)DCT).
Definition: avcodec.h:883
static int put_qcd(Jpeg2000EncoderContext *s, int compno)
Definition: j2kenc.c:334
static int getnmsedec_sig(int x, int bpno)
Definition: j2kenc.c:535
int tile_height
tile size
Definition: j2kenc.c:114
#define FFMIN(a, b)
Definition: common.h:96
struct Jpeg2000TgtNode * parent
Definition: jpeg2000.h:131
static void encode_sigpass(Jpeg2000T1Context *t1, int width, int height, int bandno, int *nmsedec, int bpno)
Definition: j2kenc.c:549
int width
picture width / height.
Definition: avcodec.h:1674
JPEG 2000 structures and defines common to encoder and decoder.
int i_stepsize
Definition: jpeg2000.h:193
static int j2kenc_destroy(AVCodecContext *avctx)
Definition: j2kenc.c:1181
#define MQC_CX_RL
Definition: mqc.h:34
#define CODEC_JP2
Definition: j2kenc.c:80
static int ff_jpeg2000_getsigctxno(int flag, int bandno)
Definition: jpeg2000.h:240
int quality
quality (between 1 (good) and FF_LAMBDA_MAX (bad))
Definition: frame.h:324
int n
Definition: avisynth_c.h:684
uint8_t cbps[4]
bits per sample in particular components
Definition: j2kenc.c:110
int ff_dwt_encode(DWTContext *s, void *t)
Definition: jpeg2000dwt.c:581
int coord[2][2]
Definition: jpeg2000.h:200
uint8_t * data
Definition: jpeg2000.h:171
static int encode_tile(Jpeg2000EncoderContext *s, Jpeg2000Tile *tile, int tileno)
Definition: j2kenc.c:882
static int ff_jpeg2000_ceildivpow2(int a, int b)
Definition: jpeg2000.h:216
static const float pred[4]
Definition: siprdata.h:259
static void comp(unsigned char *dst, ptrdiff_t dst_stride, unsigned char *src, ptrdiff_t src_stride, int add)
Definition: eamad.c:83
int coord[2][2]
Definition: jpeg2000.h:191
int coord_o[2][2]
Definition: jpeg2000.h:212
Libavcodec external API header.
static void encode_refpass(Jpeg2000T1Context *t1, int width, int height, int *nmsedec, int bpno)
Definition: j2kenc.c:571
attribute_deprecated int prediction_method
Definition: avcodec.h:1860
uint8_t * buf_start
Definition: j2kenc.c:117
int linesize[AV_NUM_DATA_POINTERS]
For video, size in bytes of each picture line.
Definition: frame.h:232
#define ss
Jpeg2000CodingStyle codsty
Definition: j2kenc.c:124
main external API structure.
Definition: avcodec.h:1502
uint8_t vis
Definition: jpeg2000.h:130
void av_cold ff_mqc_init_context_tables(void)
MQ-coder Initialize context tables (QE, NLPS, NMPS)
Definition: mqc.c:97
static void init_luts(void)
Definition: j2kenc.c:517
static void encode_cblk(Jpeg2000EncoderContext *s, Jpeg2000T1Context *t1, Jpeg2000Cblk *cblk, Jpeg2000Tile *tile, int width, int height, int bandpos, int lev)
Definition: j2kenc.c:640
planar YUV 4:1:0, 9bpp, (1 Cr & Cb sample per 4x4 Y samples)
Definition: pixfmt.h:68
static const char * format
Definition: movenc.c:47
Describe the class of an AVClass context structure.
Definition: log.h:67
static const AVOption options[]
Definition: j2kenc.c:1193
#define AV_WB32(p, v)
Definition: intreadwrite.h:419
uint8_t nbands
Definition: jpeg2000.h:199
#define JPEG2000_T1_SGN
Definition: jpeg2000.h:99
int height
image width and height
Definition: j2kenc.c:109
Jpeg2000ResLevel * reslevel
Definition: jpeg2000.h:207
static enum AVPixelFormat pix_fmts[]
Definition: libkvazaar.c:266
static int ff_jpeg2000_ceildiv(int a, int b)
Definition: jpeg2000.h:221
Jpeg2000Component * comp
Definition: j2kenc.c:101
void ff_jpeg2000_reinit(Jpeg2000Component *comp, Jpeg2000CodingStyle *codsty)
Definition: jpeg2000.c:557
uint8_t * data[AV_NUM_DATA_POINTERS]
pointer to the picture/channel planes.
Definition: frame.h:215
uint8_t expn[JPEG2000_MAX_DECLEVELS *3]
Definition: jpeg2000.h:150
static void reinit(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:984
static uint8_t * put_sot(Jpeg2000EncoderContext *s, int tileno)
Definition: j2kenc.c:379
Jpeg2000Tile * tile
Definition: j2kenc.c:127
planar YUV 4:2:0, 12bpp, (1 Cr & Cb sample per 2x2 Y samples)
Definition: pixfmt.h:62
Y , 8bpp.
Definition: pixfmt.h:70
#define FF_DISABLE_DEPRECATION_WARNINGS
Definition: internal.h:84
uint8_t quantsty
Definition: jpeg2000.h:152
common internal api header.
common internal and external API header
if(ret< 0)
Definition: vf_mcdeint.c:279
uint8_t log2_cblk_width
Definition: jpeg2000.h:137
static void copy_frame(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:449
#define LAMBDA_SCALE
Definition: j2kenc.c:78
int data[6144]
Definition: jpeg2000.h:122
planar YUV 4:1:1, 12bpp, (1 Cr & Cb sample per 4x1 Y samples)
Definition: pixfmt.h:69
uint16_t log2_cblk_height
Definition: jpeg2000.h:192
#define VE
Definition: j2kenc.c:1192
static av_always_inline void bytestream_put_buffer(uint8_t **b, const uint8_t *src, unsigned int size)
Definition: bytestream.h:368
#define MQC_CX_UNI
Definition: mqc.h:33
void * priv_data
Definition: avcodec.h:1529
int ff_jpeg2000_init_component(Jpeg2000Component *comp, Jpeg2000CodingStyle *codsty, Jpeg2000QuantStyle *qntsty, int cbps, int dx, int dy, AVCodecContext *avctx)
Definition: jpeg2000.c:447
uint16_t rate
Definition: jpeg2000.h:157
static void putnumpasses(Jpeg2000EncoderContext *s, int n)
Definition: j2kenc.c:699
int ff_mqc_flush_to(MqcState *mqc, uint8_t *dst, int *dst_len)
Definition: mqcenc.c:122
#define FF_ENABLE_DEPRECATION_WARNINGS
Definition: internal.h:85
static void truncpasses(Jpeg2000EncoderContext *s, Jpeg2000Tile *tile)
Definition: j2kenc.c:853
Jpeg2000Prec * prec
Definition: jpeg2000.h:195
static void encode_clnpass(Jpeg2000T1Context *t1, int width, int height, int bandno, int *nmsedec, int bpno)
Definition: j2kenc.c:585
#define JPEG2000_T1_SIG
Definition: jpeg2000.h:96
static int lut_nmsedec_sig[1<< NMSEDEC_BITS]
Definition: j2kenc.c:83
#define LIBAVCODEC_IDENT
Definition: version.h:42
#define av_freep(p)
MqcState mqc
Definition: jpeg2000.h:124
static int ff_jpeg2000_getrefctxno(int flag)
Definition: jpeg2000.h:249
uint8_t log2_cblk_height
Definition: jpeg2000.h:137
#define av_malloc_array(a, b)
#define NMSEDEC_FRACBITS
Definition: j2kenc.c:76
static void init_quantization(Jpeg2000EncoderContext *s)
Definition: j2kenc.c:487
Jpeg2000Pass * passes
Definition: jpeg2000.h:176
static const int dwt_norms[2][4][10]
Definition: j2kenc.c:88
AVPixelFormat
Pixel format.
Definition: pixfmt.h:60
This structure stores compressed data.
Definition: avcodec.h:1391
for(j=16;j >0;--j)
uint8_t cx_states[19]
Definition: mqc.h:45
#define WMSEDEC_SHIFT
must be >= 13
Definition: j2kenc.c:77
static int encode_packets(Jpeg2000EncoderContext *s, Jpeg2000Tile *tile, int tileno)
Definition: j2kenc.c:812
void * av_mallocz_array(size_t nmemb, size_t size)
Definition: mem.c:191
static int ff_jpeg2000_getsgnctxno(int flag, int *xorbit)
Definition: jpeg2000.h:258
void ff_mqc_encode(MqcState *mqc, uint8_t *cxstate, int d)
code bit d with context cx
Definition: mqcenc.c:79