nuclear@4: #include <string.h>
nuclear@4: #include "opengl.h"
nuclear@4: #include "image.h"
nuclear@4: #include "imago2.h"
nuclear@4: 
nuclear@4: 
nuclear@4: static unsigned int next_pow2(unsigned int x);
nuclear@4: 
nuclear@4: Image::Image()
nuclear@4: {
nuclear@4: 	width = height = tex_width = tex_height = 0;
nuclear@4: 	pixels = 0;
nuclear@4: 	tex = 0;
nuclear@4: 	tex_valid = false;
nuclear@4: }
nuclear@4: 
nuclear@4: Image::~Image()
nuclear@4: {
nuclear@4: 	destroy();
nuclear@4: }
nuclear@4: 
nuclear@4: Image::Image(const Image &img)
nuclear@4: {
nuclear@4: 	pixels = 0;
nuclear@4: 	create(img.width, img.height, img.pixels);
nuclear@4: }
nuclear@4: 
nuclear@4: Image &Image::operator =(const Image &img)
nuclear@4: {
nuclear@4: 	if(&img != this) {
nuclear@4: 		create(img.width, img.height, img.pixels);
nuclear@4: 	}
nuclear@4: 	return *this;
nuclear@4: }
nuclear@4: 
nuclear@4: bool Image::create(int width, int height, unsigned char *pixels)
nuclear@4: {
nuclear@4: 	destroy();
nuclear@4: 
nuclear@4: 	try {
nuclear@4: 		unsigned char *tmp = new unsigned char[width * height * 3];
nuclear@4: 		this->pixels = tmp;
nuclear@4: 		this->width = width;
nuclear@4: 		this->height = height;
nuclear@4: 	}
nuclear@4: 	catch(...) {
nuclear@4: 		return false;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	if(pixels) {
nuclear@4: 		memcpy(this->pixels, pixels, width * height * 3);
nuclear@4: 	}
nuclear@4: 	return true;
nuclear@4: }
nuclear@4: 
nuclear@4: void Image::destroy()
nuclear@4: {
nuclear@4: 	delete [] pixels;
nuclear@4: 	pixels = 0;
nuclear@4: 	width = height = 0;
nuclear@4: 
nuclear@4: 	if(tex) {
nuclear@4: 		glDeleteTextures(1, &tex);
nuclear@4: 		tex = 0;
nuclear@4: 		tex_valid = false;
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: bool Image::load(const char *fname)
nuclear@4: {
nuclear@4: 	int xsz, ysz;
nuclear@4: 	unsigned char *pix = (unsigned char*)img_load_pixels(fname, &xsz, &ysz, IMG_FMT_RGB24);
nuclear@4: 	if(!pix) {
nuclear@4: 		return false;
nuclear@4: 	}
nuclear@4: 	return create(xsz, ysz, pix);
nuclear@4: }
nuclear@4: 
nuclear@4: unsigned int Image::texture() const
nuclear@4: {
nuclear@4: 	if(!pixels) {
nuclear@4: 		return 0;
nuclear@4: 	}
nuclear@4: 	if(!tex) {
nuclear@4: 		glGenTextures(1, &tex);
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	if(!tex_valid) {
nuclear@4: 		tex_width = next_pow2(width);
nuclear@4: 		tex_height = next_pow2(height);
nuclear@4: 
nuclear@4: 		glBindTexture(GL_TEXTURE_2D, tex);
nuclear@4: 		glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
nuclear@4: 		glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
nuclear@4: 
nuclear@4: 		if(GLEW_SGIS_generate_mipmap) {
nuclear@4: 			glTexParameteri(GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1);
nuclear@4: 
nuclear@4: 			glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, tex_width, tex_height, 0, GL_RGB, GL_UNSIGNED_BYTE,
nuclear@4: 					width == tex_width && height == tex_height ? pixels : 0);
nuclear@4: 			if(width != tex_width || height != tex_height) {
nuclear@4: 				glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, width, height, GL_RGB, GL_UNSIGNED_BYTE, pixels);
nuclear@4: 			}
nuclear@4: 		} else {
nuclear@4: 			gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGB, tex_width, tex_height, GL_RGB, GL_UNSIGNED_BYTE, pixels);
nuclear@4: 		}
nuclear@4: 
nuclear@4: 		if(GLEW_EXT_texture_filter_anisotropic) {
nuclear@4: 			static float max_aniso = -1.0;
nuclear@4: 
nuclear@4: 			if(max_aniso < 0.0) {
nuclear@4: 				glGetFloatv(GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT, &max_aniso);
nuclear@4: 				printf("using anisotropic filtering: x%g\n", max_aniso);
nuclear@4: 			}
nuclear@4: 
nuclear@4: 			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAX_ANISOTROPY_EXT, max_aniso);
nuclear@4: 		}
nuclear@4: 		tex_valid = true;
nuclear@4: 	}
nuclear@4: 	return tex;
nuclear@4: }
nuclear@4: 
nuclear@4: int Image::texture_width() const
nuclear@4: {
nuclear@4: 	return tex_width;
nuclear@4: }
nuclear@4: 
nuclear@4: int Image::texture_height() const
nuclear@4: {
nuclear@4: 	return tex_height;
nuclear@4: }
nuclear@4: 
nuclear@4: void Image::invalidate_texture()
nuclear@4: {
nuclear@4: 	tex_valid = false;
nuclear@4: }
nuclear@4: 
nuclear@4: 
nuclear@4: void clear_image(Image *img)
nuclear@4: {
nuclear@4: 	clear_image(img, 0, 0, 0);
nuclear@4: }
nuclear@4: 
nuclear@4: void clear_image(Image *img, float r, float g, float b)
nuclear@4: {
nuclear@4: 	if(!img->pixels) {
nuclear@4: 		return;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	unsigned char col[3];
nuclear@4: 	unsigned char *ptr = img->pixels;
nuclear@4: 	int npix = img->width * img->height;
nuclear@4: 
nuclear@4: 	col[0] = (int)(r * 255.0);
nuclear@4: 	col[1] = (int)(g * 255.0);
nuclear@4: 	col[2] = (int)(b * 255.0);
nuclear@4: 
nuclear@4: 	for(int i=0; i<npix; i++) {
nuclear@4: 		for(int j=0; j<3; j++) {
nuclear@4: 			ptr[j] = col[j];
nuclear@4: 		}
nuclear@4: 		ptr += 3;
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: bool combine_image(Image *dest, const Image *aimg, const Image *bimg, ImgCombine op, float t)
nuclear@4: {
nuclear@4: 	int xsz = dest->width;
nuclear@4: 	int ysz = dest->height;
nuclear@4: 	int npixels = xsz * ysz;
nuclear@4: 	int nbytes = npixels * 3;
nuclear@4: 	int tint = (int)(t * 255);
nuclear@4: 
nuclear@4: 	if(aimg->width != xsz || bimg->width != xsz || aimg->height != ysz || bimg->height != ysz) {
nuclear@4: 		return false;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	unsigned char *dptr = dest->pixels;
nuclear@4: 	const unsigned char *aptr = aimg->pixels;
nuclear@4: 	const unsigned char *bptr = bimg->pixels;
nuclear@4: 
nuclear@4: 	switch(op) {
nuclear@4: 	case IMG_OP_ADD:
nuclear@4: 		for(int i=0; i<nbytes; i++) {
nuclear@4: 			unsigned int x = *aptr++ + *bptr++;
nuclear@4: 			*dptr++ = x > 255 ? 255 : x;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case IMG_OP_SUB:
nuclear@4: 		for(int i=0; i<nbytes; i++) {
nuclear@4: 			int x = (int)*aptr++ - (int)*bptr++;
nuclear@4: 			*dptr++ = x < 0 ? 0 : x;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case IMG_OP_MUL:
nuclear@4: 		for(int i=0; i<nbytes; i++) {
nuclear@4: 			unsigned int x = ((unsigned int)*aptr++ * (unsigned int)*bptr++) >> 8;
nuclear@4: 			*dptr++ = x > 255 ? 255 : x;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case IMG_OP_LERP:
nuclear@4: 		for(int i=0; i<nbytes; i++) {
nuclear@4: 			int x = (int)*aptr + ((((int)*bptr - (int)*aptr) * tint) >> 8);
nuclear@4: 			*dptr++ = x > 255 ? 255 : (x < 0 ? 0 : x);
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	default:
nuclear@4: 		break;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	dest->invalidate_texture();
nuclear@4: 	return true;
nuclear@4: }
nuclear@4: 
nuclear@4: static unsigned int next_pow2(unsigned int x)
nuclear@4: {
nuclear@4: 	x--;
nuclear@4: 	x = (x >> 1) | x;
nuclear@4: 	x = (x >> 2) | x;
nuclear@4: 	x = (x >> 4) | x;
nuclear@4: 	x = (x >> 8) | x;
nuclear@4: 	x = (x >> 16) | x;
nuclear@4: 	return x + 1;
nuclear@4: }