#if defined(_MSC_VER) && (_MSC_VER >= 1400)

#define _CRT_SECURE_NO_DEPRECATE 1

#endif

#include "psd.h"

#include "trasterimage.h"

#include "trop.h"

#include "tpixelutils.h"

/*

  The entire content of this file is ridden with LEAKS. A bug has been filed,

  will hopefully

  be dealt with ASAP.

  L'intero contenuto del file e' pieno di LEAK. Ho inserito la cosa in Bugilla e

  non ho potuto

  fare altro sotto rilascio. Non solo, il codice dei distruttori e' SBAGLIATO -

  l'ho esplicitamente

  disabilitato, tanto non era chiamato cmq.

  E' da rifare usando SMART POINTERS (boost::scoped_ptr<> o tcg::unique_ptr<>, o

  std::unique_ptr<> se facciamo l'upgrade del compilatore).

  Da osservare che anche il campo FILE in TPSDReader leaka se viene sganciata

  un'eccezione...

*/

#define LEVEL_NAME_INDEX_SEP "@"

//----forward declarations

std::string buildErrorString(int error);

void readChannel(FILE *f, TPSDLayerInfo *li, TPSDChannelInfo *chan,

                 int channels, TPSDHeaderInfo *h);

void readLongData(FILE *f, struct dictentry *parent, TPSDLayerInfo *li);

void readByteData(FILE *f, struct dictentry *parent, TPSDLayerInfo *li);

void readKey(FILE *f, struct dictentry *parent, TPSDLayerInfo *li);

void readLayer16(FILE *f, struct dictentry *parent, TPSDLayerInfo *li);

//----end forward declarations

static char swapByte(unsigned char src) {

  unsigned char out = 0;

  for (int i = 0; i < 8; ++i) {

    out = out << 1;

    out |= (src & 1);

    src = src >> 1;

  }

  return out;

}

TPSDReader::TPSDReader(const TFilePath &path)

    : m_shrinkX(1), m_shrinkY(1), m_region(TRect()) {

  m_layerId    = 0;

  QString name = path.getName().c_str();

  name.append(path.getDottedType().c_str());

  int sepPos = name.indexOf("#");

  int dotPos = name.indexOf(".", sepPos);

  name.remove(sepPos, dotPos - sepPos);

  m_path = path.getParentDir() + TFilePath(name.toStdString());

  // m_path = path;

  QMutexLocker sl(&m_mutex);

  openFile();

  if (!doInfo()) {

    fclose(m_file);

    throw TImageException(m_path, "Do PSD INFO ERROR");

  }

  fclose(m_file);

}

TPSDReader::~TPSDReader() {

  /*for(int i=0; i

free(m_headerInfo.linfo + i);*/

  // NO - L'istruzione sopra e' SBAGLIATA, si tratta di uno pseudo-array

  // allocato in blocco

  // con una SINGOLA malloc() - quindi deve dovrebbe essere deallocato con una

  // SINGOLA free().

  // Se fino ad ora funzionava e' perche' questa funzione NON VENIVA MAI

  // CHIAMATA -

  // LEAKAVA TUTTO.

  // Non solo, ma il CONTENUTO delle singole strutture - tra cui altri array -

  // non viene

  // deallocato. Non ho idea se sia garantito che venga deallocato prima di

  // arrivare qui,

  // ma NON E' AFFATTO SICURO.

}

int TPSDReader::openFile() {

  m_file = fopen(m_path, "rb");

  if (!m_file) throw TImageException(m_path, buildErrorString(2));

  return 0;

}

bool TPSDReader::doInfo() {

  // Read Header Block

  if (!doHeaderInfo()) return false;

  // Read Color Mode Data Block

  if (!doColorModeData()) return false;

  // Read Image Resources Block

  if (!doImageResources()) return false;

  // Read Layer Info Block (Layers Number and merged alpha)

  if (!doLayerAndMaskInfo()) return false;

  // Read Layers and Mask Information Block

  // if(!doLayersInfo()) return false;

  m_headerInfo.layerDataPos = ftell(m_file);

  if (m_headerInfo.layersCount == 0)  // tento con extra data

  {

    fseek(m_file, m_headerInfo.layerDataPos, SEEK_SET);

    skipBlock(m_file);  // skip global layer mask info

    psdByte currentPos = ftell(m_file);

    psdByte len        = m_headerInfo.lmistart + m_headerInfo.lmilen -

                  currentPos;  // 4 = bytes skipped by global layer mask info

    doExtraData(NULL, len);

  }

  return true;

}

// Read Header Block

bool TPSDReader::doHeaderInfo() {

  fread(m_headerInfo.sig, 1, 4, m_file);

  m_headerInfo.version = read2UBytes(m_file);

  read4Bytes(m_file);

  read2Bytes(m_file);  // reserved[6];

  m_headerInfo.channels = read2UBytes(m_file);

  m_headerInfo.rows     = read4Bytes(m_file);

  m_headerInfo.cols     = read4Bytes(m_file);

  m_headerInfo.depth    = read2UBytes(m_file);

  m_headerInfo.mode     = read2UBytes(m_file);

  if (!feof(m_file) && !memcmp(m_headerInfo.sig, "8BPS", 4)) {

    if (m_headerInfo.version == 1) {

      if (m_headerInfo.channels <= 0 || m_headerInfo.channels > 64 ||

          m_headerInfo.rows <= 0 || m_headerInfo.cols <= 0 ||

          m_headerInfo.depth < 0 || m_headerInfo.depth > 32 ||

          m_headerInfo.mode < 0) {

        throw TImageException(m_path, "Reading PSD Header Info error");

        return false;

      }

    } else {

      throw TImageException(m_path, "PSD Version not supported");

      return false;

    }

  } else {

    throw TImageException(m_path, "Cannot read Header");

    return false;

  }

  return true;

}

// Read Color Mode Data Block

bool TPSDReader::doColorModeData() {

  m_headerInfo.colormodepos = ftell(m_file);

  skipBlock(m_file);  // skip "color mode data"

  return true;

}

// Read Image Resources Block

bool TPSDReader::doImageResources() {

  // skipBlock(m_file); //skip "image resources"

  long len = read4Bytes(m_file);  // lunghezza del blocco Image resources

  while (len > 0) {

    char type[4], name[0x100];

    int id, namelen;

    long size;

    fread(type, 1, 4, m_file);

    id      = read2Bytes(m_file);

    namelen = fgetc(m_file);

    fread(name, 1, NEXT2(1 + namelen) - 1, m_file);

    name[namelen] = 0;

    size          = read4Bytes(m_file);

    if (id == 1005)  // ResolutionInfo

    {

      psdByte savepos = ftell(m_file);

      long hres, vres;

      double hresd, vresd;

      hresd = FIXDPI(hres = read4Bytes(m_file));

      read2Bytes(m_file);

      read2Bytes(m_file);

      vresd = FIXDPI(vres = read4Bytes(m_file));

      m_headerInfo.vres = vresd;

      m_headerInfo.hres = hresd;

      fseek(m_file, savepos, SEEK_SET);

    }

    len -= 4 + 2 + NEXT2(1 + namelen) + 4 + NEXT2(size);

    fseek(m_file, NEXT2(size), SEEK_CUR);  // skip resource block data

  }

  if (len != 0) return false;

  return true;

}

// Read Layer Info Block (Layers Number and merged alpha)

bool TPSDReader::doLayerAndMaskInfo() {

  psdByte layerlen;

  m_headerInfo.layersCount = 0;

  m_headerInfo.lmilen      = read4Bytes(m_file);

  m_headerInfo.lmistart    = ftell(m_file);

  if (m_headerInfo.lmilen) {

    // process layer info section

    layerlen                     = read4Bytes(m_file);

    m_headerInfo.linfoBlockEmpty = false;

    m_headerInfo.mergedalpha     = 0;

    if (layerlen) {

      doLayersInfo();

    } else {

      // WARNING: layer info section empty

    }

  } else {

    // WARNING: layer & mask info section empty

  }

  return true;

}

// Read Layers Information Block

// It is called by doLayerAndMaskInfo()

bool TPSDReader::doLayersInfo() {

  m_headerInfo.layersCount     = read2Bytes(m_file);

  m_headerInfo.linfoBlockEmpty = false;

  m_headerInfo.mergedalpha     = m_headerInfo.layersCount < 0;

  if (m_headerInfo.mergedalpha > 0) {

    m_headerInfo.layersCount = -m_headerInfo.layersCount;

  }

  if (!m_headerInfo.linfoBlockEmpty) {

    m_headerInfo.linfo = (TPSDLayerInfo *)mymalloc(

        m_headerInfo.layersCount * sizeof(struct TPSDLayerInfo));

    int i = 0;

    for (i = 0; i < m_headerInfo.layersCount; i++) {

      readLayerInfo(i);

    }

  }

  return true;

}

bool TPSDReader::readLayerInfo(int i) {

  psdByte chlen, extralen, extrastart;

  int j, chid, namelen;

  TPSDLayerInfo *li = m_headerInfo.linfo + i;

  // process layer record

  li->top      = read4Bytes(m_file);

  li->left     = read4Bytes(m_file);

  li->bottom   = read4Bytes(m_file);

  li->right    = read4Bytes(m_file);

  li->channels = read2UBytes(m_file);

  if (li->bottom < li->top || li->right < li->left ||

      li->channels > 64)  // sanity ck

  {

    // qualcosa è andato storto, skippo il livello

    fseek(m_file, 6 * li->channels + 12, SEEK_CUR);

    skipBlock(m_file);  // skip  "layer info: extra data";

  } else {

    li->chan = (TPSDChannelInfo *)mymalloc(li->channels *

                                           sizeof(struct TPSDChannelInfo));

    li->chindex = (int *)mymalloc((li->channels + 2) * sizeof(int));

    li->chindex += 2;  //

    for (j = -2; j < li->channels; ++j) li->chindex[j] = -1;

    // fetch info on each of the layer's channels

    for (j = 0; j < li->channels; ++j) {

      chid = li->chan[j].id = read2Bytes(m_file);

      chlen = li->chan[j].length = read4Bytes(m_file);

      if (chid >= -2 && chid < li->channels)

        li->chindex[chid] = j;

      else {

        // WARNING: unexpected channel id

      }

    }

    fread(li->blend.sig, 1, 4, m_file);

    fread(li->blend.key, 1, 4, m_file);

    li->blend.opacity  = fgetc(m_file);

    li->blend.clipping = fgetc(m_file);

    li->blend.flags    = fgetc(m_file);

    fgetc(m_file);  // padding

    extralen   = read4Bytes(m_file);

    extrastart = ftell(m_file);

    // layer mask data

    if ((li->mask.size = read4Bytes(m_file))) {

      li->mask.top            = read4Bytes(m_file);

      li->mask.left           = read4Bytes(m_file);

      li->mask.bottom         = read4Bytes(m_file);

      li->mask.right          = read4Bytes(m_file);

      li->mask.default_colour = fgetc(m_file);

      li->mask.flags          = fgetc(m_file);

      fseek(m_file, li->mask.size - 18, SEEK_CUR);  // skip remainder

      li->mask.rows = li->mask.bottom - li->mask.top;

      li->mask.cols = li->mask.right - li->mask.left;

    } else {

      // no layer mask data

    }

    skipBlock(m_file);  // skip "layer blending ranges";

    // layer name

    li->nameno = (char *)malloc(16);

    snprintf(li->nameno, 16, "layer%d", i + 1);

    namelen  = fgetc(m_file);

    li->name = (char *)mymalloc(NEXT4(namelen + 1));

    fread(li->name, 1, NEXT4(namelen + 1) - 1, m_file);

    li->name[namelen] = 0;

    if (namelen) {

      if (li->name[0] == '.') li->name[0] = '_';

    }

    // process layer's 'additional info'

    li->additionalpos = ftell(m_file);

    li->additionallen = extrastart + extralen - li->additionalpos;

    doExtraData(li, li->additionallen);

    // leave file positioned at end of layer's data

    fseek(m_file, extrastart + extralen, SEEK_SET);

  }

  return true;

}

void TPSDReader::doImage(TRasterP &rasP, int layerId) {

  m_layerId         = layerId;

  int layerIndex    = getLayerInfoIndexById(layerId);

  TPSDLayerInfo *li = getLayerInfo(layerIndex);

  psdByte imageDataEnd;

  // retrieve start data pos

  psdByte startPos = ftell(m_file);

  if (m_headerInfo.layersCount > 0) {

    struct TPSDLayerInfo *lilast =

        &m_headerInfo.linfo[m_headerInfo.layersCount - 1];

    startPos = lilast->additionalpos + lilast->additionallen;

  }

  if (layerIndex > 0) {

    for (int j = 0; j < layerIndex; j++) {

      struct TPSDLayerInfo *liprev = &m_headerInfo.linfo[j];

      for (int ch = 0; ch < liprev->channels; ch++) {

        startPos += liprev->chan[ch].length;

      }

    }

  }

  fseek(m_file, startPos, SEEK_SET);

  long pixw    = li ? li->right - li->left : m_headerInfo.cols;

  long pixh    = li ? li->bottom - li->top : m_headerInfo.rows;

  int channels = li ? li->channels : m_headerInfo.channels;

  if (li == NULL)

    fseek(m_file, m_headerInfo.lmistart + m_headerInfo.lmilen, SEEK_SET);

  psdPixel rows = pixh;

  psdPixel cols = pixw;

  int ch = 0;

  psdByte **rowpos;

  rowpos = (psdByte **)mymalloc(channels * sizeof(psdByte *));

  for (ch = 0; ch < channels; ++ch) {

    psdPixel chrows =

        li && !m_headerInfo.linfoBlockEmpty && li->chan[ch].id == -2

            ? li->mask.rows

            : rows;

    rowpos[ch] = (psdByte *)mymalloc((chrows + 1) * sizeof(psdByte));

  }

  int tnzchannels = 0;

  int depth = m_headerInfo.depth;

  switch (m_headerInfo.mode) {

  // default: // multichannel, cmyk, lab etc

  //	split = 1;

  case ModeBitmap:

  case ModeGrayScale:

  case ModeGray16:

  case ModeDuotone:

  case ModeDuotone16:

    tnzchannels = 1;

    // check if there is an alpha channel, or if merged data has alpha

    if (li ? li->chindex[-1] != -1 : channels > 1 && m_headerInfo.mergedalpha) {

      tnzchannels = 2;

    }

    break;

  case ModeIndexedColor:

    tnzchannels = 1;

    break;

  case ModeRGBColor:

  case ModeRGB48:

    tnzchannels = 3;

    if (li ? li->chindex[-1] != -1 : channels > 3 && m_headerInfo.mergedalpha) {

      tnzchannels = 4;

    }

    break;

  default:

    tnzchannels = channels;

    // assert(0);

    break;

  }

  if (!li || m_headerInfo.linfoBlockEmpty) {  // merged channel

    TPSDChannelInfo *mergedChans =

        (TPSDChannelInfo *)mymalloc(channels * sizeof(struct TPSDChannelInfo));

    readChannel(m_file, NULL, mergedChans, channels, &m_headerInfo);

    imageDataEnd = ftell(m_file);

    readImageData(rasP, NULL, mergedChans, tnzchannels, rows, cols);

    free(mergedChans);

  } else {

    for (ch = 0; ch < channels; ++ch) {

      readChannel(m_file, li, li->chan + ch, 1, &m_headerInfo);

    }

    imageDataEnd = ftell(m_file);

    readImageData(rasP, li, li->chan, tnzchannels, rows, cols);

  }

  fseek(m_file, imageDataEnd, SEEK_SET);

  for (ch = 0; ch < channels; ++ch) free(rowpos[ch]);

  free(rowpos);

}

void TPSDReader::load(TRasterImageP &img, int layerId) {

  QMutexLocker sl(&m_mutex);

  TPSDLayerInfo *li = NULL;

  int layerIndex    = 0;

  if (layerId > 0) {

    layerIndex = getLayerInfoIndexById(layerId);

    li         = getLayerInfo(layerIndex);

  }

  if (layerId < 0) throw TImageException(m_path, "Layer ID not exists");

  if (m_headerInfo.mode == 4 || m_headerInfo.depth == 32) {

    img = TRasterImageP();

    return;

  }

  try {

    TRasterP rasP;

    openFile();

    doImage(rasP, layerId);

    fclose(m_file);

    /*

    // do savebox

    long sbx0 = li ? li->left : 0;

    long sby0 = li ? m_headerInfo.rows-li->bottom : 0;

    long sbx1 = li ? li->right - 1 : m_headerInfo.cols - 1;

    long sby1 = li ? m_headerInfo.rows - li->top - 1 : m_headerInfo.rows - 1;

    TRect layerSaveBox;

    layerSaveBox = TRect(sbx0,sby0,sbx1,sby1);

    TRect imageRect = TRect(0,0,m_headerInfo.cols-1,m_headerInfo.rows-1);

    // E' possibile che il layer sia in parte o tutto al di fuori della'immagine

    // in questo caso considero solo la parte visibile, cioè che rientra

    nell'immagine.

    // Se è tutta fuori restutuisco TRasterImageP()

    layerSaveBox *= imageRect;

    if(layerSaveBox== TRect()) {

            img = TRasterImageP();

            return;

    }			 */

    if (!rasP) {

      img = TRasterImageP();

      return;

    }  // Happens if layer image has 0 rows and (or?)

    // cols (dont ask me why, but I've seen it)

    TRect layerSaveBox = m_layersSavebox[layerId];

    TRect savebox(layerSaveBox);

    TDimension imgSize(rasP->getLx(), rasP->getLy());

    assert(TRect(imgSize).contains(savebox));

    if (TRasterGR8P ras = rasP) {

      TPixelGR8 bgColor;

      ras->fillOutside(savebox, bgColor);

      img = TRasterImageP(ras);

    } else if (TRaster32P ras = rasP) {

      TPixel32 bgColor(0, 0, 0, 0);

      if (savebox != TRect())

        ras->fillOutside(savebox, bgColor);

      else

        ras->fill(bgColor);

      img = TRasterImageP(ras);

    } else if ((TRaster64P)rasP) {

      TRaster32P raux(rasP->getLx(), rasP->getLy());

      TRop::convert(raux, rasP);

      TPixel32 bgColor(0, 0, 0, 0);

      raux->fillOutside(savebox, bgColor);

      img = TRasterImageP(raux);

    } else {

      throw TImageException(m_path, "Invalid Raster");

    }

    img->setDpi(m_headerInfo.hres, m_headerInfo.vres);

    img->setSavebox(savebox);

  } catch (...) {

  }

}

int TPSDReader::getLayerInfoIndexById(int layerId) {

  int layerIndex = -1;

  for (int i = 0; i < m_headerInfo.layersCount; i++) {

    TPSDLayerInfo *litemp = m_headerInfo.linfo + i;

    if (litemp->layerId == layerId) {

      layerIndex = i;

      break;

    }

  }

  if (layerIndex < 0 && layerId != 0)

    throw TImageException(m_path, "Layer ID not exists");

  return layerIndex;

}

TPSDLayerInfo *TPSDReader::getLayerInfo(int index) {

  if (index < 0 || index >= m_headerInfo.layersCount) return NULL;

  return m_headerInfo.linfo + index;

}

TPSDHeaderInfo TPSDReader::getPSDHeaderInfo() { return m_headerInfo; }

void TPSDReader::readImageData(TRasterP &rasP, TPSDLayerInfo *li,

                               TPSDChannelInfo *chan, int chancount,

                               psdPixel rows, psdPixel cols) {

  int channels = li ? li->channels : m_headerInfo.channels;

  short depth = m_headerInfo.depth;

  psdByte savepos = ftell(m_file);

  if (rows == 0 || cols == 0) return;

  psdPixel j;

  unsigned char *inrows[4], *rledata;

  int ch, map[4];

  rledata = (unsigned char *)mymalloc(chan->rowbytes * 2);

  for (ch = 0; ch < chancount; ++ch) {

    inrows[ch] = (unsigned char *)mymalloc(chan->rowbytes);

    map[ch]    = li && chancount > 1 ? li->chindex[ch] : ch;

  }

  // find the alpha channel, if needed

  if (li && (chancount == 2 || chancount == 4)) {  // grey+alpha

    if (li->chindex[-1] == -1) {

      // WARNING no alpha found?;

    } else

      map[chancount - 1] = li->chindex[-1];

  }

  // region dimensions with shrink

  // x0 e x1 non tengono conto dello shrink.

  int x0 = 0;

  int x1 = m_headerInfo.cols - 1;

  int y0 = 0;

  int y1 = m_headerInfo.rows - 1;

  if (!m_region.isEmpty()) {

    x0 = m_region.getP00().x;

    // se x0 è fuori dalle dimensioni dell'immagine ritorna un'immagine vuota

    if (x0 >= m_headerInfo.cols) {

      free(rledata);

      return;

    }

    x1 = x0 + m_region.getLx() - 1;

    // controllo che x1 rimanga all'interno dell'immagine

    if (x1 >= m_headerInfo.cols) x1 = m_headerInfo.cols - 1;

    y0                              = m_region.getP00().y;

    // se y0 è fuori dalle dimensioni dell'immagine ritorna un'immagine vuota

    if (y0 >= m_headerInfo.rows) {

      free(rledata);

      return;

    }

    y1 = y0 + m_region.getLy() - 1;

    // controllo che y1 rimanga all'interno dell'immagine

    if (y1 >= m_headerInfo.rows) y1 = m_headerInfo.rows - 1;

  }

  if (m_shrinkX > x1 - x0) m_shrinkX = x1 - x0;

  if (m_shrinkY > y1 - y0) m_shrinkY = y1 - y0;

  assert(m_shrinkX > 0 && m_shrinkY > 0);

  if (m_shrinkX > 1) {

    x1 -= (x1 - x0) % m_shrinkX;

  }

  if (m_shrinkY > 1) {

    y1 -= (y1 - y0) % m_shrinkY;

  }

  assert(x0 <= x1 && y0 <= y1);

  TDimension imgSize((x1 - x0) / m_shrinkX + 1, (y1 - y0) / m_shrinkY + 1);

  if (depth == 1 && chancount == 1) {

    rasP = TRasterGR8P(imgSize);

  } else if (depth == 8 && chancount > 1) {

    rasP = TRaster32P(imgSize);

  } else if (m_headerInfo.depth == 8 && chancount == 1) {

    rasP = TRasterGR8P(imgSize);

  } else if (m_headerInfo.depth == 16 && chancount == 1 &&

             m_headerInfo.mergedalpha) {

    rasP = TRasterGR8P(imgSize);

  } else if (m_headerInfo.depth == 16) {

    rasP = TRaster64P(imgSize);

  }

  // do savebox

  // calcolo la savebox in coordinate dell'immagine

  long sbx0 = li ? li->left - x0 : 0;

  long sby0 = li ? m_headerInfo.rows - li->bottom - y0 : 0;

  long sbx1 = li ? li->right - 1 - x0 : x1 - x0;

  long sby1 = li ? m_headerInfo.rows - li->top - 1 - y0 : y1 - y0;

  TRect layerSaveBox;

  layerSaveBox = TRect(sbx0, sby0, sbx1, sby1);

  TRect imageRect;

  if (!m_region.isEmpty())

    imageRect = TRect(0, 0, m_region.getLx() - 1, m_region.getLy() - 1);

  else

    imageRect = TRect(0, 0, m_headerInfo.cols - 1, m_headerInfo.rows - 1);

  // E' possibile che il layer sia in parte o tutto al di fuori della'immagine

  // in questo caso considero solo la parte visibile, cioè che rientra

  // nell'immagine.

  // Se è tutta fuori restutuisco TRasterImageP()

  layerSaveBox *= imageRect;

  if (layerSaveBox == TRect() || layerSaveBox.isEmpty()) {

    free(rledata);

    return;

  }

  // Estraggo da rasP solo il rettangolo che si interseca con il livello

  // corrente

  // stando attento a prendere i pixel giusti.

  int firstXPixIndexOfLayer = layerSaveBox.getP00().x - 1 + m_shrinkX -

                              (abs(layerSaveBox.getP00().x - 1) % m_shrinkX);

  int lrx0                  = firstXPixIndexOfLayer / m_shrinkX;

  int firstLineIndexOfLayer = layerSaveBox.getP00().y - 1 + m_shrinkY -

                              (abs(layerSaveBox.getP00().y - 1) % m_shrinkY);

  int lry0 = firstLineIndexOfLayer / m_shrinkY;

  int lrx1 =

      (layerSaveBox.getP11().x - abs(layerSaveBox.getP11().x % m_shrinkX)) /

      m_shrinkX;

  int lry1 =

      (layerSaveBox.getP11().y - abs(layerSaveBox.getP11().y % m_shrinkY)) /

      m_shrinkY;

  TRect layerSaveBox2 = TRect(lrx0, lry0, lrx1, lry1);

  if (layerSaveBox2.isEmpty()) return;

  assert(TRect(imgSize).contains(layerSaveBox2));

  if (li)

    m_layersSavebox[li->layerId] = layerSaveBox2;

  else

    m_layersSavebox[0] = layerSaveBox2;

  TRasterP smallRas    = rasP->extract(layerSaveBox2);

  assert(smallRas);

  if (!smallRas) return;

  // Trovo l'indice di colonna del primo pixel del livello che deve essere letto

  // L'indice è riferito al livello.

  int colOffset = firstXPixIndexOfLayer - layerSaveBox.getP00().x;

  assert(colOffset >= 0);

  // Trovo l'indice della prima riga del livello che deve essere letta

  // L'indice è riferito al livello.

  // Nota che nel file photoshop le righe sono memorizzate dall'ultima alla

  // prima.

  int rowOffset = std::abs(sby1) % m_shrinkY;

  int rowCount  = rowOffset;

  // if(m_shrinkY==3) rowCount--;

  for (j = 0; j < smallRas->getLy(); j++) {

    for (ch = 0; ch < chancount; ++ch) {

      /* get row data */

      if (map[ch] < 0 || map[ch] > chancount) {

        // warn("bad map[%d]=%d, skipping a channel", i, map[i]);

        memset(inrows[ch], 0, chan->rowbytes);  // zero out the row

      } else

        readrow(m_file, chan + map[ch], rowCount, inrows[ch], rledata);

    }

    // se la riga corrente non rientra nell'immagine salto la copia

    if (sby1 - rowCount < 0 || sby1 - rowCount > m_headerInfo.rows - 1) {

      rowCount += m_shrinkY;

      continue;

    }

    if (depth == 1 && chancount == 1) {

      if (!(layerSaveBox.getP00().x - sbx0 >= 0 &&

            layerSaveBox.getP00().x - sbx0 + smallRas->getLx() / 8 - 1 <

                chan->rowbytes))

        throw TImageException(

            m_path, "Unable to read image with this depth and channels values");

      smallRas->lock();

      unsigned char *rawdata =

          (unsigned char *)smallRas->getRawData(0, smallRas->getLy() - j - 1);

      TPixelGR8 *pix = (TPixelGR8 *)rawdata;

      int colCount   = colOffset;

      for (int k = 0; k < smallRas->getLx(); k += 8) {

        char value = ~inrows[0][layerSaveBox.getP00().x - sbx0 + colCount];

        pix[k].setValue(value);

        pix[k + 1].setValue(value);

        pix[k + 2].setValue(value);

        pix[k + 3].setValue(value);

        pix[k + 4].setValue(value);

        pix[k + 5].setValue(value);

        pix[k + 6].setValue(value);

        pix[k + 7].setValue(value);

        colCount += m_shrinkX;

      }

      smallRas->unlock();

    } else if (depth == 8 && chancount > 1) {

      if (!(layerSaveBox.getP00().x - sbx0 >= 0 &&

            layerSaveBox.getP00().x - sbx0 + smallRas->getLx() - 1 <

                chan->rowbytes))

        throw TImageException(

            m_path, "Unable to read image with this depth and channels values");

      smallRas->lock();

      unsigned char *rawdata =

          (unsigned char *)smallRas->getRawData(0, smallRas->getLy() - j - 1);

      TPixel32 *pix = (TPixel32 *)rawdata;

      int colCount  = colOffset;

      for (int k = 0; k < smallRas->getLx(); k++) {

        if (chancount >= 3) {

          pix[k].r = inrows[0][layerSaveBox.getP00().x - sbx0 + colCount];

          pix[k].g = inrows[1][layerSaveBox.getP00().x - sbx0 + colCount];

          pix[k].b = inrows[2][layerSaveBox.getP00().x - sbx0 + colCount];

          if (chancount == 4)  // RGB + alpha

            pix[k].m = inrows[3][layerSaveBox.getP00().x - sbx0 + colCount];

          else

            pix[k].m = 255;

        } else if (chancount <= 2)  // gray + alpha

        {

          pix[k].r = inrows[0][layerSaveBox.getP00().x - sbx0 + colCount];

          pix[k].g = inrows[0][layerSaveBox.getP00().x - sbx0 + colCount];

          pix[k].b = inrows[0][layerSaveBox.getP00().x - sbx0 + colCount];

          if (chancount == 2)

            pix[k].m = inrows[1][layerSaveBox.getP00().x - sbx0 + colCount];

          else

            pix[k].m = 255;

        }

        colCount += m_shrinkX;

      }

      smallRas->unlock();

    } else if (m_headerInfo.depth == 8 && chancount == 1) {

      if (!(layerSaveBox.getP00().x - sbx0 >= 0 &&

            layerSaveBox.getP00().x - sbx0 + smallRas->getLx() - 1 <

                chan->rowbytes))

        throw TImageException(

            m_path, "Unable to read image with this depth and channels values");

      smallRas->lock();

      unsigned char *rawdata =

          (unsigned char *)smallRas->getRawData(0, smallRas->getLy() - j - 1);

      TPixelGR8 *pix = (TPixelGR8 *)rawdata;

      int colCount   = colOffset;

      for (int k = 0; k < smallRas->getLx(); k++) {

        pix[k].setValue(inrows[0][layerSaveBox.getP00().x - sbx0 + colCount]);

        colCount += m_shrinkX;

      }

      smallRas->unlock();

    } else if (m_headerInfo.depth == 16 && chancount == 1 &&

               m_headerInfo.mergedalpha)  // mergedChannels

    {

      if (!(layerSaveBox.getP00().x - sbx0 >= 0 &&

            layerSaveBox.getP00().x - sbx0 + smallRas->getLx() - 1 <

                chan->rowbytes))

        throw TImageException(

            m_path, "Unable to read image with this depth and channels values");

      smallRas->lock();

      unsigned char *rawdata =

          (unsigned char *)smallRas->getRawData(0, smallRas->getLy() - j - 1);

      TPixelGR8 *pix = (TPixelGR8 *)rawdata;

      int colCount   = colOffset;

      for (int k = 0; k < smallRas->getLx(); k++) {

        pix[k].setValue(inrows[0][layerSaveBox.getP00().x - sbx0 + colCount]);

        colCount += m_shrinkX;

      }

      smallRas->unlock();

    } else if (m_headerInfo.depth == 16) {

      if (!(layerSaveBox.getP00().x - sbx0 >= 0 &&

            layerSaveBox.getP00().x - sbx0 + smallRas->getLx() - 1 <

                chan->rowbytes))

        throw TImageException(

            m_path, "Unable to read image with this depth and channels values");

      smallRas->lock();

      unsigned short *rawdata =

          (unsigned short *)smallRas->getRawData(0, smallRas->getLy() - j - 1);

      TPixel64 *pix = (TPixel64 *)rawdata;

      int colCount  = colOffset;

      for (int k = 0; k < smallRas->getLx(); k++) {

        if (chancount >= 3) {

          pix[k].r = swapShort(

              ((psdUint16 *)

                   inrows[0])[layerSaveBox.getP00().x - sbx0 + colCount]);

          pix[k].g = swapShort(

              ((psdUint16 *)

                   inrows[1])[layerSaveBox.getP00().x - sbx0 + colCount]);

          pix[k].b = swapShort(

              ((psdUint16 *)

                   inrows[2])[layerSaveBox.getP00().x - sbx0 + colCount]);

        } else if (chancount <= 2) {

          pix[k].r = swapShort(

              ((psdUint16 *)

                   inrows[0])[layerSaveBox.getP00().x - sbx0 + colCount]);

          pix[k].g = swapShort(

              ((psdUint16 *)

                   inrows[0])[layerSaveBox.getP00().x - sbx0 + colCount]);

          pix[k].b = swapShort(

              ((psdUint16 *)

                   inrows[0])[layerSaveBox.getP00().x - sbx0 + colCount]);

          if (chancount == 2)

            pix[k].m = swapShort(

                ((psdUint16 *)

                     inrows[1])[layerSaveBox.getP00().x - sbx0 + colCount]);

        }

        if (chancount == 4) {

          pix[k].m = swapShort(

              ((psdUint16 *)

                   inrows[3])[layerSaveBox.getP00().x - sbx0 + colCount]);

        } else

          pix[k].m = 0xffff;

        colCount += m_shrinkX;

      }

      smallRas->unlock();

    } else {

      throw TImageException(

          m_path, "Unable to read image with this depth and channels values");

    }

    rowCount += m_shrinkY;

  }

  fseek(m_file, savepos, SEEK_SET);  // restoring filepos

  free(rledata);

  for (ch = 0; ch < chancount; ++ch) free(inrows[ch]);

}

void TPSDReader::doExtraData(TPSDLayerInfo *li, psdByte length) {

  static struct dictentry extradict[] = {

      // v4.0

      {0, "levl", "LEVELS", "Levels", NULL /*adj_levels*/},

      {0, "curv", "CURVES", "Curves", NULL /*adj_curves*/},

      {0, "brit", "BRIGHTNESSCONTRAST", "Brightness/contrast", NULL},

      {0, "blnc", "COLORBALANCE", "Color balance", NULL},

      {0, "hue ", "HUESATURATION4", "Old Hue/saturation, Photoshop 4.0",

       NULL /*adj_huesat4*/},

      {0, "hue2", "HUESATURATION5", "New Hue/saturation, Photoshop 5.0",

       NULL /*adj_huesat5*/},

      {0, "selc", "SELECTIVECOLOR", "Selective color", NULL /*adj_selcol*/},

      {0, "thrs", "THRESHOLD", "Threshold", NULL},

      {0, "nvrt", "INVERT", "Invert", NULL},

      {0, "post", "POSTERIZE", "Posterize", NULL},

      // v5.0

      {0, "lrFX", "EFFECT", "Effects layer", NULL /*ed_layereffects*/},

      {0, "tySh", "TYPETOOL5", "Type tool (5.0)", NULL /*ed_typetool*/},

      {0, "luni", "-UNICODENAME", "Unicode layer name",

       NULL /*ed_unicodename*/},

      {0, "lyid", "-LAYERID", "Layer ID",

       readLongData},  // '-' prefix means keep tag value on one line

      // v6.0

      {0, "lfx2", "OBJECTEFFECT", "Object based effects layer",

       NULL /*ed_objecteffects*/},

      {0, "Patt", "PATTERN", "Pattern", NULL},

      {0, "Pat2", "PATTERNCS", "Pattern (CS)", NULL},

      {0, "Anno", "ANNOTATION", "Annotation", NULL /*ed_annotation*/},

      {0, "clbl", "-BLENDCLIPPING", "Blend clipping", readByteData},

      {0, "infx", "-BLENDINTERIOR", "Blend interior", readByteData},

      {0, "knko", "-KNOCKOUT", "Knockout", readByteData},

      {0, "lspf", "-PROTECTED", "Protected", readLongData},

      {0, "lclr", "SHEETCOLOR", "Sheet color", NULL},

      {0, "fxrp", "-REFERENCEPOINT", "Reference point",

       NULL /*ed_referencepoint*/},

      {0, "grdm", "GRADIENT", "Gradient", NULL},

      {0, "lsct", "-SECTION", "Section divider", readLongData},  // CS doc

      {0, "SoCo", "SOLIDCOLORSHEET", "Solid color sheet",

       NULL /*ed_versdesc*/},  // CS doc

      {0, "PtFl", "PATTERNFILL", "Pattern fill",

       NULL /*ed_versdesc*/},  // CS doc

      {0, "GdFl", "GRADIENTFILL", "Gradient fill",

       NULL /*ed_versdesc*/},                          // CS doc

      {0, "vmsk", "VECTORMASK", "Vector mask", NULL},  // CS doc

      {0, "TySh", "TYPETOOL6", "Type tool (6.0)",

       NULL /*ed_typetool*/},  // CS doc

      {0, "ffxi", "-FOREIGNEFFECTID", "Foreign effect ID",

       readLongData},  // CS doc (this is probably a key too, who knows)

      {0, "lnsr", "-LAYERNAMESOURCE", "Layer name source",

       readKey},  // CS doc (who knew this was a signature? docs fail again -

                  // and what do the values mean?)

      {0, "shpa", "PATTERNDATA", "Pattern data", NULL},  // CS doc

      {0, "shmd", "METADATASETTING", "Metadata setting",

       NULL /*ed_metadata*/},  // CS doc

      {0, "brst", "BLENDINGRESTRICTIONS", "Channel blending restrictions",

       NULL},  // CS doc

      // v7.0