mirror of
https://github.com/nunuhara/xsystem4.git
synced 2026-09-29 18:38:04 +03:00
Nunuhara Cabbage
d3de009e1d
Plus a bit of SACT2 implementation, and fix a bug where global arrays were not initialized properly.
321 lines
8.5 KiB
C
321 lines
8.5 KiB
C
/*
|
|
* pms.c extract 8/16 bit PMS cg
|
|
*
|
|
* Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
|
|
* 1998- <masaki-c@is.aist-nara.ac.jp>
|
|
* 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
|
|
*
|
|
* 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
|
|
*
|
|
* pms256.c
|
|
* 0.00 97/11/06 初版
|
|
* 0.01 97/11/13 ヘッダ情報の返しかたの変更
|
|
* 0.01-01 97/11/27 記憶子の変更
|
|
* 0.02 98/02/26 デバッグ完了
|
|
* pms64k.c
|
|
* 0.00 97/11/06 初版
|
|
* 0.01 97/11/13 ヘッダ情報の返しかたの変更
|
|
* 0.02 98/02/26 デバッグ完了
|
|
* 0.03 98/07/27 うそぷ〜。透明色の展開まずってた。
|
|
* @version 1.1 00/09/17 rewrite for changeing interface
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "little_endian.h"
|
|
#include "graphics.h"
|
|
#include "cg.h"
|
|
#include "pms.h"
|
|
|
|
/*
|
|
* static methods
|
|
*/
|
|
static struct pms_header *extract_header(uint8_t *b);
|
|
static void getpal(Pallet256 *pal, uint8_t *b);
|
|
static void extract_8bit(struct pms_header *pms, uint8_t *pic, uint8_t *b);
|
|
static void extract_16bit(struct pms_header *pms, uint16_t *pic, uint8_t *b);
|
|
|
|
/*
|
|
* Get information from cg header
|
|
* b: raw data (pointer to header)
|
|
* return: acquired pms information object
|
|
*/
|
|
static struct pms_header *extract_header(uint8_t *b) {
|
|
struct pms_header *pms = malloc(sizeof(struct pms_header));
|
|
|
|
pms->pmsVer = LittleEndian_getW(b, 2);
|
|
pms->pmsHdrSize = LittleEndian_getW(b, 4);
|
|
pms->pmsBpp = b[6];
|
|
pms->pmsBppS = b[7];
|
|
pms->pmsSf = b[8];
|
|
pms->pmsBf = LittleEndian_getW(b, 10);
|
|
pms->pmsX0 = LittleEndian_getDW(b, 16);
|
|
pms->pmsY0 = LittleEndian_getDW(b, 20);
|
|
pms->pmsXW = LittleEndian_getDW(b, 24);
|
|
pms->pmsYW = LittleEndian_getDW(b, 28);
|
|
pms->pmsDp = LittleEndian_getDW(b, 32);
|
|
pms->pmsPp = LittleEndian_getDW(b, 36);
|
|
pms->pmsCp = LittleEndian_getDW(b, 40);
|
|
|
|
return pms;
|
|
}
|
|
|
|
/*
|
|
* Get pallet from raw data
|
|
* pal: pallet to be stored
|
|
* b : raw data (pointer to pallet)
|
|
*/
|
|
static void getpal(Pallet256 *pal, uint8_t *b) {
|
|
int i;
|
|
|
|
for (i = 0; i < 256; i++) {
|
|
pal->red[i] = *b++;
|
|
pal->green[i] = *b++;
|
|
pal->blue[i] = *b++;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Do extract 8bit pms image
|
|
* pms: pms header information
|
|
* pic: pixel to be stored
|
|
* b : raw data (pointer to pixel)
|
|
*/
|
|
static void extract_8bit(struct pms_header *pms, uint8_t *pic, uint8_t *b) {
|
|
int c0, c1;
|
|
int x, y, loc, l, i;
|
|
int scanline = pms->pmsXW;
|
|
|
|
for (y = 0; y < pms->pmsYW; y ++) {
|
|
for (x = 0; x < pms->pmsXW; ) {
|
|
loc = y * scanline + x;
|
|
c0 = *b++;
|
|
if (c0 <= 0xf7) {
|
|
*(pic + loc) = c0; x++;
|
|
} else if (c0 == 0xff) {
|
|
l = (*b) + 3; x+=l; b++;
|
|
memcpy(pic + loc, pic + loc - scanline, l);
|
|
} else if (c0 == 0xfe) {
|
|
l = (*b) + 3; x+=l; b++;
|
|
memcpy(pic + loc, pic + loc - scanline * 2, l);
|
|
} else if (c0 == 0xfd) {
|
|
l = (*b) + 4; x+=l; b++;
|
|
c0 = *b++;
|
|
memset(pic + loc, c0, l);
|
|
} else if (c0 == 0xfc) {
|
|
l = ((*b) + 3) * 2; x+=l; b++;
|
|
c0 = *b++; c1 = *b++;
|
|
for (i = 0; i < l; i+=2) {
|
|
*(pic + loc + i ) = c0;
|
|
*(pic + loc + i + 1) = c1;
|
|
}
|
|
} else {
|
|
*(pic + loc) = *b++; x++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Do extract 16bit pms image
|
|
* pms: pms header information
|
|
* pic: pixel to be stored
|
|
* b : raw data (pointer to pixel)
|
|
*/
|
|
static void extract_16bit(struct pms_header *pms, uint16_t *pic, uint8_t *b) {
|
|
int c0, c1, pc0, pc1;
|
|
int x, y, i, l, loc;
|
|
int scanline = pms->pmsXW;
|
|
|
|
for (y = 0; y < pms->pmsYW; y++) {
|
|
for (x = 0; x < pms->pmsXW;) {
|
|
loc = y * scanline + x;
|
|
c0 = *b++;
|
|
if (c0 <= 0xf7) {
|
|
c1 = *b++; x++;
|
|
*(pic + loc) = c0 | (c1 << 8);
|
|
} else if (c0 == 0xff) {
|
|
l = (*b) + 2; x+=l; b++;
|
|
for (i = 0; i < l; i++) {
|
|
*(pic + loc + i) = *(pic + loc + i - scanline);
|
|
}
|
|
} else if (c0 == 0xfe) {
|
|
l = (*b) + 2; x+=l; b++;
|
|
for (i = 0; i < l; i++) {
|
|
*(pic + loc + i) = *(pic + loc + i - scanline * 2);
|
|
}
|
|
} else if (c0 == 0xfd) {
|
|
l = (*b) + 3; x+=l; b++;
|
|
c0 = *b++; c1 = *b++;
|
|
pc0 = c0 | (c1 << 8);
|
|
for (i = 0; i < l; i++) {
|
|
*(pic + loc + i) = pc0;
|
|
}
|
|
} else if (c0 == 0xfc) {
|
|
l = ((*b) + 2) * 2; x+=l; b++;
|
|
c0 = *b++; c1 = *b++; pc0 = c0 | (c1 << 8);
|
|
c0 = *b++; c1 = *b++; pc1 = c0 | (c1 << 8);
|
|
for (i = 0; i < l; i+=2) {
|
|
*(pic + loc + i ) = pc0;
|
|
*(pic + loc + i + 1) = pc1;
|
|
}
|
|
} else if (c0 == 0xfb) {
|
|
x++;
|
|
*(pic + loc) = *(pic + loc - scanline - 1);
|
|
} else if (c0 == 0xfa) {
|
|
x++;
|
|
*(pic + loc) = *(pic + loc - scanline + 1);
|
|
} else if (c0 == 0xf9) {
|
|
l = (*b) + 1; x+=l; b++;
|
|
c0 = *b++; c1 = *b++;
|
|
pc0 = ((c0 & 0xe0) << 8) + ((c0 & 0x18) << 6) + ((c0 & 0x07) << 2);
|
|
pc1 = ((c1 & 0xc0) << 5) + ((c1 & 0x3c) << 3) + (c1 & 0x03);
|
|
*(pic + loc) = pc0 + pc1;
|
|
for (i = 1; i < l; i++) {
|
|
c1 = *b++;
|
|
pc1 = ((c1 & 0xc0) << 5) + ((c1 & 0x3c) << 3) + (c1 & 0x03);
|
|
*(pic + loc + i) = pc0 | pc1;
|
|
}
|
|
} else {
|
|
c0 = *b++; c1 = *b++; x++;
|
|
*(pic + loc) = c0 | (c1 << 8);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Check data is 8bit pms format cg or not
|
|
* data: raw data (pointer to data top)
|
|
* return: true if data is pms
|
|
*/
|
|
bool pms256_checkfmt(uint8_t *data) {
|
|
int x, y, w, h;
|
|
|
|
if (data[0] != 0x50 || data[1] != 0x4d) return false;
|
|
if (data[6] != 8) return false;
|
|
|
|
x = LittleEndian_getDW(data, 16);
|
|
y = LittleEndian_getDW(data, 20);
|
|
w = LittleEndian_getDW(data, 24);
|
|
h = LittleEndian_getDW(data, 28);
|
|
|
|
if (x < 0 || y < 0 || w < 0 || h < 0) return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
/*
|
|
* Extract 8bit pms, header, pallet and pixel
|
|
* data: raw data (pointer to data top)
|
|
* return: extracted image data and information
|
|
*/
|
|
struct cg *pms256_extract(uint8_t *data) {
|
|
struct cg *cg = calloc(1, sizeof(struct cg));
|
|
struct pms_header *pms = extract_header(data);
|
|
|
|
cg->pal = malloc(sizeof(Pallet256));
|
|
getpal(cg->pal, data + pms->pmsPp);
|
|
|
|
// +10: margin for broken cg
|
|
cg->pic = malloc(sizeof(uint8_t) * ((pms->pmsXW + 10) * (pms->pmsYW + 10)));
|
|
extract_8bit(pms, cg->pic, data + pms->pmsDp);
|
|
|
|
cg->type = ALCG_PMS8;
|
|
cg->x = pms->pmsX0;
|
|
cg->y = pms->pmsY0;
|
|
cg->width = pms->pmsXW;
|
|
cg->height = pms->pmsYW;
|
|
cg->pms_bank = pms->pmsBf;
|
|
cg->alpha = NULL;
|
|
|
|
free(pms);
|
|
|
|
return cg;
|
|
}
|
|
|
|
/*
|
|
* Check data is 16bit pms format cg or not
|
|
* data: raw data (pointer to data top)
|
|
* return: true if data is pms
|
|
*/
|
|
bool pms64k_checkfmt(uint8_t *data) {
|
|
int x, y, w, h;
|
|
|
|
if (data[0] != 0x50 || data[1] != 0x4d) return false;
|
|
if (data[6] != 16) return false;
|
|
|
|
x = LittleEndian_getDW(data, 16);
|
|
y = LittleEndian_getDW(data, 20);
|
|
w = LittleEndian_getDW(data, 24);
|
|
h = LittleEndian_getDW(data, 28);
|
|
|
|
if (x < 0 || y < 0 || w < 0 || h < 0) return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
/*
|
|
* Extract 16bit pms, header, pallet and pixel
|
|
* data: raw data (pointer to data top)
|
|
* return: extracted image data and information
|
|
*/
|
|
struct cg *pms64k_extract(uint8_t *data) {
|
|
struct cg *cg = calloc(1, sizeof(struct cg));
|
|
struct pms_header *pms = extract_header(data);
|
|
|
|
// +10: margin for broken cg
|
|
cg->pic = (uint8_t *)malloc(sizeof(uint16_t) * ((pms->pmsXW + 10) * (pms->pmsYW + 10)));
|
|
extract_16bit(pms, (uint16_t *)cg->pic, data + pms->pmsDp);
|
|
|
|
cg->alpha = NULL;
|
|
if (pms->pmsPp != 0) {
|
|
cg->alpha = malloc(sizeof(uint8_t) * ((pms->pmsXW + 10) * (pms->pmsYW + 10)));
|
|
extract_8bit(pms, cg->alpha, data + pms->pmsPp);
|
|
}
|
|
|
|
cg->type = ALCG_PMS16;
|
|
cg->x = pms->pmsX0;
|
|
cg->y = pms->pmsY0;
|
|
cg->width = pms->pmsXW;
|
|
cg->height = pms->pmsYW;
|
|
cg->pal = NULL;
|
|
|
|
free(pms);
|
|
|
|
return cg;
|
|
}
|
|
|
|
/*
|
|
* Extract pms pallet only
|
|
* data: raw data (pointer to data top)
|
|
* return: extracted pallet data
|
|
*/
|
|
struct cg *pms_getpal(uint8_t *data) {
|
|
struct cg *cg = calloc(1, sizeof(struct cg));
|
|
struct pms_header *pms = extract_header(data);
|
|
|
|
cg->pal = malloc(sizeof(Pallet256));
|
|
getpal(cg->pal, data + pms->pmsPp);
|
|
|
|
cg->type = ALCG_PMS8;
|
|
cg->pic = NULL;
|
|
cg->alpha = NULL;
|
|
|
|
free(pms);
|
|
|
|
return cg;
|
|
}
|