scummvm/scumm/smush/codec47.cpp

/* ScummVM - Scumm Interpreter
 * Copyright (C) 2001/2002 The ScummVM project
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 * $Header$
 *
 */

#include <stdafx.h>
#include "scumm/scumm.h"
#include "engine.h"
#include "codec47.h"
#include "chunk.h"
#include "blitter.h"

static int32 codec37_table[] = {
       0,       1,       2,       3,       3,       3,
       3,       2,       1,       0,       0,       0,
       1,       2,       2,       1,       0,       0,
       0,       0,       1,       2,       3,       3,
       3,       3,       2,       1,       1,       1,
       2,       2,       0,       2,       5,       7,
       7,       7,       7,       7,       7,       5,
       2,       0,       0,       0,       0,       0,
       0,       0,       0,       0,       1,       3,
       4,       6,       7,       7,       7,       7,
       6,       4,       3,       1,      -1,       0,
       0,       0,       0,       0,       0,       1,
       2,       3,       5,       8,      13,      21,
   65535,   65534,   65533,   65531,   65528,   65523,
   65519,   65515,   65536,   65537,   65538,   65539,
   65541,   65544,   65549,   65557,  131071,  131070,
  131069,  131067,  131064,  131059,  131055,  131051,
  131072,  131073,  131074,  131075,  131077,  131080,
  131085,  131093,  196607,  196606,  196605,  196603,
  196600,  196595,  196591,  196587,  196608,  196609,
  196610,  196611,  196613,  196616,  196621,  196629,
  262143,  262142,  262141,  262139,  262136,  262131,
  262127,  262123,  327680,  327681,  327682,  327683,
  327685,  327688,  327693,  327701,  393215,  393214,
  393213,  393211,  393208,  393203,  393199,  393195,
  524288,  524289,  524290,  524291,  524293,  524296,
  524301,  524309,  589823,  589822,  589821,  589819,
  589816,  589811,  589807,  589803,  851968,  851969,
  851970,  851971,  851973,  851976,  851981,  851989,
  917503,  917502,  917501,  917499,  917496,  917491,
  917487,  917483, 1376256, 1376257, 1376258, 1376259,
 1376261, 1376264, 1376269, 1376277, 1441791, 1441790,
 1441789, 1441787, 1441784, 1441779, 1441775, 1441771,
  -65536,  -65535,  -65534,  -65533,  -65531,  -65528,
  -65523,  -65515,      -1,      -2,      -3,      -5,
      -8,     -13,     -17,     -21, -131072, -131071,
 -131070, -131069, -131067, -131064, -131059, -131051,
  -65537,  -65538,  -65539,  -65541,  -65544,  -65549,
  -65553,  -65557, -196608, -196607, -196606, -196605,
 -196603, -196600, -196595, -196587, -131073, -131074,
 -131075, -131077, -131080, -131085, -131089, -131093,
 -327680, -327679, -327678, -327677, -327675, -327672,
 -327667, -327659, -262145, -262146, -262147, -262149,
 -262152, -262157, -262161, -262165, -524288, -524287,
 -524286, -524285, -524283, -524280, -524275, -524267,
 -458753, -458754, -458755, -458757, -458760, -458765,
 -458769, -458773, -851968, -851967, -851966, -851965,
 -851963, -851960, -851955, -851947, -786433, -786434,
 -786435, -786437, -786440, -786445, -786449, -786453,
-1114112,-1114111,-1114110,-1114109,-1114107,-1114104,
-1114099,-1114091,-1048577,-1048578,-1048579,-1048581,
-1048584,-1048589,-1048593,-1048597,-1376256,-1376255,
-1376254,-1376253,-1376251,-1376248,-1376243,-1376235,
-1310721,-1310722,-1310723,-1310725,-1310728,-1310733,
-1310737,       0,-1835016,-1900536,-1572882,-1638383,
-1507328,-1376262,-1441786,-1179661,-1245172,-1179648,
-1179623,-1048601,-1048581,-1114107, -917514, -983030,
 -917504, -786436, -851964, -851949, -720915, -655368,
 -655362, -720896, -720894, -720888, -589839, -589828,
 -655356, -655345, -524294, -524289, -589823, -589818,
 -458781, -458763, -458760, -458755, -524285, -524280,
 -524277, -524259, -393221, -393218, -458752, -458750,
 -458747, -327702, -327689, -327686, -327683, -327681,
 -393215, -393213, -393210, -393207, -393194, -262161,
 -262151, -262148, -262146, -327680, -327678, -327676,
 -327673, -327663, -196621, -196618, -196613, -196611,
 -196609, -262144, -262143, -262141, -262139, -262134,
 -262131, -131080, -131078, -131076, -131075, -131074,
 -131073, -196608, -196607, -196606, -196604, -196602,
 -196600,  -65547,  -65543,  -65541,  -65539,  -65538,
  -65537, -131072, -131071, -131070, -131069, -131067,
 -131065, -131061,      -9,      -6,      -4,      -3,
      -2,      -1,  -65536,  -65535,  -65534,  -65533,
  -65532,  -65530,  -65527,   65505,   65513,   65518,
   65522,   65525,   65529,   65531,   65532,   65533,
   65534,   65535,-2031616,       1,       2,       3,
       4,       5,       7,      11,      14,      18,
      23,      31,  131063,  131066,  131068,  131069,
  131070,  131071,   65536,   65537,   65538,   65539,
   65540,   65542,   65545,  196597,  196601,  196603,
  196605,  196606,  196607,  131072,  131073,  131074,
  131075,  131077,  131079,  131083,  262136,  262138,
  262140,  262142,  262143,  196608,  196609,  196610,
  196611,  196612,  196614,  196616,  327667,  327670,
  327675,  327677,  327679,  262144,  262145,  262147,
  262149,  262154,  262157,  393199,  393209,  393212,
  393214,  327680,  327682,  327684,  327687,  327697,
  458730,  458743,  458746,  458749,  458751,  393217,
  393219,  393222,  393225,  393238,  524283,  524286,
  458752,  458754,  458757,  589795,  589813,  589816,
  589821,  524291,  524296,  524299,  524317,  655354,
  655359,  589825,  589830,  720881,  720892,  655364,
  655375,  786424,  786430,  720896,  720898,  720904,
  786451,  917485,  917500,  851972,  917504, 1048566,
  983050, 1179643, 1114117, 1114137, 1245159, 1179648,
 1310708, 1245197, 1507322, 1441798, 1507328, 1703919,
 1638418, 1966072, 1900552, 2031616,       0,-1376262,
-1441786,-1179661,-1245172,-1179648,-1048581,-1114107,
 -917514, -983030, -917504, -786436, -851964, -851949,
 -720915, -655368, -655362, -720896, -720894, -720888,
 -589839, -589828, -655356, -655345, -524294, -524289,
 -589823, -589818, -458763, -458760, -458755, -524288,
 -524285, -524280, -524277, -393221, -393218, -458752,
 -458750, -458747, -327702, -327689, -327686, -327683,
 -327681, -393215, -393213, -393210, -393207, -393194,
 -262161, -262151, -262148, -262146, -262145, -327680,
 -327679, -327678, -327676, -327673, -327663, -196621,
 -196618, -196613, -196611, -196610, -196609, -262144,
 -262143, -262142, -262141, -262139, -262134, -262131,
 -131080, -131078, -131076, -131075, -131074, -131073,
 -196608, -196607, -196606, -196605, -196604, -196602,
 -196600,  -65547,  -65543,  -65541,  -65540,  -65539,
  -65538,  -65537, -131072, -131071, -131070, -131069,
 -131068, -131067, -131065, -131061,      -9,      -6,
      -5,      -4,      -3,      -2,      -1,  -65536,
  -65535,  -65534,  -65533,  -65532,  -65531,  -65530,
  -65527,   65513,   65518,   65522,   65525,   65529,
   65531,   65532,   65533,   65534,   65535,-1507328,
       1,       2,       3,       4,       5,       7,
      11,      14,      18,      23,  131063,  131066,
  131067,  131068,  131069,  131070,  131071,   65536,
   65537,   65538,   65539,   65540,   65541,   65542,
   65545,  196597,  196601,  196603,  196604,  196605,
  196606,  196607,  131072,  131073,  131074,  131075,
  131076,  131077,  131079,  131083,  262136,  262138,
  262140,  262141,  262142,  262143,  196608,  196609,
  196610,  196611,  196612,  196614,  196616,  327667,
  327670,  327675,  327677,  327678,  327679,  262144,
  262145,  262146,  262147,  262149,  262154,  262157,
  393199,  393209,  393212,  393214,  393215,  327680,
  327681,  327682,  327684,  327687,  327697,  458730,
  458743,  458746,  458749,  458751,  393217,  393219,
  393222,  393225,  393238,  524283,  524286,  458752,
  458754,  458757,  589813,  589816,  589821,  524288,
  524291,  524296,  524299,  655354,  655359,  589825,
  589830,  720881,  720892,  655364,  655375,  786424,
  786430,  720896,  720898,  720904,  786451,  917485,
  917500,  851972,  917504, 1048566,  983050, 1179643,
 1114117, 1179648, 1310708, 1245197, 1507322, 1441798,
 1507328
};

static int16 codec47_table[] = {
		0,   0,  -1, -43,   6, -43,  -9, -42,  13, -41,
	-16, -40,  19, -39, -23, -36,  26, -34,  -2, -33,
	  4, -33, -29, -32,  -9, -32,  11, -31, -16, -29,
	 32, -29,  18, -28, -34, -26, -22, -25,  -1, -25,
	  3, -25,  -7, -24,   8, -24,  24, -23,  36, -23,
	-12, -22,  13, -21, -38, -20,   0, -20, -27, -19,
	 -4, -19,   4, -19, -17, -18,  -8, -17,   8, -17,
	 18, -17,  28, -17,  39, -17, -12, -15,  12, -15,
	-21, -14,  -1, -14,   1, -14, -41, -13,  -5, -13,
	  5, -13,  21, -13, -31, -12, -15, -11,  -8, -11,
	  8, -11,  15, -11,  -2, -10,   1, -10,  31, -10,
	-23,  -9, -11,  -9,  -5,  -9,   4,  -9,  11,  -9,
	 42,  -9,   6,  -8,  24,  -8, -18,  -7,  -7,  -7,
	 -3,  -7,  -1,  -7,   2,  -7,  18,  -7, -43,  -6,
	-13,  -6,  -4,  -6,   4,  -6,   8,  -6, -33,  -5,
	 -9,  -5,  -2,  -5,   0,  -5,   2,  -5,   5,  -5,
	 13,  -5, -25,  -4,  -6,  -4,  -3,  -4,   3,  -4,
	  9,  -4, -19,  -3,  -7,  -3,  -4,  -3,  -2,  -3,
	 -1,  -3,   0,  -3,   1,  -3,   2,  -3,   4,  -3,
	  6,  -3,  33,  -3, -14,  -2, -10,  -2,  -5,  -2,
	 -3,  -2,  -2,  -2,  -1,  -2,   0,  -2,   1,  -2,
	  2,  -2,   3,  -2,   5,  -2,   7,  -2,  14,  -2,
	 19,  -2,  25,  -2,  43,  -2,  -7,  -1,  -3,  -1,
	 -2,  -1,  -1,  -1,   0,  -1,   1,  -1,   2,  -1,
	  3,  -1,  10,  -1,  -5,   0,  -3,   0,  -2,   0,
	 -1,   0,   1,   0,   2,   0,   3,   0,   5,   0,
	  7,   0, -10,   1,  -7,   1,  -3,   1,  -2,   1,
	 -1,   1,   0,   1,   1,   1,   2,   1,   3,   1,
	-43,   2, -25,   2, -19,   2, -14,   2,  -5,   2,
	 -3,   2,  -2,   2,  -1,   2,   0,   2,   1,   2,
	  2,   2,   3,   2,   5,   2,   7,   2,  10,   2,
	 14,   2, -33,   3,  -6,   3,  -4,   3,  -2,   3,
	 -1,   3,   0,   3,   1,   3,   2,   3,   4,   3,
	 19,   3,  -9,   4,  -3,   4,   3,   4,   7,   4,
	 25,   4, -13,   5,  -5,   5,  -2,   5,   0,   5,
	  2,   5,   5,   5,   9,   5,  33,   5,  -8,   6,
	 -4,   6,   4,   6,  13,   6,  43,   6, -18,   7,
	 -2,   7,   0,   7,   2,   7,   7,   7,  18,   7,
	-24,   8,  -6,   8, -42,   9, -11,   9,  -4,   9,
	  5,   9,  11,   9,  23,   9, -31,  10,  -1,  10,
	  2,  10, -15,  11,  -8,  11,   8,  11,  15,  11,
	 31,  12, -21,  13,  -5,  13,   5,  13,  41,  13,
	 -1,  14,   1,  14,  21,  14, -12,  15,  12,  15,
	-39,  17, -28,  17, -18,  17,  -8,  17,   8,  17,
	 17,  18,  -4,  19,   0,  19,   4,  19,  27,  19,
	 38,  20, -13,  21,  12,  22, -36,  23, -24,  23,
	 -8,  24,   7,  24,  -3,  25,   1,  25,  22,  25,
	 34,  26, -18,  28, -32,  29,  16,  29, -11,  31,
		9,  32,  29,  32,  -4,  33,   2,  33, -26,  34,
	 23,  36, -19,  39,  16,  40, -13,  41,   9,  42,
	 -6,  43,   1,  43,   0,   0,   0,   0,   0,   0
};

static int32 last_table_width;

static byte smush_buf_big[99328];
static byte smush_buf_small[32768];
static byte smush_buffer[65536];
static int16 codec47_temp_table[256];

void mk_tables(int32 param) {
	int32 variable1, variable2, variable3, variable4, count_1, count_2;
	int32 tmp_param, tmp_param_tmp, tmp_value1, tmp_value2, b1, b2;
	int32 * tmp_table37_1_2, * tmp_table37_1_1, * tmp_table37_2_2, * tmp_table37_2_1;
	int32 value_table37_1_1, value_table37_1_2;
	int32 table[64], tmp_a, tmp_c, tmp_d, s, p, d, tmp_ib, tmp;
	int32 * table37_1 = 0, * table37_2 = 0, * tmp_table, l;
	byte * ptr;

	if (param == 8) {
		table37_1 = &codec37_table[32];
		table37_2 = &codec37_table[48];
		ptr = smush_buf_big + 384;
		for (l = 0; l < 256; l++) {
			*ptr = 0;
			ptr += 388;
		}
		ptr = smush_buf_big + 385;
		for (l = 0; l < 256; l++) {
			*ptr = 0;
			ptr += 388;
		}
	}

	if (param == 4) {
		table37_1 = &codec37_table[0];
		table37_2 = &codec37_table[16];
		ptr = smush_buf_small + 96;
		for (l = 0; l < 256; l++) {
			*ptr = 0;
			ptr += 128;
		}
		ptr = smush_buf_small + 97;
		for (l = 0; l < 256; l++) {
			*ptr = 0;
			ptr += 128;
		}
	}

	s = 0;
	p = 0;
	tmp_param = param * param;
	tmp_table37_1_1 = table37_1;
	tmp_table37_2_1 = table37_2;
	count_1 = 16;
	do {
		tmp_table37_1_2 = table37_1;
		tmp_table37_2_2 = table37_2;
		count_2 = 16;
		do {
			tmp = *(tmp_table37_2_1);
			tmp_value1 = tmp;
			if (tmp == 0) {
				b1 = 0;
				goto label3;
			}
			if ((tmp_value1 - param) == -1) {
				b1 = 1;
				goto label3;
			} 
			b1 = 2;
			tmp = *(tmp_table37_1_1);
			if (tmp != 0) {
				b1 = 0;
				tmp -= param;
				if (tmp == -1)
					b1 = 3;
				else
					b1 = 4;
			}
label3:
			tmp = *(tmp_table37_2_2);
			tmp_value2 = tmp;
			if (tmp == 0) {
				b2 = 0;
				goto label4;
			}
			if ((tmp_value2 - param) == -1) {
				b2 = 1;
				goto label4;
			}
			tmp = *(tmp_table37_1_2);
			if (tmp == 0) {
				b2 = 2;
				goto label4;
			}
			tmp -= param;
			if (tmp == -1)
				b2 = 3;
			else
				b2 = 4;
label4:
			tmp_param_tmp = tmp_param - 1;
			d = tmp_param_tmp;
			if(tmp_param != 0) {
				do {
					table[d] = 0;
				} while (d-- != 0);
			}
			value_table37_1_1 = *(tmp_table37_1_1);
			value_table37_1_2 = *(tmp_table37_1_2);
			tmp_c = abs(tmp_value2 - tmp_value1);
			tmp_a = abs(value_table37_1_2 - value_table37_1_1);
			if (tmp_c <= tmp_a) {
				tmp_c = tmp_a;
			}
			variable1 = 0;
			tmp_c++;
			variable2 = tmp_c;
			if (tmp_c <= 0)
				goto label27;
			do {
				tmp_a = variable2;
				if (tmp_a > 1) {
					tmp_c = tmp_a;
					tmp_a = variable1;
					tmp_c -= tmp_a;
					tmp_a = variable2;
					tmp_c--;
					tmp_a--;
					tmp_ib = tmp_a;
					tmp_d = value_table37_1_1;
					tmp_ib >>= 1;
					variable3 = tmp_a;
					tmp_a = value_table37_1_2;
					tmp_d *= variable1;
					tmp_a *= tmp_c;
					tmp_a += tmp_d;
					tmp_a += tmp_ib;
					tmp_a /= variable3;
					tmp_d = tmp_value2;
					variable4 = tmp_a;
					tmp_a = tmp_value1;
					tmp_d *= tmp_c;
					tmp_a *= variable1;
					tmp_d += tmp_a;
					tmp_a = tmp_d + tmp_ib;
					tmp_a /= variable3;
				} else {
					tmp_a = value_table37_1_1;
					variable4 = tmp_a;
					tmp_a = tmp_value1;
				}
				tmp_c = param;
				tmp_d = variable4;
				tmp_c *= tmp_a;
				tmp_c += tmp_d;
				tmp_table = &table[tmp_c];
				*(tmp_table) = 1;
				if (b1 != 2)
					goto label8;
				if (b2 == 3)
					goto label11;
label8:
				if (b2 != 2)
					goto label9;
				if (b1 == 3)
					goto label11;
label9:
				if (b1 != 0)
					goto label10;
				if (b2 != 1)
					goto label11;
label10:
				if (b2 != 0)
					goto label12;
				if (b1 == 1)
					goto label13;
label11:
				if (tmp_a < 0)
					goto label26;
				tmp_c = param;
				tmp_c <<= 2;
				do {
					*(tmp_table) = 1;
					tmp_table -= tmp_c / 4;
				} while (--tmp_a >= 0);
				goto label26;
label12:
				if (b1 != 1)
					goto label14;
label13:
				if (b2 != 0)
					goto label15;
label14:
				if (b2 != 1)
					goto label16;
				if (b1 == 0)
					goto label17;
label15:
				tmp_c = param;
				if (tmp_c <= tmp_a)
					goto label26;
				tmp_c <<= 2;
				tmp_d = param;
				tmp_d -= tmp_a;
				do {
					*(tmp_table) = 1;
					tmp_table += tmp_c / 4;
				} while (--tmp_d != 0);
				goto label26;
label16:
				if (b1 != 0)
					goto label18;
label17:
				if (b2 == 1)
					goto label21;
label18:
				if (b2 != 0)
					goto label19;
				if (b1 == 1)
					goto label21;
label19:
				if (b1 != 3)
					goto label20;
				if (b2 != 2)
					goto label21;
label20:
				if (b2 != 3)
					goto label22;
				if (b1 == 2)
					goto label23;
label21:
				tmp_c = param;
				if (tmp_c <= variable4)
					goto label26;
				tmp_c -= variable4;
				d = tmp_c;
				do {
					*(tmp_table++) = 1;
				} while (--d != 0);
				goto label26;
label22:
				if (b1 != 2)
					goto label24;
label23:
				if (b2 != 3)
					goto label25;
label24:
				if (b2 != 2)
					goto label26;
				if (b1 == 3)
					goto label26;
label25:
				if (variable4 >= 0) {
					tmp_c = variable4 + 1;
					d = tmp_c;
					do {
						*(tmp_table--) = 1;
					} while (--d != 0);
				}
label26:;
			} while	(variable2 > ++variable1);
label27:
			if (tmp_param != 0) {
				if (param == 8) {
					tmp_c = tmp_param_tmp;
					do {
						if (table[tmp_c] != 0) {
							smush_buf_big[256 + s + smush_buf_big[384 + s]] = (byte)tmp_c;
							smush_buf_big[384 + s]++;
						} else {
							smush_buf_big[320 + s + smush_buf_big[385 + s]] = (byte)tmp_c;
							smush_buf_big[385 + s]++;
						}
					} while (tmp_c-- != 0);
				}
				if (param == 4) {
					tmp_c = tmp_param_tmp;
					do {
						if (table[tmp_c] != 0) {
							smush_buf_small[64 + p + smush_buf_small[96 + p]] = (byte)tmp_c;
							smush_buf_small[96 + p]++;
						} else {
							smush_buf_small[80 + p + smush_buf_small[97 + p]] = (byte)tmp_c;
							smush_buf_small[97 + p]++;
						}
					} while (tmp_c-- != 0);
				}
			}
			p += 128;
			s += 388;
			tmp_table37_1_2++;
			tmp_table37_2_2++;
		}	while (--count_2 != 0);
		tmp_table37_1_1++;
		tmp_table37_2_1++;
	} while (--count_1!= 0);
}

void make_tables(int32 width) {
	if (last_table_width == width)
		return;
	last_table_width = width;

	int32 a, c, d, s, tmp_value, tmp_offset;
	int16 tmp, tmp2;

	int16 * tmp_ptr = codec47_temp_table;
	int16 * ptr_table = &codec47_table[1];
	do {
		int16 tmp_word = *(ptr_table);
		ptr_table += 2;
		tmp_word *= (int16)width;
		tmp_word += *(ptr_table - 3);
		tmp_ptr++;
		*(tmp_ptr - 1) = tmp_word;
	} while (tmp_ptr < &codec47_temp_table[255]);
	a = 0;
	c = 0;
	s = 0;
	tmp_value = 0;
	do {
		d = 0;
		tmp = smush_buf_small[96 + c];
		if (tmp != 0) {
			do {
				tmp = smush_buf_small[64 + c + d];
				tmp2 = tmp;
				tmp2 >>= 2;
				tmp &= 3;
				tmp2 &= 0xFFFF00FF;
				tmp2 *= (int16)width;
				tmp2 += tmp;
				smush_buf_small[(s + d) * 2] = (byte)tmp2;
				smush_buf_small[(s + d) * 2 + 1] = tmp2 >> 8;
				d++;
				tmp = smush_buf_small[96 + c];
			} while (tmp > d);
		}
		d = 0;
		tmp = smush_buf_small[97 + c];
		if (tmp != 0) {
			do {
				tmp = smush_buf_small[80 + c + d];
				tmp2 = tmp;
				tmp2 >>= 2;
				tmp &= 3;
				tmp2 &= 0xFFFF00FF;
				tmp2 *= (int16)width;
				tmp2 += tmp;
				smush_buf_small[32 + (s + d) * 2] = (byte)tmp2;
				smush_buf_small[32 + (s + d) * 2 + 1] = tmp2 >> 8;
				d++;
				tmp = smush_buf_small[97 + c];
			} while (tmp > d);
		}
		d = 0;
		tmp = smush_buf_big[384 + a];
		if (tmp != 0) {
			do {
				tmp = smush_buf_big[256 + a + d];
				tmp2 = tmp >> 3;
				tmp = tmp & 7;
				tmp2 &= 0xFFFF00FF;
				tmp2 *= (int16)width;
				tmp2 += tmp;
				tmp_offset = tmp_value;
				tmp_offset += d;
				d++;
				smush_buf_big[tmp_offset * 2] = (byte)tmp2;
				smush_buf_big[tmp_offset * 2 + 1] = tmp2 >> 8;
				tmp = smush_buf_big[384 + a];
			} while (tmp > d);
		}
		d = 0;
		tmp = smush_buf_big[385 + a];
		if (tmp != 0) {
			do {
				tmp = smush_buf_big[320 + a + d];
				tmp2 = tmp >> 3;
				tmp = tmp & 7;
				tmp2 &= 0xFFFF00FF;
				tmp2 *= (int16)width;
				tmp2 += tmp;
				tmp_offset = tmp_value;
				tmp_offset += d;
				d++;
				smush_buf_big[128 + (tmp_offset * 2)] = (byte)tmp2;
				smush_buf_big[128 + (tmp_offset * 2) + 1] = tmp2 >> 8;
				tmp = smush_buf_big[385 + a];
			} while (tmp > d);
		}
		
		a += 388;
		tmp_value += 194;
		c += 128;
		s += 64;
	} while (s < 16384);
}
	
static void bomp_decode(byte *dst, byte *src, int32 len) {
	byte code;
	byte color;
	int32 num;

	do {
		code = *src++;
		if (code & 1) {
			num = (code >> 1) + 1;
			color = *src++;
			memset(dst, color, num);
			dst += num;
		} else {
			num = (code >> 1) + 1;
			memcpy(dst, src, num);
			dst += num;
			src += num;
		}
	} while (len -= num);
}

static int32 codec47_decode2_offset1;
static int32 codec47_decode2_offset2;
static int16 * codec47_decode2_table;
static int32 d_pitch;
static byte * codec47_decode2_param_ptr;
static byte * codec47_decode2_buf_small;
static byte * codec47_decode2_buf_big;
static int32 codec47_subgfx_width_blocks;
static int32 codec47_subgfx_height_blocks;
static int32 codec47_subgfx_width_pixels;
static byte * d_src;
static byte * d_dst;

static void codec47_subgfx_lev4() {
	int32 tmp, tmp2;
	byte code = *d_src;
	if (code < 0xF8) {
		d_src++;
		tmp2 = codec47_decode2_table[code] + codec47_decode2_offset1;
		*(uint16*)(d_dst + (d_pitch * 0)) = *(uint16*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint16*)(d_dst + (d_pitch * 1)) = *(uint16*)(d_dst + (d_pitch * 1) + tmp2);
		return;
	}
	if (code == 0xFF) {
		*(uint16*)(d_dst + (d_pitch * 0)) = *(uint16*)(d_src + (d_pitch * 0) + 1);
		*(uint16*)(d_dst + (d_pitch * 1)) = *(uint16*)(d_src + (d_pitch * 1) + 3);
		d_src += 5;
		return;
	}
	if (code == 0xFE) {
		tmp = *(d_src + 1);
		int32 val = tmp | tmp << 8;
		d_src += 2;
		*(uint16*)(d_dst + (d_pitch * 0)) = (int16)val;
		*(uint16*)(d_dst + (d_pitch * 1)) = (int16)val;
		return;
	}
	if (code == 0xFC) {
		tmp2 = codec47_decode2_offset2;
		d_src++;
		*(uint16*)(d_dst + (d_pitch * 0)) = *(uint16*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint16*)(d_dst + (d_pitch * 1)) = *(uint16*)(d_dst + (d_pitch * 1) + tmp2);
		return;
	}
	tmp = *(codec47_decode2_param_ptr + code);
	int32 val = tmp | tmp << 8;
	d_src++;
	*(uint16*)(d_dst + (d_pitch * 0)) = (int16)val;
	*(uint16*)(d_dst + (d_pitch * 1)) = (int16)val;
}

static void codec47_subgfx_lev3() {
	int32 tmp2;
	byte code = *d_src;
	if (code < 0xF8) {
		d_src++;
		tmp2 = codec47_decode2_table[code] + codec47_decode2_offset1;
		byte * dst2 = d_dst + d_pitch * 2;
		*(uint32*)(dst2 + (d_pitch * 0)) = *(uint32*)(dst2 + (d_pitch * 0) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 0)) = *(uint32*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 1)) = *(uint32*)(dst2 + (d_pitch * 1) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 1)) = *(uint32*)(d_dst + (d_pitch * 1) + tmp2);
		return;
	}
	if (code == 0xFF) {
		d_src++;
		byte * tmp_dst = d_dst;
		codec47_subgfx_lev4();
		d_dst += 2;
		codec47_subgfx_lev4();
		d_dst += d_pitch * 2 - 2;
		codec47_subgfx_lev4();
		d_dst += 2;
		codec47_subgfx_lev4();
		d_dst = tmp_dst;
		return;
	}
	if (code == 0xFE) {
		byte t = *(d_src + 1);
		int32 val = t << 24 | t << 16 | t << 8 | t;
		d_src += 2;
		*(uint32*)(d_dst + (d_pitch * 0)) = val;
		*(uint32*)(d_dst + (d_pitch * 1)) = val;
		*(uint32*)(d_dst + (d_pitch * 2)) = val;
		*(uint32*)(d_dst + (d_pitch * 3)) = val;
		return;
	}
	if (code == 0xFD) {
		byte * tmp_ptr = (*(d_src + 1) << 7) + codec47_decode2_buf_small;
		int32 l = *(tmp_ptr + 96);
		byte val = *(d_src + 2);
		int16 * tmp_ptr2 = (int16*)tmp_ptr;
		do {
			*(d_dst + READ_LE_UINT16(tmp_ptr2)) = val;
			tmp_ptr2++;
		} while (--l > 0);
		l = *(tmp_ptr + 97);
		val = *(d_src + 3);
		tmp_ptr2 = (int16*)(tmp_ptr + 32);
		do {
			*(d_dst + READ_LE_UINT16(tmp_ptr2)) = val;
			tmp_ptr2++;
		} while (--l > 0);
		d_src += 4;
		return;
	}
	if (code == 0xFC) {
		d_src++;
		tmp2 = codec47_decode2_offset2;
		byte * dst2 = d_dst + d_pitch * 2;
		*(uint32*)(dst2 + (d_pitch * 0)) = *(uint32*)(dst2 + (d_pitch * 0) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 0)) = *(uint32*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 1)) = *(uint32*)(dst2 + (d_pitch * 1) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 1)) = *(uint32*)(d_dst + (d_pitch * 1) + tmp2);
		return;
	}
	d_src++;
	byte t = *(codec47_decode2_param_ptr + code);
	int32 val = t << 24 | t << 16 | t << 8 | t;
	*(uint32*)(d_dst + (d_pitch * 0)) = val;
	*(uint32*)(d_dst + (d_pitch * 1)) = val;
	*(uint32*)(d_dst + (d_pitch * 2)) = val;
	*(uint32*)(d_dst + (d_pitch * 3)) = val;
}

static void codec47_subgfx_lev2() {
	int32 tmp, tmp2;
	byte code = *d_src;
	if (code < 0xF8) {
		d_src++;
		tmp2 = codec47_decode2_table[code] + codec47_decode2_offset1;
		byte * dst2 = d_dst + d_pitch * 4;
		*(uint32*)(dst2 + (d_pitch * 0) + 0) = *(uint32*)(dst2 + (d_pitch * 0) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 0) + 0) = *(uint32*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 0) + 4) = *(uint32*)(dst2 + (d_pitch * 0) + tmp2 + 4);
		*(uint32*)(d_dst + (d_pitch * 0) + 4) = *(uint32*)(d_dst + (d_pitch * 0) + tmp2 + 4);
		*(uint32*)(dst2 + (d_pitch * 1) + 0) = *(uint32*)(dst2 + (d_pitch * 1) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 1) + 0) = *(uint32*)(d_dst + (d_pitch * 1) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 1) + 4) = *(uint32*)(dst2 + (d_pitch * 1) + tmp2 + 4);
		*(uint32*)(d_dst + (d_pitch * 1) + 4) = *(uint32*)(d_dst + (d_pitch * 1) + tmp2 + 4);
		*(uint32*)(dst2 + (d_pitch * 2) + 0) = *(uint32*)(dst2 + (d_pitch * 2) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 2) + 0) = *(uint32*)(d_dst + (d_pitch * 2) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 2) + 4) = *(uint32*)(dst2 + (d_pitch * 2) + tmp2 + 4);
		*(uint32*)(d_dst + (d_pitch * 2) + 4) = *(uint32*)(d_dst + (d_pitch * 2) + tmp2 + 4);
		*(uint32*)(dst2 + (d_pitch * 3) + 0) = *(uint32*)(dst2 + (d_pitch * 3) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 3) + 0) = *(uint32*)(d_dst + (d_pitch * 3) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 3) + 4) = *(uint32*)(dst2 + (d_pitch * 3) + tmp2 + 4);
		*(uint32*)(d_dst + (d_pitch * 3) + 4) = *(uint32*)(d_dst + (d_pitch * 3) + tmp2 + 4);
		return;
	}
	if (code == 0xFF) {
		d_src++;
		byte * tmp_dst = d_dst;
		codec47_subgfx_lev3();
		d_dst += 4;
		codec47_subgfx_lev3();
		d_dst += d_pitch * 4 - 4;
		codec47_subgfx_lev3();
		d_dst += 4;
		codec47_subgfx_lev3();
		d_dst = tmp_dst;
		return;
	}
	if (code == 0xFE) {
		byte t = *(d_src + 1);
		int32 val = t << 24 | t << 16 | t << 8 | t;
		d_src += 2;
		byte * dst2 = d_dst + d_pitch * 4;
		*(uint32*)(dst2 + (d_pitch * 0)) = val;
		*(uint32*)(d_dst + (d_pitch * 0)) = val;
		*(uint32*)(dst2 + (d_pitch * 0) + 4) = val;
		*(uint32*)(d_dst + (d_pitch * 0) + 4) = val;
		*(uint32*)(dst2 + (d_pitch * 1)) = val;
		*(uint32*)(d_dst + (d_pitch * 1)) = val;
		*(uint32*)(dst2 + (d_pitch * 1) + 4) = val;
		*(uint32*)(d_dst + (d_pitch * 1) + 4) = val;
		*(uint32*)(dst2 + (d_pitch * 2)) = val;
		*(uint32*)(d_dst + (d_pitch * 2)) = val;
		*(uint32*)(dst2 + (d_pitch * 2) + 4) = val;
		*(uint32*)(d_dst + (d_pitch * 2) + 4) = val;
		*(uint32*)(dst2 + (d_pitch * 3)) = val;
		*(uint32*)(d_dst + (d_pitch * 3)) = val;
		*(uint32*)(dst2 + (d_pitch * 3) + 4) = val;
		*(uint32*)(d_dst + (d_pitch * 3) + 4) = val;
		return;
	}
	if (code == 0xFD) {
		tmp = *(d_src + 1);
		tmp2 = tmp * 4;
		tmp <<= 7;
		int32 tmp3 = tmp2 + tmp * 2;
		byte * tmp_ptr = tmp + tmp3 + codec47_decode2_buf_big;
		byte l = *(tmp_ptr + 384);
		byte val = *(d_src + 2);
		int16 * tmp_ptr2 = (int16*)tmp_ptr;
		do {
			*(d_dst + READ_LE_UINT16(tmp_ptr2)) = val;
			tmp_ptr2++;
		} while (--l > 0);
		l = *(tmp_ptr + 385);
		val = *(d_src + 3);
		tmp_ptr2 = (int16*)(tmp_ptr + 128);
		do {
			*(d_dst + READ_LE_UINT16(tmp_ptr2)) = val;
			tmp_ptr2++;
		} while (--l > 0);
		d_src += 4;
		return;
	}
	if (code == 0xFC) {
		d_src++;
		tmp2 = codec47_decode2_offset2;
		byte * dst2 = d_dst + d_pitch * 4;
		*(uint32*)(dst2 + (d_pitch * 0)) = *(uint32*)(dst2 + (d_pitch * 0) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 0)) = *(uint32*)(d_dst + (d_pitch * 0) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 0) + 4) = *(uint32*)(dst2 + (d_pitch * 0) + 4 + tmp2);
		*(uint32*)(d_dst + (d_pitch * 0) + 4) = *(uint32*)(d_dst + (d_pitch * 0) + 4 + tmp2);
		*(uint32*)(dst2 + (d_pitch * 1)) = *(uint32*)(dst2 + (d_pitch * 1) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 1)) = *(uint32*)(d_dst + (d_pitch * 1) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 1) + 4) = *(uint32*)(dst2 + (d_pitch * 1) + 4 + tmp2);
		*(uint32*)(d_dst + (d_pitch * 1) + 4) = *(uint32*)(d_dst + (d_pitch * 1) + 4 + tmp2);
		*(uint32*)(dst2 + (d_pitch * 2)) = *(uint32*)(dst2 + (d_pitch * 2) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 2)) = *(uint32*)(d_dst + (d_pitch * 2) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 2) + 4) = *(uint32*)(dst2 + (d_pitch * 2) + 4 + tmp2);
		*(uint32*)(d_dst + (d_pitch * 2) + 4) = *(uint32*)(d_dst + (d_pitch * 2) + 4 + tmp2);
		*(uint32*)(dst2 + (d_pitch * 3)) = *(uint32*)(dst2 + (d_pitch * 3) + tmp2);
		*(uint32*)(d_dst + (d_pitch * 3)) = *(uint32*)(d_dst + (d_pitch * 3) + tmp2);
		*(uint32*)(dst2 + (d_pitch * 3) + 4) = *(uint32*)(dst2 + (d_pitch * 3) + 4 + tmp2);
		*(uint32*)(d_dst + (d_pitch * 3) + 4) = *(uint32*)(d_dst + (d_pitch * 3) + 4 + tmp2);
		return;
	}
	d_src++;
	byte t = *(codec47_decode2_param_ptr + code);
	int32 val = t << 24 | t << 16 | t << 8 | t;
	byte * dst2 = d_dst + d_pitch * 4;
	*(uint32*)(dst2 + (d_pitch * 0)) = val;
	*(uint32*)(d_dst + (d_pitch * 0)) = val;
	*(uint32*)(dst2 + (d_pitch * 0) + 4) = val;
	*(uint32*)(d_dst + (d_pitch * 0) + 4) = val;
	*(uint32*)(dst2 + (d_pitch * 1)) = val;
	*(uint32*)(d_dst + (d_pitch * 1)) = val;
	*(uint32*)(dst2 + (d_pitch * 1) + 4) = val;
	*(uint32*)(d_dst + (d_pitch * 1) + 4) = val;
	*(uint32*)(dst2 + (d_pitch * 2)) = val;
	*(uint32*)(d_dst + (d_pitch * 2)) = val;
	*(uint32*)(dst2 + (d_pitch * 2) + 4) = val;
	*(uint32*)(d_dst + (d_pitch * 2) + 4) = val;
	*(uint32*)(dst2 + (d_pitch * 3)) = val;
	*(uint32*)(d_dst + (d_pitch * 3)) = val;
	*(uint32*)(dst2 + (d_pitch * 3) + 4) = val;
	*(uint32*)(d_dst + (d_pitch * 3) + 4) = val;
}

static byte * g_out;

/*
static void disp() {
	g_scumm->_system->copy_rect((const byte *)g_out, 640, 0, 0, 640, 480);
	g_scumm->_system->update_screen();
	g_scumm->waitForTimer(100);
}
*/

static void decode2(byte * dst, byte * src, int32 offset1, int32 offset2, int32 pitch,
						 int16 * tmp_table, byte * param_ptr, int32 height, int32,
						 byte * buf_small, byte * buf_big) {
	d_dst = dst;
	d_src = src;
	codec47_decode2_offset1 = offset1;
	codec47_decode2_offset2 = offset2;
	d_pitch = pitch;
	codec47_decode2_table = tmp_table;
	codec47_decode2_param_ptr = param_ptr - 0xf8;
	codec47_decode2_buf_small = buf_small;
	codec47_decode2_buf_big = buf_big;
	codec47_subgfx_height_blocks = (height + 7) >> 3;
	codec47_subgfx_width_blocks = (pitch + 7) >> 3;
	codec47_subgfx_width_pixels = pitch << 3;
	codec47_subgfx_width_pixels -= pitch;

	do {
		int32 tmp_codec47_subgfx_width_blocks = codec47_subgfx_width_blocks;
		do {
			codec47_subgfx_lev2();
			d_dst += 8;
		} while (--tmp_codec47_subgfx_width_blocks);
		d_dst += codec47_subgfx_width_pixels;
	} while (--codec47_subgfx_height_blocks);
}

bool Codec47Decoder::initSize(const Point & p, const Rect & r) {
	if(r.width() != getRect().width() && r.height() != getRect().height()) {
		if(
			(r.width() != 640 || r.height() != 480)
			)
			return false;
		Decoder::initSize(p, r);
		clean();

		mk_tables(4);
		mk_tables(8);

		int32 frame_size = getRect().width() * getRect().height();
		_deltaSize = frame_size * 3;
		_deltaBuf = new byte[_deltaSize];
		_deltaBufs[0] = _deltaBuf;
		_deltaBufs[1] = _deltaBuf + frame_size;
		_curBuf = _deltaBuf + frame_size * 2;

		return true;
	}
	return false;
}

Codec47Decoder::Codec47Decoder() {
	_deltaBuf = 0;
}

void Codec47Decoder::clean() {
	last_table_width = -1;
	if(_deltaBuf) {
		delete []_deltaBuf;
		_deltaSize = 0;
		_deltaBuf = 0;
		_deltaBufs[0] = 0;
		_deltaBufs[1] = 0;
	}
}

Codec47Decoder::~Codec47Decoder() {
	clean();
}

bool Codec47Decoder::decode(Blitter & dst, Chunk & src) {
	g_out = _curBuf;
	int32 width = getRect().width();
	int32 height = getRect().height();
	int32 offset1 = _deltaBufs[1] - _curBuf;
	int32 offset2 = _deltaBufs[0] - _curBuf;

	int32 chunk_size = src.getSize() - 14;
	byte * chunk_buffer = (byte*)malloc(chunk_size);
	src.read(chunk_buffer, chunk_size);

	int32 first_word = READ_LE_UINT16(chunk_buffer + 0);

	byte * gfx_data = chunk_buffer + 26;
	byte * tmp_ptr, * tmp_ptr1, * tmp_ptr2, * tmp_ptr3;

	if (first_word == 0) {
		make_tables(width);
		memset(_deltaBufs[0], chunk_buffer[12], width * height);
		memset(_deltaBufs[1], chunk_buffer[13], width * height);
		_var100 = -1;
	}
	
	byte * tmp_curBuf = _curBuf;

	byte * ptr;
	int32 r, l, count;
	if ((chunk_buffer[4] & 1) != 0) {
		r = 0;
		ptr = (byte*)smush_buffer;
		count = r;
		do {
			l = count;
			if (ptr <= &smush_buffer[65536 + 256]) {
				tmp_ptr = ptr;
				do {
					byte tmp = *gfx_data++;
					*tmp_ptr = tmp;
					tmp_ptr += 256;
					smush_buffer[l + r] = tmp;
				} while (++l < 256);
			}
			r += 256;
			ptr += 257;
			count++;
		} while (ptr < &smush_buffer[65536 + 256]);
	}	

	switch(chunk_buffer[2]) {
	case 0:
		memcpy(_curBuf, gfx_data, width * height);
		_var104 = _curBuf;
		break;
	case 1:
		warning("codec47: not implemented decode1 proc");
//		decode1(_curBuf, gfx_data, width * height, &smush_buffer)
		_var104 = _curBuf;
		break;
	case 2:
//		if (((arg_7 & 16) != 0) && (param1 == 0))
//		if (chunk_buffer[3] == 0) {
//			_var100 = first_word;
//			free(chunk_buffer);
//			return false;
//		}
		if ((first_word - _var100) == 1) {
			decode2(tmp_curBuf, gfx_data, offset1, offset2, width,
					codec47_temp_table, chunk_buffer + 8, height, width * 8,
					smush_buf_small, smush_buf_big);
			_var104 = _curBuf;
		}
		break;
	case 3:
//		if (((arg_7 & 16) != 0) && (param1 == 0))
//		if (chunk_buffer[3] == 0) {
//			_var100 = first_word;
//			free(chunk_buffer);
//			return false;
//		}
		memcpy(_curBuf, _deltaBufs[1], width * height);
		_var104 = _curBuf;
		break;
	case 4:
//		if (((arg_7 & 16) != 0) && (param1 == 0))
//		if (chunk_buffer[3] == 0) {
//			_var100 = first_word;
//			free(chunk_buffer);
//			return false;
//		}
		memcpy(_curBuf, _deltaBufs[0], width * height);
		_var104 = _curBuf;
		break;
	case 5:
		bomp_decode(_curBuf, gfx_data, READ_LE_UINT32(chunk_buffer + 14));
		_var104 = _curBuf;
		break;
	}

	if (_var104 != 0) {
		dst.blit(_var104, width * height);
	}

	if ((first_word - _var100) == 1) {
		if (chunk_buffer[3] == 1) {
			tmp_ptr1 = _curBuf;
			_curBuf = _deltaBufs[1];
			_deltaBufs[1] = tmp_ptr1;
		} else if (chunk_buffer[3] == 2) {
			tmp_ptr = _deltaBufs[0];
			tmp_ptr2 = _deltaBufs[1];
			tmp_ptr3 = _curBuf;
			_deltaBufs[0] = tmp_ptr2;
			_deltaBufs[1] = tmp_ptr3;
			_curBuf = tmp_ptr;
		}
	}
	_var100 = first_word;

	free(chunk_buffer);

	return true;
}