#include <stdexcept> /* std::domain_error  */
#include <limits>    /* std::numeric_limits */
#include "igs_color_rgb_hls.h"
namespace {
void pixel_rgba_(const double red_in, const double gre_in, const double blu_in,
                 const double alp_in, const double hue_noise  // -0.5...0.5
                 ,
                 const double lig_noise  // -0.5...0.5
                 ,
                 const double sat_noise, const double alp_noise,
                 double &red_out, double &gre_out, double &blu_out,
                 double &alp_out, const bool cylindrical = true) {
  double hue, lig, sat, alp;
  igs::color::rgb_to_hls(red_in, gre_in, blu_in, hue, lig, sat, cylindrical);
  alp = alp_in;

  if (0.0 != hue_noise) {
    hue += 360.0 * hue_noise;
    while (hue < 0.0) {
      hue += 360.0;
    }
    while (360.0 <= hue) {
      hue -= 360.0;
    }
  }
  if (0.0 != lig_noise) {
    lig += lig_noise;
    // lig = (lig < 0.0) ? 0.0 : ((1.0 < lig) ? 1.0 : lig);
  }
  if (0.0 != sat_noise) {
    sat += sat_noise;
    sat = (sat < 0.0) ? 0.0 : sat;
    // sat = (sat < 0.0) ? 0.0 : ((1.0 < sat) ? 1.0 : sat);
  }
  if (0.0 != alp_noise) {
    alp += alp_noise;
    alp = (alp < 0.0) ? 0.0 : ((1.0 < alp) ? 1.0 : alp);
  }

  igs::color::hls_to_rgb(hue, lig, sat, red_out, gre_out, blu_out, cylindrical);
  alp_out = alp;
}
}  // namespace
//------------------------------------------------------------
namespace {
class noise_ref_ {
public:
  noise_ref_(const float *array, const int height, const int width,
             const int xoffset, const int yoffset, const int zz);
  float noise(int xx  // 0...width-1...
              ,
              int yy  // 0...height-1...
  ) const;            // return range is 0...1

private:
  const float *array_;
  const int height_;
  const int width_;
  const int xoffset_;
  const int yoffset_;
  const int zz_;

  /* copy constructorを無効化 */
  noise_ref_(const noise_ref_ &);

  /* 代入演算子を無効化 */
  noise_ref_ &operator=(const noise_ref_ &);
};
noise_ref_::noise_ref_(const float *array, const int height, const int width,
                       const int xoffset, const int yoffset, const int zz)
    : array_(array)
    , height_(height)
    , width_(width)
    , xoffset_(xoffset)
    , yoffset_(yoffset)
    , zz_(zz) {
  if (0 == array) {
    throw std::domain_error("noise_ref_  no data");
  }
  if ((zz < 0) || (4 <= zz)) {
    throw std::domain_error("noise_ref_  bad zz");
  }
}
float noise_ref_::noise(int xx, int yy) const {
  xx -= this->xoffset_;
  yy -= this->yoffset_;
  while (xx < 0) {
    xx += this->width_;
  }
  while (this->width_ <= xx) {
    xx -= this->width_;
  }
  while (yy < 0) {
    yy += this->height_;
  }
  while (this->height_ <= yy) {
    yy -= this->height_;
  }

  return (*(this->array_ + 4 * this->width_ * yy + 4 * xx + this->zz_));
}
}  // namespace
//------------------------------------------------------------
#include "igs_ifx_common.h" /* igs::image::rgba */
#include "igs_hls_add.h"
namespace {
/* raster逕ｻ蜒上↓繝弱う繧ｺ繧偵・縺帙ｋ*/
void change_(float *image_array, const int height, const int width,
             const int channels, const noise_ref_ &noi,
             const float *ref, /* 豎ゅａ繧狗判蜒・out)縺ｨ蜷後§鬮倥＆縲∝ｹ・€√メ繝｣繝ｳ繝阪Ν謨ｰ */
             const double offset, const double hue_scale,
             const double lig_scale, const double sat_scale,
             const double alp_scale, const bool add_blend_sw,
             const bool cylindrical = true) {
  if (igs::image::rgba::siz == channels) {
    using namespace igs::image::rgba;
    for (int yy = 0; yy < height; ++yy) {
      for (int xx = 0; xx < width; ++xx, image_array += channels) {
        /* 変化量初期値 */
        float refv = 1.f;

        /* 参照画像あればピクセル単位の画像変化量を得る */
        if (ref != nullptr) {
          refv *= (*ref);
          ref++; /* continue;縺ｮ蜑阪↓陦後≧縺薙→ */
        }

        /* 加算合成で、Alpha値ゼロならRGB値を計算する必要はない */
        if (add_blend_sw && (0.f == image_array[alp])) {
          continue;
        }
        /* 加算合成でなくAlpha合成の時は、
Alpha値がゼロでもRGB値は存在する(してもよい) */

        /* HLSAそれぞれに対するオフセット済ノイズ値 */
        refv *= (noi.noise(xx, yy) - offset);

        /* マスクSWがON、なら変化をMask */
        if (add_blend_sw && (image_array[alp] < 1.f)) {
          refv *= image_array[alp];
        }

        /* RGBAにHLSAノイズを加える */
        double rr, gg, bb, aa;
        pixel_rgba_(image_array[red], image_array[gre], image_array[blu],
                    image_array[alp], refv * hue_scale, refv * lig_scale,
                    refv * sat_scale, refv * alp_scale, rr, gg, bb, aa,
                    cylindrical);

        /* 変化後の値を戻す */
        image_array[red] = (float)rr;
        image_array[gre] = (float)gg;
        image_array[blu] = (float)bb;
        image_array[alp] = (float)aa;
       }
    }
  } else if (igs::image::rgb::siz == channels) {
    using namespace igs::image::rgb;
    for (int yy = 0; yy < height; ++yy) {
      for (int xx = 0; xx < width; ++xx, image_array += channels) {
        /* 変化量初期値 */
        float refv = 1.f;

        /* 参照画像あればピクセル単位の画像変化量を得る */
        if (ref != nullptr) {
          refv *= (*ref);
          ref++; /* continue;縺ｮ蜑阪↓陦後≧縺薙→ */
        }

        /* HLSそれぞれに対するオフセット済ノイズ値 */
        refv *= (noi.noise(xx, yy) - offset);

        /* RGBにHLSノイズを加える */
        double rr, gg, bb, aa;
        pixel_rgba_(image_array[red], image_array[gre], image_array[blu], 1.0,
                    refv * hue_scale, refv * lig_scale, refv * sat_scale, 0.0,
                    rr, gg, bb, aa, cylindrical);

        /* 変化後の値を戻す */
        image_array[red] = (float)rr;
        image_array[gre] = (float)gg;
        image_array[blu] = (float)bb;
      }
    }
  } else if (1 == channels) { /* grayscale */
    for (int yy = 0; yy < height; ++yy) {
      for (int xx = 0; xx < width; ++xx, ++image_array) {
        /* 変化量初期値 */
        float refv = 1.f;

        /* 参照画像あればピクセル単位の画像変化量を得る */
        if (ref != nullptr) {
          refv *= (*ref);
          ref++; /* continue;縺ｮ蜑阪↓陦後≧縺薙→ */
        }

        /* Lに対するオフセット済ノイズ値 */
        refv *= (noi.noise(xx, yy) - offset);

        /* 変化なしなら次へ */
        if (0.0 == refv * lig_scale) {
          continue;
        }

        /* GrayscaleにLノイズを加える */
        float lig = image_array[0] + refv * lig_scale;
        // lig = (lig < 0.f) ? 0.f : ((1.f < lig) ? 1.f : lig);

        /* 変化後の値を戻す */
        image_array[0] = lig;
      }
    }
  }
}
}

void igs::hls_add::change(
    float *image_array, const int height, const int width, const int channels,
    const float *noi_image_array,
    const float *ref, /* 豎ゅａ繧狗判蜒上→蜷後§鬮倥€∝ｹ・€…hannels謨ｰ */
    const int xoffset, const int yoffset, const int from_rgba,
    const double offset, const double hue_scale, const double lig_scale,
    const double sat_scale, const double alp_scale, const bool add_blend_sw,
    const bool cylindrical) {
  if ((0.0 == hue_scale) && (0.0 == lig_scale) && (0.0 == sat_scale) &&
      (0.0 == alp_scale)) {
    return;
  }

  if ((igs::image::rgba::siz != channels) &&
      (igs::image::rgb::siz != channels) && (1 != channels) /* grayscale */
  ) {
    throw std::domain_error("Bad channels,Not rgba/rgb/grayscale");
  }

  /* ノイズ参照画像を作成する */
  noise_ref_ noi(noi_image_array, height, width, xoffset, yoffset, from_rgba);
  change_(image_array, height, width, channels, noi, ref, offset, hue_scale,
          lig_scale, sat_scale, alp_scale, add_blend_sw, cylindrical);

  /* rgb(a)画像にhls(a)でドットノイズを加える */
  /* if ((std::numeric_limits<unsigned char>::digits == bits) &&
        ((std::numeric_limits<unsigned char>::digits == ref_bits) ||
         (0 == ref_bits))) {
      change_template_(image_array, height, width, channels, noi, ref, ref_mode,
                       offset, hue_scale, lig_scale, sat_scale, alp_scale,
                       add_blend_sw);
    } else if ((std::numeric_limits<unsigned short>::digits == bits) &&
               ((std::numeric_limits<unsigned char>::digits == ref_bits) ||
                (0 == ref_bits))) {
      change_template_(reinterpret_cast<unsigned short *>(image_array), height,
                       width, channels, noi, ref, ref_mode, offset, hue_scale,
                       lig_scale, sat_scale, alp_scale, add_blend_sw);
    } else if ((std::numeric_limits<unsigned short>::digits == bits) &&
               (std::numeric_limits<unsigned short>::digits == ref_bits)) {
      change_template_(
          reinterpret_cast<unsigned short *>(image_array), height, width,
          channels, noi, reinterpret_cast<const unsigned short *>(ref),
    ref_mode, offset, hue_scale, lig_scale, sat_scale, alp_scale, add_blend_sw);
    } else if ((std::numeric_limits<unsigned char>::digits == bits) &&
               (std::numeric_limits<unsigned short>::digits == ref_bits)) {
      change_template_(image_array, height, width, channels, noi,
                       reinterpret_cast<const unsigned short *>(ref), ref_mode,
                       offset, hue_scale, lig_scale, sat_scale, alp_scale,
                       add_blend_sw);
    } else {
      throw std::domain_error("Bad bits,Not uchar/ushort");
    }
    */
}