<?php
//=======================================================================
// File:	jpgraph_ttf.inc.php
// Description:	Handling of TTF fonts
// Created: 	2006-11-19
// Ver:		$Id: jpgraph_ttf.inc.php 805 2006-11-28 07:45:54Z ljp $
//
// Copyright (c) Aditus Consulting. All rights reserved.
//========================================================================

// TTF Font families
DEFINE("FF_COURIER", 10);
DEFINE("FF_VERDANA", 11);
DEFINE("FF_TIMES", 12);
DEFINE("FF_COMIC", 14);
DEFINE("FF_ARIAL", 15);
DEFINE("FF_GEORGIA", 16);
DEFINE("FF_TREBUCHE", 17);

// Gnome Vera font
// Available from http://www.gnome.org/fonts/
DEFINE("FF_VERA", 18);
DEFINE("FF_VERAMONO", 19);
DEFINE("FF_VERASERIF", 20);

// Chinese font
DEFINE("FF_SIMSUN", 30);
DEFINE("FF_CHINESE", 31);
DEFINE("FF_BIG5", 31);

// Japanese font
DEFINE("FF_MINCHO", 40);
DEFINE("FF_PMINCHO", 41);
DEFINE("FF_GOTHIC", 42);
DEFINE("FF_PGOTHIC", 43);

// Hebrew fonts
DEFINE("FF_DAVID", 44);
DEFINE("FF_MIRIAM", 45);
DEFINE("FF_AHRON", 46);

// Extra fonts
// Download fonts from
// http://www.webfontlist.com
// http://www.webpagepublicity.com/free-fonts.html

DEFINE("FF_SPEEDO", 50);		// This font is also known as Bauer (Used for gauge fascia)
DEFINE("FF_DIGITAL", 51);	// Digital readout font
DEFINE("FF_COMPUTER", 52);	// The classic computer font
DEFINE("FF_CALCULATOR", 53);	// Triad font

// Limits for fonts
DEFINE("_FIRST_FONT", 10);
DEFINE("_LAST_FONT", 53);

// TTF Font styles
DEFINE("FS_NORMAL", 9001);
DEFINE("FS_BOLD", 9002);
DEFINE("FS_ITALIC", 9003);
DEFINE("FS_BOLDIT", 9004);
DEFINE("FS_BOLDITALIC", 9004);

//Definitions for internal font
DEFINE("FF_FONT0", 1);
DEFINE("FF_FONT1", 2);
DEFINE("FF_FONT2", 4);

//=================================================================
// CLASS LanguageConv
// Description:
// Converts various character encoding into proper
// UTF-8 depending on how the library have been configured and
// what font family is being used
//=================================================================
class LanguageConv
{
    private $g2312 = null ;

    public function Convert($aTxt, $aFF)
    {
        if (LANGUAGE_GREEK) {
            if (GREEK_FROM_WINDOWS) {
                $unistring = LanguageConv::gr_win2uni($aTxt);
            } else {
                $unistring = LanguageConv::gr_iso2uni($aTxt);
            }
            return $unistring;
        } elseif (LANGUAGE_CYRILLIC) {
            if (CYRILLIC_FROM_WINDOWS && (!defined('LANGUAGE_CHARSET') || stristr(LANGUAGE_CHARSET, 'windows-1251'))) {
                $aTxt = convert_cyr_string($aTxt, "w", "k");
            }
            if (!defined('LANGUAGE_CHARSET') || stristr(LANGUAGE_CHARSET, 'koi8-r') || stristr(LANGUAGE_CHARSET, 'windows-1251')) {
                $isostring = convert_cyr_string($aTxt, "k", "i");
                $unistring = LanguageConv::iso2uni($isostring);
            } else {
                $unistring = $aTxt;
            }
            return $unistring;
        } elseif ($aFF === FF_SIMSUN) {
            // Do Chinese conversion
            if ($this->g2312 == null) {
                include_once 'jpgraph_gb2312.php' ;
                $this->g2312 = new GB2312toUTF8();
            }
            return $this->g2312->gb2utf8($aTxt);
        } elseif ($aFF === FF_CHINESE) {
            if (!function_exists('iconv')) {
                JpGraphError::RaiseL(25006);
                //('Usage of FF_CHINESE (FF_BIG5) font family requires that your PHP setup has the iconv() function. By default this is not compiled into PHP (needs the "--width-iconv" when configured).');
            }
            return iconv('BIG5', 'UTF-8', $aTxt);
        } elseif (ASSUME_EUCJP_ENCODING &&
        ($aFF == FF_MINCHO || $aFF == FF_GOTHIC || $aFF == FF_PMINCHO || $aFF == FF_PGOTHIC)) {
            if (!function_exists('mb_convert_encoding')) {
                JpGraphError::RaiseL(25127);
            }
            return mb_convert_encoding($aTxt, 'UTF-8', 'EUC-JP');
        } elseif ($aFF == FF_DAVID || $aFF == FF_MIRIAM || $aFF == FF_AHRON) {
            return LanguageConv::heb_iso2uni($aTxt);
        } else {
            return $aTxt;
        }
    }

    // Translate iso encoding to unicode
    public static function iso2uni($isoline)
    {
        $uniline='';
        for ($i=0; $i < strlen($isoline); $i++) {
            $thischar=substr($isoline, $i, 1);
            $charcode=ord($thischar);
            $uniline.=($charcode>175) ? "&#" . (1040+($charcode-176)). ";" : $thischar;
        }
        return $uniline;
    }

    // Translate greek iso encoding to unicode
    public static function gr_iso2uni($isoline)
    {
        $uniline='';
        for ($i=0; $i < strlen($isoline); $i++) {
            $thischar=substr($isoline, $i, 1);
            $charcode=ord($thischar);
            $uniline.=($charcode>179 && $charcode!=183 && $charcode!=187 && $charcode!=189) ? "&#" . (900+($charcode-180)). ";" : $thischar;
        }
        return $uniline;
    }

    // Translate greek win encoding to unicode
    public static function gr_win2uni($winline)
    {
        $uniline='';
        for ($i=0; $i < strlen($winline); $i++) {
            $thischar=substr($winline, $i, 1);
            $charcode=ord($thischar);
            if ($charcode==161 || $charcode==162) {
                $uniline.="&#" . (740+$charcode). ";";
            } else {
                $uniline.=(($charcode>183 && $charcode!=187 && $charcode!=189) || $charcode==180) ? "&#" . (900+($charcode-180)). ";" : $thischar;
            }
        }
        return $uniline;
    }

    public static function heb_iso2uni($isoline)
    {
        $isoline = hebrev($isoline);
        $o = '';

        $n = strlen($isoline);
        for ($i=0; $i < $n; $i++) {
            $c=ord(substr($isoline, $i, 1));
            $o .= ($c > 223) && ($c < 251) ? '&#'.(1264+$c).';' : chr($c);
        }
        return utf8_encode($o);
    }
}

//=============================================================
// CLASS TTF
// Description: Handle TTF font names and mapping and loading of
//              font files
//=============================================================
class TTF
{
    private $font_files;
    private $style_names;

    //---------------
    // CONSTRUCTOR
    public function TTF()
    {

    // String names for font styles to be used in error messages
        $this->style_names=array(FS_NORMAL	=>'normal',
                 FS_BOLD	=>'bold',
                 FS_ITALIC	=>'italic',
                 FS_BOLDITALIC	=>'bolditalic');

        // File names for available fonts
        $this->font_files=array(
        FF_COURIER => array(FS_NORMAL	=>'cour.ttf',
                FS_BOLD		=>'courbd.ttf',
                FS_ITALIC	=>'couri.ttf',
                FS_BOLDITALIC	=>'courbi.ttf' ),
        FF_GEORGIA => array(FS_NORMAL	=>'georgia.ttf',
                FS_BOLD		=>'georgiab.ttf',
                FS_ITALIC	=>'georgiai.ttf',
                FS_BOLDITALIC	=>'' ),
        FF_TREBUCHE	=>array(FS_NORMAL	=>'trebuc.ttf',
                FS_BOLD		=>'trebucbd.ttf',
                FS_ITALIC	=>'trebucit.ttf',
                FS_BOLDITALIC	=>'trebucbi.ttf' ),
        FF_VERDANA 	=> array(FS_NORMAL	=>'verdana.ttf',
                FS_BOLD		=>'verdanab.ttf',
                FS_ITALIC	=>'verdanai.ttf',
                FS_BOLDITALIC	=>'' ),
        FF_TIMES =>   array(FS_NORMAL	=>'times.ttf',
                FS_BOLD		=>'timesbd.ttf',
                FS_ITALIC	=>'timesi.ttf',
                FS_BOLDITALIC	=>'timesbi.ttf' ),
        FF_COMIC =>   array(FS_NORMAL	=>'comic.ttf',
                FS_BOLD		=>'comicbd.ttf',
                FS_ITALIC	=>'',
                FS_BOLDITALIC	=>'' ),
        FF_ARIAL =>   array(FS_NORMAL	=>'arial.ttf',
                FS_BOLD		=>'arialbd.ttf',
                FS_ITALIC	=>'ariali.ttf',
                FS_BOLDITALIC	=>'arialbi.ttf' ) ,
        FF_VERA =>    array(FS_NORMAL	=>'Vera.ttf',
                FS_BOLD		=>'VeraBd.ttf',
                FS_ITALIC	=>'VeraIt.ttf',
                FS_BOLDITALIC	=>'VeraBI.ttf' ),
        FF_VERAMONO	=> array(FS_NORMAL	=>'VeraMono.ttf',
                 FS_BOLD	=>'VeraMoBd.ttf',
                 FS_ITALIC	=>'VeraMoIt.ttf',
                 FS_BOLDITALIC	=>'VeraMoBI.ttf' ),
        FF_VERASERIF=> array(FS_NORMAL	=>'VeraSe.ttf',
                  FS_BOLD	=>'VeraSeBd.ttf',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ) ,

        /* Chinese fonts */
        FF_SIMSUN 	=>  array(FS_NORMAL	=>'simsun.ttc',
                  FS_BOLD	=>'simhei.ttf',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_CHINESE 	=>   array(FS_NORMAL	=>CHINESE_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),

        /* Japanese fonts */
        FF_MINCHO 	=>  array(FS_NORMAL	=>MINCHO_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_PMINCHO 	=>  array(FS_NORMAL	=>PMINCHO_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_GOTHIC  	=>  array(FS_NORMAL	=>GOTHIC_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_PGOTHIC 	=>  array(FS_NORMAL	=>PGOTHIC_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_MINCHO 	=>  array(FS_NORMAL	=>PMINCHO_TTF_FONT,
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),

        /* Hebrew fonts */
        FF_DAVID 	=>  array(FS_NORMAL	=>'DAVIDNEW.TTF',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),

        FF_MIRIAM 	=>  array(FS_NORMAL	=>'MRIAMY.TTF',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),

        FF_AHRON 	=>  array(FS_NORMAL	=>'ahronbd.ttf',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),

        /* Misc fonts */
        FF_DIGITAL =>   array(FS_NORMAL	=>'DIGIRU__.TTF',
                  FS_BOLD	=>'Digirtu_.ttf',
                  FS_ITALIC	=>'Digir___.ttf',
                  FS_BOLDITALIC	=>'DIGIRT__.TTF' ),
        FF_SPEEDO =>    array(FS_NORMAL	=>'Speedo.ttf',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_COMPUTER  =>  array(FS_NORMAL	=>'COMPUTER.TTF',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        FF_CALCULATOR => array(FS_NORMAL	=>'Triad_xs.ttf',
                  FS_BOLD	=>'',
                  FS_ITALIC	=>'',
                  FS_BOLDITALIC	=>'' ),
        );
    }

    //---------------
    // PUBLIC METHODS
    // Create the TTF file from the font specification
    public function File($family, $style=FS_NORMAL)
    {
        $fam = @$this->font_files[$family];
        if (!$fam) {
            JpGraphError::RaiseL(25046, $family);//("Specified TTF font family (id=$family) is unknown or does not exist. Please note that TTF fonts are not distributed with JpGraph for copyright reasons. You can find the MS TTF WEB-fonts (arial, courier etc) for download at http://corefonts.sourceforge.net/");
        }
        $f = @$fam[$style];

        if ($f==='') {
            JpGraphError::RaiseL(25047, $this->style_names[$style], $this->font_files[$family][FS_NORMAL]);
        }//('Style "'.$this->style_names[$style].'" is not available for font family '.$this->font_files[$family][FS_NORMAL].'.');
        if (!$f) {
            JpGraphError::RaiseL(25048, $fam);//("Unknown font style specification [$fam].");
        }

        if ($family >= FF_MINCHO && $family <= FF_PGOTHIC) {
            $f = MBTTF_DIR.$f;
        } else {
            $f = TTF_DIR.$f;
        }

        if (file_exists($f) === false || is_readable($f) === false) {
            JpGraphError::RaiseL(25049, $f);//("Font file \"$f\" is not readable or does not exist.");
        }
        return $f;
    }
} // Class