bool M_saveImage(const char * filename, void * data, unsigned int quality)
{
DevILInit();
ILuint ImgId = 0;
ilGenImages(1, &ImgId);
// bind this image name.
ilBindImage(ImgId);
MImage * image = (MImage *)data;
unsigned int width = image->getWidth();
unsigned int height = image->getHeight();
unsigned int components = image->getComponents();
if(components == 3)
ilTexImage(width, height, 1, 3, IL_RGB, IL_UNSIGNED_BYTE, image->getData());
else if(components == 4)
ilTexImage(width, height, 1, 4, IL_RGBA, IL_UNSIGNED_BYTE, image->getData());
iluFlipImage();
if(quality < 100)
ilSetInteger(IL_JPG_QUALITY, quality);
ilEnable(IL_FILE_OVERWRITE);
ilSaveImage(filename);
ilDeleteImages(1, &ImgId);
DevILShutDown();
return true;
}
int ScriptAtlasImageGetSize()
{
MEngine* engine = MEngine::getInstance();
MScriptContext* script = engine->getScriptContext();
MImage* image = (MImage*)script->getPointer(0);
if(image)
{
script->pushInteger(image->getWidth());
script->pushInteger(image->getHeight());
return 2;
}
return 0;
}
int ScriptAtlasGetSize()
{
MEngine* engine = MEngine::getInstance();
MScriptContext* script = engine->getScriptContext();
Atlas* atlas = (Atlas*)script->getPointer(0);
if(atlas)
{
MImage* image = atlas->GetImage();
script->pushInteger(image->getWidth());
script->pushInteger(image->getHeight());
return 2;
}
return 0;
}
void MTextureRef::update(void)
{
M_PROFILE_SCOPE(MTextureRef::update);
MEngine * engine = MEngine::getInstance();
MRenderingContext * render = engine->getRenderingContext();
MImage image;
if(engine->getImageLoader()->loadData(getFilename(), &image))
{
if(m_textureId == 0)
render->createTexture(&m_textureId);
m_components = image.getComponents();
m_width = image.getWidth();
m_height = image.getHeight();
// send texture image
render->bindTexture(m_textureId);
render->sendTextureImage(&image, isMipmapEnabled(), 1, 0);
}
}
bool exportFontBin(const char * filename, MFont * font)
{
if(! font)
return false;
MEngine * engine = MEngine::getInstance();
MRenderingContext * render = engine->getRenderingContext();
// read image
MImage image;
render->bindTexture(font->getTextureId());
render->getTexImage(0, &image);
unsigned int width = image.getWidth();
unsigned int height = image.getHeight();
if(width == 0 && height == 0)
{
printf("Error : unable to create image font for %s\n", filename);
return false;
}
// create file
FILE * file = fopen(filename, "wb");
if(! file)
{
printf("Error : can't create file %s\n", filename);
return false;
}
// bin
fwrite(M_FONT_HEADER, sizeof(char), 8, file);
// version
int version = 1;
fwrite(&version, sizeof(int), 1, file);
// font size
unsigned int fontSize = font->getFontSize();
fwrite(&fontSize, sizeof(int), 1, file);
// write image
{
fwrite(&width, sizeof(int), 1, file);
fwrite(&height, sizeof(int), 1, file);
unsigned char color[4];
unsigned int x, y;
for(y=0; y<height; y++)
{
for(x=0; x<width; x++)
{
image.readPixel(x, y, color);
fwrite(&color[3], sizeof(char), 1, file);
}
}
}
// write characters infos
{
map <unsigned int, MCharacter> * characters = font->getCharacters();
// size
unsigned int size = font->getCharactersNumber();
fwrite(&size, sizeof(int), 1, file);
// characters
map <unsigned int, MCharacter>::iterator
mit (characters->begin()),
mend(characters->end());
for(;mit!=mend;++mit)
{
unsigned int charCode = mit->first;
MCharacter * character = &mit->second;
MVector2 pos = character->getPos();
MVector2 offset = character->getOffset();
MVector2 scale = character->getScale();
float xadvance = character->getXAdvance();
fwrite(&charCode, sizeof(int), 1, file);
fwrite(&pos, sizeof(float), 2, file);
fwrite(&offset, sizeof(float), 2, file);
fwrite(&scale, sizeof(float), 2, file);
fwrite(&xadvance, sizeof(float), 1, file);
}
}
fclose(file);
return true;
}
bool M_loadFont(const char * filename, void * data, void * arg)
{
MFont * font = (MFont *)data;
int pen_x, pen_y, max_y;
unsigned int n, max_code = 4096;
unsigned int size = font->getFontSize();
unsigned int space = 2;
unsigned int width = 1024;
unsigned int height = 0;
MImage image;
FT_GlyphSlot slot;
FT_Library library;
FT_Face face;
FT_Byte * file_base;
FT_Long file_size;
// init
FT_Error error = FT_Init_FreeType(&library);
if(error){
printf("ERROR Load Font : unable to init FreeType\n");
return false;
}
// open file
MFile * file = M_fopen(filename, "rb");
if(! file)
{
FT_Done_FreeType(library);
printf("ERROR Load Font : can't read file %s\n", filename);
return false;
}
M_fseek(file, 0, SEEK_END);
file_size = M_ftell(file);
M_rewind(file);
file_base = new FT_Byte[file_size];
if(file_size != M_fread(file_base, sizeof(FT_Byte), file_size, file))
{
M_fclose(file);
FT_Done_FreeType(library);
delete [] file_base;
return false;
}
// read font
error = FT_New_Memory_Face(library, file_base, file_size, 0, &face);
M_fclose(file);
if(error)
{
printf("ERROR Load Font : unable to read data %s\n", filename);
FT_Done_FreeType(library);
delete [] file_base;
return false;
}
// set font size
error = FT_Set_Pixel_Sizes(face, 0, size);
if(error)
{
printf("ERROR Load Font : unable to size font\n");
FT_Done_FreeType(library);
delete [] file_base;
return false;
}
// parse characters
max_y = 0;
slot = face->glyph;
pen_x = space; pen_y = space;
for(n = 0; n<max_code; n++)
{
// load glyph image into the slot (erase previous one)
error = FT_Load_Char(face, n, FT_LOAD_RENDER | FT_LOAD_NO_HINTING);
if(error)
continue;
if(FT_Get_Char_Index(face, n) == 0)
continue;
// max y
max_y = MAX(max_y, slot->bitmap.rows);
if((pen_x + slot->bitmap.width + space) > width)
{
pen_x = space;
pen_y += max_y + space;
height += max_y + space;
max_y = 0;
}
// increment pen position
pen_x += slot->bitmap.width + space;
}
if(height == 0)
{
printf("ERROR Load Font : unable to create font texture\n");
FT_Done_FreeType(library);
delete [] file_base;
return false;
}
// create image
height = getNextPowerOfTwo(height);
image.create(M_UBYTE, width, height, 4);
memset(image.getData(), 0, image.getSize()*sizeof(char));
// init font
font->setTextureWidth(width);
font->setTextureHeight(height);
// create font texture
max_y = 0;
slot = face->glyph;
pen_x = space; pen_y = space;
for(n = 0; n<max_code; n++)
{
// load glyph image into the slot (erase previous one)
error = FT_Load_Char(face, n, FT_LOAD_RENDER | FT_LOAD_NO_HINTING);
if(error)
continue;
if(FT_Get_Char_Index(face, n) == 0)
continue;
// max y
max_y = MAX(max_y, slot->bitmap.rows);
if((pen_x + slot->bitmap.width + space) > (int)image.getWidth()){
pen_x = space;
pen_y += max_y + space;
}
// get character properties
float xAdvance = (slot->advance.x >> 6) / ((float)size);
MVector2 offset = MVector2((float)slot->bitmap_left - 1, - (float)slot->bitmap_top - 1) / ((float)size);
MVector2 pos = MVector2((float)(pen_x-1) / (float)width, (float)(pen_y-1) / (float)height);
MVector2 scale = MVector2((float)(slot->bitmap.width+2) / (float)width, (float)(slot->bitmap.rows+2) / (float)height);
// set character
font->setCharacter(n, MCharacter(xAdvance, offset, pos, scale));
// draw to image
drawBitmap(&image, &slot->bitmap, pen_x, pen_y);
// increment pen position
pen_x += slot->bitmap.width + space;
}
// send texture
MEngine * engine = MEngine().getInstance();
MRenderingContext * render = engine->getRenderingContext();
// gen texture id
unsigned int textureId = font->getTextureId();
if(textureId == 0)
{
render->createTexture(&textureId);
font->setTextureId(textureId);
}
// send texture image
render->bindTexture(textureId);
render->setTextureUWrapMode(M_WRAP_REPEAT);
render->setTextureVWrapMode(M_WRAP_REPEAT);
render->sendTextureImage(&image, 0, 1, 0);
// finish
FT_Done_FreeType(library);
delete [] file_base;
return true;
}
bool M_saveImage(const char * filename, void * data)
{
if(! filename)
return false;
if(! data)
return false;
// format
FREE_IMAGE_FORMAT format = FreeImage_GetFIFFromFilename(filename);
if(format == FIF_UNKNOWN)
{
printf("Error freeImage: unknow image format %s\n", filename);
return false;
}
// image
MImage * image = (MImage *)data;
if(! image->getData())
return false;
unsigned int width = image->getWidth();
unsigned int height = image->getHeight();
unsigned int components = image->getComponents();
unsigned int yStep = width*components;
FIBITMAP * dib = NULL;
if(image->getDataType() == M_UBYTE)
{
dib = FreeImage_AllocateT(FIT_BITMAP, width, height, components*8);
if(dib)
{
unsigned char * srcBits = (unsigned char *)image->getData();
for(unsigned int y=0; y<height; y++)
{
BYTE * bits = FreeImage_GetScanLine(dib, y);
memcpy(bits, srcBits, yStep*sizeof(char));
srcBits += yStep;
}
if(components == 3 || components == 4)
SwapRedBlue32(dib);
}
}
else if(image->getDataType() == M_FLOAT)
{
switch(image->getComponents())
{
case 1:
dib = FreeImage_AllocateT(FIT_FLOAT, image->getWidth(), image->getHeight(), 32);
break;
case 3:
dib = FreeImage_AllocateT(FIT_RGBF, image->getWidth(), image->getHeight(), 3*32);
break;
case 4:
dib = FreeImage_AllocateT(FIT_RGBAF, image->getWidth(), image->getHeight(), 4*32);
break;
}
if(dib)
{
float * srcBits = (float *)image->getData();
for(unsigned int y=0; y<height; y++)
{
BYTE * bits = FreeImage_GetScanLine(dib, y);
memcpy(bits, srcBits, yStep*sizeof(float));
srcBits += yStep;
}
}
}
if(dib)
{
// flip
FreeImage_FlipVertical(dib);
// save
if(FreeImage_Save(format, dib, filename, PNG_Z_BEST_SPEED))
{
FreeImage_Unload(dib);
return true;
}
}
return false;
}
