fonts/type3_turkish_character

<?php

/* $Id: type3_turkish_character.php,v 1.2 2009/07/13 08:14:06 tm Exp $

 * Type 3 turkish character:

 * Create a Type 3 font by cloning another font and adding a further glyph

 *

 * We use encoding iso8859-9 (since unicode doesn't work well with 8-bit Type 3

 * fonts). Create a Type 3 font "CourierTurkish" on the basis of the core font

 * "Courier".

 * Add the synthetic glyph U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE

 * (0xDD in iso8859-9) and output text with that glyph.

 * To construct the synthetic character use the auxiliary diacritical character

 * "dotaccent" U+02D9 DOT ABOVE plus U+0049 LATIN CAPITAL LETTER I.

 * Place "dotaccent" on auxiliary slot 0x90 which is unused in iso8859-9.

 *

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

 * Required data: none

 */

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

$searchpath = "../input";

$outfile = "";

$title = "Type 3 Turkish Character";

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");

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

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

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

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

    /* Start page */

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

    /* -----------------------------

     * Step 1: Construct an encoding

     * -----------------------------

     */

    /* Load an auxiliary font with the encoding of interest "iso8859-9" */

    $auxfont = $p->load_font("Helvetica", "iso8859-9", "");

    /* Fetch all glyph names for the encoding */

    for ($i = 0; $i < 255; $i++) {

        $info = $p->info_font($auxfont, "glyphname", "code=" . $i);

        $glyphnames[$i] = $p->get_parameter("string", $info);

    }

    /* Add the auxiliary diacritical character "dotaccent" U+02D9 DOT ABOVE

     * to the extended encoding to slot 0x90. This character will be used to

     * construct the new glyph.

     */

    $glyphnames[0x90] = "dotaccent";

    /* Construct an auxiliary encoding based on iso8859-9 and add all wanted

     * glyph names

     */

    for ($i = 0; $i < 255; $i++)

        $p->encoding_set_char("iso8859-9-extended", $i, $glyphnames[$i], 0);

   

    /* --------------------------------------------------------------

     * Step 2: Derive the glyph metrics by fetching the glyph widths;

     * actually not required for monospaced fonts like Courier

     * --------------------------------------------------------------

     */

    /* To avoid the base font in the Output PDF perform the task with a

     * scratch PDF document. Supply an empty file name to begin_document()

     * to create the scratch file in memory.

     */

    try {

        $q = new PDFlib();

       

        /* Set the errorpolicy to "exception". With this setting PDFlib

         * functions will throw an exception if an error occurs

         */

        $q->set_parameter("errorpolicy", "exception");

        $q->begin_document("", "");

        /* Load the base font with "iso8859-9" encoding.

         *

         * Note: Since the "iso8859-9-extended" encoding is not available in

         * the scratch document context we use "iso8859-9". "iso8859-92" has

         * .notdef at position 0x90, and glyphwidths[0x90] will contain the

         * widths of .notdef. "iso8859-9-extended" has dotaccent at 0x90,

         * and the corresponding width. However, since we don't use the

         * width of the accent (only the width of the base character) it

         * doesn't hurt; for other situations (different pair of combined

         * characters) it could be relevant.

         */

        $basefont = $q->load_font("Courier", "iso8859-9", "");

               

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

       

        $q->setfont($basefont, 1000);

        for ($i = 0; $i < 255; $i++)

            $glyphwidths[$i] =

                $q->info_textline(chr($i), "width", "");

                /* Set the glyph width of the synthetic glyph (0xDD) to the width

                 * of the 'T' character

                 */

        $glyphwidths[0xDD] =

                    $q->info_textline('T', "width", "");

       

                $q->end_page_ext("");

        $q->end_document("");

       

    } catch (PDFlibException $e){

        die("PDFlib exception occurred:\n" .

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

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

    } catch (Exception $e) {

        die($e->getMessage());

    }

    $q=0;

   

    /* --------------------------------------------

     * Step 3: Define the new font "CourierTurkish"

     * --------------------------------------------

     */

    $basefont = $p->load_font("Courier", "iso8859-9-extended", "");

    if ($basefont == 0)

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

    $p->begin_font("CourierTurkish", 0.001, 0.0, 0.0, 0.001, 0.0, 0.0, "");

    /* .notdef is required; the width of .notdef does not really matter */

    $p->begin_glyph(".notdef", 600, 0, 0, 0, 0);

    $p->end_glyph();

    /* Clone all available glyphs from the input font with the exception of

     * any ".notdef" glyphs

     */

    for ($i = 0; $i < 255; $i++) {

        if ($glyphnames[$i] == ".notdef") {

                            continue;

                    }

        /* The bounding box must be large enough to contain the respective

         * glyph. We are lazy and use the font bounding box as a safe

         * estimate. Better create the bounding box too large than risk

         * problems.

         */

        $p->begin_glyph($glyphnames[$i], $glyphwidths[$i], -23, -250, 623, 805);

        $p->setfont($basefont, 1000);

        /* Now for the crucial trick:

         * Create a new glyph at position "0xDD" by combining the two

         * existing glyphs "I" and "dotaccent". The name of the new glyph

         * has already been set to "Idotaccent" above.

         */

        if ($i == 0xDD) {

            /* Combine the "I" glyph... */

            $p->show_xy("I", 0, 0);

            

            /* ...with the character at position 0x90 (which has been set

             * to "dotaccent" above. Shift the accent upwards to nicely

             * position it on top of the "I".

             */

            $p->show_xy(chr(0x90), 0.0, 160.0);

        }

        else {

            $p->show_xy(chr($i), 0, 0);

        }

        $p->end_glyph();

    }

    $p->end_font();

    /* ------------------------

     * Step 4: Use the new font

     * ------------------------

     */

    /* With the Courier core font output "Istanbul" */

    $basefont = $p->load_font("Courier", "iso8859-9", "");

    if ($basefont == 0)

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

   

    $p->fit_textline("Istanbul", 50, 140, "font=" . $basefont . " fontsize=14");

    /* With the new Type 3 font output "\335stanbul" with "\335" being the

     * octal representation of the "Idotaccent" glyph (0xDD) defined above

     */

    $newfont = $p->load_font("CourierTurkish", "iso8859-9", "");

    if ($newfont == 0)

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

   

    $p->fit_textline("\335stanbul", 50, 100, "font=" . $newfont .

        " fontsize=14 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=type3_turkish_character.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;

?>