/* =========================================================================== */
CR_API bool create_crh3d9_base_wf (asy::object_base* base, const sWAVEFRONT* obj,
create_crh3d9_attr_wf_t fattr, create_crh3d9_mesh_wf_t fmesh,
const asy::map_acs<asy::crh3d9_texr>* texpool,
const asy::crh3d9_main* main)
{
asy::commit_batch cb;
base->list.init();
base->real = NULL;
base->kill = NULL;
for (leng_t idx = 0; idx < obj->n_m; idx++)
{
leng_t ii, cnt = 0, cmp = idx + 1;
for (ii = 0; ii < obj->n_g; ii++) {
if (obj->p_g[ii].attr > cmp)
break;
if (obj->p_g[ii].attr == cmp)
cnt += 1;
}
if (cnt == 0)
continue;
cb.attr = fattr(&obj->p_m[idx], texpool, main);
if (cb.attr == NULL)
goto _failure1;
cb.mesh = mem_talloc(cnt + 1, asy::IMesh*);
if (cb.mesh == NULL) {
delete cb.attr;
goto _failure1;
}
for (cnt = 0, ii = 0; ii < obj->n_g; ii++) {
if (obj->p_g[ii].attr > cmp)
break;
if (obj->p_g[ii].attr == cmp) {
cb.mesh[cnt] = fmesh(obj, ii, main);
if (cb.mesh[cnt] == NULL)
goto _failure2;
cnt += 1;
}
}
cb.mesh[cnt] = NULL;
if (base->list.append(&cb) == NULL)
goto _failure2;
}
if (base->list.size() == 0)
goto _failure1;
if (!base->list.no_grow())
goto _failure1;
base->real = struct_dup(obj, sWAVEFRONT);
if (base->real == NULL)
goto _failure1;
base->type = MODEL_TYPE_WF_OBJ;
base->kill = wavefront_kill;
base->tran = wavefront_tran;
bound_get_aabb(&base->aabb, obj->p_v, obj->n_v, sizeof(vec3d_t));
bound_get_ball(&base->ball, obj->p_v, obj->n_v, sizeof(vec3d_t));
return (true);
_failure2:
cb.free();
_failure1:
base->free();
return (false);
}
/*
=======================================
PNG 文件读取
=======================================
*/
CR_API sFMT_PIC*
load_cr_png (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
leng_t nbpl;
leng_t sbpp;
leng_t dptr;
uint_t fcrh;
uint_t index;
uchar* image;
uchar* sdata;
uchar* ddata;
leng_t dsize;
int32u ssize;
uint_t ww, hh;
byte_t pal[768];
/* ----------- */
fsize_t fsze;
sPNG_HDR head;
sFMT_PIC* rett;
sFMT_FRAME temp;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 读取 & 检查头部 */
if (!(CR_VCALL(datin)->geType(datin, &head, sPNG_HDR)))
return (NULL);
if (mem_cmp(&head, "\x89PNG\r\n\x1A\n\0\0\0\x0DIHDR", 16) != 0)
return (NULL);
if (head.info.compr != 0 || head.info.filter != 0 ||
head.info.interlace != 0)
return (NULL);
/* 对宽高的截断检查 */
if (cut_int32_u(&ww, DWORD_BE(head.info.w)))
return (NULL);
if (cut_int32_u(&hh, DWORD_BE(head.info.h)))
return (NULL);
/* 生成图片对象 */
mem_zero(temp.wh, sizeof(temp.wh));
switch (head.info.color)
{
case 0: /* 灰度图像 */
if (head.info.depth != 1 &&
head.info.depth != 2 &&
head.info.depth != 4 &&
head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_INDEX8;
temp.fmt = CR_PIC_GREY;
temp.bpp = head.info.depth;
temp.clr = "I";
temp.wh[0] = head.info.depth;
break;
case 2: /* 真彩图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB888;
temp.fmt = CR_PIC_ARGB;
temp.bpp = head.info.depth * 3;
temp.clr = "BGR";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
temp.wh[2] = head.info.depth;
break;
case 3: /* 索引图像 */
if (head.info.depth != 1 &&
head.info.depth != 2 &&
head.info.depth != 4 &&
head.info.depth != 8)
return (NULL);
fcrh = CR_INDEX8;
temp.fmt = CR_PIC_PALS;
temp.bpp = head.info.depth;
temp.clr = "P";
temp.wh[0] = head.info.depth;
break;
case 4: /* α灰度图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB8888;
temp.fmt = CR_PIC_GREY;
temp.bpp = head.info.depth * 2;
temp.clr = "AI";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
break;
case 6: /* α真彩图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB8888;
temp.fmt = CR_PIC_ARGB;
temp.bpp = head.info.depth * 4;
temp.clr = "ABGR";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
temp.wh[2] = head.info.depth;
temp.wh[3] = head.info.depth;
break;
default:
return (NULL);
}
sbpp = (temp.bpp - 1) / 8 + 1;
temp.pic = image_new(0, 0, ww, hh, fcrh, FALSE, 4);
if (temp.pic == NULL)
return (NULL);
/* 生成灰度调色板 */
if (temp.fmt == CR_PIC_GREY)
pal_set_gray8(temp.pic->pal, 256);
/* 分配 IDAT 的内存 */
fsze = dati_get_size(datin);
if (fsze <= sizeof(sPNG_HDR) + sizeof(sIEND) * 2)
goto _failure1;
fsze -= sizeof(sPNG_HDR) + sizeof(sIEND) * 2;
ddata = (byte_t*)mem_malloc64(fsze);
if (ddata == NULL)
goto _failure1;
dsize = (leng_t)fsze;
/* 读取数据块 */
dptr = 0;
fcrh = 256; /* 这个保存调色板颜色数 */
do
{
/* 数据块大小 */
if (!(CR_VCALL(datin)->geType(datin, &head.info, sCHUNK)))
goto _failure2;
ssize = DWORD_BE(head.info.head.size);
if (ssize > fsze)
goto _failure2;
if (head.info.head.name == mk_tag4("PLTE"))
{
/* 调色板, 安全检查 */
if (ssize > 768 || ssize % 3 != 0)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, ssize) != ssize)
goto _failure2;
/* 转换到 4B 格式 */
fcrh = (uint_t)ssize / 3;
pal_3b_to_4b_sw(temp.pic->pal, pal, fcrh);
}
else
if (head.info.head.name == mk_tag4("IDAT"))
{
/* 检查缓冲溢出 */
if (dsize < ssize)
goto _failure2;
if (CR_VCALL(datin)->read(datin, ddata + dptr, ssize) != ssize)
goto _failure2;
dptr += ssize;
dsize -= ssize;
}
else
if (head.info.head.name == mk_tag4("tRNS"))
{
/* 透明数据 */
if (head.info.color == 0) {
if (ssize != 2)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, 2) != 2)
goto _failure2;
/* 调色板的这个颜色为透明色 */
if (head.info.depth != 16)
temp.pic->pal[pal[1]] &= CDWORD_LE(0x00FFFFFFUL);
}
else
if (head.info.color == 2) {
if (ssize != 6)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, 6) != 6)
goto _failure2;
/* 这个颜色为透明色, 这里只能展开来写
否则 C++Builder 2010 编译器编译时会崩溃 */
if (head.info.depth != 16) {
temp.pic->keycolor = pal[1];
temp.pic->keycolor <<= 8;
temp.pic->keycolor |= pal[3];
temp.pic->keycolor <<= 8;
temp.pic->keycolor |= pal[5];
temp.pic->keycolor |= 0xFF000000UL;
temp.pic->keycolor = DWORD_LE(temp.pic->keycolor);
}
}
else
if (head.info.color == 3) {
if (ssize > fcrh)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, ssize) != ssize)
goto _failure2;
/* 设置调色板的 Alpha 通道 */
for (fcrh = (uint_t)ssize, index = 0; index < fcrh; index++)
((uchar*)temp.pic->pal)[index * 4 + 3] = pal[index];
}
else {
goto _failure2;
}
}
else
{
/* 跳过其他数据块 */
if (!CR_VCALL(datin)->seek(datin, ssize, SEEK_CUR))
goto _failure2;
}
/* 跳过 CRC-32 */
if (!CR_VCALL(datin)->seek(datin, 4, SEEK_CUR))
goto _failure2;
} while (head.info.head.name != mk_tag4("IEND"));
/* 无 IDAT 块 */
if (dptr == 0)
goto _failure2;
/* 分配带 filter 的图形内存 */
if (cut_mad(&dsize, ww, sbpp * hh, hh))
goto _failure2;
sdata = (byte_t*)mem_malloc(dsize);
if (sdata == NULL)
goto _failure2;
/* 解压图形数据 */
dptr = uncompr_zlib(sdata, dsize, ddata, dptr);
mem_free(ddata);
ddata = sdata;
if (dptr <= hh)
goto _failure2;
image = temp.pic->data;
/* 文件解码完毕, 解析图片的像素数据 */
if (temp.pic->fmt == CR_INDEX8)
{
switch (head.info.depth)
{
case 1:
if (ww % 8 == 0)
nbpl = ww / 8;
else
nbpl = ww / 8 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font1_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 2:
if (ww % 4 == 0)
nbpl = ww / 4;
else
nbpl = ww / 4 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font2_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 4:
if (ww % 2 == 0)
nbpl = ww / 2;
else
nbpl = ww / 2 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font4_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 8:
nbpl = ww;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
mem_cpy(image, sdata, nbpl);
sdata += nbpl;
image += temp.pic->bpl;
}
break;
default:
case 16:
nbpl = ww;
nbpl *= 2;
if (!png_filter(ddata, nbpl, 2, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
for (fcrh = 0; fcrh < ww; fcrh++, sdata += 2)
image[fcrh] = sdata[0];
image += temp.pic->bpl;
}
break;
}
}
else
{
nbpl = ww * sbpp;
if (!png_filter(ddata, nbpl, sbpp, hh, dptr))
goto _failure2;
nbpl = ww * temp.pic->bpc;
switch (head.info.color)
{
case 2:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 3) {
image[dsize + 0] = sdata[2];
image[dsize + 1] = sdata[1];
image[dsize + 2] = sdata[0];
sdata += 3;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 3) {
image[dsize + 0] = sdata[4];
image[dsize + 1] = sdata[2];
image[dsize + 2] = sdata[0];
sdata += 6;
}
image += temp.pic->bpl;
}
}
break;
case 4:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[0];
image[dsize + 1] = sdata[0];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[1];
sdata += 2;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[0];
image[dsize + 1] = sdata[0];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[2];
sdata += 4;
}
image += temp.pic->bpl;
}
}
break;
default:
case 6:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[2];
image[dsize + 1] = sdata[1];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[3];
sdata += 4;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[4];
image[dsize + 1] = sdata[2];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[6];
sdata += 8;
}
image += temp.pic->bpl;
}
}
break;
}
}
mem_free(ddata);
/* 返回读取的文件数据 */
rett = struct_new(sFMT_PIC);
if (rett == NULL)
goto _failure1;
rett->frame = struct_dup(&temp, sFMT_FRAME);
if (rett->frame == NULL) {
mem_free(rett);
goto _failure1;
}
CR_NOUSE(param);
rett->type = CR_FMTZ_PIC;
rett->count = 1;
rett->infor = "Portable Network Graphics (PNG)";
return (rett);
_failure2:
mem_free(ddata);
_failure1:
image_del(temp.pic);
return (NULL);
}
/*
---------------------------------------
获取图片帧
---------------------------------------
*/
static sFMT_PIC*
iPIC_AIA_get (
__CR_IN__ iPICTURE* that,
__CR_IN__ int32u index
)
{
leng_t bpln;
leng_t paln;
int32u* dest;
iPIC_AIA* real;
sFMT_PIC* rett;
sAIA_IDX* attr;
sFMT_FRAME temp;
/* 帧号过滤 */
if (index >= that->__count__)
return (NULL);
/* 生成图片对象 */
real = (iPIC_AIA*)that;
mem_zero(temp.wh, sizeof(temp.wh));
temp.fmt = CR_PIC_ARGB;
temp.bpp = 32;
temp.clr = "ARGB";
temp.wh[0] = 8;
temp.wh[1] = 8;
temp.wh[2] = 8;
temp.wh[3] = 8;
temp.pic = image_new(0, 0, real->m_ww, real->m_hh,
CR_ARGB8888, FALSE, 4);
if (temp.pic == NULL)
return (NULL);
mem_zero(temp.pic->data, temp.pic->size);
/* 解码图形数据 */
attr = &real->m_attr[index];
bpln = (leng_t)real->m_ww;
paln = (leng_t)attr->pal_idx;
dest = (int32u*)(temp.pic->data);
dest += attr->y1 * bpln + attr->x1;
if (!decode_aia(dest, &real->m_dats[attr->offset],
real->m_size - attr->offset, &real->m_pals[paln * 256],
attr->x2, attr->y2, real->m_ww - attr->x2))
goto _failure;
/* 返回读取的文件数据 */
rett = struct_new(sFMT_PIC);
if (rett == NULL)
goto _failure;
rett->frame = struct_dup(&temp, sFMT_FRAME);
if (rett->frame == NULL) {
mem_free(rett);
goto _failure;
}
rett->type = CR_FMTZ_PIC;
rett->count = 1;
rett->infor = "FALCOM YS AIA Image File (*.AIA)";
return (rett);
_failure:
image_del(temp.pic);
return (NULL);
}
/*
=======================================
TGL CGR 文件读取
=======================================
*/
CR_API sFMT_PIC*
load_tgl_cgr (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
int32u wnh[2];
uint_t ww, hh;
/*************/
byte_t* line;
fsize_t size;
sFMT_PIC* rett;
sFMT_FRAME temp;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 只能根据文件大小来判断 */
size = dati_get_size(datin);
if (size <= 0x600 + 12)
return (NULL);
if (!CR_VCALL(datin)->seek(datin, 0x600, SEEK_SET))
return (NULL);
if (CR_VCALL(datin)->read(datin, wnh, 8) != 8)
return (NULL);
wnh[0] = DWORD_LE(wnh[0]);
wnh[1] = DWORD_LE(wnh[1]);
size = wnh[0];
size *= wnh[1];
size += 0x600 + 12;
if (size != dati_get_size(datin))
return (NULL);
/* 对宽高的截断检查 */
if (cut_int32_u(&ww, wnh[0]))
return (NULL);
if (cut_int32_u(&hh, wnh[1]))
return (NULL);
/* 定位到调色板 */
if (!CR_VCALL(datin)->rewind(datin))
return (NULL);
/* 生成图片对象 */
mem_zero(temp.wh, sizeof(temp.wh));
temp.fmt = CR_PIC_PALS;
temp.bpp = 8;
temp.clr = "P";
temp.wh[0] = 8;
temp.pic = image_new(0, 0, ww, hh, CR_INDEX8, FALSE, 4);
if (temp.pic == NULL)
return (NULL);
/* 读取调色板数据 */
if (CR_VCALL(datin)->read(datin, temp.pic->pal, 1024) != 1024)
goto _failure;
line = temp.pic->data;
pal_4b_alp_sw(temp.pic->pal, TRUE, 0xFF, 256);
/* 定位到图片数据 */
if (!CR_VCALL(datin)->seek(datin, 0x600 + 12, SEEK_SET))
goto _failure;
/* 读取图片数据 */
for (; hh != 0; hh--) {
if (CR_VCALL(datin)->read(datin, line, ww) != ww)
goto _failure;
line += temp.pic->bpl;
}
/* 返回读取的文件数据 */
rett = struct_new(sFMT_PIC);
if (rett == NULL)
goto _failure;
rett->frame = struct_dup(&temp, sFMT_FRAME);
if (rett->frame == NULL) {
mem_free(rett);
goto _failure;
}
CR_NOUSE(param);
rett->type = CR_FMTZ_PIC;
rett->count = 1;
rett->infor = "TGL CGR Image File (CGR)";
return (rett);
_failure:
image_del(temp.pic);
return (NULL);
}
