//! @brief PPM(RGB各1byte,カラー,テキスト)を書き込む
//! @param [in] fname ファイル名
//! @param [in] vmax 全てのRGBの中の最大値
//! @param [in] width 画像の幅
//! @param [in] height 画像の高さ
//! @param [in] p 画像のメモリへのアドレス
//! @details RGBRGBRGB....のメモリを渡すと、RGBテキストでファイル名fnameで書き込む
void pnmP3_Write(const TCHAR* const fname, const int vmax, const int width, const int height, const unsigned char* const p) { // PPM ASCII

  FILE* fp = _tfopen(fname, _T("wb"));
  fprintf(fp, "P3\n%d %d\n%d\n", width, height, vmax);

  size_t k = 0;
  for (size_t i = 0; i < (size_t)height; i++) {
    for (size_t j = 0; j < (size_t)width; j++) {
      fprintf(fp, "%d %d %d ", p[k * 3 + 0], p[k * 3 + 1], p[k * 3 + 2]);
      k++;
    }
    fprintf(fp, "\n");
  }

  fclose(fp);
}

//! @brief PPM(RGB各1byte,カラー,バイナリ)を読み込む
//! @param [in] fname ファイル名
//! @param [out] vmax 全てのRGBの中の最大値
//! @param [out] width 画像の幅
//! @param [out] height 画像の高さ
//! @param [in] 画像を読み込んだメモリアドレスを返すためのポインタへのポインタ
//! @retval true 成功
//! @retval false 失敗
//! @warning RGBが各1byteでないと動作しない
//! @details ファイルを読み込み、width*height*3のメモリを確保したうえでRGBをそこへ格納する
bool pnmP6_Read(TCHAR* fname, int* vmax, int *width, int *height, unsigned char** p) { // PPM BINARY
  *width = -1;
  *height = -1;
  *vmax = -1;

  FILE* fp;
  fp = _tfopen(fname, _T("rb"));
  char tmp[2048];

  char c;
  while ( c=fgetc(fp)) {
    if (isspace(c))
      continue;

    if (c == 'P') { //フォーマットを特定する
      c = fgetc(fp) - '0';
      if (c != 6) {
        fclose(fp);
        return false;
      }
      continue;
    }

    if (c == '#') { //コメントを読み飛ばす
      while (c != '\r' && c != '\n')
        c = fgetc(fp);
      continue;
    }
    if (*width < 0) {
      int s = 0;
      while(1) {
        if (isdigit(c)) {
          tmp[s++] = c;
          c = fgetc(fp);
        }
        else {
          tmp[s] = '\0';
          *width = atoi(tmp);
          break;
        }
      }
      continue;
    }
    if (*height < 0) {
      int s = 0;
      while (1) {
        if (isdigit(c)) {
          tmp[s++] = c;
          c = fgetc(fp);
        }
        else {
          tmp[s] = '\0';
          *height = atoi(tmp);
          break;
        }
      }
      continue;
    }

    if (*vmax < 0) {
      int s = 0;
      while (1) {
        if (isdigit(c)) {
          tmp[s++] = c;
          c = fgetc(fp);
        }
        else {
          tmp[s] = '\0';
          *vmax = atoi(tmp);
          break;
        }
      }
      break;
    }
    else {
      break;
    }
  }

  if (*width < 0 || *height < 0 || *vmax < 0) {
    return false;
  }

  const size_t maxsize = *width* *height;
  unsigned char r, g, b;

  *p = new unsigned char[maxsize * 3];
  for (size_t i = 0; i < maxsize; i++) {
    fread(&r, 1, 1, fp);
    fread(&g, 1, 1, fp);
    fread(&b, 1, 1, fp);

    (*p)[i * 3 + 0] = r;
    (*p)[i * 3 + 1] = g;
    (*p)[i * 3 + 2] = b;
  }

  fclose(fp);

  return true;
}