void TCOD_image_delete_internal(TCOD_image_t image) {
image_data_t *img=(image_data_t *)image;
if ( img->mipmaps ) {
int i;
for ( i=0; i < img->nb_mipmaps; i++) {
if ( img->mipmaps[i].buf ) free(img->mipmaps[i].buf);
}
free(img->mipmaps);
}
if ( img->sys_img ) {
TCOD_sys_delete_bitmap(img->sys_img);
}
}
void TCOD_image_save(TCOD_image_t image, const char *filename) {
image_data_t *img=(image_data_t *)image;
void *bitmap=NULL;
bool must_free=false;
if ( img->sys_img ) {
bitmap=img->sys_img;
} else if ( img->mipmaps ){
bitmap=TCOD_sys_create_bitmap(img->mipmaps[0].width, img->mipmaps[0].height, img->mipmaps[0].buf);
must_free=true;
}
if (bitmap) {
TCOD_sys_save_bitmap(bitmap, filename);
if ( must_free ) {
TCOD_sys_delete_bitmap(bitmap);
}
}
}
void TCOD_image_scale(TCOD_image_t image, int neww, int newh) {
image_data_t *img=(image_data_t *)image;
int px,py;
int width,height;
image_data_t *newimg;
TCOD_image_get_size(image,&width,&height);
if ( neww==width && newh==height ) return;
if ( neww == 0 || newh == 0 ) return;
newimg=(image_data_t *)TCOD_image_new(neww,newh);
if ( neww < width && newh < height ) {
// scale down image, using supersampling
for (py = 0; py < newh; py++ ) {
float y0 = (float)(py) * height / newh;
float y0floor = (float)floor(y0);
float y0weight = 1.0f - (y0 - y0floor);
int iy0 = (int)y0floor;
float y1 = (float)(py+1) * height / newh;
float y1floor = (float)floor(y1-0.00001);
float y1weight = (y1 - y1floor);
int iy1 = (int)y1floor;
for (px = 0; px < neww; px++ ) {
TCOD_color_t col;
float x0 = (float)(px) * width / neww;
float x0floor = (float)floor(x0);
float x0weight = 1.0f - (x0 - x0floor);
int ix0 = (int)x0floor;
float x1 = (float)(px+1) * width / neww;
float x1floor = (float)floor(x1- 0.00001);
float x1weight = (x1 - x1floor);
int ix1 = (int)x1floor;
float r=0,g=0,b=0,sumweight=0.0f;
int srcx,srcy;
// left & right fractional edges
for (srcy=(int)(y0+1); srcy < (int)y1; srcy++) {
TCOD_color_t col_left=TCOD_image_get_pixel(image,ix0,srcy);
TCOD_color_t col_right=TCOD_image_get_pixel(image,ix1,srcy);
r += col_left.r * x0weight + col_right.r * x1weight;
g += col_left.g * x0weight + col_right.g * x1weight;
b += col_left.b * x0weight + col_right.b * x1weight;
sumweight += x0weight+x1weight;
}
// top & bottom fractional edges
for (srcx = (int)(x0+1); srcx < (int)x1; srcx++) {
TCOD_color_t col_top=TCOD_image_get_pixel(image,srcx,iy0);
TCOD_color_t col_bottom=TCOD_image_get_pixel(image,srcx,iy1);
r += col_top.r * y0weight + col_bottom.r * y1weight;
g += col_top.g * y0weight + col_bottom.g * y1weight;
b += col_top.b * y0weight + col_bottom.b * y1weight;
sumweight += y0weight+y1weight;
}
// center
for (srcy=(int)(y0+1); srcy < (int)y1; srcy++) {
for (srcx = (int)(x0+1); srcx < (int)x1; srcx++) {
TCOD_color_t col=TCOD_image_get_pixel(image,srcx,srcy);
r += col.r;
g += col.g;
b += col.b;
sumweight += 1.0f;
}
}
// corners
col=TCOD_image_get_pixel(image,ix0,iy0);
r += col.r * (x0weight * y0weight);
g += col.g * (x0weight * y0weight);
b += col.b * (x0weight * y0weight);
sumweight += x0weight * y0weight;
col=TCOD_image_get_pixel(image,ix0,iy1);
r += col.r * (x0weight * y1weight);
g += col.g * (x0weight * y1weight);
b += col.b * (x0weight * y1weight);
sumweight += x0weight * y1weight;
col=TCOD_image_get_pixel(image,ix1,iy1);
r += col.r * (x1weight * y1weight);
g += col.g * (x1weight * y1weight);
b += col.b * (x1weight * y1weight);
sumweight += x1weight * y1weight;
col=TCOD_image_get_pixel(image,ix1,iy0);
r += col.r * (x1weight * y0weight);
g += col.g * (x1weight * y0weight);
b += col.b * (x1weight * y0weight);
sumweight += x1weight * y0weight;
sumweight = 1.0f / sumweight;
r = r*sumweight + 0.5f;
g = g*sumweight + 0.5f;
b = b*sumweight + 0.5f;
col.r=(int)r;
col.g=(int)g;
col.b=(int)b;
TCOD_image_put_pixel(newimg,px,py,col);
}
}
} else {
// scale up image, using nearest neightbor
for (py = 0; py < newh; py++ ) {
int srcy = py * height / newh;
for (px = 0; px < neww; px++ ) {
int srcx = px * width / neww;
TCOD_color_t col=TCOD_image_get_pixel(image,srcx,srcy);
TCOD_image_put_pixel(newimg,px,py,col);
}
}
}
// destroy old image
if ( img->mipmaps ) {
int i;
for ( i=0; i < img->nb_mipmaps; i++) {
if ( img->mipmaps[i].buf ) free(img->mipmaps[i].buf);
}
free(img->mipmaps);
}
if ( img->sys_img ) {
TCOD_sys_delete_bitmap(img->sys_img);
}
// update img with the new image content
img->mipmaps = newimg->mipmaps;
img->sys_img=NULL;
img->nb_mipmaps=newimg->nb_mipmaps;
free(newimg);
}
