#include "tflash.h"

//#include "tstroke.h"

#include "tcurves.h"

#include "tregion.h"

#include "tstrokeprop.h"

#include "tregionprop.h"

#include "tpalette.h"

#include "tvectorimage.h"

#include "tmachine.h"

#include "trasterimage.h"

#include "tsimplecolorstyles.h"

#include "tcolorfunctions.h"

#include "tsop.h"

#include "tropcm.h"

#include "tsweepboundary.h"

#include "tiio_jpg_util.h"

#include "zlib.h"

//#include "trop.h"

#include "ttoonzimage.h"

#include "tconvert.h"

#include "timage_io.h"

#include "tsystem.h"

#include <stack></stack>

#include <fstream></fstream>

#if !defined(TNZ_LITTLE_ENDIAN)

TNZ_LITTLE_ENDIAN undefined !!

#endif

    int Tw = 0;

static bool areTwEqual(double x, double y) {

  assert(Tw != 0);

  return (int)(Tw * x) == (int)(Tw * y);

}

static bool areTwEqual(TPointD p0, TPointD p1) {

  assert(Tw != 0);

  return areTwEqual(p0.x, p1.x) && areTwEqual(p0.y, p1.y);

}

//-------------------------------------------------------------------

const std::wstring TFlash::ConstantLines = L"Low: Constant Thickness";

const std::wstring TFlash::MixedLines    = L"Medium: Mixed Thickness";

const std::wstring TFlash::VariableLines = L"High: Variable Thickness";

Tiio::SwfWriterProperties::SwfWriterProperties()

    : m_lineQuality("Curve Quality")

    , m_isCompressed("File Compression", true)

    , m_autoplay("Autoplay", true)

    , m_looping("Looping", true)

    , m_jpgQuality("Jpg Quality", 0, 100, 90)

    , m_url("URL", std::wstring())

    , m_preloader("Insert Preloader", false) {

  m_lineQuality.addValue(TFlash::MixedLines);

  m_lineQuality.addValue(TFlash::ConstantLines);

  m_lineQuality.addValue(TFlash::VariableLines);

  bind(m_lineQuality);

  bind(m_isCompressed);

  bind(m_autoplay);

  bind(m_looping);

  bind(m_jpgQuality);

  bind(m_url);

  bind(m_preloader);

  TEnumProperty::Range range = m_lineQuality.getRange();

}

//-------------------------------------------------------------------

enum PolyType {

  None,

  Centerline,

  Solid,

  Texture,

  LinearGradient,

  RadialGradient

};

class PolyStyle {

public:

  PolyType m_type;

  TPixel32 m_color1;     // only if type!=Texture

  TPixel32 m_color2;     // only if type==LinearGradient || type==RadialGradient

  double m_smooth;       // only if type==RadialGradient

  double m_thickness;    // only if type==Centerline

  TAffine m_matrix;      // only if type==Texture

  TRaster32P m_texture;  // only if type==Texture

  // bool m_isRegion;            //only if type!=Centerline

  // bool m_isHole;              //only if type!=Centerline && m_isRegion==true

  PolyStyle()

      : m_type(None)

      , m_color1()

      , m_color2()

      , m_smooth(0)

      , m_thickness(0)

      , m_matrix()

      , m_texture() /*, m_isRegion(false), m_isHole(false)*/ {}

  bool operator==(const PolyStyle &p) const;

  bool operator<(const PolyStyle &p) const;

};

class FlashPolyline {

public:

  UINT m_depth;

  bool m_skip;

  bool m_toBeDeleted;

  bool m_isPoint;

  std::vector<tquadratic *=""> m_quads;</tquadratic>

  PolyStyle m_fillStyle1;

  PolyStyle m_fillStyle2;

  PolyStyle m_lineStyle;

  // PolyStyle m_bgStyle;

  FlashPolyline()

      : m_depth(0)

      , m_skip(false)

      , m_toBeDeleted(false)

      , m_isPoint(false)

      , m_fillStyle1()

      , m_fillStyle2()

      , m_lineStyle() {}

  bool operator<(const FlashPolyline &p) const { return m_depth < p.m_depth; }

};

class biPoint {

public:

  TPointD p0, p1;

  biPoint(TPointD _p0, TPointD _p1) : p0(_p0), p1(_p1) {}

  biPoint() {}

  bool operator<(const biPoint &b) const {

    biPoint aux;

    aux.p0.x = areTwEqual(p0.x, b.p0.x) ? p0.x : b.p0.x;

    aux.p0.y = areTwEqual(p0.y, b.p0.y) ? p0.y : b.p0.y;

    aux.p1.x = areTwEqual(p1.x, b.p1.x) ? p1.x : b.p1.x;

    aux.p1.y = areTwEqual(p1.y, b.p1.y) ? p1.y : b.p1.y;

    return (p0.x == aux.p0.x)

               ? ((p0.y == aux.p0.y) ? ((p1.x == aux.p1.x) ? (p1.y < aux.p1.y)

                                                           : (p1.x < aux.p1.x))

                                     : (p0.y < aux.p0.y))

               : p0.x < aux.p0.x;

  }

  void revert() { tswap(p0, p1); }

};

class wChunk {

public:

  double w0, w1;

  wChunk(double _w0, double _w1) : w0(_w0), w1(_w1) {}

  bool operator<(const wChunk &b) const { return (w1 < b.w0); }

};

//-------------------------------------------------------------------

const int c_soundRate        = 5512;  //  5512; //11025

const int c_soundBps         = 16;

const bool c_soundIsSigned   = false;

const int c_soundChannelNum  = 1;

const int c_soundCompression = 3;  // per compatibilita' con MAC!!!

//-------------------------------------------------------------------

class FlashImageData {

public:

  FlashImageData(TAffine aff, TImageP img, const TColorFunction *cf,

                 bool isMask, bool isMasked)

      : m_aff(aff)

      , m_img(img)

      , m_cf(cf)

      , m_isMask(isMask)

      , m_isMasked(isMasked) {

    assert(!isMask || !isMasked);

  }

  TAffine m_aff;

  const TColorFunction *m_cf;

  bool m_isMask, m_isMasked;

  TImageP m_img;

};

static double computeAverageThickness(const TStroke *s) {

  int count       = s->getControlPointCount();

  double resThick = 0;

  int i;

  for (i = 0; i < s->getControlPointCount(); i++) {

    double thick = s->getControlPoint(i).thick;

    if (i >= 2 && i < s->getControlPointCount() - 2) resThick += thick;

  }

  if (count < 6) return s->getControlPoint(count / 2 + 1).thick;

  return resThick / (s->getControlPointCount() - 4);

}

static void putquads(const TStroke *s, double w0, double w1,

                     std::vector<tquadratic *=""> &quads) {</tquadratic>

  int chunkIndex0, chunkIndex1, i;

  double dummy;

  bool ret;

  ret = s->getChunkAndT(w0, chunkIndex0, dummy);

  assert(!ret);

  ret = s->getChunkAndT(w1, chunkIndex1, dummy);

  assert(!ret);

  assert(chunkIndex0 <= chunkIndex1);

  for (i = chunkIndex0; i <= chunkIndex1; i++)

    quads.push_back((TQuadratic *)s->getChunk(i));

}

//-------------------------------------------------------------------

static void computeOutlineBoundary(std::vector<tstroke *=""> &outlines,</tstroke>

                                   std::list<flashpolyline> &polylinesArray,</flashpolyline>

                                   const TPixel &color) {

  UINT size = polylinesArray.size();

  std::vector<std::vector<tquadratic *="">> quads;</std::vector<tquadratic>

  computeSweepBoundary(outlines, quads);

  outlines.clear();

  std::list<flashpolyline>::iterator it = polylinesArray.begin();</flashpolyline>

  std::advance(it, size);

  for (int i = 0; i < (int)quads.size(); i++) {

    std::vector<tquadratic *=""> &q = quads[i];</tquadratic>

    polylinesArray.push_back(FlashPolyline());

    polylinesArray.back().m_quads               = quads[i];

    polylinesArray.back().m_toBeDeleted         = true;

    polylinesArray.back().m_fillStyle1.m_type   = Solid;

    polylinesArray.back().m_fillStyle1.m_color1 = color;

  }

}

//-------------------------------------------------------------------

//	TFlash::drawSegments and TFlash::drawquads cannot be inline defined

//	since size of TSegment and TQuadratic are unkown in the header

void TFlash::drawSegments(const std::vector<tsegment> segmentArray,</tsegment>

                          bool isGradientColor) {}

void TFlash::drawquads(const std::vector<tquadratic> quadsArray) {}</tquadratic>

//-------------------------------------------------------------------

bool PolyStyle::operator==(const PolyStyle &p) const {

  if (m_type != p.m_type) return false;

  switch (m_type) {

  case Centerline:

    return m_thickness == p.m_thickness && m_color1 == p.m_color1;

  case Solid:

    return m_color1 == p.m_color1;

  case Texture:

    return m_matrix == p.m_matrix &&

           m_texture.getPointer() == p.m_texture.getPointer();

  case LinearGradient:

  case RadialGradient:

    return m_color1 == p.m_color1 && m_color2 == p.m_color2 &&

           m_matrix == p.m_matrix && m_smooth == p.m_smooth;

  default:

    assert(false);

    return false;

  }

}

//-------------------------------------------------------------------

static bool affineMinorThen(const TAffine &m0, const TAffine &m1) {

  if (m0.a11 == m1.a11) {

    if (m0.a12 == m1.a12) {

      if (m0.a13 == m1.a13) {

        if (m0.a21 == m1.a21) {

          if (m0.a22 == m1.a22)

            return m0.a23 < m1.a23;

          else

            return m0.a22 < m1.a22;

        } else

          return m0.a21 < m1.a21;

      } else

        return m0.a13 < m1.a13;

    } else

      return m0.a12 < m1.a12;

  } else

    return m0.a11 < m1.a11;

}

//-------------------------------------------------------------------

bool PolyStyle::operator<(const PolyStyle &p) const {

  if (m_type == p.m_type) switch (m_type) {

    case Centerline:

      return (m_thickness == p.m_thickness) ? m_color1 < p.m_color1

                                            : m_thickness < p.m_thickness;

    case Solid:

      return m_color1 < p.m_color1;

    case Texture:

      return m_texture.getPointer() <

             p.m_texture.getPointer();  // ignoro la matrice!!!!

    case LinearGradient:

    case RadialGradient:

      return (m_smooth == p.m_smooth)

                 ? ((m_color1 == p.m_color1)

                        ? ((m_color2 == p.m_color2)

                               ? affineMinorThen(m_matrix, p.m_matrix)

                               : m_color2 < p.m_color2)

                        : m_color1 < p.m_color1)

                 : m_smooth < p.m_smooth;

    default:

      assert(false);

      return false;

    }

  else

    return m_type < p.m_type;

}

//-------------------------------------------------------------------

static void computeQuadChain(const TEdge &e,

                             std::vector<tquadratic *=""> &quadArray,</tquadratic>

                             std::vector<tquadratic *=""> &toBeDeleted) {</tquadratic>

  int chunk_b, chunk_e, chunk = -1;

  double t_b, t_e, w0, w1;

  TThickQuadratic *q_b = 0, *q_e = 0;

  TThickQuadratic dummy;

  bool reversed = false;

  if (e.m_w0 > e.m_w1) {

    reversed = true;

    w0       = e.m_w1;

    w1       = e.m_w0;

  } else {

    w0 = e.m_w0;

    w1 = e.m_w1;

  }

  if (w0 == 0.0)

    chunk_b = 0;

  else {

    if (e.m_s->getChunkAndT(w0, chunk, t_b)) assert(false);

    q_b = new TThickQuadratic();

    toBeDeleted.push_back(q_b);

    e.m_s->getChunk(chunk)->split(t_b, dummy, *q_b);

    chunk_b = chunk + 1;

  }

  if (w1 == 1.0)

    chunk_e = e.m_s->getChunkCount() - 1;

  else {

    if (e.m_s->getChunkAndT(w1, chunk_e, t_e)) assert(false);

    q_e = new TThickQuadratic();

    toBeDeleted.push_back(q_e);

    if (chunk_e == chunk) {

      if (q_b) {

        t_e = q_b->getT(e.m_s->getChunk(chunk)->getPoint(t_e));

        q_b->split(t_e, *q_e, dummy);

      } else

        e.m_s->getChunk(0)->split(t_e, *q_e, dummy);

      if (!reversed)

        quadArray.push_back(q_e);

      else {

        quadArray.push_back(

            new TQuadratic(q_e->getP2(), q_e->getP1(), q_e->getP0()));

        toBeDeleted.push_back(quadArray.back());

      }

      return;

    }

    e.m_s->getChunk(chunk_e)->split(t_e, *q_e, dummy);

    chunk_e--;

  }

  int i;

  assert(chunk_e >= chunk_b - 1);

  if (reversed) {

    if (q_e) {

      q_e->reverse();

      quadArray.push_back(q_e);

    }

    for (i = chunk_e; i >= chunk_b; i--) {

      const TThickQuadratic *qAux = e.m_s->getChunk(i);

      quadArray.push_back(

          new TQuadratic(qAux->getP2(), qAux->getP1(), qAux->getP0()));

      toBeDeleted.push_back(quadArray.back());

    }

    if (q_b) {

      q_b->reverse();

      quadArray.push_back(q_b);

    }

  } else {

    if (q_b) quadArray.push_back(q_b);

    for (i = chunk_b; i <= chunk_e; i++)

      quadArray.push_back((TQuadratic *)e.m_s->getChunk(i));

    if (q_e) quadArray.push_back(q_e);

  }

}

//-------------------------------------------------------------------