blob: aad2038033e83a95f2e8a15b1ccc2e1ae37a880f [file] [log] [blame]
/*
* Copyright (c) 2017, Alliance for Open Media. All rights reserved
*
* This source code is subject to the terms of the BSD 2 Clause License and
* the Alliance for Open Media Patent License 1.0. If the BSD 2 Clause License
* was not distributed with this source code in the LICENSE file, you can
* obtain it at www.aomedia.org/license/software. If the Alliance for Open
* Media Patent License 1.0 was not distributed with this source code in the
* PATENTS file, you can obtain it at www.aomedia.org/license/patent.
*/
#include "av1/common/scan.h"
#include "av1/common/blockd.h"
#include "av1/common/idct.h"
#include "av1/common/pred_common.h"
#include "av1/encoder/bitstream.h"
#include "av1/encoder/encodeframe.h"
#include "av1/encoder/cost.h"
#include "av1/encoder/encodetxb.h"
#include "av1/encoder/rdopt.h"
#include "av1/encoder/subexp.h"
#include "av1/encoder/tokenize.h"
#define TEST_OPTIMIZE_TXB 0
typedef struct LevelDownStats {
int update;
tran_low_t low_qc;
tran_low_t low_dqc;
#if CONFIG_EOB_FIRST
int64_t dist0;
int rate;
int rate_low;
int64_t dist;
int64_t dist_low;
int64_t rd;
int64_t rd_low;
int nz_rate; // for eob
#endif
int64_t rd_diff;
int cost_diff;
int64_t dist_diff;
int new_eob;
} LevelDownStats;
void av1_alloc_txb_buf(AV1_COMP *cpi) {
#if 0
AV1_COMMON *cm = &cpi->common;
int mi_block_size = 1 << MI_SIZE_LOG2;
// TODO(angiebird): Make sure cm->subsampling_x/y is set correctly, and then
// use precise buffer size according to cm->subsampling_x/y
int pixel_stride = mi_block_size * cm->mi_cols;
int pixel_height = mi_block_size * cm->mi_rows;
int i;
for (i = 0; i < MAX_MB_PLANE; ++i) {
CHECK_MEM_ERROR(
cm, cpi->tcoeff_buf[i],
aom_malloc(sizeof(*cpi->tcoeff_buf[i]) * pixel_stride * pixel_height));
}
#else
AV1_COMMON *cm = &cpi->common;
int size = ((cm->mi_rows >> MAX_MIB_SIZE_LOG2) + 1) *
((cm->mi_cols >> MAX_MIB_SIZE_LOG2) + 1);
av1_free_txb_buf(cpi);
// TODO(jingning): This should be further reduced.
CHECK_MEM_ERROR(cm, cpi->coeff_buffer_base,
aom_malloc(sizeof(*cpi->coeff_buffer_base) * size));
#endif
}
void av1_free_txb_buf(AV1_COMP *cpi) {
#if 0
int i;
for (i = 0; i < MAX_MB_PLANE; ++i) {
aom_free(cpi->tcoeff_buf[i]);
}
#else
aom_free(cpi->coeff_buffer_base);
#endif
}
void av1_set_coeff_buffer(const AV1_COMP *const cpi, MACROBLOCK *const x,
int mi_row, int mi_col) {
int stride = (cpi->common.mi_cols >> MAX_MIB_SIZE_LOG2) + 1;
int offset =
(mi_row >> MAX_MIB_SIZE_LOG2) * stride + (mi_col >> MAX_MIB_SIZE_LOG2);
CB_COEFF_BUFFER *coeff_buf = &cpi->coeff_buffer_base[offset];
const int txb_offset = x->cb_offset / (TX_SIZE_W_MIN * TX_SIZE_H_MIN);
for (int plane = 0; plane < MAX_MB_PLANE; ++plane) {
x->mbmi_ext->tcoeff[plane] = coeff_buf->tcoeff[plane] + x->cb_offset;
x->mbmi_ext->eobs[plane] = coeff_buf->eobs[plane] + txb_offset;
x->mbmi_ext->txb_skip_ctx[plane] =
coeff_buf->txb_skip_ctx[plane] + txb_offset;
x->mbmi_ext->dc_sign_ctx[plane] =
coeff_buf->dc_sign_ctx[plane] + txb_offset;
}
}
static void write_golomb(aom_writer *w, int level) {
int x = level + 1;
int i = x;
int length = 0;
while (i) {
i >>= 1;
++length;
}
assert(length > 0);
for (i = 0; i < length - 1; ++i) aom_write_bit(w, 0);
for (i = length - 1; i >= 0; --i) aom_write_bit(w, (x >> i) & 0x01);
}
static INLINE tran_low_t get_lower_coeff(tran_low_t qc) {
if (qc == 0) {
return 0;
}
return qc > 0 ? qc - 1 : qc + 1;
}
static INLINE tran_low_t qcoeff_to_dqcoeff(tran_low_t qc, int dqv, int shift) {
int sgn = qc < 0 ? -1 : 1;
return sgn * ((abs(qc) * dqv) >> shift);
}
static INLINE int64_t get_coeff_dist(tran_low_t tcoeff, tran_low_t dqcoeff,
int shift) {
const int64_t diff = (tcoeff - dqcoeff) * (1 << shift);
const int64_t error = diff * diff;
return error;
}
#if CONFIG_EOB_FIRST
void av1_update_eob_context(int eob, int seg_eob, TX_SIZE txsize,
PLANE_TYPE plane, FRAME_CONTEXT *ec_ctx,
FRAME_COUNTS *counts) {
int16_t eob_extra;
int16_t eob_pt = get_eob_pos_token(eob, &eob_extra);
int16_t dummy;
int16_t max_eob_pt = get_eob_pos_token(seg_eob, &dummy);
for (int i = 1; i < max_eob_pt; i++) {
int eob_pos_ctx = get_eob_pos_ctx(i);
counts->eob_flag[txsize][plane][eob_pos_ctx][eob_pt == i]++;
#if LV_MAP_PROB
update_cdf(ec_ctx->eob_flag_cdf[txsize][plane][eob_pos_ctx], eob_pt == i,
2);
#endif
if (eob_pt == i) {
break;
}
}
if (k_eob_offset_bits[eob_pt] > 0) {
int eob_shift = k_eob_offset_bits[eob_pt] - 1;
int bit = (eob_extra & (1 << eob_shift)) ? 1 : 0;
counts->eob_extra[txsize][plane][eob_pt][bit]++;
#if LV_MAP_PROB
update_cdf(ec_ctx->eob_extra_cdf[txsize][plane][eob_pt], bit, 2);
#endif
}
}
static int get_eob_cost(int eob, int seg_eob,
const LV_MAP_COEFF_COST *txb_costs) {
int16_t eob_extra;
int16_t eob_pt = get_eob_pos_token(eob, &eob_extra);
int16_t dummy;
int16_t max_eob_pt = get_eob_pos_token(seg_eob, &dummy);
int eob_cost = 0;
// printf("Enc: [%d, %d], (%d, %d) ", seg_eob, eob, eob_pt, eob_extra);
for (int i = 1; i < max_eob_pt; i++) {
int eob_pos_ctx = get_eob_pos_ctx(i);
eob_cost += txb_costs->eob_cost[eob_pos_ctx][eob_pt == i];
if (eob_pt == i) {
break;
}
}
if (k_eob_offset_bits[eob_pt] > 0) {
int eob_shift = k_eob_offset_bits[eob_pt] - 1;
int bit = (eob_extra & (1 << eob_shift)) ? 1 : 0;
eob_cost += txb_costs->eob_extra_cost[eob_pt][bit];
for (int i = 1; i < k_eob_offset_bits[eob_pt]; i++) {
eob_shift = k_eob_offset_bits[eob_pt] - 1 - i;
bit = (eob_extra & (1 << eob_shift)) ? 1 : 0;
eob_cost += av1_cost_bit(128, bit);
}
}
return eob_cost;
}
extern int get_coeff_cost(tran_low_t qc, int scan_idx, TxbInfo *txb_info,
const LV_MAP_COEFF_COST *txb_costs);
void get_dist_cost_stats(LevelDownStats *stats, int scan_idx,
const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info) {
const int16_t *scan = txb_info->scan_order->scan;
const int coeff_idx = scan[scan_idx];
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
stats->new_eob = -1;
stats->update = 0;
const tran_low_t tqc = txb_info->tcoeff[coeff_idx];
const int dqv = txb_info->dequant[coeff_idx != 0];
const tran_low_t dqc = qcoeff_to_dqcoeff(qc, dqv, txb_info->shift);
const int64_t dqc_dist = get_coeff_dist(tqc, dqc, txb_info->shift);
const int qc_cost = get_coeff_cost(qc, scan_idx, txb_info, txb_costs);
// distortion difference when coefficient is quantized to 0
const tran_low_t dqc0 = qcoeff_to_dqcoeff(0, dqv, txb_info->shift);
stats->dist0 = get_coeff_dist(tqc, dqc0, txb_info->shift);
stats->dist = dqc_dist - stats->dist0;
stats->rate = qc_cost;
if (qc == 0) {
return;
}
stats->rd = RDCOST(txb_info->rdmult, stats->rate, stats->dist);
stats->low_qc = get_lower_coeff(qc);
stats->low_dqc = qcoeff_to_dqcoeff(stats->low_qc, dqv, txb_info->shift);
const int64_t low_dqc_dist =
get_coeff_dist(tqc, stats->low_dqc, txb_info->shift);
const int low_qc_cost =
get_coeff_cost(stats->low_qc, scan_idx, txb_info, txb_costs);
stats->dist_low = low_dqc_dist - stats->dist0;
stats->rate_low = low_qc_cost;
stats->rd_low = RDCOST(txb_info->rdmult, stats->rate_low, stats->dist_low);
int coeff_ctx =
get_nz_map_ctx(txb_info->qcoeff, scan_idx, scan, txb_info->bwl,
txb_info->height, txb_info->tx_type, 0);
if ((stats->rd_low < stats->rd) && (stats->low_qc == 0)) {
stats->nz_rate = txb_costs->nz_map_cost[coeff_ctx][0];
} else {
stats->nz_rate = txb_costs->nz_map_cost[coeff_ctx][1];
}
}
static void update_coeff(int coeff_idx, tran_low_t qc, TxbInfo *txb_info) {
txb_info->qcoeff[coeff_idx] = qc;
const int dqv = txb_info->dequant[coeff_idx != 0];
txb_info->dqcoeff[coeff_idx] = qcoeff_to_dqcoeff(qc, dqv, txb_info->shift);
}
#endif
static INLINE void write_nz_map(aom_writer *w, const tran_low_t *tcoeff,
uint16_t eob, int plane, const int16_t *scan,
TX_SIZE tx_size, TX_TYPE tx_type,
FRAME_CONTEXT *fc) {
const PLANE_TYPE plane_type = get_plane_type(plane);
const TX_SIZE txs_ctx = get_txsize_context(tx_size);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int height = tx_size_high[tx_size];
#if CONFIG_CTX1D
const int width = tx_size_wide[tx_size];
const int eob_offset = width + height;
const TX_CLASS tx_class = get_tx_class(tx_type);
const int seg_eob =
(tx_class == TX_CLASS_2D) ? tx_size_2d[tx_size] : eob_offset;
#else
const int seg_eob = tx_size_2d[tx_size];
#endif
#if !LV_MAP_PROB
aom_prob *nz_map = fc->nz_map[txs_ctx][plane_type];
aom_prob *eob_flag = fc->eob_flag[txs_ctx][plane_type];
#endif
for (int c = 0; c < eob; ++c) {
int coeff_ctx = get_nz_map_ctx(tcoeff, c, scan, bwl, height, tx_type, 0);
int eob_ctx = get_eob_ctx(scan[c], txs_ctx, tx_type);
tran_low_t v = tcoeff[scan[c]];
int is_nz = (v != 0);
if (c == seg_eob - 1) break;
#if LV_MAP_PROB
aom_write_bin(w, is_nz, fc->nz_map_cdf[txs_ctx][plane_type][coeff_ctx], 2);
#else
aom_write(w, is_nz, nz_map[coeff_ctx]);
#endif
if (is_nz) {
#if LV_MAP_PROB
aom_write_bin(w, c == (eob - 1),
fc->eob_flag_cdf[txs_ctx][plane_type][eob_ctx], 2);
#else
aom_write(w, c == (eob - 1), eob_flag[eob_ctx]);
#endif
}
}
}
#if CONFIG_CTX1D
static INLINE void write_nz_map_vert(aom_writer *w, const tran_low_t *tcoeff,
uint16_t eob, int plane,
const int16_t *scan, const int16_t *iscan,
TX_SIZE tx_size, TX_TYPE tx_type,
FRAME_CONTEXT *fc) {
(void)eob;
const TX_SIZE txs_ctx = get_txsize_context(tx_size);
const PLANE_TYPE plane_type = get_plane_type(plane);
const TX_CLASS tx_class = get_tx_class(tx_type);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int width = tx_size_wide[tx_size];
const int height = tx_size_high[tx_size];
int16_t eob_ls[MAX_HVTX_SIZE];
get_eob_vert(eob_ls, tcoeff, width, height);
#if !LV_MAP_PROB
aom_prob *nz_map = fc->nz_map[txs_ctx][plane_type];
#endif
for (int c = 0; c < width; ++c) {
int16_t veob = eob_ls[c];
assert(veob <= height);
int el_ctx = get_empty_line_ctx(c, eob_ls);
#if LV_MAP_PROB
aom_write_bin(w, veob == 0,
fc->empty_line_cdf[txs_ctx][plane_type][tx_class][el_ctx], 2);
#else
aom_write(w, veob == 0,
fc->empty_line[txs_ctx][plane_type][tx_class][el_ctx]);
#endif
if (veob) {
for (int r = 0; r < veob; ++r) {
if (r + 1 != height) {
int coeff_idx = r * width + c;
int scan_idx = iscan[coeff_idx];
int is_nz = tcoeff[coeff_idx] != 0;
int coeff_ctx =
get_nz_map_ctx(tcoeff, scan_idx, scan, bwl, height, tx_type, 0);
#if LV_MAP_PROB
aom_write_bin(w, is_nz,
fc->nz_map_cdf[txs_ctx][plane_type][coeff_ctx], 2);
#else
aom_write(w, is_nz, nz_map[coeff_ctx]);
#endif
if (is_nz) {
int eob_ctx = get_hv_eob_ctx(c, r, eob_ls);
#if LV_MAP_PROB
aom_write_bin(
w, r == veob - 1,
fc->hv_eob_cdf[txs_ctx][plane_type][tx_class][eob_ctx], 2);
#else
aom_write(w, r == veob - 1,
fc->hv_eob[txs_ctx][plane_type][tx_class][eob_ctx]);
#endif
}
}
}
}
}
}
static INLINE void write_nz_map_horiz(aom_writer *w, const tran_low_t *tcoeff,
uint16_t eob, int plane,
const int16_t *scan, const int16_t *iscan,
TX_SIZE tx_size, TX_TYPE tx_type,
FRAME_CONTEXT *fc) {
(void)scan;
(void)eob;
const TX_SIZE txs_ctx = get_txsize_context(tx_size);
const PLANE_TYPE plane_type = get_plane_type(plane);
const TX_CLASS tx_class = get_tx_class(tx_type);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int width = tx_size_wide[tx_size];
const int height = tx_size_high[tx_size];
int16_t eob_ls[MAX_HVTX_SIZE];
get_eob_horiz(eob_ls, tcoeff, width, height);
#if !LV_MAP_PROB
aom_prob *nz_map = fc->nz_map[txs_ctx][plane_type];
#endif
for (int r = 0; r < height; ++r) {
int16_t heob = eob_ls[r];
int el_ctx = get_empty_line_ctx(r, eob_ls);
#if LV_MAP_PROB
aom_write_bin(w, heob == 0,
fc->empty_line_cdf[txs_ctx][plane_type][tx_class][el_ctx], 2);
#else
aom_write(w, heob == 0,
fc->empty_line[txs_ctx][plane_type][tx_class][el_ctx]);
#endif
if (heob) {
for (int c = 0; c < heob; ++c) {
if (c + 1 != width) {
int coeff_idx = r * width + c;
int scan_idx = iscan[coeff_idx];
int is_nz = tcoeff[coeff_idx] != 0;
int coeff_ctx =
get_nz_map_ctx(tcoeff, scan_idx, scan, bwl, height, tx_type, 0);
#if LV_MAP_PROB
aom_write_bin(w, is_nz,
fc->nz_map_cdf[txs_ctx][plane_type][coeff_ctx], 2);
#else
aom_write(w, is_nz, nz_map[coeff_ctx]);
#endif
if (is_nz) {
int eob_ctx = get_hv_eob_ctx(r, c, eob_ls);
#if LV_MAP_PROB
aom_write_bin(
w, c == heob - 1,
fc->hv_eob_cdf[txs_ctx][plane_type][tx_class][eob_ctx], 2);
#else
aom_write(w, c == heob - 1,
fc->hv_eob[txs_ctx][plane_type][tx_class][eob_ctx]);
#endif
}
}
}
}
}
}
#endif
void av1_write_coeffs_txb(const AV1_COMMON *const cm, MACROBLOCKD *xd,
aom_writer *w, int blk_row, int blk_col, int block,
int plane, TX_SIZE tx_size, const tran_low_t *tcoeff,
uint16_t eob, TXB_CTX *txb_ctx) {
MB_MODE_INFO *mbmi = &xd->mi[0]->mbmi;
const PLANE_TYPE plane_type = get_plane_type(plane);
const TX_SIZE txs_ctx = get_txsize_context(tx_size);
const TX_TYPE tx_type =
av1_get_tx_type(plane_type, xd, blk_row, blk_col, block, tx_size);
const SCAN_ORDER *const scan_order = get_scan(cm, tx_size, tx_type, mbmi);
const int16_t *scan = scan_order->scan;
const int seg_eob = tx_size_2d[tx_size];
int c;
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int height = tx_size_high[tx_size];
uint16_t update_eob = 0;
FRAME_CONTEXT *ec_ctx = xd->tile_ctx;
uint8_t levels[64 * 64];
int8_t signs[64 * 64];
(void)blk_row;
(void)blk_col;
#if LV_MAP_PROB
aom_write_bin(w, eob == 0,
ec_ctx->txb_skip_cdf[txs_ctx][txb_ctx->txb_skip_ctx], 2);
#else
aom_write(w, eob == 0, ec_ctx->txb_skip[txs_ctx][txb_ctx->txb_skip_ctx]);
#endif
if (eob == 0) return;
for (int i = 0; i < seg_eob; i++) {
levels[i] = (uint8_t)clamp(abs(tcoeff[i]), 0, UINT8_MAX);
signs[i] = (int8_t)(tcoeff[i] < 0);
}
#if CONFIG_TXK_SEL
av1_write_tx_type(cm, xd, blk_row, blk_col, block, plane,
get_min_tx_size(tx_size), w);
#endif
#if !LV_MAP_PROB
nz_map = ec_ctx->nz_map[txs_ctx][plane_type];
eob_flag = ec_ctx->eob_flag[txs_ctx][plane_type];
#endif
#if CONFIG_EOB_FIRST
int16_t eob_extra;
int16_t eob_pt = get_eob_pos_token(eob, &eob_extra);
int16_t dummy;
int16_t max_eob_pt = get_eob_pos_token(seg_eob, &dummy);
// printf("Enc: [%d, %d], (%d, %d) ", seg_eob, eob, eob_pt, eob_extra);
for (int i = 1; i < max_eob_pt; i++) {
int eob_pos_ctx = get_eob_pos_ctx(i);
aom_write_bin(w, eob_pt == i,
ec_ctx->eob_flag_cdf[txs_ctx][plane_type][eob_pos_ctx], 2);
// aom_write_symbol(w, eob_pt == i,
// ec_ctx->eob_flag_cdf[AOMMIN(txs_ctx,3)][plane_type][eob_pos_ctx], 2);
if (eob_pt == i) {
break;
}
}
if (k_eob_offset_bits[eob_pt] > 0) {
int eob_shift = k_eob_offset_bits[eob_pt] - 1;
int bit = (eob_extra & (1 << eob_shift)) ? 1 : 0;
aom_write_bin(w, bit, ec_ctx->eob_extra_cdf[txs_ctx][plane_type][eob_pt],
2);
for (int i = 1; i < k_eob_offset_bits[eob_pt]; i++) {
eob_shift = k_eob_offset_bits[eob_pt] - 1 - i;
bit = (eob_extra & (1 << eob_shift)) ? 1 : 0;
aom_write_bit(w, bit);
// printf("%d ", bit);
}
}
// printf("\n");
for (int i = 1; i < eob; ++i) {
c = eob - 1 - i;
int coeff_ctx = get_nz_map_ctx(tcoeff, c, scan, bwl, height, tx_type, 0);
tran_low_t v = tcoeff[scan[c]];
int is_nz = (v != 0);
#if LV_MAP_PROB
aom_write_bin(w, is_nz, ec_ctx->nz_map_cdf[txs_ctx][plane_type][coeff_ctx],
2);
// aom_write_symbol(w, is_nz,
// ec_ctx->nz_map_cdf[txs_ctx][plane_type][coeff_ctx], 2);
#else
aom_write(w, is_nz, nz_map[coeff_ctx]);
#endif
}
#else // CONFIG_EOB_FIRST
#if CONFIG_CTX1D
TX_CLASS tx_class = get_tx_class(tx_type);
if (tx_class == TX_CLASS_2D) {
write_nz_map(w, tcoeff, eob, plane, scan, tx_size, tx_type, ec_ctx);
} else {
const int width = tx_size_wide[tx_size];
const int eob_offset = width + height;
const int eob_mode = eob > eob_offset;
#if LV_MAP_PROB
aom_write_bin(w, eob_mode,
ec_ctx->eob_mode_cdf[txs_ctx][plane_type][tx_class], 2);
#else
aom_write(w, eob_mode, ec_ctx->eob_mode[txs_ctx][plane_type][tx_class]);
#endif
if (eob_mode == 0) {
write_nz_map(w, tcoeff, eob, plane, scan, tx_size, tx_type, ec_ctx);
} else {
const int16_t *iscan = scan_order->iscan;
assert(tx_class == TX_CLASS_VERT || tx_class == TX_CLASS_HORIZ);
if (tx_class == TX_CLASS_VERT)
write_nz_map_vert(w, tcoeff, eob, plane, scan, iscan, tx_size, tx_type,
ec_ctx);
else
write_nz_map_horiz(w, tcoeff, eob, plane, scan, iscan, tx_size, tx_type,
ec_ctx);
}
}
#else
write_nz_map(w, tcoeff, eob, plane, scan, tx_size, tx_type, ec_ctx);
#endif // CONFIG_CTX1D
#endif // CONFIG_EOB_FIRST
for (int i = 0; i < NUM_BASE_LEVELS; ++i) {
#if !LV_MAP_PROB
aom_prob *coeff_base = ec_ctx->coeff_base[txs_ctx][plane_type][i];
#endif
update_eob = 0;
for (c = eob - 1; c >= 0; --c) {
const int level = levels[scan[c]];
const int sign = signs[scan[c]];
int ctx;
if (level <= i) continue;
ctx = get_base_ctx(levels, scan[c], bwl, height, i + 1);
if (level == i + 1) {
#if LV_MAP_PROB
aom_write_bin(w, 1, ec_ctx->coeff_base_cdf[txs_ctx][plane_type][i][ctx],
2);
#else
aom_write(w, 1, coeff_base[ctx]);
#endif
if (c == 0) {
#if LV_MAP_PROB
aom_write_bin(w, sign,
ec_ctx->dc_sign_cdf[plane_type][txb_ctx->dc_sign_ctx],
2);
#else
aom_write(w, sign, ec_ctx->dc_sign[plane_type][txb_ctx->dc_sign_ctx]);
#endif
} else {
aom_write_bit(w, sign);
}
continue;
}
#if LV_MAP_PROB
aom_write_bin(w, 0, ec_ctx->coeff_base_cdf[txs_ctx][plane_type][i][ctx],
2);
#else
aom_write(w, 0, coeff_base[ctx]);
#endif
update_eob = AOMMAX(update_eob, c);
}
}
for (c = update_eob; c >= 0; --c) {
const int level = levels[scan[c]];
const int sign = signs[scan[c]];
int idx;
int ctx;
if (level <= NUM_BASE_LEVELS) continue;
if (c == 0) {
#if LV_MAP_PROB
aom_write_bin(w, sign,
ec_ctx->dc_sign_cdf[plane_type][txb_ctx->dc_sign_ctx], 2);
#else
aom_write(w, sign, ec_ctx->dc_sign[plane_type][txb_ctx->dc_sign_ctx]);
#endif
} else {
aom_write_bit(w, sign);
}
// level is above 1.
ctx = get_br_ctx(levels, scan[c], bwl, height);
#if BR_NODE
int base_range = level - 1 - NUM_BASE_LEVELS;
int br_set_idx = 0;
int br_base = 0;
int br_offset = 0;
if (base_range >= COEFF_BASE_RANGE)
br_set_idx = BASE_RANGE_SETS;
else
br_set_idx = coeff_to_br_index[base_range];
for (idx = 0; idx < BASE_RANGE_SETS; ++idx) {
aom_write_bin(w, idx == br_set_idx,
ec_ctx->coeff_br_cdf[txs_ctx][plane_type][idx][ctx], 2);
if (idx == br_set_idx) {
br_base = br_index_to_coeff[br_set_idx];
br_offset = base_range - br_base;
int extra_bits = (1 << br_extra_bits[idx]) - 1;
for (int tok = 0; tok < extra_bits; ++tok) {
if (tok == br_offset) {
aom_write_bin(w, 1, ec_ctx->coeff_lps_cdf[txs_ctx][plane_type][ctx],
2);
break;
}
aom_write_bin(w, 0, ec_ctx->coeff_lps_cdf[txs_ctx][plane_type][ctx],
2);
}
// aom_write_literal(w, br_offset, br_extra_bits[idx]);
break;
}
}
if (br_set_idx < BASE_RANGE_SETS) continue;
#else // BR_NODE
for (idx = 0; idx < COEFF_BASE_RANGE; ++idx) {
if (level == (idx + 1 + NUM_BASE_LEVELS)) {
#if LV_MAP_PROB
aom_write_bin(w, 1, ec_ctx->coeff_lps_cdf[txs_ctx][plane_type][ctx], 2);
#else
aom_write(w, 1, ec_ctx->coeff_lps[txs_ctx][plane_type][ctx]);
#endif
break;
}
#if LV_MAP_PROB
aom_write_bin(w, 0, ec_ctx->coeff_lps_cdf[txs_ctx][plane_type][ctx], 2);
#else
aom_write(w, 0, ec_ctx->coeff_lps[txs_ctx][plane_type][ctx]);
#endif
}
if (idx < COEFF_BASE_RANGE) continue;
#endif // BR_NODE
// use 0-th order Golomb code to handle the residual level.
write_golomb(w,
abs(tcoeff[scan[c]]) - COEFF_BASE_RANGE - 1 - NUM_BASE_LEVELS);
}
}
void av1_write_coeffs_mb(const AV1_COMMON *const cm, MACROBLOCK *x,
aom_writer *w, int plane) {
MACROBLOCKD *xd = &x->e_mbd;
MB_MODE_INFO *mbmi = &xd->mi[0]->mbmi;
BLOCK_SIZE bsize = mbmi->sb_type;
struct macroblockd_plane *pd = &xd->plane[plane];
const BLOCK_SIZE plane_bsize =
AOMMAX(BLOCK_4X4, get_plane_block_size(bsize, pd));
const int max_blocks_wide = max_block_wide(xd, plane_bsize, plane);
const int max_blocks_high = max_block_high(xd, plane_bsize, plane);
const TX_SIZE tx_size = av1_get_tx_size(plane, xd);
const int bkw = tx_size_wide_unit[tx_size];
const int bkh = tx_size_high_unit[tx_size];
const int step = tx_size_wide_unit[tx_size] * tx_size_high_unit[tx_size];
int row, col;
int block = 0;
for (row = 0; row < max_blocks_high; row += bkh) {
for (col = 0; col < max_blocks_wide; col += bkw) {
tran_low_t *tcoeff = BLOCK_OFFSET(x->mbmi_ext->tcoeff[plane], block);
uint16_t eob = x->mbmi_ext->eobs[plane][block];
TXB_CTX txb_ctx = { x->mbmi_ext->txb_skip_ctx[plane][block],
x->mbmi_ext->dc_sign_ctx[plane][block] };
av1_write_coeffs_txb(cm, xd, w, row, col, block, plane, tx_size, tcoeff,
eob, &txb_ctx);
block += step;
}
}
}
static INLINE void get_base_ctx_set(const tran_low_t *tcoeffs,
int c, // raster order
const int bwl, const int height,
int ctx_set[NUM_BASE_LEVELS]) {
const int row = c >> bwl;
const int col = c - (row << bwl);
const int stride = 1 << bwl;
int mag[NUM_BASE_LEVELS] = { 0 };
int idx;
tran_low_t abs_coeff;
int i;
for (idx = 0; idx < BASE_CONTEXT_POSITION_NUM; ++idx) {
int ref_row = row + base_ref_offset[idx][0];
int ref_col = col + base_ref_offset[idx][1];
int pos = (ref_row << bwl) + ref_col;
if (ref_row < 0 || ref_col < 0 || ref_row >= height || ref_col >= stride)
continue;
abs_coeff = abs(tcoeffs[pos]);
for (i = 0; i < NUM_BASE_LEVELS; ++i) {
ctx_set[i] += abs_coeff > i;
if (base_ref_offset[idx][0] >= 0 && base_ref_offset[idx][1] >= 0)
mag[i] |= abs_coeff > (i + 1);
}
}
for (i = 0; i < NUM_BASE_LEVELS; ++i) {
ctx_set[i] = get_base_ctx_from_count_mag(row, col, ctx_set[i], mag[i]);
}
return;
}
static INLINE int get_br_cost(tran_low_t abs_qc, int ctx,
const int *coeff_lps) {
const tran_low_t min_level = 1 + NUM_BASE_LEVELS;
const tran_low_t max_level = 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE;
(void)ctx;
if (abs_qc >= min_level) {
#if BR_NODE
if (abs_qc >= max_level)
return coeff_lps[COEFF_BASE_RANGE]; // COEFF_BASE_RANGE * cost0;
else
return coeff_lps[(abs_qc - min_level)]; // * cost0 + cost1;
#else
const int cost0 = coeff_lps[0];
const int cost1 = coeff_lps[1];
if (abs_qc >= max_level)
return COEFF_BASE_RANGE * cost0;
else
return (abs_qc - min_level) * cost0 + cost1;
#endif
} else {
return 0;
}
}
static INLINE int get_base_cost(tran_low_t abs_qc, int ctx,
const int coeff_base[2], int base_idx) {
const int level = base_idx + 1;
(void)ctx;
if (abs_qc < level)
return 0;
else
return coeff_base[abs_qc == level];
}
int get_nz_eob_map_cost(const LV_MAP_COEFF_COST *coeff_costs,
const tran_low_t *qcoeff, uint16_t eob, int plane,
const int16_t *scan, TX_SIZE tx_size, TX_TYPE tx_type) {
(void)plane;
TX_SIZE txs_ctx = get_txsize_context(tx_size);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int height = tx_size_high[tx_size];
#if CONFIG_CTX1D
const TX_CLASS tx_class = get_tx_class(tx_type);
const int width = tx_size_wide[tx_size];
const int eob_offset = width + height;
const int seg_eob =
(tx_class == TX_CLASS_2D) ? tx_size_2d[tx_size] : eob_offset;
#else
const int seg_eob = tx_size_2d[tx_size];
#endif
int cost = 0;
for (int c = 0; c < eob; ++c) {
tran_low_t v = qcoeff[scan[c]];
int is_nz = (v != 0);
if (c + 1 != seg_eob) {
int coeff_ctx = get_nz_map_ctx(qcoeff, c, scan, bwl, height, tx_type, 0);
cost += coeff_costs->nz_map_cost[coeff_ctx][is_nz];
if (is_nz) {
int eob_ctx = get_eob_ctx(scan[c], txs_ctx, tx_type);
cost += coeff_costs->eob_cost[eob_ctx][c == (eob - 1)];
}
}
}
return cost;
}
#if CONFIG_CTX1D
static INLINE int get_nz_eob_map_cost_vert(const LV_MAP_COEFF_COST *coeff_costs,
const tran_low_t *qcoeff,
uint16_t eob, int plane,
const int16_t *scan,
const int16_t *iscan,
TX_SIZE tx_size, TX_TYPE tx_type) {
(void)tx_size;
(void)scan;
(void)eob;
(void)plane;
const TX_CLASS tx_class = get_tx_class(tx_type);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int width = tx_size_wide[tx_size];
const int height = tx_size_high[tx_size];
int16_t eob_ls[MAX_HVTX_SIZE];
get_eob_vert(eob_ls, qcoeff, width, height);
int cost = 0;
for (int c = 0; c < width; ++c) {
int16_t veob = eob_ls[c];
assert(veob <= height);
int el_ctx = get_empty_line_ctx(c, eob_ls);
cost += coeff_costs->empty_line_cost[tx_class][el_ctx][veob == 0];
if (veob) {
for (int r = 0; r < veob; ++r) {
if (r + 1 != height) {
int coeff_idx = r * width + c;
int scan_idx = iscan[coeff_idx];
int is_nz = qcoeff[coeff_idx] != 0;
int coeff_ctx =
get_nz_map_ctx(qcoeff, scan_idx, scan, bwl, height, tx_type, 0);
cost += coeff_costs->nz_map_cost[coeff_ctx][is_nz];
if (is_nz) {
int eob_ctx = get_hv_eob_ctx(c, r, eob_ls);
cost += coeff_costs->hv_eob_cost[tx_class][eob_ctx][r == veob - 1];
}
}
}
}
}
return cost;
}
static INLINE int get_nz_eob_map_cost_horiz(
const LV_MAP_COEFF_COST *coeff_costs, const tran_low_t *qcoeff,
uint16_t eob, int plane, const int16_t *scan, const int16_t *iscan,
TX_SIZE tx_size, TX_TYPE tx_type) {
(void)tx_size;
(void)scan;
(void)eob;
(void)plane;
const TX_CLASS tx_class = get_tx_class(tx_type);
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int width = tx_size_wide[tx_size];
const int height = tx_size_high[tx_size];
int16_t eob_ls[MAX_HVTX_SIZE];
get_eob_horiz(eob_ls, qcoeff, width, height);
int cost = 0;
for (int r = 0; r < height; ++r) {
int16_t heob = eob_ls[r];
assert(heob <= width);
int el_ctx = get_empty_line_ctx(r, eob_ls);
cost += coeff_costs->empty_line_cost[tx_class][el_ctx][heob == 0];
if (heob) {
for (int c = 0; c < heob; ++c) {
if (c + 1 != width) {
int coeff_idx = r * width + c;
int scan_idx = iscan[coeff_idx];
int is_nz = qcoeff[coeff_idx] != 0;
int coeff_ctx =
get_nz_map_ctx(qcoeff, scan_idx, scan, bwl, height, tx_type, 0);
cost += coeff_costs->nz_map_cost[coeff_ctx][is_nz];
if (is_nz) {
int eob_ctx = get_hv_eob_ctx(r, c, eob_ls);
cost += coeff_costs->hv_eob_cost[tx_class][eob_ctx][c == heob - 1];
}
}
}
}
}
return cost;
}
#endif
int av1_cost_coeffs_txb(const AV1_COMMON *const cm, MACROBLOCK *x, int plane,
int blk_row, int blk_col, int block, TX_SIZE tx_size,
TXB_CTX *txb_ctx) {
MACROBLOCKD *const xd = &x->e_mbd;
TX_SIZE txs_ctx = get_txsize_context(tx_size);
const PLANE_TYPE plane_type = get_plane_type(plane);
const TX_TYPE tx_type =
av1_get_tx_type(plane_type, xd, blk_row, blk_col, block, tx_size);
MB_MODE_INFO *mbmi = &xd->mi[0]->mbmi;
const struct macroblock_plane *p = &x->plane[plane];
const int eob = p->eobs[block];
const tran_low_t *const qcoeff = BLOCK_OFFSET(p->qcoeff, block);
int c, cost;
int txb_skip_ctx = txb_ctx->txb_skip_ctx;
const int bwl = b_width_log2_lookup[txsize_to_bsize[tx_size]] + 2;
const int height = tx_size_high[tx_size];
const SCAN_ORDER *const scan_order = get_scan(cm, tx_size, tx_type, mbmi);
const int16_t *scan = scan_order->scan;
LV_MAP_COEFF_COST *coeff_costs = &x->coeff_costs[txs_ctx][plane_type];
cost = 0;
if (eob == 0) {
cost = coeff_costs->txb_skip_cost[txb_skip_ctx][1];
return cost;
}
cost = coeff_costs->txb_skip_cost[txb_skip_ctx][0];
#if CONFIG_TXK_SEL
cost += av1_tx_type_cost(cm, x, xd, mbmi->sb_type, plane, tx_size, tx_type);
#endif
#if CONFIG_EOB_FIRST
const int seg_eob = tx_size_2d[tx_size];
int eob_cost = get_eob_cost(eob, seg_eob, coeff_costs);
cost += eob_cost;
for (c = eob - 1; c >= 0; --c) {
tran_low_t v = qcoeff[scan[c]];
int is_nz = (v != 0);
int level = abs(v);
if (c < eob - 1) {
int coeff_ctx = get_nz_map_ctx(qcoeff, c, scan, bwl, height, tx_type, 0);
cost += coeff_costs->nz_map_cost[coeff_ctx][is_nz];
}
if (is_nz) {
int ctx_ls[NUM_BASE_LEVELS] = { 0 };
int sign = (v < 0) ? 1 : 0;
// sign bit cost
if (c == 0) {
int dc_sign_ctx = txb_ctx->dc_sign_ctx;
cost += coeff_costs->dc_sign_cost[dc_sign_ctx][sign];
} else {
cost += av1_cost_bit(128, sign);
}
get_base_ctx_set(qcoeff, scan[c], bwl, height, ctx_ls);
int i;
for (i = 0; i < NUM_BASE_LEVELS; ++i) {
if (level <= i) continue;
if (level == i + 1) {
cost += coeff_costs->base_cost[i][ctx_ls[i]][1];
continue;
}
cost += coeff_costs->base_cost[i][ctx_ls[i]][0];
}
if (level > NUM_BASE_LEVELS) {
int ctx;
ctx = get_br_ctx_coeff(qcoeff, scan[c], bwl, height);
#if BR_NODE
int base_range = level - 1 - NUM_BASE_LEVELS;
if (base_range < COEFF_BASE_RANGE) {
cost += coeff_costs->lps_cost[ctx][base_range];
} else {
cost += coeff_costs->lps_cost[ctx][COEFF_BASE_RANGE];
}
#else
for (int idx = 0; idx < COEFF_BASE_RANGE; ++idx) {
if (level == (idx + 1 + NUM_BASE_LEVELS)) {
cost += coeff_costs->lps_cost[ctx][1];
break;
}
cost += coeff_costs->lps_cost[ctx][0];
}
#endif
if (level >= 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
// residual cost
int r = level - COEFF_BASE_RANGE - NUM_BASE_LEVELS;
int ri = r;
int length = 0;
while (ri) {
ri >>= 1;
++length;
}
for (ri = 0; ri < length - 1; ++ri) cost += av1_cost_bit(128, 0);
for (ri = length - 1; ri >= 0; --ri)
cost += av1_cost_bit(128, (r >> ri) & 0x01);
}
}
}
}
#else // CONFIG_EOB_FIRST
#if CONFIG_CTX1D
TX_CLASS tx_class = get_tx_class(tx_type);
if (tx_class == TX_CLASS_2D) {
cost += get_nz_eob_map_cost(coeff_costs, qcoeff, eob, plane, scan, tx_size,
tx_type);
} else {
const int width = tx_size_wide[tx_size];
const int eob_offset = width + height;
const int eob_mode = eob > eob_offset;
cost += coeff_costs->eob_mode_cost[tx_class][eob_mode];
if (eob_mode == 0) {
cost += get_nz_eob_map_cost(coeff_costs, qcoeff, eob, plane, scan,
tx_size, tx_type);
} else {
const int16_t *iscan = scan_order->iscan;
assert(tx_class == TX_CLASS_VERT || tx_class == TX_CLASS_HORIZ);
if (tx_class == TX_CLASS_VERT)
cost += get_nz_eob_map_cost_vert(coeff_costs, qcoeff, eob, plane, scan,
iscan, tx_size, tx_type);
else
cost += get_nz_eob_map_cost_horiz(coeff_costs, qcoeff, eob, plane, scan,
iscan, tx_size, tx_type);
}
}
#else // CONFIG_CTX1D
cost += get_nz_eob_map_cost(coeff_costs, qcoeff, eob, plane, scan, tx_size,
tx_type);
#endif // CONFIG_CTX1D
for (c = 0; c < eob; ++c) {
tran_low_t v = qcoeff[scan[c]];
int is_nz = (v != 0);
int level = abs(v);
if (is_nz) {
int ctx_ls[NUM_BASE_LEVELS] = { 0 };
int sign = (v < 0) ? 1 : 0;
// sign bit cost
if (c == 0) {
int dc_sign_ctx = txb_ctx->dc_sign_ctx;
cost += coeff_costs->dc_sign_cost[dc_sign_ctx][sign];
} else {
cost += av1_cost_bit(128, sign);
}
get_base_ctx_set(qcoeff, scan[c], bwl, height, ctx_ls);
int i;
for (i = 0; i < NUM_BASE_LEVELS; ++i) {
if (level <= i) continue;
if (level == i + 1) {
cost += coeff_costs->base_cost[i][ctx_ls[i]][1];
continue;
}
cost += coeff_costs->base_cost[i][ctx_ls[i]][0];
}
if (level > NUM_BASE_LEVELS) {
int ctx;
ctx = get_br_ctx_coeff(qcoeff, scan[c], bwl, height);
#if BR_NODE
int base_range = level - 1 - NUM_BASE_LEVELS;
if (base_range < COEFF_BASE_RANGE) {
cost += coeff_costs->lps_cost[ctx][base_range];
} else {
cost += coeff_costs->lps_cost[ctx][COEFF_BASE_RANGE];
}
#else
for (int idx = 0; idx < COEFF_BASE_RANGE; ++idx) {
if (level == (idx + 1 + NUM_BASE_LEVELS)) {
cost += coeff_costs->lps_cost[ctx][1];
break;
}
cost += coeff_costs->lps_cost[ctx][0];
}
#endif
if (level >= 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
// residual cost
int r = level - COEFF_BASE_RANGE - NUM_BASE_LEVELS;
int ri = r;
int length = 0;
while (ri) {
ri >>= 1;
++length;
}
for (ri = 0; ri < length - 1; ++ri) cost += av1_cost_bit(128, 0);
for (ri = length - 1; ri >= 0; --ri)
cost += av1_cost_bit(128, (r >> ri) & 0x01);
}
}
}
}
#endif
return cost;
}
static INLINE int has_base(tran_low_t qc, int base_idx) {
const int level = base_idx + 1;
return abs(qc) >= level;
}
static INLINE int has_br(tran_low_t qc) {
return abs(qc) >= 1 + NUM_BASE_LEVELS;
}
static INLINE int get_sign_bit_cost(tran_low_t qc, int coeff_idx,
const int (*dc_sign_cost)[2],
int dc_sign_ctx) {
const int sign = (qc < 0) ? 1 : 0;
// sign bit cost
if (coeff_idx == 0) {
return dc_sign_cost[dc_sign_ctx][sign];
} else {
return av1_cost_bit(128, sign);
}
}
static INLINE int get_golomb_cost(int abs_qc) {
if (abs_qc >= 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
// residual cost
int r = abs_qc - COEFF_BASE_RANGE - NUM_BASE_LEVELS;
int ri = r;
int length = 0;
while (ri) {
ri >>= 1;
++length;
}
return av1_cost_literal(2 * length - 1);
} else {
return 0;
}
}
void gen_txb_cache(TxbCache *txb_cache, TxbInfo *txb_info) {
// gen_nz_count_arr
const int16_t *scan = txb_info->scan_order->scan;
const int bwl = txb_info->bwl;
const int height = txb_info->height;
const tran_low_t *const qcoeff = txb_info->qcoeff;
const BASE_CTX_TABLE *base_ctx_table =
txb_info->coeff_ctx_table->base_ctx_table;
for (int c = 0; c < txb_info->eob; ++c) {
const int coeff_idx = scan[c]; // raster order
const int row = coeff_idx >> bwl;
const int col = coeff_idx - (row << bwl);
#if REDUCE_CONTEXT_DEPENDENCY
int prev_coeff_idx;
int prev_row;
int prev_col;
if (c > MIN_SCAN_IDX_REDUCE_CONTEXT_DEPENDENCY) {
prev_coeff_idx = scan[c - 1]; // raster order
prev_row = prev_coeff_idx >> bwl;
prev_col = prev_coeff_idx - (prev_row << bwl);
} else {
prev_coeff_idx = -1;
prev_row = -1;
prev_col = -1;
}
txb_cache->nz_count_arr[coeff_idx] =
get_nz_count(qcoeff, bwl, height, row, col, 0, prev_row, prev_col);
#else
txb_cache->nz_count_arr[coeff_idx] =
get_nz_count(qcoeff, bwl, height, row, col
#if CONFIG_EOB_FIRST
,
get_tx_class(txb_info->tx_type)
#endif
,
0);
#endif
const int nz_count = txb_cache->nz_count_arr[coeff_idx];
txb_cache->nz_ctx_arr[coeff_idx] =
get_nz_map_ctx_from_count(nz_count, coeff_idx, bwl,
#if CONFIG_EOB_FIRST
height,
#endif
txb_info->tx_type);
// gen_base_count_mag_arr
if (!has_base(qcoeff[coeff_idx], 0)) continue;
int *base_mag = txb_cache->base_mag_arr[coeff_idx];
int count[NUM_BASE_LEVELS];
get_base_count_mag(base_mag, count, qcoeff, bwl, height, row, col);
for (int i = 0; i < NUM_BASE_LEVELS; ++i) {
if (!has_base(qcoeff[coeff_idx], i)) break;
txb_cache->base_count_arr[i][coeff_idx] = count[i];
const int level = i + 1;
txb_cache->base_ctx_arr[i][coeff_idx] =
base_ctx_table[row != 0][col != 0][base_mag[0] > level][count[i]];
}
// gen_br_count_mag_arr
if (!has_br(qcoeff[coeff_idx])) continue;
int *br_count = txb_cache->br_count_arr + coeff_idx;
int *br_mag = txb_cache->br_mag_arr[coeff_idx];
*br_count = get_br_count_mag(br_mag, qcoeff, bwl, height, row, col,
NUM_BASE_LEVELS);
txb_cache->br_ctx_arr[coeff_idx] =
get_br_ctx_from_count_mag(row, col, *br_count, br_mag[0]);
}
}
static INLINE const int *get_level_prob(int level, int coeff_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs) {
if (level == 0) {
const int ctx = txb_cache->nz_ctx_arr[coeff_idx];
return txb_costs->nz_map_cost[ctx];
} else if (level >= 1 && level < 1 + NUM_BASE_LEVELS) {
const int idx = level - 1;
const int ctx = txb_cache->base_ctx_arr[idx][coeff_idx];
return txb_costs->base_cost[idx][ctx];
} else if (level >= 1 + NUM_BASE_LEVELS &&
level < 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
const int ctx = txb_cache->br_ctx_arr[coeff_idx];
return txb_costs->lps_cost[ctx];
} else if (level >= 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
printf("get_level_prob does not support golomb\n");
assert(0);
return 0;
} else {
assert(0);
return 0;
}
}
static INLINE void update_mag_arr(int *mag_arr, int abs_qc) {
if (mag_arr[0] == abs_qc) {
mag_arr[1] -= 1;
assert(mag_arr[1] >= 0);
}
}
static INLINE int get_mag_from_mag_arr(const int *mag_arr) {
int mag;
if (mag_arr[1] > 0) {
mag = mag_arr[0];
} else if (mag_arr[0] > 0) {
mag = mag_arr[0] - 1;
} else {
// no neighbor
assert(mag_arr[0] == 0 && mag_arr[1] == 0);
mag = 0;
}
return mag;
}
static int neighbor_level_down_update(int *new_count, int *new_mag, int count,
const int *mag, int coeff_idx,
tran_low_t abs_nb_coeff, int nb_coeff_idx,
int level, const TxbInfo *txb_info) {
*new_count = count;
*new_mag = get_mag_from_mag_arr(mag);
int update = 0;
// check if br_count changes
if (abs_nb_coeff == level) {
update = 1;
*new_count -= 1;
assert(*new_count >= 0);
}
const int row = coeff_idx >> txb_info->bwl;
const int col = coeff_idx - (row << txb_info->bwl);
const int nb_row = nb_coeff_idx >> txb_info->bwl;
const int nb_col = nb_coeff_idx - (nb_row << txb_info->bwl);
// check if mag changes
if (nb_row >= row && nb_col >= col) {
if (abs_nb_coeff == mag[0]) {
assert(mag[1] > 0);
if (mag[1] == 1) {
// the nb is the only qc with max mag
*new_mag -= 1;
assert(*new_mag >= 0);
update = 1;
}
}
}
return update;
}
static int try_neighbor_level_down_br(int coeff_idx, int nb_coeff_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
const TxbInfo *txb_info) {
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const tran_low_t abs_qc = abs(qc);
const int level = NUM_BASE_LEVELS + 1;
if (abs_qc < level) return 0;
const tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
const tran_low_t abs_nb_coeff = abs(nb_coeff);
const int count = txb_cache->br_count_arr[coeff_idx];
const int *mag = txb_cache->br_mag_arr[coeff_idx];
int new_count;
int new_mag;
const int update =
neighbor_level_down_update(&new_count, &new_mag, count, mag, coeff_idx,
abs_nb_coeff, nb_coeff_idx, level, txb_info);
if (update) {
const int row = coeff_idx >> txb_info->bwl;
const int col = coeff_idx - (row << txb_info->bwl);
const int ctx = txb_cache->br_ctx_arr[coeff_idx];
const int org_cost = get_br_cost(abs_qc, ctx, txb_costs->lps_cost[ctx]);
const int new_ctx = get_br_ctx_from_count_mag(row, col, new_count, new_mag);
const int new_cost =
get_br_cost(abs_qc, new_ctx, txb_costs->lps_cost[new_ctx]);
const int cost_diff = -org_cost + new_cost;
return cost_diff;
} else {
return 0;
}
}
static int try_neighbor_level_down_base(int coeff_idx, int nb_coeff_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
const TxbInfo *txb_info) {
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const tran_low_t abs_qc = abs(qc);
const BASE_CTX_TABLE *base_ctx_table =
txb_info->coeff_ctx_table->base_ctx_table;
int cost_diff = 0;
for (int base_idx = 0; base_idx < NUM_BASE_LEVELS; ++base_idx) {
const int level = base_idx + 1;
if (abs_qc < level) continue;
const tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
const tran_low_t abs_nb_coeff = abs(nb_coeff);
const int count = txb_cache->base_count_arr[base_idx][coeff_idx];
const int *mag = txb_cache->base_mag_arr[coeff_idx];
int new_count;
int new_mag;
const int update =
neighbor_level_down_update(&new_count, &new_mag, count, mag, coeff_idx,
abs_nb_coeff, nb_coeff_idx, level, txb_info);
if (update) {
const int row = coeff_idx >> txb_info->bwl;
const int col = coeff_idx - (row << txb_info->bwl);
const int ctx = txb_cache->base_ctx_arr[base_idx][coeff_idx];
const int org_cost = get_base_cost(
abs_qc, ctx, txb_costs->base_cost[base_idx][ctx], base_idx);
const int new_ctx =
base_ctx_table[row != 0][col != 0][new_mag > level][new_count];
const int new_cost = get_base_cost(
abs_qc, new_ctx, txb_costs->base_cost[base_idx][new_ctx], base_idx);
cost_diff += -org_cost + new_cost;
}
}
return cost_diff;
}
static int try_neighbor_level_down_nz(int coeff_idx, int nb_coeff_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info) {
// assume eob doesn't change
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const tran_low_t abs_qc = abs(qc);
const tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
const tran_low_t abs_nb_coeff = abs(nb_coeff);
if (abs_nb_coeff != 1) return 0;
const int16_t *iscan = txb_info->scan_order->iscan;
const int scan_idx = iscan[coeff_idx];
if (scan_idx == txb_info->seg_eob) return 0;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < scan_idx) {
const int count = txb_cache->nz_count_arr[coeff_idx];
assert(count > 0);
txb_info->qcoeff[nb_coeff_idx] = get_lower_coeff(nb_coeff);
const int new_ctx =
get_nz_map_ctx_from_count(count - 1, coeff_idx, txb_info->bwl,
#if CONFIG_EOB_FIRST
txb_info->height,
#endif
txb_info->tx_type);
txb_info->qcoeff[nb_coeff_idx] = nb_coeff;
const int ctx = txb_cache->nz_ctx_arr[coeff_idx];
const int is_nz = abs_qc > 0;
const int org_cost = txb_costs->nz_map_cost[ctx][is_nz];
const int new_cost = txb_costs->nz_map_cost[new_ctx][is_nz];
const int cost_diff = new_cost - org_cost;
return cost_diff;
} else {
return 0;
}
}
static int try_self_level_down(tran_low_t *low_coeff, int coeff_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info) {
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
if (qc == 0) {
*low_coeff = 0;
return 0;
}
const tran_low_t abs_qc = abs(qc);
*low_coeff = get_lower_coeff(qc);
int cost_diff;
if (*low_coeff == 0) {
const int scan_idx = txb_info->scan_order->iscan[coeff_idx];
const int *level_cost =
get_level_prob(abs_qc, coeff_idx, txb_cache, txb_costs);
const int *low_level_cost =
get_level_prob(abs(*low_coeff), coeff_idx, txb_cache, txb_costs);
#if CONFIG_EOB_FIRST
if (scan_idx < txb_info->eob - 1) {
#else
if (scan_idx < txb_info->seg_eob) {
#endif
// When level-0, we code the binary of abs_qc > level
// but when level-k k > 0 we code the binary of abs_qc == level
// That's why wee need this special treatment for level-0 map
// TODO(angiebird): make leve-0 consistent to other levels
cost_diff = -level_cost[1] + low_level_cost[0] - low_level_cost[1];
} else {
cost_diff = -level_cost[1];
}
#if !CONFIG_EOB_FIRST
if (scan_idx < txb_info->seg_eob) {
const int eob_ctx =
get_eob_ctx(coeff_idx, txb_info->txs_ctx, txb_info->tx_type);
cost_diff -=
txb_costs->eob_cost[eob_ctx][scan_idx == (txb_info->eob - 1)];
}
#endif
const int sign_cost = get_sign_bit_cost(
qc, coeff_idx, txb_costs->dc_sign_cost, txb_info->txb_ctx->dc_sign_ctx);
cost_diff -= sign_cost;
} else if (abs_qc <= NUM_BASE_LEVELS) {
const int *level_cost =
get_level_prob(abs_qc, coeff_idx, txb_cache, txb_costs);
const int *low_level_cost =
get_level_prob(abs(*low_coeff), coeff_idx, txb_cache, txb_costs);
cost_diff = -level_cost[1] + low_level_cost[1] - low_level_cost[0];
} else if (abs_qc == NUM_BASE_LEVELS + 1) {
const int *level_cost =
get_level_prob(abs_qc, coeff_idx, txb_cache, txb_costs);
const int *low_level_cost =
get_level_prob(abs(*low_coeff), coeff_idx, txb_cache, txb_costs);
#if BR_NODE
cost_diff = -level_cost[0] + low_level_cost[1] - low_level_cost[0];
#else
cost_diff = -level_cost[1] + low_level_cost[1] - low_level_cost[0];
#endif
} else if (abs_qc < 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
const int *level_cost =
get_level_prob(abs_qc, coeff_idx, txb_cache, txb_costs);
const int *low_level_cost =
get_level_prob(abs(*low_coeff), coeff_idx, txb_cache, txb_costs);
#if BR_NODE
cost_diff = -level_cost[abs_qc - 1 - NUM_BASE_LEVELS] +
low_level_cost[abs(*low_coeff) - 1 - NUM_BASE_LEVELS];
#else
cost_diff = -level_cost[1] + low_level_cost[1] - low_level_cost[0];
#endif
} else if (abs_qc == 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE) {
const int *low_level_cost =
get_level_prob(abs(*low_coeff), coeff_idx, txb_cache, txb_costs);
#if BR_NODE
cost_diff = -get_golomb_cost(abs_qc) - low_level_cost[COEFF_BASE_RANGE] +
low_level_cost[COEFF_BASE_RANGE - 1];
#else
cost_diff =
-get_golomb_cost(abs_qc) + low_level_cost[1] - low_level_cost[0];
#endif
} else {
assert(abs_qc > 1 + NUM_BASE_LEVELS + COEFF_BASE_RANGE);
const tran_low_t abs_low_coeff = abs(*low_coeff);
cost_diff = -get_golomb_cost(abs_qc) + get_golomb_cost(abs_low_coeff);
}
return cost_diff;
}
#define COST_MAP_SIZE 5
#define COST_MAP_OFFSET 2
static INLINE int check_nz_neighbor(tran_low_t qc) { return abs(qc) == 1; }
static INLINE int check_base_neighbor(tran_low_t qc) {
return abs(qc) <= 1 + NUM_BASE_LEVELS;
}
static INLINE int check_br_neighbor(tran_low_t qc) {
return abs(qc) > BR_MAG_OFFSET;
}
#define FAST_OPTIMIZE_TXB 1
#if FAST_OPTIMIZE_TXB
#define ALNB_REF_OFFSET_NUM 2
static int alnb_ref_offset[ALNB_REF_OFFSET_NUM][2] = {
{ -1, 0 }, { 0, -1 },
};
#define NB_REF_OFFSET_NUM 4
static int nb_ref_offset[NB_REF_OFFSET_NUM][2] = {
{ -1, 0 }, { 0, -1 }, { 1, 0 }, { 0, 1 },
};
#endif // FAST_OPTIMIZE_TXB
// TODO(angiebird): add static to this function once it's called
int try_level_down(int coeff_idx, const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs, TxbInfo *txb_info,
int (*cost_map)[COST_MAP_SIZE], int fast_mode) {
#if !FAST_OPTIMIZE_TXB
(void)fast_mode;
#endif
if (cost_map) {
for (int i = 0; i < COST_MAP_SIZE; ++i) av1_zero(cost_map[i]);
}
tran_low_t qc = txb_info->qcoeff[coeff_idx];
tran_low_t low_coeff;
if (qc == 0) return 0;
int accu_cost_diff = 0;
const int16_t *iscan = txb_info->scan_order->iscan;
const int eob = txb_info->eob;
const int scan_idx = iscan[coeff_idx];
if (scan_idx < eob) {
const int cost_diff = try_self_level_down(&low_coeff, coeff_idx, txb_cache,
txb_costs, txb_info);
if (cost_map)
cost_map[0 + COST_MAP_OFFSET][0 + COST_MAP_OFFSET] = cost_diff;
accu_cost_diff += cost_diff;
}
const int row = coeff_idx >> txb_info->bwl;
const int col = coeff_idx - (row << txb_info->bwl);
if (check_nz_neighbor(qc)) {
#if FAST_OPTIMIZE_TXB
int(*ref_offset)[2];
int ref_num;
if (fast_mode) {
ref_offset = alnb_ref_offset;
ref_num = ALNB_REF_OFFSET_NUM;
} else {
ref_offset = sig_ref_offset;
ref_num = SIG_REF_OFFSET_NUM;
}
#else
int(*ref_offset)[2] = sig_ref_offset;
const int ref_num = SIG_REF_OFFSET_NUM;
#endif
for (int i = 0; i < ref_num; ++i) {
const int nb_row = row - ref_offset[i][0];
const int nb_col = col - ref_offset[i][1];
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
if (nb_row < 0 || nb_col < 0 || nb_row >= txb_info->height ||
nb_col >= txb_info->stride)
continue;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < eob) {
const int cost_diff = try_neighbor_level_down_nz(
nb_coeff_idx, coeff_idx, txb_cache, txb_costs, txb_info);
if (cost_map)
cost_map[nb_row - row + COST_MAP_OFFSET]
[nb_col - col + COST_MAP_OFFSET] += cost_diff;
accu_cost_diff += cost_diff;
}
}
}
if (check_base_neighbor(qc)) {
#if FAST_OPTIMIZE_TXB
int(*ref_offset)[2];
int ref_num;
if (fast_mode) {
ref_offset = nb_ref_offset;
ref_num = NB_REF_OFFSET_NUM;
} else {
ref_offset = base_ref_offset;
ref_num = BASE_CONTEXT_POSITION_NUM;
}
#else
const int(*ref_offset)[2] = base_ref_offset;
int ref_num = BASE_CONTEXT_POSITION_NUM;
#endif
for (int i = 0; i < ref_num; ++i) {
const int nb_row = row - ref_offset[i][0];
const int nb_col = col - ref_offset[i][1];
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
if (nb_row < 0 || nb_col < 0 || nb_row >= txb_info->height ||
nb_col >= txb_info->stride)
continue;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < eob) {
const int cost_diff = try_neighbor_level_down_base(
nb_coeff_idx, coeff_idx, txb_cache, txb_costs, txb_info);
if (cost_map)
cost_map[nb_row - row + COST_MAP_OFFSET]
[nb_col - col + COST_MAP_OFFSET] += cost_diff;
accu_cost_diff += cost_diff;
}
}
}
if (check_br_neighbor(qc)) {
#if FAST_OPTIMIZE_TXB
int(*ref_offset)[2];
int ref_num;
if (fast_mode) {
ref_offset = nb_ref_offset;
ref_num = NB_REF_OFFSET_NUM;
} else {
ref_offset = br_ref_offset;
ref_num = BR_CONTEXT_POSITION_NUM;
}
#else
const int(*ref_offset)[2] = br_ref_offset;
const int ref_num = BR_CONTEXT_POSITION_NUM;
#endif
for (int i = 0; i < ref_num; ++i) {
const int nb_row = row - ref_offset[i][0];
const int nb_col = col - ref_offset[i][1];
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
if (nb_row < 0 || nb_col < 0 || nb_row >= txb_info->height ||
nb_col >= txb_info->stride)
continue;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < eob) {
const int cost_diff = try_neighbor_level_down_br(
nb_coeff_idx, coeff_idx, txb_cache, txb_costs, txb_info);
if (cost_map)
cost_map[nb_row - row + COST_MAP_OFFSET]
[nb_col - col + COST_MAP_OFFSET] += cost_diff;
accu_cost_diff += cost_diff;
}
}
}
return accu_cost_diff;
}
static int get_low_coeff_cost(int coeff_idx, const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
const TxbInfo *txb_info) {
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const int abs_qc = abs(qc);
assert(abs_qc <= 1);
int cost = 0;
const int scan_idx = txb_info->scan_order->iscan[coeff_idx];
#if CONFIG_EOB_FIRST
if (scan_idx < txb_info->eob - 1) {
#else
if (scan_idx < txb_info->seg_eob) {
#endif
const int *level_cost = get_level_prob(0, coeff_idx, txb_cache, txb_costs);
cost += level_cost[qc != 0];
}
if (qc != 0) {
const int base_idx = 0;
const int ctx = txb_cache->base_ctx_arr[base_idx][coeff_idx];
cost += get_base_cost(abs_qc, ctx, txb_costs->base_cost[base_idx][ctx],
base_idx);
#if !CONFIG_EOB_FIRST
if (scan_idx < txb_info->seg_eob) {
const int eob_ctx =
get_eob_ctx(coeff_idx, txb_info->txs_ctx, txb_info->tx_type);
cost += txb_costs->eob_cost[eob_ctx][scan_idx == (txb_info->eob - 1)];
}
#endif
cost += get_sign_bit_cost(qc, coeff_idx, txb_costs->dc_sign_cost,
txb_info->txb_ctx->dc_sign_ctx);
}
return cost;
}
static INLINE void set_eob(TxbInfo *txb_info, int eob) {
txb_info->eob = eob;
#if CONFIG_EOB_FIRST
txb_info->seg_eob = tx_size_2d[txb_info->tx_size];
#else
txb_info->seg_eob = AOMMIN(eob, tx_size_2d[txb_info->tx_size] - 1);
#endif
}
// TODO(angiebird): add static to this function once it's called
int try_change_eob(int *new_eob, int coeff_idx, const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs, TxbInfo *txb_info,
int fast_mode) {
assert(txb_info->eob > 0);
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const int abs_qc = abs(qc);
if (abs_qc != 1) {
*new_eob = -1;
return 0;
}
const int16_t *iscan = txb_info->scan_order->iscan;
const int16_t *scan = txb_info->scan_order->scan;
const int scan_idx = iscan[coeff_idx];
*new_eob = 0;
int cost_diff = 0;
cost_diff -= get_low_coeff_cost(coeff_idx, txb_cache, txb_costs, txb_info);
// int coeff_cost =
// get_coeff_cost(qc, scan_idx, txb_info, txb_probs);
// if (-cost_diff != coeff_cost) {
// printf("-cost_diff %d coeff_cost %d\n", -cost_diff, coeff_cost);
// get_low_coeff_cost(coeff_idx, txb_cache, txb_probs, txb_info);
// get_coeff_cost(qc, scan_idx, txb_info, txb_probs);
// }
for (int si = scan_idx - 1; si >= 0; --si) {
const int ci = scan[si];
if (txb_info->qcoeff[ci] != 0) {
*new_eob = si + 1;
break;
} else {
cost_diff -= get_low_coeff_cost(ci, txb_cache, txb_costs, txb_info);
}
}
const int org_eob = txb_info->eob;
set_eob(txb_info, *new_eob);
cost_diff += try_level_down(coeff_idx, txb_cache, txb_costs, txb_info, NULL,
fast_mode);
set_eob(txb_info, org_eob);
if (*new_eob > 0) {
// Note that get_eob_ctx does NOT actually account for qcoeff, so we don't
// need to lower down the qcoeff here
const int eob_ctx =
get_eob_ctx(scan[*new_eob - 1], txb_info->txs_ctx, txb_info->tx_type);
cost_diff -= txb_costs->eob_cost[eob_ctx][0];
cost_diff += txb_costs->eob_cost[eob_ctx][1];
} else {
const int txb_skip_ctx = txb_info->txb_ctx->txb_skip_ctx;
cost_diff -= txb_costs->txb_skip_cost[txb_skip_ctx][0];
cost_diff += txb_costs->txb_skip_cost[txb_skip_ctx][1];
}
return cost_diff;
}
// TODO(angiebird): add static to this function it's called
void update_level_down(int coeff_idx, TxbCache *txb_cache, TxbInfo *txb_info) {
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
const int abs_qc = abs(qc);
if (qc == 0) return;
const tran_low_t low_coeff = get_lower_coeff(qc);
txb_info->qcoeff[coeff_idx] = low_coeff;
const int dqv = txb_info->dequant[coeff_idx != 0];
txb_info->dqcoeff[coeff_idx] =
qcoeff_to_dqcoeff(low_coeff, dqv, txb_info->shift);
const int row = coeff_idx >> txb_info->bwl;
const int col = coeff_idx - (row << txb_info->bwl);
const int eob = txb_info->eob;
const int16_t *iscan = txb_info->scan_order->iscan;
for (int i = 0; i < SIG_REF_OFFSET_NUM; ++i) {
const int nb_row = row - sig_ref_offset[i][0];
const int nb_col = col - sig_ref_offset[i][1];
if (!(nb_row >= 0 && nb_col >= 0 && nb_row < txb_info->height &&
nb_col < txb_info->stride))
continue;
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < eob) {
const int scan_idx = iscan[coeff_idx];
if (scan_idx < nb_scan_idx) {
const int level = 1;
if (abs_qc == level) {
txb_cache->nz_count_arr[nb_coeff_idx] -= 1;
assert(txb_cache->nz_count_arr[nb_coeff_idx] >= 0);
}
const int count = txb_cache->nz_count_arr[nb_coeff_idx];
txb_cache->nz_ctx_arr[nb_coeff_idx] =
get_nz_map_ctx_from_count(count, nb_coeff_idx, txb_info->bwl,
#if CONFIG_EOB_FIRST
txb_info->height,
#endif
txb_info->tx_type);
// int ref_ctx = get_nz_map_ctx(txb_info->qcoeff, nb_coeff_idx,
// txb_info->bwl, tx_type, 0);
// if (ref_ctx != txb_cache->nz_ctx_arr[nb_coeff_idx])
// printf("nz ctx %d ref_ctx %d\n",
// txb_cache->nz_ctx_arr[nb_coeff_idx], ref_ctx);
}
}
}
const BASE_CTX_TABLE *base_ctx_table =
txb_info->coeff_ctx_table->base_ctx_table;
for (int i = 0; i < BASE_CONTEXT_POSITION_NUM; ++i) {
const int nb_row = row - base_ref_offset[i][0];
const int nb_col = col - base_ref_offset[i][1];
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
if (!(nb_row >= 0 && nb_col >= 0 && nb_row < txb_info->height &&
nb_col < txb_info->stride))
continue;
const tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
if (!has_base(nb_coeff, 0)) continue;
const int nb_scan_idx = iscan[nb_coeff_idx];
if (nb_scan_idx < eob) {
if (row >= nb_row && col >= nb_col)
update_mag_arr(txb_cache->base_mag_arr[nb_coeff_idx], abs_qc);
const int mag =
get_mag_from_mag_arr(txb_cache->base_mag_arr[nb_coeff_idx]);
for (int base_idx = 0; base_idx < NUM_BASE_LEVELS; ++base_idx) {
if (!has_base(nb_coeff, base_idx)) continue;
const int level = base_idx + 1;
if (abs_qc == level) {
txb_cache->base_count_arr[base_idx][nb_coeff_idx] -= 1;
assert(txb_cache->base_count_arr[base_idx][nb_coeff_idx] >= 0);
}
const int count = txb_cache->base_count_arr[base_idx][nb_coeff_idx];
txb_cache->base_ctx_arr[base_idx][nb_coeff_idx] =
base_ctx_table[nb_row != 0][nb_col != 0][mag > level][count];
// int ref_ctx = get_base_ctx(txb_info->qcoeff, nb_coeff_idx,
// txb_info->bwl, level);
// if (ref_ctx != txb_cache->base_ctx_arr[base_idx][nb_coeff_idx]) {
// printf("base ctx %d ref_ctx %d\n",
// txb_cache->base_ctx_arr[base_idx][nb_coeff_idx], ref_ctx);
// }
}
}
}
for (int i = 0; i < BR_CONTEXT_POSITION_NUM; ++i) {
const int nb_row = row - br_ref_offset[i][0];
const int nb_col = col - br_ref_offset[i][1];
const int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
if (!(nb_row >= 0 && nb_col >= 0 && nb_row < txb_info->height &&
nb_col < txb_info->stride))
continue;
const int nb_scan_idx = iscan[nb_coeff_idx];
const tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
if (!has_br(nb_coeff)) continue;
if (nb_scan_idx < eob) {
const int level = 1 + NUM_BASE_LEVELS;
if (abs_qc == level) {
txb_cache->br_count_arr[nb_coeff_idx] -= 1;
assert(txb_cache->br_count_arr[nb_coeff_idx] >= 0);
}
if (row >= nb_row && col >= nb_col)
update_mag_arr(txb_cache->br_mag_arr[nb_coeff_idx], abs_qc);
const int count = txb_cache->br_count_arr[nb_coeff_idx];
const int mag = get_mag_from_mag_arr(txb_cache->br_mag_arr[nb_coeff_idx]);
txb_cache->br_ctx_arr[nb_coeff_idx] =
get_br_ctx_from_count_mag(nb_row, nb_col, count, mag);
// int ref_ctx = get_level_ctx(txb_info->qcoeff, nb_coeff_idx,
// txb_info->bwl);
// if (ref_ctx != txb_cache->br_ctx_arr[nb_coeff_idx]) {
// printf("base ctx %d ref_ctx %d\n",
// txb_cache->br_ctx_arr[nb_coeff_idx], ref_ctx);
// }
}
}
}
int get_coeff_cost(tran_low_t qc, int scan_idx, TxbInfo *txb_info,
const LV_MAP_COEFF_COST *txb_costs) {
const TXB_CTX *txb_ctx = txb_info->txb_ctx;
const int is_nz = (qc != 0);
const tran_low_t abs_qc = abs(qc);
int cost = 0;
const int16_t *scan = txb_info->scan_order->scan;
#if CONFIG_EOB_FIRST
if (scan_idx < txb_info->eob - 1) {
#else
if (scan_idx < txb_info->seg_eob) {
#endif
int coeff_ctx =
get_nz_map_ctx(txb_info->qcoeff, scan_idx, scan, txb_info->bwl,
txb_info->height, txb_info->tx_type, 0);
cost += txb_costs->nz_map_cost[coeff_ctx][is_nz];
}
if (is_nz) {
cost += get_sign_bit_cost(qc, scan_idx, txb_costs->dc_sign_cost,
txb_ctx->dc_sign_ctx);
int ctx_ls[NUM_BASE_LEVELS] = { 0 };
get_base_ctx_set(txb_info->qcoeff, scan[scan_idx], txb_info->bwl,
txb_info->height, ctx_ls);
int i;
for (i = 0; i < NUM_BASE_LEVELS; ++i) {
cost += get_base_cost(abs_qc, ctx_ls[i],
txb_costs->base_cost[i][ctx_ls[i]], i);
}
if (abs_qc > NUM_BASE_LEVELS) {
int ctx = get_br_ctx_coeff(txb_info->qcoeff, scan[scan_idx],
txb_info->bwl, txb_info->height);
cost += get_br_cost(abs_qc, ctx, txb_costs->lps_cost[ctx]);
cost += get_golomb_cost(abs_qc);
}
#if !CONFIG_EOB_FIRST
if (scan_idx < txb_info->seg_eob) {
int eob_ctx =
get_eob_ctx(scan[scan_idx], txb_info->txs_ctx, txb_info->tx_type);
cost += txb_costs->eob_cost[eob_ctx][scan_idx == (txb_info->eob - 1)];
}
#endif
}
return cost;
}
#if TEST_OPTIMIZE_TXB
#define ALL_REF_OFFSET_NUM 17
static int all_ref_offset[ALL_REF_OFFSET_NUM][2] = {
{ 0, 0 }, { -2, -1 }, { -2, 0 }, { -2, 1 }, { -1, -2 }, { -1, -1 },
{ -1, 0 }, { -1, 1 }, { 0, -2 }, { 0, -1 }, { 1, -2 }, { 1, -1 },
{ 1, 0 }, { 2, 0 }, { 0, 1 }, { 0, 2 }, { 1, 1 },
};
static int try_level_down_ref(int coeff_idx, const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info,
int (*cost_map)[COST_MAP_SIZE]) {
if (cost_map) {
for (int i = 0; i < COST_MAP_SIZE; ++i) av1_zero(cost_map[i]);
}
tran_low_t qc = txb_info->qcoeff[coeff_idx];
if (qc == 0) return 0;
int row = coeff_idx >> txb_info->bwl;
int col = coeff_idx - (row << txb_info->bwl);
int org_cost = 0;
for (int i = 0; i < ALL_REF_OFFSET_NUM; ++i) {
int nb_row = row - all_ref_offset[i][0];
int nb_col = col - all_ref_offset[i][1];
int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
int nb_scan_idx = txb_info->scan_order->iscan[nb_coeff_idx];
if (nb_scan_idx < txb_info->eob && nb_row >= 0 && nb_col >= 0 &&
nb_row < txb_info->height && nb_col < txb_info->stride) {
tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
int cost = get_coeff_cost(nb_coeff, nb_scan_idx, txb_info, txb_costs);
if (cost_map)
cost_map[nb_row - row + COST_MAP_OFFSET]
[nb_col - col + COST_MAP_OFFSET] -= cost;
org_cost += cost;
}
}
txb_info->qcoeff[coeff_idx] = get_lower_coeff(qc);
int new_cost = 0;
for (int i = 0; i < ALL_REF_OFFSET_NUM; ++i) {
int nb_row = row - all_ref_offset[i][0];
int nb_col = col - all_ref_offset[i][1];
int nb_coeff_idx = nb_row * txb_info->stride + nb_col;
int nb_scan_idx = txb_info->scan_order->iscan[nb_coeff_idx];
if (nb_scan_idx < txb_info->eob && nb_row >= 0 && nb_col >= 0 &&
nb_row < txb_info->height && nb_col < txb_info->stride) {
tran_low_t nb_coeff = txb_info->qcoeff[nb_coeff_idx];
int cost = get_coeff_cost(nb_coeff, nb_scan_idx, txb_info, txb_costs);
if (cost_map)
cost_map[nb_row - row + COST_MAP_OFFSET]
[nb_col - col + COST_MAP_OFFSET] += cost;
new_cost += cost;
}
}
txb_info->qcoeff[coeff_idx] = qc;
return new_cost - org_cost;
}
static void test_level_down(int coeff_idx, const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info) {
int cost_map[COST_MAP_SIZE][COST_MAP_SIZE];
int ref_cost_map[COST_MAP_SIZE][COST_MAP_SIZE];
const int cost_diff =
try_level_down(coeff_idx, txb_cache, txb_costs, txb_info, cost_map, 0);
const int cost_diff_ref =
try_level_down_ref(coeff_idx, txb_costs, txb_info, ref_cost_map);
if (cost_diff != cost_diff_ref) {
printf("qc %d cost_diff %d cost_diff_ref %d\n", txb_info->qcoeff[coeff_idx],
cost_diff, cost_diff_ref);
for (int r = 0; r < COST_MAP_SIZE; ++r) {
for (int c = 0; c < COST_MAP_SIZE; ++c) {
printf("%d:%d ", cost_map[r][c], ref_cost_map[r][c]);
}
printf("\n");
}
}
}
#endif
// TODO(angiebird): make this static once it's called
int get_txb_cost(TxbInfo *txb_info, const LV_MAP_COEFF_COST *txb_costs) {
int cost = 0;
int txb_skip_ctx = txb_info->txb_ctx->txb_skip_ctx;
const int16_t *scan = txb_info->scan_order->scan;
if (txb_info->eob == 0) {
cost = txb_costs->txb_skip_cost[txb_skip_ctx][1];
return cost;
}
cost = txb_costs->txb_skip_cost[txb_skip_ctx][0];
for (int c = 0; c < txb_info->eob; ++c) {
tran_low_t qc = txb_info->qcoeff[scan[c]];
int coeff_cost = get_coeff_cost(qc, c, txb_info, txb_costs);
cost += coeff_cost;
}
return cost;
}
#if TEST_OPTIMIZE_TXB
void test_try_change_eob(TxbInfo *txb_info, const LV_MAP_COEFF_COST *txb_costs,
TxbCache *txb_cache) {
int eob = txb_info->eob;
const int16_t *scan = txb_info->scan_order->scan;
if (eob > 0) {
int last_si = eob - 1;
int last_ci = scan[last_si];
int last_coeff = txb_info->qcoeff[last_ci];
if (abs(last_coeff) == 1) {
int new_eob;
int cost_diff =
try_change_eob(&new_eob, last_ci, txb_cache, txb_costs, txb_info, 0);
int org_eob = txb_info->eob;
int cost = get_txb_cost(txb_info, txb_costs);
txb_info->qcoeff[last_ci] = get_lower_coeff(last_coeff);
set_eob(txb_info, new_eob);
int new_cost = get_txb_cost(txb_info, txb_costs);
set_eob(txb_info, org_eob);
txb_info->qcoeff[last_ci] = last_coeff;
int ref_cost_diff = -cost + new_cost;
if (cost_diff != ref_cost_diff)
printf("org_eob %d new_eob %d cost_diff %d ref_cost_diff %d\n", org_eob,
new_eob, cost_diff, ref_cost_diff);
}
}
}
#endif
void try_level_down_facade(LevelDownStats *stats, int scan_idx,
const TxbCache *txb_cache,
const LV_MAP_COEFF_COST *txb_costs,
TxbInfo *txb_info, int fast_mode) {
const int16_t *scan = txb_info->scan_order->scan;
const int coeff_idx = scan[scan_idx];
const tran_low_t qc = txb_info->qcoeff[coeff_idx];
stats->new_eob = -1;
stats->update = 0;
if (qc == 0) {
return;
}
const tran_low_t tqc = txb_info->tcoeff[coeff_idx];
const int dqv = txb_info->dequant[coeff_idx != 0];
const tran_low_t dqc = qcoeff_to_dqcoeff(qc, dqv, txb_info->shift);
if (scan_idx != txb_info->eob - 1)
if (abs(dqc) < abs(tqc)) return;
const int64_t dqc_dist = get_coeff_dist(tqc, dqc, txb_info->shift);
stats->low_qc = get_lower_coeff(qc);
stats->low_dqc = qcoeff_to_dqcoeff(stats->low_qc, dqv, txb_info->shift);
const int64_t low_dqc_dist =
get_coeff_dist(tqc, stats->low_dqc, txb_info->shift);
stats->dist_diff = -dqc_dist + low_dqc_dist;
stats->cost_diff = 0;
stats->new_eob = txb_info->eob;
if (scan_idx == txb_info->eob - 1 && abs(qc) == 1) {
stats->cost_diff = try_change_eob(&stats->new_eob, coeff_idx, txb_cache,
txb_costs, txb_info, fast_mode);
} else {
stats->cost_diff = try_level_down(coeff_idx, txb_cache, txb_costs, txb_info,
NULL, fast_mode);
#if TEST_OPTIMIZE_TXB
test_level_down(coeff_idx, txb_cache, txb_costs, txb_info);
#endif
}
stats->rd_diff = RDCOST(txb_info->rdmult, stats->cost_diff, stats->dist_diff);
if (stats->rd_diff < 0) stats->update = 1;
return;
}
#if CONFIG_EOB_FIRST
static int optimize_txb(TxbInfo *txb_info, const LV_MAP_COEFF_COST *txb_costs,
TxbCache *txb_cache, int dry_run, int fast_mode) {
(void)fast_mode;
(void)txb_cache;
int update = 0;
if (txb_info->eob == 0) return update;
const int max_eob = tx_size_2d[txb_info->tx_size];
#if TEST_OPTIMIZE_TXB
int64_t sse;
int64_t org_dist =
av1_block_error_c(txb_info->tcoeff, txb_info->dqcoeff, max_eob, &sse) *
(1 << (2 * txb_info->shift));
int org_cost = get_txb_cost(txb_info, txb_probs);
#endif
tran_low_t *org_qcoeff = txb_info->qcoeff;
tran_low_t *org_dqcoeff = txb_info->dqcoeff;
tran_low_t tmp_qcoeff[MAX_TX_SQUARE];
tran_low_t tmp_dqcoeff[MAX_TX_SQUARE];
const int org_eob = txb_info->eob;
if (dry_run) {
memcpy(tmp_qcoeff, org_qcoeff, sizeof(org_qcoeff[0]) * max_eob);
memcpy(tmp_dqcoeff, org_dqcoeff, sizeof(org_dqcoeff[0]) * max_eob);
txb_info->qcoeff = tmp_qcoeff;
txb_info->dqcoeff = tmp_dqcoeff;
}
const int16_t *scan = txb_info->scan_order->scan;
// forward optimize the nz_map`
const int init_eob = txb_info->eob;
const int seg_eob = txb_info->seg_eob;
int eob_cost = get_eob_cost(init_eob, seg_eob, txb_costs);
// backward optimize the level-k map
int64_t accu_rate = eob_cost;
int64_t accu_dist = 0;
int64_t prev_eob_rd_cost = INT64_MAX;
int64_t cur_eob_rd_cost = 0;
for (int si = init_eob - 1; si >= 0; --si) {
const int coeff_idx = scan[si];
tran_low_t qc = txb_info->qcoeff[coeff_idx];
LevelDownStats stats;
get_dist_cost_stats(&stats, si, txb_costs, txb_info);
if (qc == 0) {
accu_rate += stats.rate;
} else {
// check if it is better to make this the last significant coefficient
int cur_eob_rate = get_eob_cost(si + 1, seg_eob, txb_costs);
cur_eob_rd_cost = RDCOST(txb_info->rdmult, cur_eob_rate, 0);
prev_eob_rd_cost =
RDCOST(txb_info->rdmult, accu_rate + stats.nz_rate, accu_dist);
if (cur_eob_rd_cost <= prev_eob_rd_cost) {
update = 1;
for (int j = si + 1; j < txb_info->eob; j++) {
const int coeff_pos_j = scan[j];
update_coeff(coeff_pos_j, 0, txb_info);
}
txb_info->eob = si + 1;
accu_rate = cur_eob_rate;
accu_dist = 0;
// rerun cost calculation due to change of eob
get_dist_cost_stats(&stats, si, txb_costs, txb_info);
}
int bUpdCoeff = 0;
if (stats.rd_low < stats.rd) {
if ((stats.low_qc != 0) || (si < txb_info->eob - 1)) {
bUpdCoeff = 1;
update = 1;
}
}
if (bUpdCoeff) {
update_coeff(coeff_idx, stats.low_qc, txb_info);
accu_rate += stats.rate_low;
accu_dist += stats.dist_low;
} else {
accu_rate += stats.rate;
accu_dist += stats.dist;
}
}
} // for (si)
int non_zero_blk_rate =
txb_costs->txb_skip_cost[txb_info->txb_ctx->txb_skip_ctx][0];
prev_eob_rd_cost =
RDCOST(txb_info->rdmult, accu_rate + non_zero_blk_rate, accu_dist);
int zero_blk_rate =
txb_costs->txb_skip_cost[txb_info->txb_ctx->txb_skip_ctx][1];
int64_t zero_blk_rd_cost = RDCOST(txb_info->rdmult, zero_blk_rate, 0);
if (zero_blk_rd_cost <= prev_eob_rd_cost) {
update = 1;
for (int j = 0; j < txb_info->eob; j++) {
const int coeff_pos_j = scan[j];
update_coeff(coeff_pos_j, 0, txb_info);
}
txb_info->eob = 0;
}
#if TEST_OPTIMIZE_TXB
int cost_diff = 0;
int64_t dist_diff = 0;
int64_t rd_diff = 0;
int64_t new_dist =
av1_block_error_c(txb_info->tcoeff, txb_info->dqcoeff, max_eob, &sse) *
(1 << (2 * txb_info->shift));
int new_cost = get_txb_cost(txb_info, txb_probs);
int64_t ref_dist_diff = new_dist - org_dist;
int ref_cost_diff = new_cost - org_cost;
if (cost_diff != ref_cost_diff || dist_diff != ref_dist_diff)
printf(
"overall rd_diff %ld\ncost_diff %d ref_cost_diff%d\ndist_diff %ld "
"ref_dist_diff %ld\neob %d new_eob %d\n\n",
rd_diff, cost_diff, ref_cost_diff, dist_diff, ref_dist_diff, org_eob,
txb_info->eob);
#endif
if (dry_run) {
txb_info->qcoeff = org_qcoeff;
txb_info->dqcoeff = org_dqcoeff;
set_eob(txb_info, org_eob);
}
return update;
}
#else
static int optimize_txb(TxbInfo *txb_info, const LV_MAP_COEFF_COST *txb_costs,
TxbCache *txb_cache, int dry_run, int fast_mode) {
int update = 0;
if (txb_info->eob == 0) return update;
int cost_diff = 0;
int64_t dist_diff = 0;
int64_t rd_diff = 0;
const int max_eob = tx_size_2d[txb_info->tx_size];
#if TEST_OPTIMIZE_TXB
int64_t sse;
int64_t org_dist =
av1_block_error_c(txb_info->tcoeff, txb_info->dqcoeff, max_eob, &sse) *
(1 << (2 * txb_info->shift));
int org_cost = get_txb_cost(txb_info, txb_costs);
#endif
tran_low_t *org_qcoeff = txb_info->qcoeff;
tran_low_t *org_dqcoeff = txb_info->dqcoeff;
tran_low_t tmp_qcoeff[MAX_TX_SQUARE];
tran_low_t tmp_dqcoeff[MAX_TX_SQUARE];
const int org_eob = txb_info->eob;
if (dry_run) {
memcpy(tmp_qcoeff, org_qcoeff, sizeof(org_qcoeff[0]) * max_eob);
memcpy(tmp_dqcoeff, org_dqcoeff, sizeof(org_dqcoeff[0]) * max_eob);
txb_info->qcoeff = tmp_qcoeff;
txb_info->dqcoeff = tmp_dqcoeff;
}
const int16_t *scan = txb_info->scan_order->scan;
// forward optimize the nz_map
const int cur_eob = txb_info->eob;
for (int si = 0; si < cur_eob; ++si) {
const int coeff_idx = scan[si];
tran_low_t qc = txb_info->qcoeff[coeff_idx];
if (abs(qc) == 1) {
LevelDownStats stats;
try_level_down_facade(&stats, si, txb_cache, txb_costs, txb_info,
fast_mode);
if (stats.update) {
update = 1;
cost_diff += stats.cost_diff;
dist_diff += stats.dist_diff;
rd_diff += stats.rd_diff;
update_level_down(coeff_idx, txb_cache, txb_info);
set_eob(txb_info, stats.new_eob);
}
}
}
// backward optimize the level-k map
int eob_fix = 0;
for (int si = txb_info->eob - 1; si >= 0; --si) {
const int coeff_idx = scan[si];
if (eob_fix == 1 && txb_info->qcoeff[coeff_idx] == 1) {
// when eob is fixed, there is not need to optimize again when
// abs(qc) == 1
continue;
}
LevelDownStats stats;
try_level_down_facade(&stats, si, txb_cache, txb_costs, txb_info,
fast_mode);
if (stats.update) {
#if TEST_OPTIMIZE_TXB
// printf("si %d low_qc %d cost_diff %d dist_diff %ld rd_diff %ld eob %d new_eob
// %d\n", si, stats.low_qc, stats.cost_diff, stats.dist_diff, stats.rd_diff,
// txb_info->eob, stats.new_eob);
#endif
update = 1;
cost_diff += stats.cost_diff;
dist_diff += stats.dist_diff;
rd_diff += stats.rd_diff;
update_level_down(coeff_idx, txb_cache, txb_info);
set_eob(txb_info, stats.new_eob);
}
if (