void *
pngconv_png2lossless(unsigned char *png_data, unsigned long png_data_len,
int *tag_no, int *format,
unsigned short *width, unsigned short *height,
void **colormap, int *colormap_count, int rgb15) {
volatile png_structp png_ptr = NULL;
volatile png_infop png_info_ptr = NULL;
my_png_buffer png_buff;
int bpp, color_type;
png_uint_32 png_width = 0, png_height = 0;
volatile png_bytepp png_image_data = NULL;
register png_uint_32 x, y;
void *image_data = NULL;
png_color *palette = NULL;
int palette_num = 0;
png_bytep trans = NULL;
int num_trans = 0;
png_color_16p trans_values = NULL;
if (png_data == NULL) {
fprintf(stderr, "pngconv_png2lossless: png_data == NULL\n");
return NULL;
}
if (png_sig_cmp((png_bytep)png_data, 0, 8)) { // bad signature
fprintf(stderr, "pngconv_png2lossless: is not PNG!\n");
return NULL;
}
png_ptr = png_create_read_struct
(PNG_LIBPNG_VER_STRING, NULL,NULL,NULL);
if (! png_ptr) {
fprintf(stderr, "pngconv_png2lossless: can't create read_struct\n");
return NULL;
}
if (setjmp(png_jmpbuf(png_ptr))) {
fprintf(stderr, "pngconv_png2lossless: libpng error jump occured\n");
png_destroy_read_struct((png_structpp) &png_ptr,
(png_infopp) &png_info_ptr, NULL);
if (png_image_data) {
for (y=0 ; y < png_height ; y++) {
free(png_image_data[y]);
}
free(png_image_data);
}
return NULL;
}
png_info_ptr = png_create_info_struct(png_ptr);
if (! png_info_ptr) {
fprintf(stderr, "pngconv_png2lossless: can't create info_struct\n");
png_destroy_read_struct ((png_structpp)&png_ptr, NULL, NULL);
return NULL;
}
png_buff.data = png_data;
png_buff.data_len = png_data_len;
png_buff.data_offset = 0;
png_data_read(png_ptr, &png_buff);
png_read_info(png_ptr, png_info_ptr);
png_get_IHDR(png_ptr, png_info_ptr,
&png_width, &png_height, &bpp, &color_type,
NULL, NULL, NULL);
*width = (unsigned short) png_width;
*height = (unsigned short) png_height;
if ((rgb15 > 0) && (color_type != PNG_COLOR_TYPE_RGB)) { // warning
fprintf(stderr, "rgb15 is %d but color_type is not PNG24\n", rgb15);
}
switch(color_type) {
case PNG_COLOR_TYPE_PALETTE:
*format = 3;
png_get_PLTE(png_ptr, png_info_ptr, &palette, &palette_num);
if (png_get_tRNS(png_ptr, png_info_ptr, &trans, &num_trans,
&trans_values) && (num_trans > 0)) {
*tag_no = 36; // DefineBitsLossless2
} else {
*tag_no = 20; // DefineBitsLossless
}
break;
case PNG_COLOR_TYPE_RGB:
if (rgb15 > 0) {
*format = 4;
} else {
*format = 5;
}
*tag_no = 20; /* DefineBitsLossless */
break;
case PNG_COLOR_TYPE_RGB_ALPHA:
*format = 5;
*tag_no = 36; /* DefineBitsLossless2 */
if (png_get_valid(png_ptr, png_info_ptr, PNG_INFO_tRNS))
png_set_tRNS_to_alpha(png_ptr);
break;
default:
fprintf(stderr, "pngconv_png2lossless: color_type=%d not implemented yet.\n", color_type);
png_destroy_read_struct((png_structpp)&png_ptr,
(png_infopp)&png_info_ptr, NULL);
return NULL;
}
if (bpp > 8) {
fprintf(stderr, "pngconv_png2lossless: bpp=%d not implemented yet. accept only bpp <= 8\n", bpp);
png_destroy_read_struct((png_structpp)&png_ptr,
(png_infopp)&png_info_ptr, NULL);
return NULL;
}
png_image_data = (png_bytepp) malloc(png_height * sizeof(png_bytep));
for (y=0 ; y < png_height ; y++) {
png_image_data[y] = (png_bytep) malloc(png_get_rowbytes(png_ptr, png_info_ptr));
}
png_read_image(png_ptr, png_image_data);
/*
* image copy
*/
if (color_type == PNG_COLOR_TYPE_PALETTE) {
register int i;
unsigned char *indices_data;
*colormap_count = palette_num;
if (num_trans == 0) {
swf_rgb_t *result_colormap = malloc(sizeof(swf_rgb_t) * palette_num); // Lossless
for (i=0 ; i < palette_num ; i++) {
result_colormap[i].red = palette[i].red;
result_colormap[i].green = palette[i].green;
result_colormap[i].blue = palette[i].blue;
}
*colormap = result_colormap;
} else {
swf_rgba_t *result_colormap = malloc(sizeof(swf_rgba_t) * palette_num); // Lossless2
for (i=0 ; i < palette_num ; i++) {
if (i < num_trans) {
int alpha_value = trans[i];
result_colormap[i].red = palette[i].red * alpha_value / 0xff;
result_colormap[i].green = palette[i].green * alpha_value / 0xff;
result_colormap[i].blue = palette[i].blue * alpha_value / 0xff;
result_colormap[i].alpha = alpha_value;
} else {
result_colormap[i].red = palette[i].red;
result_colormap[i].green = palette[i].green;
result_colormap[i].blue = palette[i].blue;
result_colormap[i].alpha = 0xff; // opaque
}
}
*colormap = result_colormap;
}
indices_data = malloc(((png_width+ 3) & -4) * png_height);
i = 0;
for (y=0 ; y < png_height ; y++) {
bitstream_t *bs = bitstream_open();
if (bs == NULL) {
free(*colormap);
*colormap = NULL;
free(indices_data);
for (y=0 ; y < png_height ; y++) {
free(png_image_data[y]);
}
free(png_image_data);
return NULL;
}
bitstream_input(bs, png_image_data[y], png_width);
for (x=0 ; x < png_width ; x++) {
indices_data[i] = bitstream_getbits(bs, bpp);
i++;
}
while (i % 4) { i++; } // 4byte alignment
bitstream_close(bs);
}
image_data = indices_data;
} else if (color_type == PNG_COLOR_TYPE_RGB) {
swf_xrgb_t *xrgb_list;
xrgb_list = malloc(sizeof(swf_xrgb_t) * png_width * png_height);
for (y=0 ; y < png_height ; y++) {
for (x=0 ; x < png_width ; x++) {
xrgb_list[x+y*png_width].red = png_image_data[y][3*x + 0];
xrgb_list[x+y*png_width].green = png_image_data[y][3*x + 1];
xrgb_list[x+y*png_width].blue = png_image_data[y][3*x + 2];
}
}
image_data = xrgb_list;
} else { // PNG_COLOR_TYPE_RGB_ALPHA
swf_argb_t *argb_list;
argb_list = malloc(sizeof(swf_argb_t) * png_width * png_height);
for (y=0 ; y < png_height ; y++) {
for (x=0 ; x < png_width ; x++) {
int alpha_value = png_image_data[y][4*x + 3];
argb_list[x+y*png_width].red = png_image_data[y][4*x + 0] * alpha_value / 0xff;
argb_list[x+y*png_width].green = png_image_data[y][4*x + 1] * alpha_value / 0xff;
argb_list[x+y*png_width].blue = png_image_data[y][4*x + 2] * alpha_value / 0xff;
argb_list[x+y*png_width].alpha = alpha_value;
}
}
image_data = argb_list;
}
for (y=0 ; y < png_height ; y++) {
free(png_image_data[y]);
}
free(png_image_data);
/*
* destruct
*/
png_destroy_read_struct((png_structpp) &png_ptr,
(png_infopp) &png_info_ptr, NULL);
return image_data;
}
unsigned char* PPGame_DecodePNG(unsigned char* bytes,unsigned long size,unsigned long* imageWidth,unsigned long* imageHeight,unsigned long* bytesPerRow)
{
if (bytes == NULL || size == 0) return NULL;
my_png_buffer png_buff;
memset(&png_buff,0,sizeof(png_buff));
png_buff.data_len = size;
png_buff.data = bytes;
int is_png = png_check_sig((png_bytep)png_buff.data, 8);
if (!is_png) {
fprintf(stderr, "is not PNG!\n");
free(png_buff.data);
return NULL;
}
png_structp PNG_reader = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL,NULL,NULL);
if (!PNG_reader) {
fprintf(stderr, "can't create read_struct\n");
free(png_buff.data);
return NULL;
}
png_infop PNG_info = png_create_info_struct(PNG_reader);
if (!PNG_info) {
fprintf(stderr, "can't create info_struct\n");
png_destroy_read_struct (&PNG_reader, NULL, NULL);
free(png_buff.data);
return NULL;
}
png_infop PNG_end_info = png_create_info_struct(PNG_reader);
if (PNG_end_info == NULL)
{
fprintf(stderr, "Can't get end info for PNG data\n");
png_destroy_read_struct(&PNG_reader, &PNG_info, NULL);
free(png_buff.data);
return NULL;
}
if (setjmp(png_jmpbuf(PNG_reader)))
{
fprintf(stderr, "Can't decode PNG data\n");
png_destroy_read_struct(&PNG_reader, &PNG_info, &PNG_end_info);
free(png_buff.data);
return NULL;
}
png_data_read(PNG_reader,&png_buff);
png_read_info(PNG_reader,PNG_info);
png_uint_32 width, height;
width = png_get_image_width(PNG_reader, PNG_info);
height = png_get_image_height(PNG_reader, PNG_info);
//printf("width %ld\n",width);
//printf("height %ld\n",height);
png_uint_32 bit_depth, color_type;
bit_depth = png_get_bit_depth(PNG_reader, PNG_info);
color_type = png_get_color_type(PNG_reader, PNG_info);
//printf("bit_depth %ld\n",bit_depth);
//printf("rowbytes %ld\n",png_get_rowbytes(PNG_reader, PNG_info));
if (color_type == PNG_COLOR_TYPE_PALETTE)
{
png_set_palette_to_rgb(PNG_reader);
}
if (color_type == PNG_COLOR_TYPE_GRAY || color_type == PNG_COLOR_TYPE_GRAY_ALPHA)
{
png_set_gray_to_rgb(PNG_reader);
}
if (png_get_valid(PNG_reader, PNG_info, PNG_INFO_tRNS))
{
png_set_tRNS_to_alpha(PNG_reader);
}
else
{
png_set_filler(PNG_reader, 0xff, PNG_FILLER_AFTER);
}
if (bit_depth == 16)
{
png_set_strip_16(PNG_reader);
}
png_read_update_info(PNG_reader, PNG_info);
png_byte* PNG_image_buffer = (png_byte*)malloc(4 * width * height);
png_byte** PNG_rows = (png_byte**)malloc(height * sizeof(png_byte*));
unsigned int row;
for (row = 0; row < height; ++row)
{
//PNG_rows[height - 1 - row] = PNG_image_buffer + (row * 4 * width);
PNG_rows[row] = PNG_image_buffer + (row * 4 * width);
}
png_read_image(PNG_reader, PNG_rows);
free(PNG_rows);
png_destroy_read_struct(&PNG_reader, &PNG_info, &PNG_end_info);
if (png_buff.data) free(png_buff.data);
*imageWidth = width;
*imageHeight = height;
*bytesPerRow = width*4;
return convert(PNG_image_buffer,width,height);
}
int main(int argc, char **argv) {
char *png_filename = NULL;
struct stat filestat;
FILE *fp = NULL;
my_png_buffer png_buff;
int is_png;
png_uint_32 png_width, png_height;
int bpp, color_type;
png_bytepp image_data;
png_uint_32 x, y;
png_color *palette = NULL;
int palette_num = 0;
png_bytep trans = NULL;
int num_trans;
png_color_16p trans_values = NULL;
int palette_dump_unit;
if (argc != 2) {
char *program_filename = argv[0];
fprintf(stderr, "Usage: %s <png_filename>\n", program_filename);
return EXIT_FAILURE;
}
png_filename = argv[1];
// printf("png_filename=%s\n", png_filename);
if(stat(png_filename, &filestat)) {
perror("stat pngfile");
return EXIT_FAILURE;
}
png_buff.data_len = filestat.st_size;
png_buff.data_offset = 0;
// printf("png_buff.data_len=%lu\n", png_buff.data_len);
fp = fopen(png_filename, "rb");
if (! fp) {
fprintf(stderr, "Can't open file(%s)\n", png_filename);
return EXIT_FAILURE;
}
png_buff.data = calloc(png_buff.data_len, 1);
fread(png_buff.data, 1, png_buff.data_len, fp);
fclose(fp);
is_png = png_check_sig((png_bytep)png_buff.data, 8);
if (! is_png) {
fprintf(stderr, "is not PNG!\n");
free(png_buff.data);
return EXIT_FAILURE;
}
png_structp png_ptr = png_create_read_struct
(PNG_LIBPNG_VER_STRING, NULL,NULL,NULL);
if (! png_ptr) {
fprintf(stderr, "can't create read_struct\n");
free(png_buff.data);
return EXIT_FAILURE;
}
png_infop png_info_ptr = png_create_info_struct(png_ptr);
if (! png_info_ptr) {
fprintf(stderr, "can't create info_struct\n");
png_destroy_read_struct (&png_ptr, NULL, NULL);
free(png_buff.data);
return EXIT_FAILURE;
}
png_data_read(png_ptr, &png_buff);
png_read_info(png_ptr, png_info_ptr);
png_get_IHDR(png_ptr, png_info_ptr,
&png_width, &png_height, &bpp, &color_type,
NULL, NULL, NULL);
printf("(width, height)=(%lu,%lu) bpp=%d",
png_width, png_height, bpp);
printf(" color_type=%d", color_type);
switch(color_type) {
case PNG_COLOR_TYPE_GRAY:
printf("(GRAY)");
if (! png_get_tRNS(png_ptr, png_info_ptr, &trans, &num_trans,
&trans_values)) {
num_trans = 0;
}
printf(" num_trans=%d", num_trans);
break;
case PNG_COLOR_TYPE_GRAY_ALPHA:
printf("(GRAY_ALPHA)");
break;
case PNG_COLOR_TYPE_RGB:
printf("(RGB)");
if (png_get_PLTE(png_ptr, png_info_ptr, &palette, &palette_num)) {
printf(" palette_num=%d", palette_num);
}
if (! png_get_tRNS(png_ptr, png_info_ptr, &trans, &num_trans,
&trans_values)) {
num_trans = 0;
}
printf(" num_trans=%d", num_trans);
break;
case PNG_COLOR_TYPE_RGB_ALPHA:
printf("(RGB_ALPHA)");
if (png_get_PLTE(png_ptr, png_info_ptr, &palette, &palette_num)) {
printf(" palette_num=%d", palette_num);
}
// if (png_get_valid(png_ptr, png_info_ptr, PNG_INFO_tRNS))
// png_set_tRNS_to_alpha(png_ptr);
break;
case PNG_COLOR_TYPE_PALETTE:
printf("(PALETTE)");
png_get_PLTE(png_ptr, png_info_ptr, &palette, &palette_num);
printf(" palette_num=%d", palette_num);
if (! png_get_tRNS(png_ptr, png_info_ptr, &trans, &num_trans,
&trans_values)) {
num_trans = 0;
}
printf(" num_trans=%d", num_trans);
break;
default:
printf("color_type(%d) not implement yet.\n",
color_type);
}
printf("\n");
/*
image
*/
image_data = (png_bytepp) malloc(png_height * sizeof(png_bytep));
for (y=0; y < png_height; y++) {
image_data[y] = (png_bytep) malloc(png_get_rowbytes(png_ptr, png_info_ptr));
}
png_read_image(png_ptr, image_data);
if (num_trans == 0) {
palette_dump_unit = 8;
} else {
palette_dump_unit = 4;
}
if (color_type == PNG_COLOR_TYPE_PALETTE) {
int i, j;
for (i = 0 ; i < palette_num ; i+=palette_dump_unit ) {
printf("[%03d]", i);
for (j = 0 ; (j < palette_dump_unit) && ((i+j) < palette_num) ; j++) {
if ((i+j) < num_trans) {
printf(" #%02x%02x%02x(%02x)",
palette[i+j].red,
palette[i+j].green,
palette[i+j].blue,
trans[i+j] & 0xff);
} else {
printf(" #%02x%02x%02x",
palette[i+j].red,
palette[i+j].green,
palette[i+j].blue);
}
}
printf("\n");
}
for (y=0; y < png_height; y++) {
unsigned char *linedata = image_data[y];
bitstream_t *bs = bitstream_open();
bitstream_input(bs, linedata, png_get_rowbytes(png_ptr, png_info_ptr));
printf("y=%lu: ", y);
for (x=0; x < png_width; x++) {
int colorindex = bitstream_getbits(bs, bpp);
printf("%02x ", colorindex);
}
bitstream_close(bs);
printf("\n");
}
} else {
for (y=0; y < png_height; y++) {
printf("y=%lu: ", y);
for (x=0; x < png_width; x++) {
switch(color_type) {
case PNG_COLOR_TYPE_GRAY:
printf("%02x ",
image_data[y][x]);
break;
case PNG_COLOR_TYPE_RGB:
printf("%02x%02x%02x ",
image_data[y][3*x],
image_data[y][3*x+1],
image_data[y][3*x+2]);
break;
case PNG_COLOR_TYPE_RGB_ALPHA:
printf("%02x%02x%02x(%02x) ",
image_data[y][4*x],
image_data[y][4*x+1],
image_data[y][4*x+2],
image_data[y][4*x+3]);
break;
default:
break;
}
}
printf("\n");
}
}
/*
* finish
*/
for (y=0; y < png_height; y++) {
free(image_data[y]);
}
free(image_data);
png_destroy_read_struct(&png_ptr, &png_info_ptr, NULL);
free(png_buff.data);
return EXIT_SUCCESS;
}
