// Necklace of the Eye v3.0
// roguelike frontend
// Copyright (C) 2010-2011 Zeno Rogue, see 'noteye.h' for details

long long totalimagesize = 0;

#define SURFACETYPE SDL_SWSURFACE
#define USEBLITS

Image::Image(const char *fname) : locked(false) {
  title = fname;
  s = IMG_Load(fname);
  if(!s) {
    fprintf(errfile, "Image file missing: %s\n", fname);
    return;
    }
  totalimagesize += s->w * s->h;

  SDL_Surface *s2;
  // count the number of changes, so we update caches when required
  
  if(0) {
//  SDL_PixelFormat fmt = s2->format;
//  s2->format->Amask = 0xff << 24;
//  s2->format->Ashift = 24;
    s2 = SDL_ConvertSurface(s, exsurface->format, SURFACETYPE);
    }
  else {
    SDL_PixelFormat fmt;
    fmt.BitsPerPixel = 32;
    fmt.BytesPerPixel = 4;

    fmt.Ashift=24;
    fmt.Rshift=16; 
    fmt.Gshift=8; 
    fmt.Bshift=0; 
    fmt.Amask=0xff<<24;
    fmt.Rmask=0xff<<16;  
    fmt.Gmask=0xff<<8;  
    fmt.Bmask=0xff;  
    fmt.Aloss = fmt.Rloss = fmt.Gloss = fmt.Bloss = 0;
    fmt.palette = NULL;
    fmt.alpha = 0;
    fmt.colorkey = 0x1ffffff;
    
    s2 = SDL_ConvertSurface(s, &fmt, SURFACETYPE);
    }

  // SDL_DisplayFormat(s);
  if(!s2) {
    fprintf(errfile, "could not change font to display format\n");
    halt();
    }
  SDL_FreeSurface(s);
  s = s2;
  }

void Image::setLock(bool lock) {
  // if(lock ^ locked) printf("set lock-%d [%d]\n", lock, id);
  if(lock && !locked) SDL_LockSurface(s); if(locked && !lock) SDL_UnlockSurface(s); locked = lock;
  }

Image::Image() : locked(false) { changes = 0; }

Image::Image(int sx, int sy, int color) : locked(false) {
  s = SDL_CreateRGBSurface(SURFACETYPE, sx, sy, 32, 0xFF<<16,0xFF<<8,0xFF,0xFF<<24);
  totalimagesize += sx * sy;
  SDL_LockSurface(s);
  SDL_UnlockSurface(s);
  SDL_FillRect(s, NULL, color);
  changes = 0;
  }

#ifdef USELUA
int lh_loadimage(lua_State *L) {
  checkArg(L, 1, "loadimage");
  Image *o = new Image(luaStr(1));
  if(!o->s) { delete o; return retInt(L, 0); }
  return retObject(L, o);
  }

int lh_saveimage(lua_State *L) {
  checkArg(L, 2, "saveimage");
  Image *o = luaO(1, Image);
  SDL_SaveBMP(o->s, luaStr(2));
  return 0;
  }

int lh_newimage(lua_State *L) {
  int params = lua_gettop(L);
  if(params != 2 && params != 3) {
    fprintf(errfile, "Bad arg to newimage\n"); halt();
    }
  Image *i = new Image(luaInt(1), luaInt(2), params == 3 ? luaInt(3) : 0);
  return retObject(L, i);
  }

int lh_imagetitle(lua_State *L) {
  checkArg(L, 2, "imagetitle");
  luaO(1, Image) -> title = luaStr(2);
  return 0;
  }

int lh_fillimage(lua_State *L) {
  checkArg(L, 6, "fillimage");
  SDL_Rect rect;
  rect.x = luaInt(2);
  rect.y = luaInt(3);
  rect.w = luaInt(4);
  rect.h = luaInt(5);
  Image *img = luaO(1,Image);
  SDL_FillRect(img->s, &rect, luaInt(6));
  img->changes++;
  return 0;
  }

int lh_imgcopy(lua_State *L) {
  checkArg(L, 8, "fillimage");

  Image *srcI = luaO(1, Image);
  int srcX = luaInt(2);
  int srcY = luaInt(3);

  Image *tgtI = luaO(4, Image);
  int tgtX = luaInt(5);
  int tgtY = luaInt(6);
  
  int six = luaInt(7);
  int siy = luaInt(8);
  
  srcI->setLock(false);
  tgtI->setLock(false);
  
  SDL_Rect srcR; srcR.x = srcX; srcR.y = srcY; srcR.w = six; srcR.h = siy;
  SDL_Rect tgtR; tgtR.x = tgtX; tgtR.y = tgtY; 
  
  SDL_BlitSurface(srcI->s, &srcR, tgtI->s, &tgtR);
  tgtI->changes++;
  return 0;
  }

int lh_getpixel(lua_State *L) {
  checkArg(L, 3, "getpixel");

  Image *srcI = luaO(1, Image);
  int srcX = luaInt(2);
  int srcY = luaInt(3);
  
  srcI->setLock(true);
  int res = qpixel(srcI->s, srcX, srcY);
  return retInt(L, res);
  }

int lh_setpixel(lua_State *L) {
  checkArg(L, 4, "setpixel");

  Image *srcI = luaO(1, Image);
  int srcX = luaInt(2);
  int srcY = luaInt(3);
  
  srcI->setLock(true);
  qpixel(srcI->s, srcX, srcY) = luaInt(4);
  srcI->changes++;
  return 0;
  }

int lh_imggetsize(lua_State *L) {
  checkArg(L, 1, "imggetsize");
  Image *img = luaO(1, Image);
  lua_newtable(L);
  setfield(L, "x", img->s->w);
  setfield(L, "y", img->s->h);
  return 1;
  }

#endif