PDF/Xの出力

<?php 
  /* データファイルの場所です。必要なように適合させます */
  $searchpath = "../data";
  $imagefile = "nesrin.jpg";

  $p = new PDFlib();;

  /* load_font()等からの戻り値を調べなければいけないことを表しています */
  $p->set_parameter("errorpolicy", "return");

  $p->set_parameter("SearchPath", $searchpath);

  /*"utf8"をテキストフォーマットとして使います。
   * これはunicodeエンコーディングを使用することを示します。
   */
  $p->set_parameter("textformat", "utf8");

  if ($p->begin_document("", "pdfx=PDF/X-3:2002") == 0) {
    die("Error: " . $p->get_errmsg());
  }

  $p->set_info("Creator", "PDFlib starter sample");
  $p->set_info("Title", "starter_pdfx");

  /* ICCプロファイルを必要としない標準出力意図
   * （例えば SWOP printing ）の一つを使えます。

     $p->load_iccprofile("CGATS TR 001", "usage=outputintent");

   * しかし、もしICCか Lab colorを使うとき、
   * 出力意図のICCプロファイルをロードしなければいけません。
   */

  if ($p->load_iccprofile("ISOcoated.icc", "usage=outputintent") == -1) {
    printf("Error: %s\n", $p->get_errmsg());
    printf("ICC profileパッケージをインストールしてください。" .
           "www.pdflib.com to run the PDF/X starter sample.\n");
    $p->delete();
    return(2);
  }

  $p->begin_page_ext(595, 842, "");

  /* 埋め込まれたフォントはPDF/Xを要求します */
  $font = $p->load_font("LuciduxSans-Oblique", "unicode", "embedding");
  if ($font == 0) {
    die("Error: " . $p->get_errmsg());
  }
  $p->setfont($font, 24);

  $spot = $p->makespotcolor("PANTONE 123 C");
  $p->setcolor("fill", "spot", $spot, 1.0, 0.0, 0.0);
  $p->fit_textline("PDF/X-3:2002 starter", 50, 700, "");

  /* RGBは ICCプロファイルの必要条件よりも劣化したものを映し出します。
   * よってsRGBを使います。
   */
  $icc = $p->load_iccprofile("sRGB", "");
  $image = $p->load_image("auto", $imagefile, "iccprofile=" . $icc);

  if ($image == 0) {
    die("Error: " . $p->get_errmsg());
  }

  $p->fit_image($image, 0.0, 0.0, "scale=0.5");

  $p->end_page_ext("");

  $p->end_document("");

  /* PDFデータをバッファから取り出す */
  $buf = $p->get_buffer();
  $len = strlen($buf);
  
  /* httpヘッダを生成する */
  header("Content-type: application/pdf");
  header("Content-Length: $len");
  header("Content-Disposition: inline; filename=starter_block.pdf");
  
  print $buf;

  $p->delete();

?>