REminiscence/video.cpp

1085 lines
28 KiB
C++

/*
* REminiscence - Flashback interpreter
* Copyright (C) 2005-2019 Gregory Montoir (cyx@users.sourceforge.net)
*/
#include "decode_mac.h"
#include "resource.h"
#include "systemstub.h"
#include "unpack.h"
#include "util.h"
#include "video.h"
Video::Video(Resource *res, SystemStub *stub, WidescreenMode widescreenMode)
: _res(res), _stub(stub), _widescreenMode(widescreenMode) {
_layerScale = (_res->_type == kResourceTypeMac) ? 2 : 1; // Macintosh version is 512x448
_w = GAMESCREEN_W * _layerScale;
_h = GAMESCREEN_H * _layerScale;
_layerSize = _w * _h;
_frontLayer = (uint8_t *)calloc(1, _layerSize);
_backLayer = (uint8_t *)calloc(1,_layerSize);
_tempLayer = (uint8_t *)calloc(1, _layerSize);
_tempLayer2 = (uint8_t *)calloc(1, _layerSize);
_screenBlocks = (uint8_t *)calloc(1, (_w / SCREENBLOCK_W) * (_h / SCREENBLOCK_H));
_fullRefresh = true;
_shakeOffset = 0;
_charFrontColor = 0;
_charTransparentColor = 0;
_charShadowColor = 0;
_drawChar = 0;
switch (_res->_type) {
case kResourceTypeAmiga:
_drawChar = &Video::AMIGA_drawStringChar;
break;
case kResourceTypeDOS:
_drawChar = &Video::PC_drawStringChar;
break;
case kResourceTypeMac:
_drawChar = &Video::MAC_drawStringChar;
break;
}
}
Video::~Video() {
free(_frontLayer);
free(_backLayer);
free(_tempLayer);
free(_tempLayer2);
free(_screenBlocks);
}
void Video::markBlockAsDirty(int16_t x, int16_t y, uint16_t w, uint16_t h, int scale) {
debug(DBG_VIDEO, "Video::markBlockAsDirty(%d, %d, %d, %d)", x, y, w, h);
int bx1 = scale * x / SCREENBLOCK_W;
int by1 = scale * y / SCREENBLOCK_H;
int bx2 = scale * (x + w - 1) / SCREENBLOCK_W;
int by2 = scale * (y + h - 1) / SCREENBLOCK_H;
if (bx1 < 0) {
bx1 = 0;
}
if (bx2 > (_w / SCREENBLOCK_W) - 1) {
bx2 = (_w / SCREENBLOCK_W) - 1;
}
if (by1 < 0) {
by1 = 0;
}
if (by2 > (_h / SCREENBLOCK_H) - 1) {
by2 = (_h / SCREENBLOCK_H) - 1;
}
for (; by1 <= by2; ++by1) {
for (int i = bx1; i <= bx2; ++i) {
_screenBlocks[by1 * (_w / SCREENBLOCK_W) + i] = 2;
}
}
}
void Video::updateScreen() {
debug(DBG_VIDEO, "Video::updateScreen()");
// _fullRefresh = true;
if (_fullRefresh) {
_stub->copyRect(0, 0, _w, _h, _frontLayer, _w);
_stub->updateScreen(_shakeOffset);
_fullRefresh = false;
} else {
int i, j;
int count = 0;
uint8_t *p = _screenBlocks;
for (j = 0; j < _h / SCREENBLOCK_H; ++j) {
uint16_t nh = 0;
for (i = 0; i < _w / SCREENBLOCK_W; ++i) {
if (p[i] != 0) {
--p[i];
++nh;
} else if (nh != 0) {
int16_t x = (i - nh) * SCREENBLOCK_W;
_stub->copyRect(x, j * SCREENBLOCK_H, nh * SCREENBLOCK_W, SCREENBLOCK_H, _frontLayer, _w);
nh = 0;
++count;
}
}
if (nh != 0) {
int16_t x = (i - nh) * SCREENBLOCK_W;
_stub->copyRect(x, j * SCREENBLOCK_H, nh * SCREENBLOCK_W, SCREENBLOCK_H, _frontLayer, _w);
++count;
}
p += _w / SCREENBLOCK_W;
}
if (count != 0) {
_stub->updateScreen(_shakeOffset);
}
}
if (_shakeOffset != 0) {
_shakeOffset = 0;
_fullRefresh = true;
}
}
void Video::updateWidescreen() {
if (_stub->hasWidescreen()) {
if (_widescreenMode == kWidescreenMirrorRoom) {
_stub->copyWidescreenMirror(_w, _h, _backLayer);
} else if (_widescreenMode == kWidescreenBlur) {
_stub->copyWidescreenBlur(_w, _h, _backLayer);
} else {
_stub->clearWidescreen();
}
}
}
void Video::fullRefresh() {
debug(DBG_VIDEO, "Video::fullRefresh()");
_fullRefresh = true;
memset(_screenBlocks, 0, (_w / SCREENBLOCK_W) * (_h / SCREENBLOCK_H));
}
void Video::fadeOut() {
debug(DBG_VIDEO, "Video::fadeOut()");
if (g_options.fade_out_palette) {
fadeOutPalette();
} else {
_stub->fadeScreen();
}
}
void Video::fadeOutPalette() {
for (int step = 16; step >= 0; --step) {
for (int c = 0; c < 256; ++c) {
Color col;
_stub->getPaletteEntry(c, &col);
col.r = col.r * step >> 4;
col.g = col.g * step >> 4;
col.b = col.b * step >> 4;
_stub->setPaletteEntry(c, &col);
}
fullRefresh();
updateScreen();
_stub->sleep(50);
}
}
void Video::setPaletteColorBE(int num, int offset) {
const int color = READ_BE_UINT16(_res->_pal + offset * 2);
Color c = AMIGA_convertColor(color, true);
_stub->setPaletteEntry(num, &c);
}
void Video::setPaletteSlotBE(int palSlot, int palNum) {
debug(DBG_VIDEO, "Video::setPaletteSlotBE()");
const uint8_t *p = _res->_pal + palNum * 32;
for (int i = 0; i < 16; ++i) {
const int color = READ_BE_UINT16(p); p += 2;
Color c = AMIGA_convertColor(color, true);
_stub->setPaletteEntry(palSlot * 16 + i, &c);
}
}
void Video::setPaletteSlotLE(int palSlot, const uint8_t *palData) {
debug(DBG_VIDEO, "Video::setPaletteSlotLE()");
for (int i = 0; i < 16; ++i) {
const uint16_t color = READ_LE_UINT16(palData + i * 2);
Color c = AMIGA_convertColor(color);
_stub->setPaletteEntry(palSlot * 16 + i, &c);
}
if (palSlot == 4 && g_options.use_white_tshirt) {
const Color color12 = AMIGA_convertColor(0x888);
const Color color13 = AMIGA_convertColor((palData == _conradPal2) ? 0x888 : 0xCCC);
_stub->setPaletteEntry(palSlot * 16 + 12, &color12);
_stub->setPaletteEntry(palSlot * 16 + 13, &color13);
}
}
void Video::setTextPalette() {
debug(DBG_VIDEO, "Video::setTextPalette()");
setPaletteSlotLE(0xE, _textPal);
if (_res->isAmiga()) {
Color c;
c.r = c.g = 0xEE;
c.b = 0;
_stub->setPaletteEntry(0xE7, &c);
}
}
void Video::setPalette0xF() {
debug(DBG_VIDEO, "Video::setPalette0xF()");
const uint8_t *p = _palSlot0xF;
for (int i = 0; i < 16; ++i) {
Color c;
c.r = *p++;
c.g = *p++;
c.b = *p++;
_stub->setPaletteEntry(0xF0 + i, &c);
}
}
void Video::PC_decodeLev(int level, int room) {
uint8_t *tmp = _res->_mbk;
_res->_mbk = _res->_bnq;
_res->clearBankData();
AMIGA_decodeLev(level, room);
_res->_mbk = tmp;
_res->clearBankData();
}
static void PC_decodeMapPlane(int sz, const uint8_t *src, uint8_t *dst) {
const uint8_t *end = src + sz;
while (src < end) {
int16_t code = (int8_t)*src++;
if (code < 0) {
const int len = 1 - code;
memset(dst, *src++, len);
dst += len;
} else {
++code;
memcpy(dst, src, code);
src += code;
dst += code;
}
}
}
void Video::PC_decodeMap(int level, int room) {
debug(DBG_VIDEO, "Video::PC_decodeMap(%d)", room);
if (!_res->_map) {
assert(_res->_lev);
PC_decodeLev(level, room);
return;
}
assert(room < 0x40);
int32_t off = READ_LE_UINT32(_res->_map + room * 6);
if (off == 0) {
error("Invalid room %d", room);
}
// int size = READ_LE_UINT16(_res->_map + room * 6 + 4);
bool packed = true;
if (off < 0) {
off = -off;
packed = false;
}
const uint8_t *p = _res->_map + off;
_mapPalSlot1 = *p++;
_mapPalSlot2 = *p++;
_mapPalSlot3 = *p++;
_mapPalSlot4 = *p++;
if (level == 4 && room == 60) {
// workaround for wrong palette colors (fire)
_mapPalSlot4 = 5;
}
static const int kPlaneSize = 256 * 224 / 4;
if (packed) {
for (int i = 0; i < 4; ++i) {
const int sz = READ_LE_UINT16(p); p += 2;
PC_decodeMapPlane(sz, p, _res->_scratchBuffer); p += sz;
memcpy(_frontLayer + i * kPlaneSize, _res->_scratchBuffer, kPlaneSize);
}
} else {
for (int i = 0; i < 4; ++i) {
for (int y = 0; y < 224; ++y) {
for (int x = 0; x < 64; ++x) {
_frontLayer[i + x * 4 + 256 * y] = p[kPlaneSize * i + x + 64 * y];
}
}
}
}
memcpy(_backLayer, _frontLayer, _layerSize);
PC_setLevelPalettes();
}
void Video::PC_setLevelPalettes() {
debug(DBG_VIDEO, "Video::PC_setLevelPalettes()");
if (_unkPalSlot2 == 0) {
_unkPalSlot2 = _mapPalSlot3;
}
if (_unkPalSlot1 == 0) {
_unkPalSlot1 = _mapPalSlot3;
}
// background
setPaletteSlotBE(0x0, _mapPalSlot1);
// objects
setPaletteSlotBE(0x1, _mapPalSlot2);
setPaletteSlotBE(0x2, _mapPalSlot3);
setPaletteSlotBE(0x3, _mapPalSlot4);
// conrad
if (_unkPalSlot1 == _mapPalSlot3) {
setPaletteSlotLE(4, _conradPal1);
} else {
setPaletteSlotLE(4, _conradPal2);
}
// slot 5 is monster palette
// foreground
setPaletteSlotBE(0x8, _mapPalSlot1);
setPaletteSlotBE(0x9, _mapPalSlot2);
// inventory
setPaletteSlotBE(0xA, _unkPalSlot2);
setPaletteSlotBE(0xB, _mapPalSlot4);
// slots 0xC and 0xD are cutscene palettes
setTextPalette();
}
void Video::PC_decodeIcn(const uint8_t *src, int num, uint8_t *dst) {
const int offset = READ_LE_UINT16(src + num * 2);
const uint8_t *p = src + offset + 2;
for (int i = 0; i < 16 * 16 / 2; ++i) {
*dst++ = p[i] >> 4;
*dst++ = p[i] & 15;
}
}
void Video::PC_decodeSpc(const uint8_t *src, int w, int h, uint8_t *dst) {
const int size = w * h / 2;
for (int i = 0; i < size; ++i) {
*dst++ = src[i] >> 4;
*dst++ = src[i] & 15;
}
}
void Video::PC_decodeSpm(const uint8_t *dataPtr, uint8_t *dst) {
const int len = 2 * READ_BE_UINT16(dataPtr); dataPtr += 2;
uint8_t *dst2 = dst + 1024;
for (int i = 0; i < len; ++i) {
*dst2++ = dataPtr[i] >> 4;
*dst2++ = dataPtr[i] & 15;
}
const uint8_t *src = dst + 1024;
const uint8_t *end = src + len;
do {
const uint8_t code = *src++;
if (code == 0xF) {
uint8_t color = *src++;
int count = *src++;
if (color == 0xF) {
count = (count << 4) | *src++;
color = *src++;
}
count += 4;
memset(dst, color, count);
dst += count;
} else {
*dst++ = code;
}
} while (src < end);
}
static void AMIGA_planar16(uint8_t *dst, int w, int h, int depth, const uint8_t *src) {
const int pitch = w * 16;
const int planarSize = w * 2 * h;
for (int y = 0; y < h; ++y) {
for (int x = 0; x < w; ++x) {
for (int i = 0; i < 16; ++i) {
int color = 0;
const int mask = 1 << (15 - i);
for (int bit = 0; bit < depth; ++bit) {
if (READ_BE_UINT16(src + bit * planarSize) & mask) {
color |= 1 << bit;
}
}
dst[x * 16 + i] = color;
}
src += 2;
}
dst += pitch;
}
}
static void AMIGA_planar8(uint8_t *dst, int w, int h, const uint8_t *src) {
assert(w == 8);
for (int y = 0; y < h; ++y) {
for (int i = 0; i < 8; ++i) {
int color = 0;
const int mask = 1 << (7 - i);
for (int bit = 0; bit < 4; ++bit) {
if (src[bit] & mask) {
color |= 1 << bit;
}
}
dst[i] = color;
}
src += 4;
dst += w;
}
}
static void AMIGA_planar24(uint8_t *dst, int w, int h, const uint8_t *src) {
assert(w == 24);
for (int y = 0; y < h; ++y) {
for (int i = 0; i < 16; ++i) {
int color = 0;
const int mask = 1 << (15 - i);
for (int bit = 0; bit < 4; ++bit) {
if (READ_BE_UINT16(src + bit * 2) & mask) {
color |= 1 << bit;
}
}
dst[i] = color;
}
src += 8;
for (int i = 0; i < 8; ++i) {
int color = 0;
const int mask = 1 << (7 - i);
for (int bit = 0; bit < 4; ++bit) {
if (src[bit] & mask) {
color |= 1 << bit;
}
}
dst[16 + i] = color;
}
src += 4;
dst += w;
}
}
static void AMIGA_planar_mask(uint8_t *dst, int x0, int y0, int w, int h, uint8_t *src, uint8_t *mask, int size) {
dst += y0 * 256 + x0;
for (int y = 0; y < h; ++y) {
for (int x = 0; x < w * 2; ++x) {
for (int i = 0; i < 8; ++i) {
const int c_mask = 1 << (7 - i);
int color = 0;
for (int j = 0; j < 4; ++j) {
if (mask[j * size] & c_mask) {
color |= 1 << j;
}
}
if (*src & c_mask) {
const int px = x0 + 8 * x + i;
const int py = y0 + y;
if (px >= 0 && px < 256 && py >= 0 && py < 224) {
dst[8 * x + i] = color;
}
}
}
++src;
++mask;
}
dst += 256;
}
}
static void AMIGA_decodeRle(uint8_t *dst, const uint8_t *src) {
const int size = READ_BE_UINT16(src) & 0x7FFF; src += 2;
for (int i = 0; i < size; ) {
int code = src[i++];
if ((code & 0x80) == 0) {
++code;
if (i + code > size) {
code = size - i;
}
memcpy(dst, &src[i], code);
i += code;
} else {
code = 1 - ((int8_t)code);
memset(dst, src[i], code);
++i;
}
dst += code;
}
}
static void PC_drawTileMask(uint8_t *dst, int x0, int y0, int w, int h, uint8_t *m, uint8_t *p, int size) {
assert(size == (w * 2 * h));
for (int y = 0; y < h; ++y) {
for (int x = 0; x < w; ++x) {
const int bits = READ_BE_UINT16(m); m += 2;
for (int bit = 0; bit < 8; ++bit) {
const int j = y0 + y;
const int i = x0 + 2 * (x * 8 + bit);
if (i >= 0 && i < Video::GAMESCREEN_W && j >= 0 && j < Video::GAMESCREEN_H) {
const uint8_t color = *p;
if (bits & (1 << (15 - (bit * 2)))) {
dst[j * Video::GAMESCREEN_W + i] = color >> 4;
}
if (bits & (1 << (15 - (bit * 2 + 1)))) {
dst[j * Video::GAMESCREEN_W + i + 1] = color & 15;
}
}
++p;
}
}
}
}
static void decodeSgd(uint8_t *dst, const uint8_t *src, const uint8_t *data, const bool isAmiga) {
int num = -1;
uint8_t buf[256 * 32];
int count = READ_BE_UINT16(src) - 1; src += 2;
do {
int d2 = READ_BE_UINT16(src); src += 2;
const int d0 = (int16_t)READ_BE_UINT16(src); src += 2;
const int d1 = (int16_t)READ_BE_UINT16(src); src += 2;
if (d2 != 0xFFFF) {
d2 &= ~(1 << 15);
const int32_t offset = READ_BE_UINT32(data + d2 * 4);
if (offset < 0) {
const uint8_t *ptr = data - offset;
const int size = READ_BE_UINT16(ptr); ptr += 2;
if (num != d2) {
num = d2;
assert(size <= (int)sizeof(buf));
memcpy(buf, ptr, size);
}
} else {
if (num != d2) {
num = d2;
const int size = READ_BE_UINT16(data + offset) & 0x7FFF;
assert(size <= (int)sizeof(buf));
AMIGA_decodeRle(buf, data + offset);
}
}
}
const int w = (buf[0] + 1) >> 1;
const int h = buf[1] + 1;
const int planarSize = READ_BE_UINT16(buf + 2);
if (isAmiga) {
AMIGA_planar_mask(dst, d0, d1, w, h, buf + 4, buf + 4 + planarSize, planarSize);
} else {
PC_drawTileMask(dst, d0, d1, w, h, buf + 4, buf + 4 + planarSize, planarSize);
}
} while (--count >= 0);
}
static const uint8_t *AMIGA_mirrorTileY(const uint8_t *a2) {
static uint8_t buf[32];
a2 += 24;
for (int j = 0; j < 4; ++j) {
for (int i = 0; i < 8; ++i) {
buf[31 - j * 8 - i] = *a2++;
}
a2 -= 16;
}
return buf;
}
static const uint8_t *AMIGA_mirrorTileX(const uint8_t *a2) {
static uint8_t buf[32];
for (int i = 0; i < 32; ++i) {
uint8_t mask = 0;
for (int bit = 0; bit < 8; ++bit) {
if (a2[i] & (1 << bit)) {
mask |= 1 << (7 - bit);
}
}
buf[i] = mask;
}
return buf;
}
static void AMIGA_drawTile(uint8_t *dst, int pitch, const uint8_t *src, int pal, const bool xflip, const bool yflip, int colorKey) {
if (yflip) {
src = AMIGA_mirrorTileY(src);
}
if (xflip) {
src = AMIGA_mirrorTileX(src);
}
for (int y = 0; y < 8; ++y) {
for (int i = 0; i < 8; ++i) {
const int mask = 1 << (7 - i);
int color = 0;
for (int bit = 0; bit < 4; ++bit) {
if (src[8 * bit] & mask) {
color |= 1 << bit;
}
}
if (color != colorKey) {
dst[i] = pal + color;
}
}
++src;
dst += pitch;
}
}
static void PC_drawTile(uint8_t *dst, const uint8_t *src, int mask, const bool xflip, const bool yflip, int colorKey) {
int pitch = Video::GAMESCREEN_W;
if (yflip) {
dst += 7 * pitch;
pitch = -pitch;
}
int inc = 1;
if (xflip) {
dst += 7;
inc = -inc;
}
for (int y = 0; y < 8; ++y) {
for (int i = 0; i < 8; i += 2) {
int color = *src >> 4;
if (color != colorKey) {
dst[inc * i] = mask | color;
}
color = *src & 15;
if (color != colorKey) {
dst[inc * (i + 1)] = mask | color;
}
++src;
}
dst += pitch;
}
}
static void decodeLevHelper(uint8_t *dst, const uint8_t *src, int offset10, int offset12, const uint8_t *a5, bool sgdBuf, bool isPC) {
if (offset10 != 0) {
const uint8_t *a0 = src + offset10;
for (int y = 0; y < 224; y += 8) {
for (int x = 0; x < 256; x += 8) {
const int d3 = isPC ? READ_LE_UINT16(a0) : READ_BE_UINT16(a0); a0 += 2;
const int d0 = d3 & 0x7FF;
if (d0 != 0) {
const uint8_t *a2 = a5 + d0 * 32;
const bool yflip = (d3 & (1 << 12)) != 0;
const bool xflip = (d3 & (1 << 11)) != 0;
int mask = 0;
if ((d3 & 0x8000) != 0) {
mask = 0x80 + ((d3 >> 6) & 0x10);
}
if (isPC) {
PC_drawTile(dst + y * 256 + x, a2, mask, xflip, yflip, -1);
} else {
AMIGA_drawTile(dst + y * 256 + x, 256, a2, mask, xflip, yflip, -1);
}
}
}
}
}
if (offset12 != 0) {
const uint8_t *a0 = src + offset12;
for (int y = 0; y < 224; y += 8) {
for (int x = 0; x < 256; x += 8) {
const int d3 = isPC ? READ_LE_UINT16(a0) : READ_BE_UINT16(a0); a0 += 2;
int d0 = d3 & 0x7FF;
if (d0 != 0 && sgdBuf) {
d0 -= 896;
}
if (d0 != 0) {
const uint8_t *a2 = a5 + d0 * 32;
const bool yflip = (d3 & (1 << 12)) != 0;
const bool xflip = (d3 & (1 << 11)) != 0;
int mask = 0;
if ((d3 & 0x6000) != 0 && sgdBuf) {
mask = 0x10;
} else if ((d3 & 0x8000) != 0) {
mask = 0x80 + ((d3 >> 6) & 0x10);
}
if (isPC) {
PC_drawTile(dst + y * 256 + x, a2, mask, xflip, yflip, 0);
} else {
AMIGA_drawTile(dst + y * 256 + x, 256, a2, mask, xflip, yflip, 0);
}
}
}
}
}
}
void Video::AMIGA_decodeLev(int level, int room) {
uint8_t *tmp = _res->_scratchBuffer;
const int offset = READ_BE_UINT32(_res->_lev + room * 4);
if (!bytekiller_unpack(tmp, Resource::kScratchBufferSize, _res->_lev, offset)) {
warning("Bad CRC for level %d room %d", level, room);
return;
}
uint16_t offset10 = READ_BE_UINT16(tmp + 10);
const uint16_t offset12 = READ_BE_UINT16(tmp + 12);
const uint16_t offset14 = READ_BE_UINT16(tmp + 14);
static const int kTempMbkSize = 1024;
uint8_t *buf = (uint8_t *)malloc(kTempMbkSize * 32);
if (!buf) {
error("Unable to allocate mbk temporary buffer");
}
int sz = 0;
memset(buf, 0, 32);
sz += 32;
const uint8_t *a1 = tmp + offset14;
for (bool loop = true; loop;) {
int d0 = READ_BE_UINT16(a1); a1 += 2;
if (d0 & 0x8000) {
d0 &= ~0x8000;
loop = false;
}
const int d1 = _res->getBankDataSize(d0);
const uint8_t *a6 = _res->findBankData(d0);
if (!a6) {
a6 = _res->loadBankData(d0);
}
const int d3 = *a1++;
if (d3 == 255) {
assert(sz + d1 <= kTempMbkSize * 32);
memcpy(buf + sz, a6, d1);
sz += d1;
} else {
for (int i = 0; i < d3 + 1; ++i) {
const int d4 = *a1++;
assert(sz + 32 <= kTempMbkSize * 32);
memcpy(buf + sz, a6 + d4 * 32, 32);
sz += 32;
}
}
}
memset(_frontLayer, 0, _layerSize);
if (tmp[1] != 0) {
assert(_res->_sgd);
decodeSgd(_frontLayer, tmp + offset10, _res->_sgd, _res->isAmiga());
offset10 = 0;
}
decodeLevHelper(_frontLayer, tmp, offset10, offset12, buf, tmp[1] != 0, _res->isDOS());
free(buf);
memcpy(_backLayer, _frontLayer, _layerSize);
_mapPalSlot1 = READ_BE_UINT16(tmp + 2);
_mapPalSlot2 = READ_BE_UINT16(tmp + 4);
_mapPalSlot3 = READ_BE_UINT16(tmp + 6);
_mapPalSlot4 = READ_BE_UINT16(tmp + 8);
if (_res->isDOS()) {
PC_setLevelPalettes();
if (level == 0) { // tiles with color slot 0x9
setPaletteSlotBE(0x9, _mapPalSlot1);
}
return;
}
// background
setPaletteSlotBE(0x0, _mapPalSlot1);
// objects
setPaletteSlotBE(0x1, (level == 0) ? _mapPalSlot3 : _mapPalSlot2);
setPaletteSlotBE(0x2, _mapPalSlot3);
setPaletteSlotBE(0x3, _mapPalSlot3);
// conrad
setPaletteSlotBE(0x4, _mapPalSlot3);
// foreground
setPaletteSlotBE(0x8, _mapPalSlot1);
setPaletteSlotBE(0x9, (level == 0) ? _mapPalSlot1 : _mapPalSlot3);
// inventory
setPaletteSlotBE(0xA, _mapPalSlot3);
}
void Video::AMIGA_decodeSpm(const uint8_t *src, uint8_t *dst) {
uint8_t buf[256 * 32];
const int size = READ_BE_UINT16(src + 3) & 0x7FFF;
assert(size <= (int)sizeof(buf));
AMIGA_decodeRle(buf, src + 3);
const int w = (src[2] >> 7) + 1;
const int h = src[2] & 0x7F;
AMIGA_planar16(dst, w, h, 3, buf);
}
void Video::AMIGA_decodeIcn(const uint8_t *src, int num, uint8_t *dst) {
for (int i = 0; i < num; ++i) {
const int h = 1 + *src++;
const int w = 1 + *src++;
const int size = w * h * 8;
src += 4 + size;
}
const int h = 1 + *src++;
const int w = 1 + *src++;
AMIGA_planar16(dst, w, h, 4, src + 4);
}
void Video::AMIGA_decodeSpc(const uint8_t *src, int w, int h, uint8_t *dst) {
switch (w) {
case 8:
AMIGA_planar8(dst, w, h, src);
break;
case 16:
case 32:
AMIGA_planar16(dst, w / 16, h, 4, src);
break;
case 24:
AMIGA_planar24(dst, w, h, src);
break;
default:
warning("AMIGA_decodeSpc w=%d unimplemented", w);
break;
}
}
void Video::AMIGA_decodeCmp(const uint8_t *src, uint8_t *dst) {
AMIGA_planar16(dst, 20, 224, 5, src);
}
void Video::drawSpriteSub1(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub1(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[i] != 0) {
dst[i] = src[i] | colMask;
}
}
src += pitch;
dst += 256;
}
}
void Video::drawSpriteSub2(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub2(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[-i] != 0) {
dst[i] = src[-i] | colMask;
}
}
src += pitch;
dst += 256;
}
}
void Video::drawSpriteSub3(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub3(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[i] != 0 && !(dst[i] & 0x80)) {
dst[i] = src[i] | colMask;
}
}
src += pitch;
dst += 256;
}
}
void Video::drawSpriteSub4(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub4(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[-i] != 0 && !(dst[i] & 0x80)) {
dst[i] = src[-i] | colMask;
}
}
src += pitch;
dst += 256;
}
}
void Video::drawSpriteSub5(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub5(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[i * pitch] != 0 && !(dst[i] & 0x80)) {
dst[i] = src[i * pitch] | colMask;
}
}
++src;
dst += 256;
}
}
void Video::drawSpriteSub6(const uint8_t *src, uint8_t *dst, int pitch, int h, int w, uint8_t colMask) {
debug(DBG_VIDEO, "Video::drawSpriteSub6(0x%X, 0x%X, 0x%X, 0x%X)", pitch, w, h, colMask);
while (h--) {
for (int i = 0; i < w; ++i) {
if (src[-i * pitch] != 0 && !(dst[i] & 0x80)) {
dst[i] = src[-i * pitch] | colMask;
}
}
++src;
dst += 256;
}
}
void Video::PC_drawChar(uint8_t c, int16_t y, int16_t x, bool forceDefaultFont) {
debug(DBG_VIDEO, "Video::PC_drawChar(0x%X, %d, %d)", c, y, x);
const uint8_t *fnt = (_res->_lang == LANG_JP && !forceDefaultFont) ? _font8Jp : _res->_fnt;
y *= CHAR_W;
x *= CHAR_H;
const uint8_t *src = fnt + (c - 32) * 32;
uint8_t *dst = _frontLayer + x + _w * y;
for (int h = 0; h < CHAR_H; ++h) {
for (int i = 0; i < 4; ++i, ++src) {
const uint8_t c1 = *src >> 4;
if (c1 != 0) {
if (c1 != 2) {
*dst = _charFrontColor;
} else {
*dst = _charShadowColor;
}
} else if (_charTransparentColor != 0xFF) {
*dst = _charTransparentColor;
}
++dst;
const uint8_t c2 = *src & 15;
if (c2 != 0) {
if (c2 != 2) {
*dst = _charFrontColor;
} else {
*dst = _charShadowColor;
}
} else if (_charTransparentColor != 0xFF) {
*dst = _charTransparentColor;
}
++dst;
}
dst += _w - CHAR_W;
}
}
void Video::AMIGA_drawStringChar(uint8_t *dst, int pitch, int x, int y, const uint8_t *src, uint8_t color, uint8_t chr) {
dst += y * pitch + x;
assert(chr >= 32);
AMIGA_decodeIcn(src, chr - 32, _res->_scratchBuffer);
src = _res->_scratchBuffer;
for (int y = 0; y < 8; ++y) {
for (int x = 0; x < 8; ++x) {
if (src[x] != 0) {
dst[x] = color;
}
}
src += 16;
dst += pitch;
}
}
void Video::PC_drawStringChar(uint8_t *dst, int pitch, int x, int y, const uint8_t *src, uint8_t color, uint8_t chr) {
dst += y * pitch + x;
assert(chr >= 32);
src += (chr - 32) * 8 * 4;
for (int y = 0; y < 8; ++y) {
for (int x = 0; x < 4; ++x) {
const uint8_t c1 = src[x] >> 4;
if (c1 != 0) {
*dst = (c1 == 15) ? color : (0xE0 + c1);
}
++dst;
const uint8_t c2 = src[x] & 15;
if (c2 != 0) {
*dst = (c2 == 15) ? color : (0xE0 + c2);
}
++dst;
}
src += 4;
dst += pitch - CHAR_W;
}
}
static uint8_t _MAC_fontFrontColor;
static uint8_t _MAC_fontShadowColor;
void Video::MAC_drawStringChar(uint8_t *dst, int pitch, int x, int y, const uint8_t *src, uint8_t color, uint8_t chr) {
DecodeBuffer buf;
memset(&buf, 0, sizeof(buf));
buf.ptr = dst;
buf.w = buf.pitch = _w;
buf.h = _h;
buf.x = x * _layerScale;
buf.y = y * _layerScale;
buf.setPixel = Video::MAC_setPixelFont;
_MAC_fontFrontColor = color;
_MAC_fontShadowColor = _charShadowColor;
assert(chr >= 32);
_res->MAC_decodeImageData(_res->_fnt, chr - 32, &buf);
}
const char *Video::drawString(const char *str, int16_t x, int16_t y, uint8_t col) {
debug(DBG_VIDEO, "Video::drawString('%s', %d, %d, 0x%X)", str, x, y, col);
const uint8_t *fnt = (_res->_lang == LANG_JP) ? _font8Jp : _res->_fnt;
int len = 0;
while (1) {
const uint8_t c = *str++;
if (c == 0 || c == 0xB || c == 0xA) {
break;
}
(this->*_drawChar)(_frontLayer, _w, x + len * CHAR_W, y, fnt, col, c);
++len;
}
markBlockAsDirty(x, y, len * CHAR_W, CHAR_H, _layerScale);
return str - 1;
}
void Video::drawStringLen(const char *str, int len, int x, int y, uint8_t color) {
const uint8_t *fnt = (_res->_lang == LANG_JP) ? _font8Jp : _res->_fnt;
for (int i = 0; i < len; ++i) {
(this->*_drawChar)(_frontLayer, _w, x + i * CHAR_W, y, fnt, color, str[i]);
}
markBlockAsDirty(x, y, len * CHAR_W, CHAR_H, _layerScale);
}
Color Video::AMIGA_convertColor(const uint16_t color, bool bgr) { // 4bits to 8bits
int r = (color & 0xF00) >> 8;
int g = (color & 0xF0) >> 4;
int b = color & 0xF;
if (bgr) {
SWAP(r, b);
}
Color c;
c.r = (r << 4) | r;
c.g = (g << 4) | g;
c.b = (b << 4) | b;
return c;
}
void Video::MAC_decodeMap(int level, int room) {
DecodeBuffer buf;
memset(&buf, 0, sizeof(buf));
buf.ptr = _frontLayer;
buf.w = buf.pitch = _w;
buf.h = _h;
buf.setPixel = Video::MAC_setPixel;
_res->MAC_loadLevelRoom(level, room, &buf);
memcpy(_backLayer, _frontLayer, _layerSize);
Color roomPalette[256];
_res->MAC_setupRoomClut(level, room, roomPalette);
for (int j = 0; j < 16; ++j) {
if (j == 5 || j == 7 || j == 14 || j == 15) {
continue;
}
for (int i = 0; i < 16; ++i) {
const int color = j * 16 + i;
_stub->setPaletteEntry(color, &roomPalette[color]);
}
}
}
void Video::MAC_setPixel(DecodeBuffer *buf, int x, int y, uint8_t color) {
const int offset = y * buf->pitch + x;
buf->ptr[offset] = color;
}
void Video::MAC_setPixelMask(DecodeBuffer *buf, int x, int y, uint8_t color) {
const int offset = y * buf->pitch + x;
if ((buf->ptr[offset] & 0x80) == 0) {
buf->ptr[offset] = color;
}
}
void Video::MAC_setPixelFont(DecodeBuffer *buf, int x, int y, uint8_t color) {
const int offset = y * buf->pitch + x;
switch (color) {
case 0xC0:
buf->ptr[offset] = _MAC_fontShadowColor;
break;
case 0xC1:
buf->ptr[offset] = _MAC_fontFrontColor;
break;
}
}
void Video::fillRect(int x, int y, int w, int h, uint8_t color) {
uint8_t *p = _frontLayer + y * _layerScale * _w + x * _layerScale;
for (int j = 0; j < h * _layerScale; ++j) {
memset(p, color, w * _layerScale);
p += _w;
}
}
static void fixOffsetDecodeBuffer(DecodeBuffer *buf, const uint8_t *dataPtr) {
if (buf->xflip) {
buf->x += (int16_t)READ_BE_UINT16(dataPtr + 4) - READ_BE_UINT16(dataPtr) - 1;
} else {
buf->x -= (int16_t)READ_BE_UINT16(dataPtr + 4);
}
buf->y -= (int16_t)READ_BE_UINT16(dataPtr + 6);
}
void Video::MAC_drawSprite(int x, int y, const uint8_t *data, int frame, bool xflip, bool eraseBackground) {
const uint8_t *dataPtr = _res->MAC_getImageData(data, frame);
if (dataPtr) {
DecodeBuffer buf;
memset(&buf, 0, sizeof(buf));
buf.xflip = xflip;
buf.ptr = _frontLayer;
buf.w = buf.pitch = _w;
buf.h = _h;
buf.x = x * _layerScale;
buf.y = y * _layerScale;
buf.setPixel = eraseBackground ? MAC_setPixel : MAC_setPixelMask;
fixOffsetDecodeBuffer(&buf, dataPtr);
_res->MAC_decodeImageData(data, frame, &buf);
markBlockAsDirty(buf.x, buf.y, READ_BE_UINT16(dataPtr), READ_BE_UINT16(dataPtr + 2), 1);
}
}