fonts/character_references

<?php

/* $Id: character_references.php,v 1.2 2012/05/03 14:00:38 stm Exp $

 * Character references:

 * Demonstrate the usefulness of character references, using a suitable font.

 *

 * Output text containing a character with the glyph name "g.alt". Output the

 * Euro glyph via a character reference by name or by numerical value.

 *

 * Required software: PDFlib/PDFlib+PDI/PPS 7

 * Required data: font file

 */

/* This is where the data files are. Adjust as necessary. */

$searchpath = dirname(dirname(dirname(__FILE__)))."/input";

$outfile = "";

$title = "Character References";

$x=20;

$y=220;

$width=300;

$height=300;

try {

    $p = new PDFlib();

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

    /* This means we must check return values of load_font() etc. */

    $p->set_parameter("errorpolicy", "return");

    $p->set_parameter("textformat", "utf8");

    if ($p->begin_document($outfile, "") == 0)

    throw new Exception("Error: " . $p->get_errmsg());

    $p->set_info("Creator", "PDFlib Cookbook");

    $p->set_info("Title", $title);

    /* Load the font "Gentium-Italic" with unicode encoding

     * (see http://scripts.sil.org/gentium)

     */

    $gentiumfont = $p->load_font("GenI102", "unicode", "");

    if ($gentiumfont == 0)

        throw new Exception("Error: " . $p->get_errmsg());

    /* Load the font "Courier" */

    $courierfont = $p->load_font("Courier", "unicode", "");

    if ($courierfont == 0)

        throw new Exception("Error: " . $p->get_errmsg());

    /* Start page */

    $p->begin_page_ext($width, $height, "");

    $p->fit_textline("Input", $x, $y, "font=" . $courierfont . " fontsize=16");

    $p->fit_textline("Output", $x+160, $y, "font=" . $gentiumfont .

        " fontsize=20");

    /* Select a glyph via a character reference which refers to the glyph

     * name. Use the "charref" option to enable the character referencing

     * feature.

     */

    /* First for comparison purposes output the text with the usual glyph "g" */

    $p->fit_textline("Wing", $x, $y-=30, "font=" . $courierfont .

        " fontsize=16");

    $p->fit_textline("Wing", $x+160, $y, "font=" . $gentiumfont .

        " fontsize=20 charref");

    /* With the "Gentium-Italic" font, output the text "Wing" containing

     * a character with the glyph name "g.alt". (Such a glyph name is used

     * to choose among multiple glyphs in the font which have the same

     * Unicode value and therefore cannot uniquely be addressed via Unicode

     * values.) "g.alt" is addressed via a character reference by name

     * "&.g.alt;"

     */

    $p->fit_textline("Win&.g.alt;", $x, $y-=23, "font=" . $courierfont .

        " fontsize=16");

    $p->fit_textline("Win&.g.alt;", $x+160, $y, "font=" . $gentiumfont .

        " fontsize=20 charref");

    /* Output the Euro glyph via a character reference by name */

    $p->fit_textline("500 &euro;", $x, $y-=23, "font=" . $courierfont .

        " fontsize=16");

    $p->fit_textline("500 &euro;", $x+160, $y, "font=" . $gentiumfont .

        " fontsize=20 charref");

    /* Output the Euro glyph via a character reference by numerical value */

    $p->fit_textline("500 &#x20AC;", $x, $y-=23, "font=" . $courierfont .

        " fontsize=16");

    $p->fit_textline("500 &#x20AC;", $x+160, $y, "font=" . $gentiumfont .

        " fontsize=20 charref");

    /* Finish page */

    $p->end_page_ext("");

    $p->end_document("");

    $buf = $p->get_buffer();

    $len = strlen($buf);

    header("Content-type: application/pdf");

    header("Content-Length: $len");

    header("Content-Disposition: inline; filename=character_references.pdf");

    print $buf;

    } catch (PDFlibException $e) {

        die("PDFlib exception occurred:\n".

            "[" . $e->get_errnum() . "] " . $e->get_apiname() .

            ": " . $e->get_errmsg() . "\n");

    } catch (Exception $e) {

        die($e->getMessage());

    }

$p=0;

?>