moTexture.cpp

Go to the documentation of this file.

/*******************************************************************************

                                moTexture.cpp

  ****************************************************************************
  *                                                                          *
  *   This source is free software; you can redistribute it and/or modify    *
  *   it under the terms of the GNU General Public License as published by   *
  *   the Free Software Foundation; either version 2 of the License, or      *
  *  (at your option) any later version.                                    *
  *                                                                          *
  *   This code is distributed in the hope that it will be useful, but       *
  *   WITHOUT ANY WARRANTY; without even the implied warranty of             *
  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU      *
  *   General Public License for more details.                               *
  *                                                                          *
  *   A copy of the GNU General Public License is available on the World     *
  *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also       *
  *   obtain it by writing to the Free Software Foundation,                  *
  *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.         *
  *                                                                          *
  ****************************************************************************

  Copyright(C) 2006 Fabricio Costa

  Authors:
  Fabricio Costa
  Andres Colubri

*******************************************************************************/

#include <moTexture.h>
#include <moTextureFilterIndex.h>
#include <FreeImage.h>
#include <moFileManager.h>
#include <moDataManager.h>

#include "moArray.h"
moDefineDynamicArray(moTextureArray)

//===========================================
//
//              moTexture
//
//===========================================

moTexture::moTexture()
{
    m_pFile = NULL;
    m_bBuildedFromFile = false;
    m_type = MO_TYPE_TEXTURE;
    SetName(moText(""));
    m_moid = -1;
    m_glid = 0;

    m_width = 0;
  m_height = 0;
  m_bytespp = 0;
    m_components = 0;
    m_max_coord_s = 0.0;
    m_max_coord_t = 0.0;

    m_pResourceManager = NULL;
    m_gl = NULL;
    m_pDataMan = NULL;
    m_pFileMan = NULL;
    m_fbo = NULL;
    m_fbo_attach_point = MO_UNDEFINED;

  m_param = MODefTex2DParams;

  Luminance = -1;
  Contrast = -1;
  m_pBufferData = NULL;
  m_buffer_width = 0;
  m_buffer_height = 0;
  m_buffer_bytespp = 0;
}

moTexture::~moTexture()
{
    Finish();
}

MOboolean moTexture::Init(moText p_name, MOuint p_moid, moResourceManager* p_res, moTexParam p_param)
{
    m_pFile = NULL;
    SetName(p_name);
    m_moid = p_moid;
    if (p_res) {
        m_pResourceManager = p_res;
        m_gl = p_res->GetGLMan();
        m_pDataMan = p_res->GetDataMan();
        m_pFileMan = p_res->GetFileMan();
    }
    m_param = p_param;
    m_bInitialized = (m_gl!=NULL) && (m_pDataMan!=NULL) && (m_pFileMan!=NULL);
    return m_bInitialized;
}

MOboolean moTexture::Finish()
{
    if ((m_type != MO_TYPE_TEXTURE_MULTIPLE) && (0 < m_glid))
    {
        glDeleteTextures(1, &m_glid);
        m_glid = 0;
    }
    m_bInitialized = false;
    return true;
}


MOboolean moTexture::BuildEmpty(MOuint p_width, MOuint p_height)
{
   // int ii;
    /*if ( 0 < m_glid ) {
        //ii = m_glid;
        glDeleteTextures(1, &m_glid);
        m_glid = 0;
        //m_glid = ii;
    }*/

    if (m_glid<=0) {
        glGenTextures(1, &m_glid);
    }


    CalculateSize(p_width, p_height);
/*
    unsigned char* buffer = new unsigned char [m_width*m_height]();
    SetBuffer(m_width, m_height, buffer );
*/
    return Build();
}

MOboolean moTexture::BuildFromBuffer(MOuint p_width, MOuint p_height, const GLvoid* p_buffer, GLenum p_format, GLenum p_type)
{
    BuildEmpty(p_width, p_height);
    return SetBuffer(p_width, p_height, p_buffer, p_format, p_type);
}

MOboolean moTexture::BuildFromFile(moText p_filename)
{
    MOboolean res;
    moFile* pFile = NULL;

    //check for file
    if ( m_pFileMan->Load(p_filename)) {
        pFile = m_pFileMan->GetFile(p_filename);
    } else return false;
    if ( pFile==NULL ) return false;
    m_pFile = pFile;

    FREE_IMAGE_FORMAT fif = FIF_UNKNOWN;
    FIBITMAP *m_pImage = NULL;

    if ( m_pFile->GetType()==MO_FILETYPE_LOCAL && m_pFile->Exists()) {

        fif = FreeImage_GetFileType( m_pFile->GetCompletePath(), 0);

        if( fif == FIF_UNKNOWN ) {
            // try to guess the file format from the file extension
            fif = FreeImage_GetFIFFromFilename(m_pFile->GetCompletePath());
        }

        if( (fif != FIF_UNKNOWN) && FreeImage_FIFSupportsReading(fif) ) {
            // ok, let's load the file
            m_pImage = FreeImage_Load( fif, m_pFile->GetCompletePath(), 0);
        }
    } else if ( m_pFile->IsRemote() ) {
        //set an internal flag for texture to always check if file has finished downloading
        //and build
        if ( m_pFile->GetStatus()==MO_FILESTATUS_READY) {
            //we check from filename
            fif = FreeImage_GetFIFFromFilename(m_pFile->GetCompletePath());
            if( (fif != FIF_UNKNOWN) && FreeImage_FIFSupportsReading(fif) ) {
                // ok, let's load the file
                m_pImage = FreeImage_LoadFromMemory( fif, (FIMEMORY*)m_pFile->GetData(), 0);
            }
        }
    }

  moMathd Mathd;

    if (m_pImage != NULL)
    {
        MOuint p_width;
        MOuint p_height;
        FIBITMAP* pImageScaled = NULL;

      p_width = FreeImage_GetWidth(m_pImage);
      p_height = FreeImage_GetHeight(m_pImage);

        bool size_mult_4 = ( p_width % 4 ) != 0 || ( p_height % 4) == 0;
      bool size_power_2 = ( !Mathd.IsPowerOfTwo( (int)p_width ) || !Mathd.IsPowerOfTwo( (int)p_height ) );
      bool resize_image = false;
      bool no_power = m_pResourceManager->GetRenderMan()->IsTextureNonPowerOf2Disabled();

      if (size_power_2
          &&
          no_power ) {
        if (!Mathd.IsPowerOfTwo(p_width)) p_width = NextPowerOf2( p_width );
        if (!Mathd.IsPowerOfTwo(p_height)) p_height = NextPowerOf2( p_height );
        resize_image = true;
      }

      if ( size_mult_4 ) {

          p_width = p_width / 4;
          p_width = p_width * 4;

          p_height = p_height / 4;
          p_height = p_height* 4;
          resize_image = true;
      }


      if (resize_image) {
            pImageScaled = FreeImage_Rescale( m_pImage, p_width, p_height, FILTER_BICUBIC );
            if (pImageScaled) {
                FreeImage_Unload( m_pImage );
                m_pImage = pImageScaled;
            }
        }

        MOuint bpp = FreeImage_GetBPP(m_pImage);
        FREE_IMAGE_COLOR_TYPE colortype = FreeImage_GetColorType(m_pImage);
        FREE_IMAGE_TYPE image_type = FreeImage_GetImageType(m_pImage);
        MOuint p_format;
        MOuint red_mask = FreeImage_GetRedMask(m_pImage);
        MOuint blue_mask = FreeImage_GetBlueMask(m_pImage);
        MOuint green_mask = FreeImage_GetGreenMask(m_pImage);
        MOuint pitch = FreeImage_GetPitch(m_pImage);
        MODebug2->Message( GetName()+ " bpp: "+IntToStr(bpp)
                            +" colortype:"+IntToStr(colortype)
                            +" image_type:"+IntToStr(image_type)
                            +" pitch:"+IntToStr(pitch)
                            +" > blue_mask: " +IntToStr(blue_mask)
                            +" green_mask:"+IntToStr(green_mask)
                            +" red_mask:"+ IntToStr(red_mask) );

        m_param.target = GL_TEXTURE_2D;
        switch (bpp)
        {
            case 8: // 8 bit, indexed or grayscale
                m_param.internal_format = GL_RGB;
                p_format = GL_LUMINANCE;
                break;
            case 16: // 16 bits
                /*
                if((FreeImage_GetRedMask(dib) == FI16_565_RED_MASK) && (FreeImage_GetGreenMask(dib) == FI16_565_GREEN_MASK) && (FreeImage_GetBlueMask(dib) == FI16_565_BLUE_MASK)) {
                    value->rgbBlue      = (BYTE)((((*pixel & FI16_565_BLUE_MASK) >> FI16_565_BLUE_SHIFT) * 0xFF) / 0x1F);
                    value->rgbGreen     = (BYTE)((((*pixel & FI16_565_GREEN_MASK) >> FI16_565_GREEN_SHIFT) * 0xFF) / 0x3F);
                    value->rgbRed       = (BYTE)((((*pixel & FI16_565_RED_MASK) >> FI16_565_RED_SHIFT) * 0xFF) / 0x1F);
                    value->rgbReserved  = 0;
                } else {
                    value->rgbBlue      = (BYTE)((((*pixel & FI16_555_BLUE_MASK) >> FI16_555_BLUE_SHIFT) * 0xFF) / 0x1F);
                    value->rgbGreen     = (BYTE)((((*pixel & FI16_555_GREEN_MASK) >> FI16_555_GREEN_SHIFT) * 0xFF) / 0x1F);
                    value->rgbRed       = (BYTE)((((*pixel & FI16_555_RED_MASK) >> FI16_555_RED_SHIFT) * 0xFF) / 0x1F);
                    value->rgbReserved  = 0;
                }
                */
                break;
            case 24: // 24 bits
                m_param.internal_format = GL_RGB;
/*
#ifndef OPENGLESV2
                if ( red_mask == 0x0000FF || red_mask==0) p_format = GL_BGR;
                else
#endif
                p_format = GL_RGB;
#ifndef OPENGLESV2
        if (fif==FIF_JPEG) p_format = GL_BGR;
#endif
*/
        p_format = GL_RGB;
                if ( image_type==FIT_BITMAP && (fif==FIF_JPEG || fif==FIF_PNG) ) {
                    //BYTE* pbits = (BYTE*)FreeImage_GetBits(m_pImage);
                    for( int j = 0; j < (int)p_height; j++) {
                        //BYTE *pixel = (BYTE*)pbits;
                        BYTE *pixel = (BYTE *) FreeImage_GetScanLine( m_pImage, j );
                        for(int i = 0; i < (int)p_width; i++) {
                            BYTE tmp = pixel[FI_RGBA_RED];
                            pixel[FI_RGBA_RED]   = pixel[FI_RGBA_BLUE];
                            //pixel[FI_RGBA_GREEN] = 128;
                            pixel[FI_RGBA_BLUE]  = tmp;
                            pixel += 3;
                        }
                        // next line
                        //pbits += pitch;
                    }
                }
                break;
            case 32: // 32 bits
                {
                m_param.internal_format = GL_RGBA;
#ifndef OPENGLESV2
                //if ( blue_mask == 0xFF0000 || blue_mask==0 ) p_format = GL_BGRA_EXT;
                //else
#endif
                if ( image_type==FIT_BITMAP && fif==FIF_PNG ) {
                    //BYTE* pbits = (BYTE*)FreeImage_GetBits(m_pImage);
                    for( int j = 0; j < (int)p_height; j++) {
                        //BYTE *pixel = (BYTE*)pbits;
                        BYTE *pixel = (BYTE *) FreeImage_GetScanLine( m_pImage, j );
                        for(int i = 0; i < (int)p_width; i++) {
                            BYTE tmp = pixel[FI_RGBA_RED];
                            pixel[FI_RGBA_RED]   = pixel[FI_RGBA_BLUE];
                            //pixel[FI_RGBA_GREEN] = 128;
                            pixel[FI_RGBA_BLUE]  = tmp;
                            pixel += 4;
                        }
                        // next line
                        //pbits += pitch;
                    }
                }
                p_format = GL_RGBA;
#ifndef OPENGLESV2
        //if (fif==FIF_PNG) p_format = GL_BGRA_EXT;
#else

#endif
                }
                break;
            default:
                break;
        }

        BuildEmpty(p_width, p_height);
        FlipBufferVert((MOubyte *)FreeImage_GetBits(m_pImage), FreeImage_GetBPP(m_pImage) / 8 );
        res = SetBuffer(p_width, p_height, FreeImage_GetBits(m_pImage), p_format);

        FreeImage_Unload(m_pImage);
    }
    else {
        if (MODebug2 != NULL) MODebug2->Error(moText("Error at image load: ") + (moText)p_filename);
        res = false;
    }

    m_bBuildedFromFile = res;

    return res;
}

MOboolean moTexture::SupportedFile(moText p_filename)
{
    moText extension = p_filename;
    extension.Right(3);
    return (!stricmp(extension,"tga") ||
        !stricmp(extension,"jpg") ||
        !stricmp(extension,"png") ||
        !stricmp(extension,"gif") ||
        !stricmp(extension,"bmp") ||
        !stricmp(extension,"xpm") ||
        !stricmp(extension,"ppm"));
}

MOboolean moTexture::Load( moParam* p_param )
{
    moValue* pValue = &p_param->GetValue();
    return Load( pValue );
}

MOboolean moTexture::Load( moValue* p_value )
{
    SetName( p_value->GetSubValue(0).Text() );
    moText namefull = m_pDataMan->GetDataPath() + moSlash + (moText)m_name;
    return BuildFromFile(namefull);
}

MOboolean moTexture::SetBuffer( const GLvoid* p_buffer, GLenum p_format, GLenum p_type)
{
    return SetBuffer(m_width, m_height, p_buffer, p_format, p_type);
}

MOboolean moTexture::SetBuffer(MOuint p_width, MOuint p_height, const GLvoid* p_buffer, GLenum p_format, GLenum p_type)
{
    glBindTexture(m_param.target, m_glid);

    // Aqui hay que destruir la textura si los nuevos alto y anchos son diferentes de los actuales!!!!
  moMathi mathi;
#ifndef OPENGLESV2
    if ((m_gl != NULL) && m_gl->MipMapTexture(m_param.min_filter)
     && ( mathi.IsPowerOfTwo( p_width ) )
      && ( mathi.IsPowerOfTwo( p_height ) )
     )
        gluBuild2DMipmaps(m_param.target, m_param.internal_format, p_width, p_height, p_format, p_type, p_buffer);
    else
#endif
        glTexSubImage2D(m_param.target, 0, 0, 0, p_width, p_height, p_format, p_type, p_buffer);
    glBindTexture(m_param.target, 0);

#ifdef OPENGLESV2
//TODO: in OpenGL ES V2 GPU, we must save the last buffer data, so we dont need to use glGetTexImage, to fetch the texture pixels
if (m_pBufferData==NULL) {
    ResetBufferData( true, 3 );
}
if (m_pBufferData) {
    //copy buffer
    memccpy( m_pBufferData, p_buffer, 1, p_width*p_height  );
}
#endif
    //if (m_gl != NULL) return !m_gl->CheckErrors("copying buffer to texture");
    //else return true;

    return true;
}

MOboolean moTexture::GetBuffer(GLvoid* p_buffer, GLenum p_format, GLenum p_type)
{
    glBindTexture(m_param.target, this->m_glid);
    if ( p_buffer == NULL ) {
      MODebug2->Error("moTexture::GetBuffer > p_buffer: " + IntToStr((MOlong)p_buffer));
      return false;
    }
  if (
#ifndef OPENGLESV2
p_format!=GL_BGR &&
p_format!=GL_BGRA &&
#endif
p_format!=GL_RGB && p_format!=GL_RGBA ) {
      MODebug2->Error("moTexture::GetBuffer > p_format: " + IntToStr((int)p_format));
      return false;
  }
  if ( p_type!=GL_UNSIGNED_BYTE && p_type!=GL_FLOAT && p_type!=GL_BYTE ) {
      MODebug2->Error("moTexture::GetBuffer >  p_type: " + IntToStr((int)p_type) );
      return false;
  }
    try {
#ifndef OPENGLESV2
    glGetTexImage( m_param.target, 0, p_format, p_type, p_buffer);
#else
    return m_pBufferData;
#endif
    } catch(...) {
    MODebug2->Error("moTexture::GetBuffer > exception getting texture buffer. p_buffer: " + IntToStr((MOlong)p_buffer));
    }
    glBindTexture( m_param.target, 0);

    if (m_gl) {
      if (m_gl->CheckErrors("copying texture to buffer")) {
        //MODebug2->Error("moTexture::GetBuffer > GL ERROR: target: " + IntToStr((int)m_param.target) + " p_format: " + IntToStr((int)p_format) +" p_type:" + IntToStr((int)p_type) +" p_buffer:" + IntToStr((int)p_buffer) );
      }
    }
    //else return true;
    return true;
}

bool moTexture::CalculateLuminanceAndConstrast( int x0, int y0, int x1, int y1 ) {

    //FREE_IMAGE_FORMAT fif;
    FIBITMAP* fbitmap = NULL;
    FIBITMAP* fbitmapcopy = NULL;
    //configint options = 0;
    BYTE* tempbuffer = NULL;

    if (GetHeight()==0 || GetWidth()==0) return false;

    if (x0 == 0 && y0 == 0 && x1 == 0 && y1 == 0) {

        tempbuffer = new BYTE [ GetHeight() * GetWidth() * 4 ];
        if (tempbuffer==NULL) return false;
        if (!GetBuffer( tempbuffer, GL_RGBA, GL_UNSIGNED_BYTE ) ) return false;
        int bpp = 32;
        int pitch = 4 * GetWidth();
        fbitmap = FreeImage_ConvertFromRawBits( (BYTE*)tempbuffer, GetWidth(), GetHeight(), pitch, bpp, FI_RGBA_RED_MASK, FI_RGBA_GREEN_MASK, FI_RGBA_BLUE_MASK, false );
        if (tempbuffer)
                delete [] tempbuffer;

    } else {

        int ww = (x1 - x0 - 1);
        int hh = (y1 - y0 - 1);
        if (ww>0 && hh>0) {
            tempbuffer = new BYTE [ GetHeight() * GetWidth() * 4 ];
            if (tempbuffer==NULL) return false;
            //glReadPixels( x0, y0, ww, hh, GL_RGBA, GL_UNSIGNED_BYTE, tempbuffer);
            if (!GetBuffer( tempbuffer, GL_RGBA, GL_UNSIGNED_BYTE ) ) return false;
            int bpp = 32;
            int pitch = 4 * GetWidth();
            fbitmap = FreeImage_ConvertFromRawBits( (BYTE*)tempbuffer, GetWidth(), GetHeight(), pitch, bpp, FI_RGBA_RED_MASK, FI_RGBA_GREEN_MASK, FI_RGBA_BLUE_MASK, false );
            fbitmapcopy = FreeImage_Copy( fbitmap, x0, y0, x1, y1 );
            FreeImage_Unload(fbitmap);
            fbitmap = fbitmapcopy;
            if (tempbuffer)
                delete [] tempbuffer;

        } else {
            MODebug2->Error(moText("moTexture::CalculateLuminanceAndConstrast ") + moText("freeimage problem"));
            return false;
        }

    }

    if (fbitmap && FreeImage_GetHistogram( (FIBITMAP *)fbitmap, (DWORD*)Histogram, FICC_BLACK )) {

            Luminance = 0;
            long Total = 0;

            for(int ih=0; ih <256; ih++) {
                Total+= Histogram[ih];
                Luminance+= Histogram[ih]*ih;

            }

            Luminance = Luminance / Total;

            int Group[5];
            int Totals[5];

            Group[0] = 0;
            Group[1] = 0;
            Group[2] = 0;
            Group[3] = 0;
            Group[4] = 0;

            Totals[0] = 0;
            Totals[1] = 0;
            Totals[2] = 0;
            Totals[3] = 0;
            Totals[4] = 0;


            int zone = 0;
            long dif = 0;
            for(int ih=0; ih <256; ih++) {
                zone = ih / 52;
                dif = ( Histogram[ih]*(ih - Luminance)*(ih - Luminance));
                Group[zone]+= dif;
                Totals[zone]+= Histogram[ih];
            }

            Contrast = 0;
            for(int z=0;z<5;z++) {
                if (Totals[z]>0) Contrast+= Group[z] / Totals[z];
            }
            Contrast = Contrast / 5;

            MODebug2->Push( moText("moTexture::CalculateLuminanceAndConstrast Histogram OK"));

    } else MODebug2->Error( moText("moTexture::CalculateLuminanceAndConstrast Histogram error"));

    if (fbitmap) FreeImage_Unload( fbitmap );
    return true;
}

MOuint moTexture::SetFBOandAttachPoint(moFBO* p_fbo)
{
    MOuint AttachPt;
    SetFBO(p_fbo);
    p_fbo->AddTexture(GetWidth(), GetHeight(), GetTexParam(), GetGLId(), AttachPt);
    SetFBOAttachPoint(AttachPt);
    return AttachPt;
}

MOuint moTexture::GetDataWidth()  const
{
    if ((m_gl != NULL) && m_gl->RectTexture(m_param.target)) return m_width;
    else return (MOuint)(m_max_coord_s * m_width);
}

MOuint moTexture::GetDataHeight() const
{
    if ((m_gl != NULL) && m_gl->RectTexture(m_param.target)) return m_height;
    else return (MOuint)(m_max_coord_t * m_height);
}

MOuint moTexture::GetGLId( moMoldeoObject* p_src_mob ) {
  if (p_src_mob==NULL) return GetGLId();
  return 0;
}

void moTexture::FlipBufferVert(MOubyte *pBuffer, MOint p_depth)
{
    MOubyte *top;
    MOubyte *bottom;
    MOubyte *tmp_buffer;
    int lineWidth = m_width * p_depth;

    tmp_buffer = new MOubyte[m_width * p_depth];

    top =(MOubyte*)pBuffer;
    bottom =(MOubyte*)((BYTE*)pBuffer + lineWidth*(m_height - 1));
    for(MOuint i = 0; i < (m_height >> 1); i++)
    {
        memcpy(tmp_buffer, top, lineWidth);
        memcpy(top, bottom, lineWidth);
        memcpy(bottom, tmp_buffer, lineWidth);

        top =(MOubyte*)((BYTE*) top + lineWidth);
        bottom =(MOubyte*)((BYTE*) bottom - lineWidth);
    }
}

void moTexture::CopyFromTex(moTexture* p_src_tex, MOboolean p_copy_glid, MOboolean p_copy_moid, MOboolean p_copy_type, MOboolean p_copy_name)
{
    if (p_src_tex != NULL)
    {
        m_gl = p_src_tex->m_gl;

        m_fbo = p_src_tex->m_fbo;
        m_fbo_attach_point = p_src_tex->m_fbo_attach_point;

        if (p_copy_type) m_type = p_src_tex->m_type;
        if (p_copy_moid) m_moid = p_src_tex->m_moid;
        if (p_copy_glid) m_glid = p_src_tex->m_glid;
        if (p_copy_name) m_name = p_src_tex->m_name;

        m_param = p_src_tex->m_param;
        m_width = p_src_tex->m_width;
        m_height = p_src_tex->m_height;
        m_components = p_src_tex->m_components;
        m_max_coord_s = p_src_tex->m_max_coord_s;
        m_max_coord_t = p_src_tex->m_max_coord_t;
    }
}

moTexture &moTexture::operator = (const moTexture &p_src_tex)
{
    m_gl = p_src_tex.m_gl;

    m_fbo = p_src_tex.m_fbo;
    m_fbo_attach_point = p_src_tex.m_fbo_attach_point;

    m_type = p_src_tex.m_type;
    m_moid = p_src_tex.m_moid;
    m_glid = p_src_tex.m_glid;
    m_name = p_src_tex.m_name;

    m_param = p_src_tex.m_param;
    m_width = p_src_tex.m_width;
    m_height = p_src_tex.m_height;
    m_components = p_src_tex.m_components;
    m_max_coord_s = p_src_tex.m_max_coord_s;
    m_max_coord_t = p_src_tex.m_max_coord_t;

    return *this;
}

void moTexture::SetParam()
{
    glTexParameteri(m_param.target, GL_TEXTURE_MIN_FILTER, m_param.min_filter);
    glTexParameteri(m_param.target, GL_TEXTURE_MAG_FILTER, m_param.mag_filter);
    glTexParameteri(m_param.target, GL_TEXTURE_WRAP_S, m_param.wrap_s);
    glTexParameteri(m_param.target, GL_TEXTURE_WRAP_T, m_param.wrap_t);
    /*glTexParameteri(m_param.target, GL_GENERATE_MIPMAP, GL_TRUE );*/
}

void moTexture::CalculateSize(MOuint p_width, MOuint p_height)
{

  p_width = ( p_width / 4 ) * 4;
  p_height = ( p_height / 4 ) * 4;

  if ((m_gl != NULL) && m_gl->RectTexture(m_param.target))
    {
        m_width = p_width;
        m_height = p_height;
        m_max_coord_s = p_width;
        m_max_coord_t = p_height;




    }
    /*
    else
    {
        m_width = p_width;
        m_height = p_height;
        m_max_coord_s = 1.0;
        m_max_coord_t = 1.0;
    }*/
    else if (RenderMan()->IsTextureNonPowerOf2Disabled())
    {

        m_width = NextPowerOf2(p_width);
        m_height = NextPowerOf2(p_height);

        m_max_coord_s = (float)p_width / (float)m_width;
        m_max_coord_t = (float)p_height / (float)m_height;
        moDebugManager::Message(" moTexture::CalculateSize  of texture: " + GetName() + " from "
                                + IntToStr(p_width) + "x" + IntToStr(p_height)
                                + " to " + IntToStr(m_width) + "x" + IntToStr(m_height) );
    }
    else
    {
        m_width = p_width;
        m_height = p_height;
        m_max_coord_s = 1.0;
        m_max_coord_t = 1.0;

    }

}

bool moTexture::ResetBufferData( bool force_creation, int bytes_per_pixel ) {

  bool resized = m_buffer_width!=m_width || m_buffer_height!=m_height;

  if (bytes_per_pixel>0) resized = resized || bytes_per_pixel!=(int)m_buffer_bytespp;
  else resized = resized || m_buffer_bytespp!=m_bytespp;

  bool create_buffer = force_creation;

  if ( resized || force_creation  ) {

    if (m_pBufferData && resized) {
      delete [] m_pBufferData;
      m_pBufferData = NULL;
      create_buffer = true;
    }

    if (create_buffer && m_pBufferData==NULL) {
      m_buffer_width = m_width;
      m_buffer_height = m_height;
      m_buffer_bytespp = m_bytespp;
      if (bytes_per_pixel!=0) m_buffer_bytespp = bytes_per_pixel;
      int bufsize = m_buffer_width * m_buffer_height * m_buffer_bytespp;

      if (bufsize>0) {
        m_pBufferData = new BYTE [bufsize];
        if (m_pBufferData) return true;
      }
    }
  }

  return false;
}

MOuint moTexture::NextPowerOf2( MOuint p_seed )
{
    MOuint i;
    for (i = 1; i < p_seed; i *= 2);
    return i;
}

MOboolean moTexture::Build()
{
    glBindTexture(m_param.target, m_glid);
    SetParam();

  GLenum pixel_format = GL_RGBA;
    GLenum pixel_type_format = GL_UNSIGNED_BYTE;
    void* blankdata = NULL;
    MOubyte* ub_blankdata = NULL;
    MOint* i_blankdata = NULL;
    MOfloat* f_blankdata = NULL;

    switch(m_param.internal_format) {
    case GL_RGBA:
      pixel_format = GL_RGBA;
      pixel_type_format = GL_UNSIGNED_BYTE;
      m_bytespp = 4;
      blankdata = new MOubyte [m_width*m_height*m_bytespp]();
      ub_blankdata = (MOubyte*) blankdata;
      break;
    case GL_RGB:
      pixel_format = GL_RGBA;
      pixel_type_format = GL_UNSIGNED_BYTE;
      m_bytespp = 4;
      blankdata = new MOubyte [m_width*m_height*m_bytespp]();
      ub_blankdata = (MOubyte*) blankdata;
      break;
#ifndef OPENGLESV2
    case GL_RGBA32I:
    case GL_RGBA16I:
      pixel_format = GL_RGBA_INTEGER;
      pixel_type_format = GL_INT;
      m_bytespp = 4;
      blankdata = new MOint [m_width*m_height*m_bytespp]();
      i_blankdata = (MOint*) blankdata;
      break;
    case GL_RGBA32F:
    case GL_RGBA16F:
      pixel_format = GL_RGBA;
      pixel_type_format = GL_FLOAT;
      m_bytespp = 4;
      blankdata = new MOfloat [m_width*m_height*m_bytespp]();
      f_blankdata = (MOfloat*) blankdata;
      break;
#endif
    default:
      pixel_format = GL_RGBA;
      pixel_type_format = GL_UNSIGNED_BYTE;
      m_bytespp = 4;
      blankdata = new MOint [m_width*m_height*m_bytespp]();
      i_blankdata = (MOint*) blankdata;
      break;
  }

    glTexImage2D( m_param.target, 0,
                m_param.internal_format,
                m_width, m_height, 0,
                pixel_format,
                pixel_type_format,
                blankdata );

  if (i_blankdata) delete [] i_blankdata;
  if (ub_blankdata) delete [] ub_blankdata;
  if (f_blankdata) delete [] f_blankdata;
#ifndef OPENGLESV2
    glGetTexLevelParameteriv(m_param.target, 0, GL_TEXTURE_COMPONENTS, &m_components);
#else
    //glGetTexParameteriv(m_param.target, GL_TEXTURE_COMPONENTS, &m_components);
#endif
  ResetBufferData();
    //if (m_gl != NULL) return !m_gl->CheckErrors("texture build");
    if (m_gl != NULL) m_gl->CheckErrors("texture build");
    return true;
}

MOboolean moTexture::Refresh() {
  m_glid = 0;//reset gl texture id
  moText namefull = m_pDataMan->GetDataPath() + moSlash + (moText)m_name;
  return BuildFromFile( namefull );
}

moText  moTexture::CreateThumbnail( moText p_bufferformat, int w, int h, moText newfilename ) {

    moText thumbnailfilename;

    if ( newfilename==moText("") ) {

        //old version
        //moThm
        moFile SrcFile( m_name );
        thumbnailfilename = (moText)m_pDataMan->GetDataPath() + moSlash + SrcFile.GetFileName();

        /*
        // new version:
        moFile SrcFile( m_name );
        moDirectory Dir( (moText)m_pDataMan->GetDataPath() + moThm );
        if (  ! Dir.Exists() ) {

        }
        thumbnailfilename = (moText)m_pDataMan->GetDataPath() + moSlash + (moText)m_name + moText(".thm");
        //thumbnailfilename = (moText)m_pDataMan->GetDataPath() + moThm + moSlash + SrcFile.GetFileName() + moText(".thm");
        */


    } else {
        thumbnailfilename = newfilename;
    }

    FREE_IMAGE_FORMAT fif;
    FIBITMAP* fbitmap = NULL;
    int options = 0;

    if (GetHeight()==0 || GetWidth()==0) {
        MODebug2->Error("moTexture::CreateThumbnail > no width or height, texture surface is 0.");
        return moText("");
    }

    unsigned int  bpp = 24;
    unsigned int  bytesperpixel = 3;
    unsigned int  pitch = bytesperpixel * GetWidth();
#ifndef OPENGLESV2
    GLenum gbufferformat = GL_BGR;
#else
    GLenum gbufferformat = GL_RGB;
#endif
    GLenum gcomponenttype = GL_UNSIGNED_BYTE;

    if ( p_bufferformat == moText("PNGA")) {

        fif = FIF_PNG;
        options = PNG_DEFAULT;
        thumbnailfilename+= moText(".png");
        bpp = 32;
        bytesperpixel = 4;
#ifndef OPENGLESV2
        gbufferformat = GL_BGRA;
#else
    gbufferformat = GL_RGBA;
#endif
    } else if ( p_bufferformat == moText("PNGF")) {

        fif = FIF_PNG;
        options = PNG_DEFAULT;
        thumbnailfilename+= moText(".png");
        bpp = 32;
        bytesperpixel = 4;
#ifndef OPENGLESV2
        gbufferformat = GL_BGRA;
#else
    gbufferformat = GL_RGBA;
#endif
        gcomponenttype = GL_FLOAT;

    } else if ( p_bufferformat == moText("PNG")) {
        fif = FIF_PNG;
        options = PNG_DEFAULT;
        thumbnailfilename+= moText(".png");
    } else
    if ( p_bufferformat == moText("JPG") || p_bufferformat == moText("JPGNORMAL")) {

        fif = FIF_JPEG;
        options = JPEG_QUALITYNORMAL;
        thumbnailfilename+= moText(".jpg");

    } else if ( p_bufferformat == moText("JPGSUPERB") ) {

        fif = FIF_JPEG;
        options = JPEG_QUALITYSUPERB;
        thumbnailfilename+= moText(".jpg");

    } else if ( p_bufferformat == moText("JPGBAD") ) {

        fif = FIF_JPEG;
        options = JPEG_QUALITYBAD;
        thumbnailfilename+= moText(".jpg");

    } else if ( p_bufferformat == moText("JPGAVERAGE") ) {

        fif = FIF_JPEG;
        options = JPEG_QUALITYAVERAGE;
        thumbnailfilename+= moText(".jpg");

    } else if ( p_bufferformat == moText("JPGGOOD") ) {

        fif = FIF_JPEG;
        options = JPEG_QUALITYGOOD;
        thumbnailfilename+= moText(".jpg");

    } else if ( p_bufferformat == moText("TGA") ) {

        fif = FIF_TARGA;
        options = 0;
        thumbnailfilename+= moText(".tga");
    }

    pitch = bytesperpixel * GetWidth();
    //pitch = ((GetWidth() * bpp + 31) /31 ) *4;

    if (gcomponenttype==GL_UNSIGNED_BYTE)
      ResetBufferData( true, bytesperpixel );
/*
    if (m_pBufferData==NULL) {
      if (gcomponenttype==GL_UNSIGNED_BYTE) {
        m_pBufferData = new BYTE [ pitch * GetHeight() ];
      } else {
        //CONVERT
      }
    }
*/
    if (m_pBufferData==NULL) {
        MODebug2->Error("moTexture::CreateThumbnail > no memory for buffer data allocation or invalid component type.");
        return moText("");
    }

    if (!GetBuffer( m_pBufferData, gbufferformat, gcomponenttype ) ) {
        MODebug2->Error("moTexture::CreateThumbnail > GetBuffer from texture " + GetName()+" failed.");
        return moText("");
    }
    fbitmap = FreeImage_ConvertFromRawBits( (BYTE*)m_pBufferData,
                                           GetWidth(),
                                           GetHeight(),
                                           pitch,
                                           bpp,
                                           0xFF0000,
                                           0x00FF00,
                                           0x0000FF,
                                           true );

    //TODO: add alpha channel for RGBA: FreeImage_SetTransparent(fbitmap, image.flags & ImageData::ALPHA_BIT);

    if (!fbitmap) {

      MODebug2->Error("moTexture::CreateThumbnail > FreeImage_ConvertFromRawBits failed from: " + GetName() + " width:" + IntToStr(GetWidth())+" height:"+IntToStr(GetHeight()) );
      return moText("");
    }

    unsigned int fwidth = FreeImage_GetWidth(fbitmap);
    unsigned int fheight = FreeImage_GetHeight(fbitmap);
    unsigned int fpitch = FreeImage_GetPitch(fbitmap);
    unsigned int fbpp = FreeImage_GetBPP(fbitmap);
    //FREE_IMAGE_TYPE image_type = FreeImage_GetImageType( fbitmap );


    if  ((fwidth!=GetWidth() && fheight!=GetHeight()) ) {

      MODebug2->Error("moTexture::CreateThumbnail > freeimage width and height does not match texture wxh > fwidth:" + IntToStr(fwidth) + " fheight:" + IntToStr(fheight) );
      return moText("");
    }

    if ( fbpp!=bpp /*||  fpitch!=pitch*/ ) {
      MODebug2->Error("moTexture::CreateThumbnail > freeimage bpp and pitch does not match texture > fpitch:" + IntToStr(fpitch) +" vs pitch:" + IntToStr(pitch) + " fbpp (bits per pixel):" + IntToStr(bpp) +" vs bpp:" + IntToStr(bpp) );
      return moText("");

    }

/*
    RGBQUAD colorv;
    if( FALSE==FreeImage_GetPixelColor( fbitmap, 0, 0, &colorv )) {
      MODebug2->Error("moTexture::CreateThumbnail > freeimage conversion failed somehow: no FreeImage_GetPixelColor!");
      return moText("");
    } else {
      MODebug2->Message("moTexture::CreateThumbnail > ");
    }
    */
/*
    FILE* fp = fopen( thumbnailfilename ,"wb" );
    fwrite( FreeImage_, sizeof(BYTE), m_width * m_height * 3 , fp );
    fclose(fp);
    */

    FIBITMAP* fbitmap2 = NULL;
    if (m_pResourceManager->GetRenderMan()->IsTextureNonPowerOf2Disabled()) {
        //crop image...to  match resolution
        if (    m_pResourceManager->GetRenderMan()->ScreenWidth() == w && w <= (int)GetWidth()
                && m_pResourceManager->GetRenderMan()->ScreenHeight() == h && h <= (int)GetHeight()  ) {
                  //MODebug2->Message("FreeImage_Copy");
                  fbitmap2 = FreeImage_Copy( fbitmap, 0, 0, w, h);
                  if (fbitmap2 && fbitmap) { FreeImage_Unload( fbitmap ); fbitmap=fbitmap2; }
                }
    } else {
        //MODebug2->Message("FreeImage_Rescale");
        w = (w / 4 ) * 4;
        h = (h / 4 ) * 4;
        if (w!=(int)GetWidth() || h!=(int)GetHeight()) fbitmap2 = FreeImage_Rescale( fbitmap, w, h, FILTER_BICUBIC );
        if (fbitmap2 && fbitmap) { FreeImage_Unload( fbitmap ); fbitmap=fbitmap2; }
    }

    //MODebug2->Message("FreeImage_FlipVertical");
    //MODebug2->Message("FreeImage_GetVersion:" + moText(FreeImage_GetVersion()));
    //FreeImage_FlipVertical( fbitmap );


    if (!FreeImage_Save( fif, fbitmap, thumbnailfilename, options )) {
      MODebug2->Error("moTexture::CreateThumbnail > not saved to disc. thumbnailfilename: " + thumbnailfilename);
    }

    if (fbitmap) { FreeImage_Unload( fbitmap ); }

    /*
    if (m_pBufferData)
        delete [] m_pBufferData;
    */



    //return ( moText("width:") + IntToStr(width) + moText("height:") + IntToStr(height) + moText("pitch") + IntToStr(ppitch) + moText("fif") + IntToStr(fif) + moText("oo") + IntToStr((int)fbitmap)  );

    return thumbnailfilename;

}


//===========================================
//
//              moTextureMemory
//
//===========================================

moTextureMemory::moTextureMemory() : moTexture() {
    reference_counter = 0;
    m_SizeInMemory = 0;
    m_bBitmapInMemory = false;
    hmem = NULL;
    fif = 0;
    m_BufferFormat = moText("JPG");
    Luminance = -1;
    Contrast = -1;

    int i = 0;
    for( i = 0; i<256; i++) Histogram[i] = 0;

}

moTextureMemory::~moTextureMemory() {

}

MOboolean moTextureMemory::Init( moText p_name, MOuint p_moid, moResourceManager* p_res, moTexParam p_param ) {

    return moTexture::Init( p_name, p_moid, p_res, p_param );

}

MOboolean moTextureMemory::Init( moText p_name, MOuint p_moid, moResourceManager* p_res, moText bufferformat, moBitmap* pImageResult, moTexParam p_param ) {

    m_BufferFormat = bufferformat;

    if (pImageResult) LoadFromBitmap(pImageResult);

    return moTexture::Init( p_name, p_moid, p_res, p_param );
}

MOboolean moTextureMemory::LoadFromBitmap( moBitmap* p_bitmap ) {

    if ( m_bBitmapInMemory && hmem!=NULL ) {
        reference_counter = 1;
        ReleaseReference();
        FreeImage_CloseMemory((FIMEMORY*)hmem);
        hmem = NULL;
    }

    if (!hmem) {
        hmem = FreeImage_OpenMemory();
    }
    if (hmem) {

        if ( m_BufferFormat == moText("JPG")) {
            fif = FIF_JPEG;
            options = JPEG_QUALITYNORMAL;
        } else if ( m_BufferFormat == moText("JPGSUPERB") ) {
            fif = FIF_JPEG;
            options = JPEG_QUALITYSUPERB;
        } else if ( m_BufferFormat == moText("JPGBAD") ) {
            fif = FIF_JPEG;
            options = JPEG_QUALITYBAD;
        } else if ( m_BufferFormat == moText("JPGAVERAGE") ) {
            fif = FIF_JPEG;
            options = JPEG_QUALITYAVERAGE;
        } else if ( m_BufferFormat == moText("JPGGOOD") ) {
            fif = FIF_JPEG;
            options = JPEG_QUALITYGOOD;
        } else if ( m_BufferFormat == moText("TGA") ) {
            fif = FIF_TARGA;
            options = 0;
        } else if ( m_BufferFormat == moText("PNG") ) {
            fif = FIF_PNG;
            options = 0;
        } else if ( m_BufferFormat == moText("XPM") ) {
            fif = FIF_XPM;
            options = 0;
        } else if ( m_BufferFormat == moText("RAW") ) {
            fif = FIF_PPMRAW;
            options = 0;
        }
        //syntax: FreeImage_SaveToMemory(FREE_IMAGE_FORMAT fif, FIBITMAP *dib, FIMEMORY *stream, int flags FI_DEFAULT(0));
        if ( FreeImage_SaveToMemory( (FREE_IMAGE_FORMAT)fif, (FIBITMAP *)p_bitmap, (FIMEMORY*)hmem, options ) ) {
            m_SizeInMemory = FreeImage_TellMemory((FIMEMORY*)hmem);
            m_bBitmapInMemory = true;

            m_width = FreeImage_GetWidth((FIBITMAP *)p_bitmap);
            m_height = FreeImage_GetHeight((FIBITMAP *)p_bitmap);


            if (FreeImage_GetHistogram( (FIBITMAP *)p_bitmap, (DWORD*)Histogram, FICC_BLACK )) {

                Luminance = 0;
                long Total = 0;

                for(int ih=0; ih <256; ih++) {
                    Total+= Histogram[ih];
                    Luminance+= Histogram[ih]*ih;

                }

                Luminance = Luminance / Total;



                int Group[5];
                int Totals[5];

                Group[0] = 0;
                Group[1] = 0;
                Group[2] = 0;
                Group[3] = 0;
                Group[4] = 0;

                Totals[0] = 0;
                Totals[1] = 0;
                Totals[2] = 0;
                Totals[3] = 0;
                Totals[4] = 0;


                int zone = 0;
                long dif = 0;
                for(int ih=0; ih <256; ih++) {
                    zone = ih / 52;
                    dif = ( Histogram[ih]*(ih - Luminance)*(ih - Luminance));
                    Group[zone]+= dif;
                    Totals[zone]+= Histogram[ih];
                }

                Contrast = 0;
                for(int z=0;z<5;z++) {
                    if (Totals[z]>0) Contrast+= Group[z] / Totals[z];
                }
                Contrast = Contrast / 5;

            } else MODebug2->Error( moText("moTextureMemory::LoadFromBitmap Histogram error"));



            //MODebug2->Push( moText("moTextureMemory::LoadFromBitmap success: hmem:") + IntToStr((int)hmem));
            //MODebug2->Push( moText("moTextureMemory::LoadFromBitmap luminance:") + IntToStr(Luminance) + moText(" contrast:") + IntToStr(Contrast) );
        } else m_bBitmapInMemory = false;

    }

    return m_bBitmapInMemory;

}

MOboolean moTextureMemory::BuildFromMemory() {

    if (hmem!=NULL && m_glid>0) {
        FIBITMAP *pImage;
        //FIMEMORY  *hmem;

        MOuint _format;

        //MOint FrameSize =
        FreeImage_TellMemory((FIMEMORY*)hmem);
        FreeImage_SeekMemory( (FIMEMORY*)hmem, 0L, SEEK_SET);

        //hmem = FreeImage_OpenMemory( pVideoFrame->hmem,  pVideoFrame->m_FrameSize);
        //FreeImage_TellMemory(VideoFrame->hmem);
        // load an image from the memory stream
        pImage = FreeImage_LoadFromMemory( (FREE_IMAGE_FORMAT)fif, (FIMEMORY*)hmem, 0);

        switch (FreeImage_GetBPP(pImage))
        {
            case 8: // 8 bit, indexed or grayscale
                m_param.internal_format = GL_RGB;
                _format = GL_LUMINANCE;
                break;
            case 16: // 16 bits
                break;
            case 24: // 24 bits
                m_param.internal_format = GL_RGB;
#ifndef OPENGLESV2
            if (FreeImage_GetBlueMask(pImage) == 0x000000FF) _format = GL_BGR;
                else
#endif
        _format = GL_RGB;
#ifndef OPENGLESV2
                #ifdef WIN32
                _format = GL_BGR;
                #endif // WIN32
#endif
                break;
            case 32: // 32 bits
                m_param.internal_format = GL_RGBA;
#ifndef OPENGLESV2
                if (FreeImage_GetBlueMask(pImage) == 0x000000FF) _format = GL_BGRA_EXT;
                else
#endif
        _format = GL_RGBA;
                break;
            default:
                m_param.internal_format = GL_RGBA;
                _format = GL_RGBA;
                break;
        }
        Build();
        FlipBufferVert((MOubyte *)FreeImage_GetBits(pImage), FreeImage_GetBPP(pImage) / 8 );
        SetBuffer( m_width, m_height, FreeImage_GetBits(pImage), _format);
        FreeImage_Unload( pImage );
        //MODebug2->Push( moText("moTextureMemory::BuildFromMemory: success: hmem:") + IntToStr((int)hmem) + moText("glid:") + IntToStr(m_glid));
        return true;
    } else {
        //MODebug2->Error( moText("moTextureMemory::BuildFromMemory: Error GLID or Memory never assigned. hmem:") + IntToStr((int)hmem) + moText("glid:") + IntToStr(m_glid));
        return false;
    }
}


MOboolean moTextureMemory::BuildFromBitmap( moBitmap* p_bitmap, moText p_bufferformat )
{
    MOboolean res = false;

    m_BufferFormat = p_bufferformat;

    if (p_bitmap != NULL)
    {
        res = LoadFromBitmap( p_bitmap );

    }
    else {
        if (MODebug2 != NULL) MODebug2->Error(moText("Error at image build from bitmap: [pointer is null] ") + (moText) this->GetName());
        res = false;
    }

    return res;
}


int  moTextureMemory::GetReference() {


    //si la referencia es 0:
    //asigna la textura
    if (this->Initialized()) {

        if (reference_counter==0) {
            if (m_bBitmapInMemory) {
                glGenTextures(1, &m_glid);
                CalculateSize(m_width, m_height);
                if (BuildFromMemory()) {
                    //MODebug2->Push( moText("moTextureMemory::GetReference success: glid: ") + IntToStr(m_glid) );
                    reference_counter++;
                }
            } else MODebug2->Push( moText("moTextureMemory::GetReference no bitmap in memory ") );
        }
    } else MODebug2->Error( moText("moTextureMemory::GetReference Error: object not initialized") );

    return ((int)reference_counter);
}

void  moTextureMemory::ReleaseReference() {
    if (reference_counter>0) {
          reference_counter--;
          if ( reference_counter==0 ) {
              if (m_glid>0) {
                glDeleteTextures(1,&m_glid);
                m_glid = 0;
              }
          }
    }
}

MOboolean moTextureMemory::Finish() {

    if (hmem) {
        FreeImage_CloseMemory( (FIMEMORY*)hmem );
        hmem = NULL;
    }

    m_SizeInMemory = 0;
    hmem = NULL;
    fif = (int)FIF_UNKNOWN;

    return moTexture::Finish();

}

//===========================================
//
//              moTextureAnimated
//
//===========================================

moTextureAnimated::moTextureAnimated() : moTexture()
{
    m_FrameJump = 0;
    m_FrameNext = 0;
    m_FramePrevious = 0;
    m_FrameStart = 0;
    m_FrameEnd = 0;
    m_ActualFrame = 0;
    m_nFrames = 0;
    m_InterpolationTime = 0;
    m_bInterpolation = false;
    m_bInterpolating = false;
    m_pShaderCopy = NULL;
    m_pShaderInterpolate = NULL;
    m_pCopyStart = NULL;
    m_pCopyEnd = NULL;
    m_pInterpolator = NULL;
    m_PlayMode = MO_PLAYMODE_FRAMEBASE;
}

moTextureAnimated::~moTextureAnimated()
{
    Finish();
}

MOboolean moTextureAnimated::Init(moText p_name, MOuint p_moid, moResourceManager* p_res, moTexParam p_param)
{
    m_FrameJump = 0;
    m_FrameNext = 0;
    m_FramePrevious = 0;
    m_FrameStart = 0;
    m_FrameEnd = 0;
    m_nFrames = 0;
    m_InterpolationTime = 0;
    m_bInterpolation = false;
    m_bInterpolating = false;
    m_pShaderCopy = NULL;
    m_pShaderInterpolate = NULL;
    m_pCopyStart = NULL;
    m_pCopyEnd = NULL;
    m_pInterpolator = NULL;
    m_PlayMode = MO_PLAYMODE_FRAMEBASE;

    return moTexture::Init(p_name, p_moid, p_res, p_param);
}

MOboolean moTextureAnimated::Finish()
{
    return moTexture::Finish();
}


void moTextureAnimated::Play() {
  m_bIsPlaying = true;
}


void moTextureAnimated::Stop() {
  m_bIsPlaying = false;
}


bool moTextureAnimated::IsPlaying() {
  //m_bIsPlaying = true;
  return m_bIsPlaying;
}

void
moTextureAnimated::SetInterpolation( MOuint p_FrameJump, MOuint p_InterpolationTime ) {

    m_FrameJump = p_FrameJump;
    m_InterpolationTime = p_InterpolationTime;
    moShaderManager* SM = m_pResourceManager->GetShaderMan();

    if (!m_pCopyStart && this->GetWidth()>0 ) {
      moTextArray copy_filter_0;
      copy_filter_0.Add( moText( this->m_name+" shaders/Copy.cfg "+this->m_name+"copyStart") );
      int idx = SM->GetTextureFilterIndex()->LoadFilters( &copy_filter_0 );
      if (idx>-1) {
          m_pCopyStart = SM->GetTextureFilterIndex()->Get(idx-1);
          MODebug2->Message( moText("filter loaded m_pCopyStart") );
      }
  }

    if (!m_pCopyEnd && this->GetWidth()>0 ) {
      moTextArray copy_filter_0;
      copy_filter_0.Add( moText( this->m_name+" shaders/Copy.cfg "+this->m_name+"copyEnd") );
      int idx = SM->GetTextureFilterIndex()->LoadFilters( &copy_filter_0 );
      if (idx>-1) {
          m_pCopyEnd = SM->GetTextureFilterIndex()->Get(idx-1);
          MODebug2->Message( moText("filter loaded m_pCopyEnd") );
      }
  }

    if (!m_pInterpolator && this->GetWidth()>0 ) {
      moTextArray copy_filter_0;
      copy_filter_0.Add( moText( this->m_name+"copyStart "+this->m_name+"copyEnd shaders/TexInterpolator.cfg "+this->m_name+"") );
      int idx = SM->GetTextureFilterIndex()->LoadFilters( &copy_filter_0 );
      if (idx>-1) {
          m_pInterpolator = SM->GetTextureFilterIndex()->Get(idx-1);
          MODebug2->Message( moText("filter loaded m_pInterpolator") );
      }
  }
}

MOboolean
moTextureAnimated::IsInterpolating() {
    return m_bInterpolating;
}

MOboolean
moTextureAnimated::IsInterpolationActive() {
    return m_bInterpolation;
}

MOboolean
moTextureAnimated::ActivateInterpolation( MOboolean activate ) {
    if (m_pCopyStart && m_pCopyEnd && m_pInterpolator && activate) {
        m_bInterpolation = true;
    } else {
        m_bInterpolation = false;
        m_bInterpolating = false;
    }
    return m_bInterpolation;
}


//Cuando necesitamos interpolacion?
//
//      Suavizado de saltos:
//          1) se paso el intervalo maximo entre el cuadro actual y el siguiente
//          2) todavia se esta en un ciclo de interpolacion
//
//      Camara lenta: (a implementar)
//          1) el tiempo maximo entre dos cuadros contiguos fue superado, entonces se generará un cuadro intermedio proporcional
//          2) todavia se esta en un ciclo de interpolacion
MOboolean
moTextureAnimated::NeedsInterpolation() {
    // pasamos la barrera del m_FrameJump
    // !!!chequear que el next y el previous esten correctamente fijados
    //MODebug2->Push( moText("Pr:")+IntToStr(m_FramePrevious)+moText("Nxt:")+IntToStr(m_FrameNext) );
    //return false;
    if (!m_bInterpolation)
        return false;

    if (!m_bInterpolating) {
        if ( fabs( (double)((double)m_FrameNext - (double)m_FramePrevious) ) > (double)m_FrameJump ) {
            m_FrameStart = m_FramePrevious;
            m_FrameEnd = m_FrameNext;
            //desactivamos la interpolacion para poder acceder a los cuadros correspondientes libremente
            m_bInterpolating = false;
            ActivateInterpolation(false);
            //TODO: fix this
            moTextFilterParam DefParam;
            if (m_pCopyStart) m_pCopyStart->Apply( m_FrameStart, 1.0, DefParam );
            if (m_pCopyEnd) m_pCopyEnd->Apply( m_FrameEnd, 1.0, DefParam );
            //activamos nuevamente la interpolacion una vez copiados los cuadros
            ActivateInterpolation(true);
            m_bInterpolating = true;
            //fijamos nuevamente el previous y el next
            m_FramePrevious = m_FrameStart;
            m_FrameNext = m_FrameEnd;
            m_StartTime = moGetTicks();
            return true;
        }
    } else {
        if ( m_InterpolationPosition >= 1.0 ) {
            m_StartTime = 0;
            m_bInterpolating = false;
        }
    }
    return m_bInterpolating;
}


MOint
moTextureAnimated::Interpolate() {
    moTextFilterParam filterparam;

    if ( m_pInterpolator && m_bInterpolation) {
        if (m_bInterpolating) {
            MOuint m_ActualTime = moGetTicks();
            m_InterpolationPosition = (float)( m_ActualTime - m_StartTime ) / (m_InterpolationTime);
            if ( m_InterpolationPosition >= 1.0) m_InterpolationPosition = 1.0;
            if ( m_InterpolationPosition <= 0.0) m_InterpolationPosition = 0.0;
            filterparam = m_pInterpolator->GetTextFilterParam();
            filterparam.par_flt1 = m_InterpolationPosition;
      //TODO: fix this
            MODebug2->Message( moText("IP:")+FloatToStr(m_InterpolationPosition)+moText(" Param par_flt1:")+FloatToStr(filterparam.par_flt1)+moText(" Param UNIFORM ID:")+IntToStr(filterparam.m_par_flt1) );
            
            m_pInterpolator->Apply( m_InterpolationPosition, 1.0, filterparam );

            //MODebug2->Message( moText("IP:")+FloatToStr(m_InterpolationPosition) );
            return 1;
        }
    }
    return 0;
}


// NOTA: este algoritmo fija el cuadro next emparejando el moTempo con la cantidad de frames...
MOint
moTextureAnimated::GetGLId(moTempo *p_tempo) {
    //segun el tempo elige el cuadro!
    int t;
    float ft,PeliV;


    if(p_tempo==NULL) {
            t = m_Time - moGetTicks();
            ft = (t / 1000) * m_fFramesPerSecond;//frames que deberian haber pasado en este lapso...

            if(ft >= 0.99)  {

                    m_FrameNext++;

                    if( m_FrameNext >= m_nFrames ) {
                        m_FrameNext = 0;
                    }

            }

    } else {
        PeliV = fmod( p_tempo->ang*double(m_nFrames) / double(2*moMathf::PI) , double(m_nFrames) );
        m_FrameNext = min( int(ceilf(PeliV)), int(m_nFrames - 1) );
        //MODebug2->Push( "peliv:" + FloatToStr(PeliV) + " fnext: " + IntToStr(m_FrameNext));
        //PeliV = fmod( float( p_tempo->ang ), float(2*moMathf::PI)) /(2*moMathf::PI);
        //m_FrameNext = min(int(PeliV * m_nFrames), m_nFrames - 1);
    }

    if (NeedsInterpolation()) {
        Interpolate();
    } else {
        if(m_FramePrevious!=m_FrameNext) this->GetFrame( m_FrameNext );
        m_FramePrevious = m_FrameNext;
    }

    return m_glid;
}

// NOTA: este devuelve simplemente el glid correspondiente al cuadro interno "i"
//como en este caso no estan definidos las sub-texturas, ya q depende de cada implementaci�
//devuelve el m_glid de moTexture
MOint
moTextureAnimated::GetGLId( MOuint p_i ) {

    if (p_i>2000 || p_i>m_nFrames) {
        //TODO: WTF
        //p_i = 0;
    }

    m_FrameNext = p_i;

    if (NeedsInterpolation()) {
    
    MODebug2->Message( moText("moTextureAnimated::GetGLId( MOuint p_i ) > Interpolating image! ")+GetName()+
                      " From m_FramePrevious: " + IntToStr( m_FramePrevious )+
                      " To m_FrameNext: " + IntToStr( m_FrameNext )+
                      " At m_InterpolationPosition: " + FloatToStr( m_InterpolationPosition, 2, 2 )+
                      "From m_FrameStart: " + IntToStr( m_FrameStart )+
                      " To m_FrameEnd: " + IntToStr( m_FrameEnd )
                        );
        Interpolate();
    } else {
        if(m_FramePrevious!=p_i) this->GetFrame(p_i);
        m_FramePrevious = m_FrameNext = p_i;
    }

    return m_glid;
}

MOint moTextureAnimated::GetGLId( MOfloat p_cycle ) {

    MOfloat PeliV;

    PeliV = fmod( (float)p_cycle, (float)1.0 );
    m_FrameNext = min(int(PeliV * m_nFrames), int(m_nFrames - 1));

    if (NeedsInterpolation()) {
        Interpolate();
    } else {
        if(m_FramePrevious!=m_FrameNext) this->GetFrame( m_FrameNext );
        m_FramePrevious = m_FrameNext;
    }
    return m_glid;

}

void
moTextureAnimated::GetFrame( MOuint p_i) {

  if (p_i>0) return;
    return;
}

MOuint
moTextureAnimated::GetActualFrame() {

    return this->m_ActualFrame;
}


void moTextureAnimated::SetPlayMode( moTextureAnimated::moPlayMode playmode ) {
  m_PlayMode = playmode;
}

moTextureAnimated::moPlayMode moTextureAnimated::GetPlayMode() {
  return m_PlayMode;
}


//===========================================
//
//              moTextureMultiple
//
//===========================================

moTextureMultiple::moTextureMultiple() : moTextureAnimated()
{
    m_type = MO_TYPE_TEXTURE_MULTIPLE;
}

moTextureMultiple::~moTextureMultiple()
{
    Finish();
}

MOboolean moTextureMultiple::Init(moText p_name, MOuint p_moid, moResourceManager* p_res, moTexParam p_param)
{
    moTextureAnimated::Init(p_name, p_moid, p_res, p_param);

    m_nFrames = 0;
    m_fFramesPerSecond = 24.0;
    m_textures_array.Init(0, NULL);
    return true;
}

MOboolean moTextureMultiple::Finish()
{
    m_textures_array.Finish();
    moTextureAnimated::Finish();
    return true;
}

MOboolean moTextureMultiple::SupportedFile(moText p_filename)
{
    moText begin = p_filename;
    begin.Left(7);
    return !stricmp(begin,"multiple");
}

MOboolean moTextureMultiple::Load(moParam* p_param)
{
    moValue* pValue = &p_param->GetValue();
    return Load(pValue);
}

MOboolean moTextureMultiple::Load(moValue * p_value)
{
    SetName(p_value->GetSubValue(0).Text());

    int nframes = p_value->GetSubValueCount() - 1;
    moText fn;
    moTexture* newtex;
    for (int i = 0; i < nframes; i++)
    {
        fn = m_pDataMan->GetDataPath() + moSlash + p_value->GetSubValue(i + 1).Text();
        if (moTexture::SupportedFile(fn))
        {
            if (BuildFromFile(fn))
            {
                newtex = new moTexture;
                newtex->SetName(fn);
                newtex->CopyFromTex((moTexture*)this, true, false, false, false);
                m_textures_array.Add(newtex);
            }
        }
    }
    SetFrameCount(m_textures_array.Count());

    m_bBuildedFromFile = (0 < m_textures_array.Count());

    return 0 < m_textures_array.Count();
}

MOboolean moTextureMultiple::Load(moText p_name, moTextureArray &p_textures, MOuint p_id0, MOuint p_id1)
{
    SetName(p_name);
    m_textures_array.Copy(p_textures, p_id0, p_id1);
    SetFrameCount(m_textures_array.Count());
    return 0 < m_textures_array.Count();
}

void moTextureMultiple::SetTextureCount(MOuint p_tex_count)
{
    m_textures_array.Init(p_tex_count, NULL);
    SetFrameCount(p_tex_count);
}

void moTextureMultiple::GetFrame(MOuint p_i)
{
    if (ValidTexture(p_i)) {
        this->CopyFromTex(m_textures_array[p_i], true, false, false, false);
        this->m_ActualFrame = p_i;
    }
    else m_glid = 0;
}

void moTextureMultiple::SetFrame(MOuint p_i, moTexture* p_texture)
{
    if (p_i < m_textures_array.Count() && p_texture) {
        if (ValidTexture(p_i)) {
        m_textures_array[p_i]->CopyFromTex(p_texture, true, true, true, true);
        }
        else
    {
      m_textures_array[p_i] = p_texture;
    }
    }
}

void moTextureMultiple::AddFrame(moTexture* p_texture)
{
    m_textures_array.Add(p_texture);
    m_nFrames++;
}

MOboolean moTextureMultiple::ValidTexture(MOuint p_i)
{
    return ((p_i < (MOuint)m_textures_array.Count()) && (m_textures_array[p_i] != NULL));
}

//===========================================
//
//              moMovie
//
//===========================================

moMovie::moMovie() : moTextureAnimated()
{
    m_type = MO_TYPE_MOVIE;
    m_pGraph = NULL;
    m_PlayMode = MO_PLAYMODE_TIMEBASE;
    m_pFilename = "";
    m_bIsPlaying = false;
    m_bIsPaused = false;
}

moMovie::~moMovie()
{
    Finish();
}

MOboolean moMovie::Init(moText p_name, MOuint p_moid, moResourceManager* p_res, moTexParam p_param)
{
    moTextureAnimated::Init(p_name, p_moid, p_res, p_param);
    if(!m_pGraph) {

        #ifdef MO_DIRECTSHOW
            m_pGraph = (moVideoGraph*) new moDsGraph();
        #endif

        #ifdef MO_GSTREAMER
            m_pGraph = (moVideoGraph*) new moGsGraph();
        #endif
    }

  m_PlayMode = MO_PLAYMODE_TIMEBASE;

    return true;
}

MOboolean moMovie::Finish()
{
    if (m_pGraph!=NULL)
    {
        delete m_pGraph;
        m_pGraph = NULL;
    }
    moTextureAnimated::Finish();
    return true;
}

void moMovie::Play() {
  if (m_pGraph) {
    m_pGraph->Play();
    m_bIsPlaying = true;
    m_bIsPaused = false;
  }
}

void moMovie::Pause() {
  if (m_pGraph) {
    m_pGraph->Pause();
    m_bIsPlaying = false;
    m_bIsPaused = true;
  }
}

void moMovie::Continue() {
  if (m_pGraph) {
    m_pGraph->Play();
    m_bIsPlaying = true;
    m_bIsPaused = false;
  }
}
/*
void BackToBlack( moTexture* pTex ) {
  if (pTex) {
    long size = pTex->GetWidth() * pTex->GetHeight() * 4;
    MOubyte* allblack = new MOubyte [size];
    memset( allblack, 0 , size);
    pTex->SetBuffer( allblack );
  }
}
*/

void moMovie::Stop() {
  if (m_pGraph) {
    //if (GetPosition()==0 && m_pGraph->GetState()!=MO_STREAMSTATE_STOPPED) {

      m_pGraph->Stop();
      m_bIsPlaying = false;
      m_bIsPaused = false;

    //} else if ( GetPosition()!=0) {
     // m_pGraph->Pause();
     // m_pGraph->Seek(0);
     // m_bIsPlaying = true;
    //}
  }
}

void moMovie::Seek( long frame, float rate ) {
  if (m_pGraph) {
    m_pGraph->Seek( frame, rate );
  }
}

MOulong moMovie::GetPosition() {
  if (m_pGraph)
    return m_pGraph->GetPosition();
  return 0;
}

moStreamState moMovie::State()  {

  moStreamState stream_state = MO_STREAMSTATE_UNKNOWN;

  if (m_pGraph) {

    stream_state = m_pGraph->GetState();

    switch(stream_state) {
      case MO_STREAMSTATE_PLAYING:
        m_bIsPlaying = true;
        m_bIsPaused = false;
        break;
      case MO_STREAMSTATE_PAUSED:
        m_bIsPlaying = false;
        m_bIsPaused = true;
        break;
      default:
        m_bIsPlaying = false;
        m_bIsPaused = false;
        break;
    }

  }

  return stream_state;
}

bool moMovie::IsPlaying() {

  if (m_pGraph) {
    //MODebug2->Message("moMovie::IsPlaying > calling m_pGraph->GetState()");
    //m_pGraph->GetState();
    this->State();
    //MODebug2->Message("moMovie::IsPlaying > GetState returned");
  }
  return m_bIsPlaying;
}

bool moMovie::IsPaused() {

  if (m_pGraph) {
    //MODebug2->Message("moMovie::IsPlaying > calling m_pGraph->GetState()");
    //m_pGraph->GetState();
    this->State();
    //MODebug2->Message("moMovie::IsPlaying > GetState returned");
  }
  return m_bIsPaused;
}


void  moMovie::SetBrightness( float brightness ) {
  if (m_pGraph) {
    m_pGraph->SetContrast( brightness );
  }
}



void  moMovie::SetContrast( float contrast ) {
  if (m_pGraph) {
    m_pGraph->SetContrast( contrast );
  }
}



void  moMovie::SetHue( float hue ) {
  if (m_pGraph) {
    m_pGraph->SetHue( hue );
  }
}



void  moMovie::SetSaturation( float saturation ) {
  if (m_pGraph) {
    m_pGraph->SetSaturation( saturation);
  }
}

void  moMovie::SetVolume( float volume ) {

  if ( HasAudio() && m_pGraph) {
    m_pGraph->SetVolume( volume);
  }
}

void  moMovie::SetBalance( float balance ) {
  if ( HasAudio() && m_pGraph) {
    m_pGraph->SetBalance( balance);
  }
}

bool moMovie::HasVideo() {
  return true;
}

bool moMovie::HasAudio() {
  return true;
}

bool  moMovie::IsEOS() {

  if (m_pGraph) {
      return m_pGraph->IsEOS();
  }
  return false;

}

MOboolean moMovie::SupportedFile(moText p_filename)
{

    moFile FileName(p_filename);
    moText extension = FileName.GetExtension();
    return (!stricmp(extension,".avi") ||
         !stricmp(extension,".mov") ||
         !stricmp(extension,".mpg") ||
         !stricmp(extension,".mp4")||
         !stricmp(extension,".ogg") ||
         !stricmp(extension,".ogm") ||
         !stricmp(extension,".ogv") ||
         !stricmp(extension,".webm") ||
         !stricmp(extension,".web") ||
         !stricmp(extension,".mpv") ||
         !stricmp(extension,".mkv") ||
         !stricmp(extension,".m2v"));
}

MOboolean moMovie::LoadMovieFile(moText p_filename)
{
    moText extension;
    MOboolean result = false;
    bool quicktime = false;

    extension = p_filename;
    extension.Right(3);

    if (extension==moText("mov")) quicktime = true;

    MOulong frames;
    MOboolean graphloaded = false;
    if (m_pGraph)
    {
       if (!m_pGraph->InitGraph())
       return false;

        if (quicktime)
        {
            graphloaded = m_pGraph->BuildLiveQTVideoGraph( p_filename, &m_BucketsPool);
        }
        else
        {
            graphloaded = m_pGraph->BuildLiveVideoGraph( p_filename, &m_BucketsPool);
        }

        if ( graphloaded )
        {
            m_pGraph->Pause();

            frames = m_pGraph->GetFramesLength();
            frameprevious = 0;

            SetFramesPerSecond(( (double) m_pGraph->GetVideoFormat().m_FrameRate ) /  (double)( 100.0 ) );

            m_param = MODefTex2DParams;

            result = BuildEmpty(m_pGraph->GetVideoFormat().m_Width, m_pGraph->GetVideoFormat().m_Height);

            if (result)
            {
                lastframe = frames;
                SetFrameCount( frames );
            }
        }
    }

    if (result) {
      m_bBuildedFromFile = true;
      m_pFilename = p_filename;
    }

    return result;
}

MOboolean moMovie::Load(moParam * p_param)
{
    moValue* pValue = &p_param->GetValue();
    return Load( pValue );
}

MOboolean moMovie::Load(moValue * p_value)
{
    moText namefull;

    SetName( p_value->GetSubValue(0).Text());

    namefull = m_pDataMan->GetDataPath() + moSlash + (moText)m_name;

    return LoadMovieFile(namefull);
}

MOboolean moMovie::Reload( bool force_kill ) {
  if (force_kill) {
    //kill moGsGraph!!
    //check m_pFilename and reload!!

  }
  return true;
}

void moMovie::EnableVideo(int enable) {
  if (enable) return;
}

void moMovie::EnableAudio(int enable) {
  if (enable) return;
}

void moMovie::GetFrame( MOuint p_i )
{
    if(m_pGraph)
    {

    //MODebug2->Message("moMovie::GetFrame > calling m_pGraph->GetState()");
    moStreamState state = m_pGraph->GetState();
    //MODebug2->Message("moMovie::GetFrame > returned m_pGraph->GetState()");

    if (m_PlayMode == MO_PLAYMODE_TIMEBASE) {
      if (state==MO_STREAMSTATE_PAUSED || state==MO_STREAMSTATE_STOPPED) {
        /*

        if (state==MO_STREAMSTATE_STOPPED)
          m_pGraph->Play();

        if (state==MO_STREAMSTATE_PAUSED)
          m_pGraph->Play();
          */

        //m_pGraph->Pause();
        MODebug2->Push( "moMovie::GetFrame > Going to p_i:"+IntToStr(p_i)+" Actual real timebase position:" + IntToStr(m_pGraph->GetPosition()) );
      }
    } else {
      m_pGraph->Seek( p_i );
      m_pGraph->Pause();
    }


    if (!m_BucketsPool.IsEmpty()) {

      moBucket* pbucket = NULL;
      MOubyte* pbuffer = NULL;

      pbucket = m_BucketsPool.RetreiveBucket();

      if (pbucket) {
        pbuffer = pbucket->GetBuffer();
        if (pbuffer) {

          pbucket->Lock();
#ifndef OPENGLESV2
          SetBuffer(pbuffer, GL_BGR_EXT );
#else
          SetBuffer(pbuffer, GL_RGB );
#endif

          pbucket->Unlock();

          pbucket->EmptyBucket();
        }
        m_BucketsPool.DestroyRetreivedBucket();
      }
    }
        /*
        else {

      MODebug2->Error(  moText("moMovie::GetFrame()")
                      + moText(" m_BucketsPool is EMPTY !!!")
                      + moText(" state:")
                      + m_pGraph->StateToText(state) );

    }
    */
    } else {
      MODebug2->Error( moText("moMovie::GetFrame()") + moText(" m_pGraph is NULL !!!") );
  }
}