src/mgl/fontutil.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/mgl/fontutil.cpp
// Purpose:     Font helper functions for MGL
// Author:      Vaclav Slavik
// Created:     2001/04/29
// RCS-ID:      $Id$
// Copyright:   (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#include "wx/log.h"
#include "wx/fontutil.h"
#include "wx/encinfo.h"
#include "wx/fontmap.h"
#include "wx/tokenzr.h"
#include "wx/hash.h"

#include "wx/listimpl.cpp"
#include "wx/sysopt.h"
#include "wx/mgl/private.h"

#include <mgraph.h>

// ============================================================================
// implementation
// ============================================================================

// ----------------------------------------------------------------------------
// wxNativeEncodingInfo
// ----------------------------------------------------------------------------

// convert to/from the string representation: format is
//      encoding[;facename]
bool wxNativeEncodingInfo::FromString(const wxString& s)
{
    wxStringTokenizer tokenizer(s, _T(";"));

    wxString encid = tokenizer.GetNextToken();
    long enc;
    if ( !encid.ToLong(&enc) )
        return false;
    encoding = (wxFontEncoding)enc;

    // ok even if empty
    facename = tokenizer.GetNextToken();

    return true;
}

wxString wxNativeEncodingInfo::ToString() const
{
    wxString s;
    s << (long)encoding;
    if ( !facename.empty() )
    {
        s << _T(';') << facename;
    }

    return s;
}

// ----------------------------------------------------------------------------
// common functions
// ----------------------------------------------------------------------------

bool wxGetNativeFontEncoding(wxFontEncoding encoding,
                             wxNativeEncodingInfo *info)
{
    wxCHECK_MSG( info, false, _T("bad pointer in wxGetNativeFontEncoding") );

    if ( encoding == wxFONTENCODING_DEFAULT )
    {
        encoding = wxFont::GetDefaultEncoding();
    }

    switch ( encoding )
    {
        case wxFONTENCODING_ISO8859_1:
        case wxFONTENCODING_ISO8859_2:
        case wxFONTENCODING_ISO8859_3:
        case wxFONTENCODING_ISO8859_4:
        case wxFONTENCODING_ISO8859_5:
        case wxFONTENCODING_ISO8859_6:
        case wxFONTENCODING_ISO8859_7:
        case wxFONTENCODING_ISO8859_8:
        case wxFONTENCODING_ISO8859_9:
        case wxFONTENCODING_ISO8859_10:
        case wxFONTENCODING_ISO8859_11:
        case wxFONTENCODING_ISO8859_13:
        case wxFONTENCODING_ISO8859_14:
        case wxFONTENCODING_ISO8859_15:
            info->mglEncoding = MGL_ENCODING_ISO8859_1 +
                                (encoding - wxFONTENCODING_ISO8859_1);
            break;

        case wxFONTENCODING_KOI8:
            info->mglEncoding = MGL_ENCODING_KOI8;
            break;

        case wxFONTENCODING_CP1250:
        case wxFONTENCODING_CP1251:
        case wxFONTENCODING_CP1252:
        case wxFONTENCODING_CP1253:
        case wxFONTENCODING_CP1254:
        case wxFONTENCODING_CP1255:
        case wxFONTENCODING_CP1256:
        case wxFONTENCODING_CP1257:
            info->mglEncoding = MGL_ENCODING_CP1250 +
                                (encoding - wxFONTENCODING_CP1250);
            break;

        case wxFONTENCODING_SYSTEM:
            info->mglEncoding = MGL_ENCODING_ASCII;
            break;

        default:
            // encoding not known to MGL
            return false;
    }

    info->encoding = encoding;

    return true;
}

bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
{
    if ( !info.facename )
        return true;

    wxMGLFontFamily *family = wxTheFontsManager->GetFamily(info.facename);
    if ( !family )
        return false;
    if ( family->GetInfo()->fontLibType == MGL_BITMAPFONT_LIB )
        return (info.mglEncoding == MGL_ENCODING_ASCII ||
                info.mglEncoding == MGL_ENCODING_ISO8859_1 ||
                info.mglEncoding == MGL_ENCODING_ISO8859_15 ||
                info.mglEncoding == MGL_ENCODING_CP1252);
    else
        return true;
}


// ----------------------------------------------------------------------------
// wxFontFamily, wxMGLFontInstance, wxMGLFontLibrary
// ----------------------------------------------------------------------------

WX_DECLARE_LIST(wxMGLFontInstance, wxMGLFontInstanceList);
WX_DEFINE_LIST(wxMGLFontInstanceList)
WX_DEFINE_LIST(wxMGLFontFamilyList)

wxMGLFontInstance::wxMGLFontInstance(wxMGLFontLibrary *fontLib,
                                     float pt, bool slant, bool aa)
{
    m_fontLib = fontLib;
    m_font = NULL;
    m_pt = pt;
    m_slant = slant;
    m_aa = aa;

    float slantAngle = m_slant ? 15.0 : 0.0;

    wxLogTrace("mgl_font", "loading instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
    m_font = MGL_loadFontInstance(m_fontLib->GetMGLfont_lib_t(),
                                  m_pt, slantAngle, 0.0, aa);
    wxASSERT_MSG( m_font, wxT("Cannot create font instance.") );
}

wxMGLFontInstance::~wxMGLFontInstance()
{
    wxLogTrace("mgl_font", "unloading instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
    if ( m_font )
        MGL_unloadFontInstance(m_font);
}

wxMGLFontLibrary::wxMGLFontLibrary(const wxString& filename, int type,
                                   wxMGLFontFamily *parentFamily)
{
    m_family = parentFamily;
    m_type = type;
    m_fileName = filename;
    m_refs = 0;
    m_fontLib = NULL;

    m_instances = new wxMGLFontInstanceList;
    m_instances->DeleteContents(true);
}

wxMGLFontLibrary::~wxMGLFontLibrary()
{
    wxLogTrace("mgl_font", "font library dtor '%s'", m_fileName.mb_str());
    delete m_instances;
}

void wxMGLFontLibrary::IncRef()
{
    wxLogTrace("mgl_font", "incRef(%u) '%s'", m_refs, m_fileName.c_str());
    if ( m_refs++ == 0 )
    {
        wxLogTrace("mgl_font", "opening library '%s'", m_fileName.mb_str());
        m_fontLib = MGL_openFontLib(m_fileName.mb_str());
    }
}

void wxMGLFontLibrary::DecRef()
{
    wxLogTrace("mgl_font", "decRef(%u) '%s'", m_refs, m_fileName.c_str());
    if ( --m_refs == 0 )
    {
        wxLogTrace("mgl_font", "killing instances of '%s'", m_fileName.mb_str());
        m_instances->Clear();
        wxLogTrace("mgl_font", "closing library '%s'", m_fileName.mb_str());
        MGL_closeFontLib(m_fontLib);
        m_fontLib = NULL;
    }
}

static int gs_antialiasingThreshold = -1;

wxMGLFontInstance *wxMGLFontLibrary::GetFontInstance(wxFont *font,
                                                     float scale, bool aa)
{
    wxASSERT_MSG(m_refs > 0 && m_fontLib, wxT("font library not loaded!"));

    wxString facename;
    float pt = (float)font->GetPointSize() * scale;

    if ( gs_antialiasingThreshold == -1 )
    {
        gs_antialiasingThreshold = 10;
#if wxUSE_SYSTEM_OPTIONS
        if ( wxSystemOptions::HasOption(wxT("mgl.aa-threshold")) )
            gs_antialiasingThreshold =
                wxSystemOptions::GetOptionInt(wxT("mgl.aa-threshold"));
        wxLogTrace("mgl_font", "AA threshold set to %i", gs_antialiasingThreshold);
#endif
    }

    // Small characters don't look good when antialiased with the algorithm
    // that FreeType uses (mere 2x2 supersampling), so lets disable it AA
    // completely for small fonts.
    bool antialiased = false;
    if (( pt > gs_antialiasingThreshold ) &&
        ( m_fontLib->fontLibType != MGL_BITMAPFONT_LIB ) )
        antialiased = aa;

    bool slant = (((m_type & wxFONTFACE_ITALIC) == 0) &&
             (font->GetStyle() == wxSLANT || font->GetStyle() == wxITALIC));

    // FIXME_MGL -- MGL does not yet support slant, although the API is there
    slant = false;

    wxLogTrace("mgl_font", "requested instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fileName.mb_str(), slant, pt, antialiased);

    wxMGLFontInstance *i;
    wxMGLFontInstanceList::Node *node;

    for (node = m_instances->GetFirst(); node; node = node->GetNext())
    {
        i = node->GetData();
        if ( i->GetPt() == pt && i->GetSlant() == slant &&
             i->GetAA() == antialiased )
        {
            wxLogTrace("mgl_font", "    got from cache: slant=%i pt=%0.1f aa=%i",
                       i->GetSlant(), i->GetPt(), i->GetAA());
            return i;
        }
    }

    i = new wxMGLFontInstance(this, pt, slant, antialiased);
    m_instances->Append(i);
    return i;
}


wxMGLFontFamily::wxMGLFontFamily(const font_info_t *info)
{
    m_name = info->familyName;
    m_fontInfo = info;

    if ( info->regularFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_REGULAR] = NULL;
    else
        m_fontLibs[wxFONTFACE_REGULAR] =
            new wxMGLFontLibrary(info->regularFace, wxFONTFACE_REGULAR, this);

    if ( info->italicFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_ITALIC] = NULL;
    else
        m_fontLibs[wxFONTFACE_ITALIC] =
            new wxMGLFontLibrary(info->italicFace, wxFONTFACE_ITALIC, this);

    if ( info->boldFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_BOLD] = NULL;
    else
        m_fontLibs[wxFONTFACE_BOLD] =
            new wxMGLFontLibrary(info->boldFace, wxFONTFACE_BOLD, this);

    if ( info->boldItalicFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_BOLD_ITALIC] = NULL;
    else
        m_fontLibs[wxFONTFACE_BOLD_ITALIC] =
            new wxMGLFontLibrary(info->boldItalicFace, wxFONTFACE_BOLD_ITALIC, this);

    wxLogTrace("mgl_font", "new family '%s' (r=%s, i=%s, b=%s, bi=%s)\n",
               info->familyName, info->regularFace, info->italicFace,
               info->boldFace, info->boldItalicFace);
}

wxMGLFontFamily::~wxMGLFontFamily()
{
    for (size_t i = 0; i < wxFONTFACE_MAX; i++)
        delete m_fontLibs[i];
}

bool wxMGLFontFamily::HasFace(int type) const
{
    return (m_fontLibs[type] != NULL);
}


// ----------------------------------------------------------------------------
// wxFontsManager
// ----------------------------------------------------------------------------

wxMGLFontLibrary *wxFontsManager::GetFontLibrary(wxFont *font)
{
    wxMGLFontFamily *family;
    int type;
    wxString facename = font->GetFaceName();

    if ( !facename.empty() )
        family = GetFamily(facename);
    else
        family = NULL;

    if ( !family )
    {
        facename.Empty();
        switch (font->GetFamily())
        {
            case wxSCRIPT:
                facename = wxT("Script");
                break;
            case wxDECORATIVE:
                facename = wxT("Charter");
                break;
            case wxROMAN:
                facename = wxT("Times");
                break;
            case wxTELETYPE:
            case wxMODERN:
                facename = wxT("Courier");
                break;
            case wxSWISS:
                facename = wxT("Helvetica");
                break;
            case wxDEFAULT:
            default:
                facename = wxT("Helvetica");
                break;
        }

        family = GetFamily(facename);
        if ( !family )
        {
           if ( m_list->GetFirst() )
               family = m_list->GetFirst()->GetData();
           else
               wxFAIL_MSG(wxT("Fatal error, no fonts available!"));
        }
    }

    type = wxFONTFACE_REGULAR;

    if ( font->GetWeight() == wxBOLD )
        type |= wxFONTFACE_BOLD;

    // FIXME_MGL -- this should read "if ( font->GetStyle() == wxITALIC )",
    // but since MGL does not yet support slant, we try to display it with
    // italic face (better than nothing...)
    if ( font->GetStyle() == wxITALIC || font->GetStyle() == wxSLANT )
    {
        if ( family->HasFace(type | wxFONTFACE_ITALIC) )
            type |= wxFONTFACE_ITALIC;
    }
    if ( !family->HasFace(type) )
    {
        for (int i = 0; i < wxFONTFACE_MAX; i++)
            if ( family->HasFace(i) )
            {
                type = i;
                break;
            }
    }

    return family->GetLibrary(type);
}

static ibool MGLAPI enum_callback(const font_info_t *info, void *cookie)
{
    wxFontsManager *db = (wxFontsManager*)cookie;
    db->AddFamily(info);
    return TRUE;
}

wxFontsManager::wxFontsManager()
{
    m_hash = new wxHashTable(wxKEY_STRING);
    m_hash->DeleteContents(false);
    m_list = new wxMGLFontFamilyList;
    m_list->DeleteContents(true);
    MGL_enumerateFonts(enum_callback, (void*)this);
}

wxFontsManager::~wxFontsManager()
{
    delete m_hash;
    delete m_list;
}

void wxFontsManager::AddFamily(const font_info_t *info)
{
    wxMGLFontFamily *f = new wxMGLFontFamily(info);
    m_hash->Put(f->GetName().Lower(), f);
    m_list->Append(f);
}

wxMGLFontFamily *wxFontsManager::GetFamily(const wxString& name) const
{
    return (wxMGLFontFamily*)m_hash->Get(name.Lower());
}


wxFontsManager *wxTheFontsManager = NULL;
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: src/mgl/fontutil.cpp
	3	// Purpose: Font helper functions for MGL
	4	// Author: Vaclav Slavik
	5	// Created: 2001/04/29
	6	// RCS-ID: $Id$
	7	// Copyright: (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
	8	// Licence: wxWindows licence
	9	/////////////////////////////////////////////////////////////////////////////
	10
	11	// For compilers that support precompilation, includes "wx.h".
	12	#include "wx/wxprec.h"
	13
	14	#ifdef __BORLANDC__
	15	#pragma hdrstop
	16	#endif
	17
	18	#include "wx/log.h"
	19	#include "wx/fontutil.h"
	20	#include "wx/encinfo.h"
	21	#include "wx/fontmap.h"
	22	#include "wx/tokenzr.h"
	23	#include "wx/hash.h"
	24
	25	#include "wx/listimpl.cpp"
	26	#include "wx/sysopt.h"
	27	#include "wx/mgl/private.h"
	28
	29	#include <mgraph.h>
	30
	31	// ============================================================================
	32	// implementation
	33	// ============================================================================
	34
	35	// ----------------------------------------------------------------------------
	36	// wxNativeEncodingInfo
	37	// ----------------------------------------------------------------------------
	38
	39	// convert to/from the string representation: format is
	40	// encoding[;facename]
	41	bool wxNativeEncodingInfo::FromString(const wxString& s)
	42	{
	43	wxStringTokenizer tokenizer(s, _T(";"));
	44
	45	wxString encid = tokenizer.GetNextToken();
	46	long enc;
	47	if ( !encid.ToLong(&enc) )
	48	return false;
	49	encoding = (wxFontEncoding)enc;
	50
	51	// ok even if empty
	52	facename = tokenizer.GetNextToken();
	53
	54	return true;
	55	}
	56
	57	wxString wxNativeEncodingInfo::ToString() const
	58	{
	59	wxString s;
	60	s << (long)encoding;
	61	if ( !facename.empty() )
	62	{
	63	s << _T(';') << facename;
	64	}
	65
	66	return s;
	67	}
	68
	69	// ----------------------------------------------------------------------------
	70	// common functions
	71	// ----------------------------------------------------------------------------
	72
	73	bool wxGetNativeFontEncoding(wxFontEncoding encoding,
	74	wxNativeEncodingInfo *info)
	75	{
	76	wxCHECK_MSG( info, false, _T("bad pointer in wxGetNativeFontEncoding") );
	77
	78	if ( encoding == wxFONTENCODING_DEFAULT )
	79	{
	80	encoding = wxFont::GetDefaultEncoding();
	81	}
	82
	83	switch ( encoding )
	84	{
	85	case wxFONTENCODING_ISO8859_1:
	86	case wxFONTENCODING_ISO8859_2:
	87	case wxFONTENCODING_ISO8859_3:
	88	case wxFONTENCODING_ISO8859_4:
	89	case wxFONTENCODING_ISO8859_5:
	90	case wxFONTENCODING_ISO8859_6:
	91	case wxFONTENCODING_ISO8859_7:
	92	case wxFONTENCODING_ISO8859_8:
	93	case wxFONTENCODING_ISO8859_9:
	94	case wxFONTENCODING_ISO8859_10:
	95	case wxFONTENCODING_ISO8859_11:
	96	case wxFONTENCODING_ISO8859_13:
	97	case wxFONTENCODING_ISO8859_14:
	98	case wxFONTENCODING_ISO8859_15:
	99	info->mglEncoding = MGL_ENCODING_ISO8859_1 +
	100	(encoding - wxFONTENCODING_ISO8859_1);
	101	break;
	102
	103	case wxFONTENCODING_KOI8:
	104	info->mglEncoding = MGL_ENCODING_KOI8;
	105	break;
	106
	107	case wxFONTENCODING_CP1250:
	108	case wxFONTENCODING_CP1251:
	109	case wxFONTENCODING_CP1252:
	110	case wxFONTENCODING_CP1253:
	111	case wxFONTENCODING_CP1254:
	112	case wxFONTENCODING_CP1255:
	113	case wxFONTENCODING_CP1256:
	114	case wxFONTENCODING_CP1257:
	115	info->mglEncoding = MGL_ENCODING_CP1250 +
	116	(encoding - wxFONTENCODING_CP1250);
	117	break;
	118
	119	case wxFONTENCODING_SYSTEM:
	120	info->mglEncoding = MGL_ENCODING_ASCII;
	121	break;
	122
	123	default:
	124	// encoding not known to MGL
	125	return false;
	126	}
	127
	128	info->encoding = encoding;
	129
	130	return true;
	131	}
	132
	133	bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
	134	{
	135	if ( !info.facename )
	136	return true;
	137
	138	wxMGLFontFamily *family = wxTheFontsManager->GetFamily(info.facename);
	139	if ( !family )
	140	return false;
	141	if ( family->GetInfo()->fontLibType == MGL_BITMAPFONT_LIB )
	142	return (info.mglEncoding == MGL_ENCODING_ASCII \|\|
	143	info.mglEncoding == MGL_ENCODING_ISO8859_1 \|\|
	144	info.mglEncoding == MGL_ENCODING_ISO8859_15 \|\|
	145	info.mglEncoding == MGL_ENCODING_CP1252);
	146	else
	147	return true;
	148	}
	149
	150
	151	// ----------------------------------------------------------------------------
	152	// wxFontFamily, wxMGLFontInstance, wxMGLFontLibrary
	153	// ----------------------------------------------------------------------------
	154
	155	WX_DECLARE_LIST(wxMGLFontInstance, wxMGLFontInstanceList);
	156	WX_DEFINE_LIST(wxMGLFontInstanceList)
	157	WX_DEFINE_LIST(wxMGLFontFamilyList)
	158
	159	wxMGLFontInstance::wxMGLFontInstance(wxMGLFontLibrary *fontLib,
	160	float pt, bool slant, bool aa)
	161	{
	162	m_fontLib = fontLib;
	163	m_font = NULL;
	164	m_pt = pt;
	165	m_slant = slant;
	166	m_aa = aa;
	167
	168	float slantAngle = m_slant ? 15.0 : 0.0;
	169
	170	wxLogTrace("mgl_font", "loading instance of '%s' slant=%i pt=%0.1f aa=%i",
	171	m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
	172	m_font = MGL_loadFontInstance(m_fontLib->GetMGLfont_lib_t(),
	173	m_pt, slantAngle, 0.0, aa);
	174	wxASSERT_MSG( m_font, wxT("Cannot create font instance.") );
	175	}
	176
	177	wxMGLFontInstance::~wxMGLFontInstance()
	178	{
	179	wxLogTrace("mgl_font", "unloading instance of '%s' slant=%i pt=%0.1f aa=%i",
	180	m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
	181	if ( m_font )
	182	MGL_unloadFontInstance(m_font);
	183	}
	184
	185	wxMGLFontLibrary::wxMGLFontLibrary(const wxString& filename, int type,
	186	wxMGLFontFamily *parentFamily)
	187	{
	188	m_family = parentFamily;
	189	m_type = type;
	190	m_fileName = filename;
	191	m_refs = 0;
	192	m_fontLib = NULL;
	193
	194	m_instances = new wxMGLFontInstanceList;
	195	m_instances->DeleteContents(true);
	196	}
	197
	198	wxMGLFontLibrary::~wxMGLFontLibrary()
	199	{
	200	wxLogTrace("mgl_font", "font library dtor '%s'", m_fileName.mb_str());
	201	delete m_instances;
	202	}
	203
	204	void wxMGLFontLibrary::IncRef()
	205	{
	206	wxLogTrace("mgl_font", "incRef(%u) '%s'", m_refs, m_fileName.c_str());
	207	if ( m_refs++ == 0 )
	208	{
	209	wxLogTrace("mgl_font", "opening library '%s'", m_fileName.mb_str());
	210	m_fontLib = MGL_openFontLib(m_fileName.mb_str());
	211	}
	212	}
	213
	214	void wxMGLFontLibrary::DecRef()
	215	{
	216	wxLogTrace("mgl_font", "decRef(%u) '%s'", m_refs, m_fileName.c_str());
	217	if ( --m_refs == 0 )
	218	{
	219	wxLogTrace("mgl_font", "killing instances of '%s'", m_fileName.mb_str());
	220	m_instances->Clear();
	221	wxLogTrace("mgl_font", "closing library '%s'", m_fileName.mb_str());
	222	MGL_closeFontLib(m_fontLib);
	223	m_fontLib = NULL;
	224	}
	225	}
	226
	227	static int gs_antialiasingThreshold = -1;
	228
	229	wxMGLFontInstance wxMGLFontLibrary::GetFontInstance(wxFont font,
	230	float scale, bool aa)
	231	{
	232	wxASSERT_MSG(m_refs > 0 && m_fontLib, wxT("font library not loaded!"));
	233
	234	wxString facename;
	235	float pt = (float)font->GetPointSize() * scale;
	236
	237	if ( gs_antialiasingThreshold == -1 )
	238	{
	239	gs_antialiasingThreshold = 10;
	240	#if wxUSE_SYSTEM_OPTIONS
	241	if ( wxSystemOptions::HasOption(wxT("mgl.aa-threshold")) )
	242	gs_antialiasingThreshold =
	243	wxSystemOptions::GetOptionInt(wxT("mgl.aa-threshold"));
	244	wxLogTrace("mgl_font", "AA threshold set to %i", gs_antialiasingThreshold);
	245	#endif
	246	}
	247
	248	// Small characters don't look good when antialiased with the algorithm
	249	// that FreeType uses (mere 2x2 supersampling), so lets disable it AA
	250	// completely for small fonts.
	251	bool antialiased = false;
	252	if (( pt > gs_antialiasingThreshold ) &&
	253	( m_fontLib->fontLibType != MGL_BITMAPFONT_LIB ) )
	254	antialiased = aa;
	255
	256	bool slant = (((m_type & wxFONTFACE_ITALIC) == 0) &&
	257	(font->GetStyle() == wxSLANT \|\| font->GetStyle() == wxITALIC));
	258
	259	// FIXME_MGL -- MGL does not yet support slant, although the API is there
	260	slant = false;
	261
	262	wxLogTrace("mgl_font", "requested instance of '%s' slant=%i pt=%0.1f aa=%i",
	263	m_fileName.mb_str(), slant, pt, antialiased);
	264
	265	wxMGLFontInstance *i;
	266	wxMGLFontInstanceList::Node *node;
	267
	268	for (node = m_instances->GetFirst(); node; node = node->GetNext())
	269	{
	270	i = node->GetData();
	271	if ( i->GetPt() == pt && i->GetSlant() == slant &&
	272	i->GetAA() == antialiased )
	273	{
	274	wxLogTrace("mgl_font", " got from cache: slant=%i pt=%0.1f aa=%i",
	275	i->GetSlant(), i->GetPt(), i->GetAA());
	276	return i;
	277	}
	278	}
	279
	280	i = new wxMGLFontInstance(this, pt, slant, antialiased);
	281	m_instances->Append(i);
	282	return i;
	283	}
	284
	285
	286	wxMGLFontFamily::wxMGLFontFamily(const font_info_t *info)
	287	{
	288	m_name = info->familyName;
	289	m_fontInfo = info;
	290
	291	if ( info->regularFace[0] == '\0' )
	292	m_fontLibs[wxFONTFACE_REGULAR] = NULL;
	293	else
	294	m_fontLibs[wxFONTFACE_REGULAR] =
	295	new wxMGLFontLibrary(info->regularFace, wxFONTFACE_REGULAR, this);
	296
	297	if ( info->italicFace[0] == '\0' )
	298	m_fontLibs[wxFONTFACE_ITALIC] = NULL;
	299	else
	300	m_fontLibs[wxFONTFACE_ITALIC] =
	301	new wxMGLFontLibrary(info->italicFace, wxFONTFACE_ITALIC, this);
	302
	303	if ( info->boldFace[0] == '\0' )
	304	m_fontLibs[wxFONTFACE_BOLD] = NULL;
	305	else
	306	m_fontLibs[wxFONTFACE_BOLD] =
	307	new wxMGLFontLibrary(info->boldFace, wxFONTFACE_BOLD, this);
	308
	309	if ( info->boldItalicFace[0] == '\0' )
	310	m_fontLibs[wxFONTFACE_BOLD_ITALIC] = NULL;
	311	else
	312	m_fontLibs[wxFONTFACE_BOLD_ITALIC] =
	313	new wxMGLFontLibrary(info->boldItalicFace, wxFONTFACE_BOLD_ITALIC, this);
	314
	315	wxLogTrace("mgl_font", "new family '%s' (r=%s, i=%s, b=%s, bi=%s)\n",
	316	info->familyName, info->regularFace, info->italicFace,
	317	info->boldFace, info->boldItalicFace);
	318	}
	319
	320	wxMGLFontFamily::~wxMGLFontFamily()
	321	{
	322	for (size_t i = 0; i < wxFONTFACE_MAX; i++)
	323	delete m_fontLibs[i];
	324	}
	325
	326	bool wxMGLFontFamily::HasFace(int type) const
	327	{
	328	return (m_fontLibs[type] != NULL);
	329	}
	330
	331
	332	// ----------------------------------------------------------------------------
	333	// wxFontsManager
	334	// ----------------------------------------------------------------------------
	335
	336	wxMGLFontLibrary wxFontsManager::GetFontLibrary(wxFont font)
	337	{
	338	wxMGLFontFamily *family;
	339	int type;
	340	wxString facename = font->GetFaceName();
	341
	342	if ( !facename.empty() )
	343	family = GetFamily(facename);
	344	else
	345	family = NULL;
	346
	347	if ( !family )
	348	{
	349	facename.Empty();
	350	switch (font->GetFamily())
	351	{
	352	case wxSCRIPT:
	353	facename = wxT("Script");
	354	break;
	355	case wxDECORATIVE:
	356	facename = wxT("Charter");
	357	break;
	358	case wxROMAN:
	359	facename = wxT("Times");
	360	break;
	361	case wxTELETYPE:
	362	case wxMODERN:
	363	facename = wxT("Courier");
	364	break;
	365	case wxSWISS:
	366	facename = wxT("Helvetica");
	367	break;
	368	case wxDEFAULT:
	369	default:
	370	facename = wxT("Helvetica");
	371	break;
	372	}
	373
	374	family = GetFamily(facename);
	375	if ( !family )
	376	{
	377	if ( m_list->GetFirst() )
	378	family = m_list->GetFirst()->GetData();
	379	else
	380	wxFAIL_MSG(wxT("Fatal error, no fonts available!"));
	381	}
	382	}
	383
	384	type = wxFONTFACE_REGULAR;
	385
	386	if ( font->GetWeight() == wxBOLD )
	387	type \|= wxFONTFACE_BOLD;
	388
	389	// FIXME_MGL -- this should read "if ( font->GetStyle() == wxITALIC )",
	390	// but since MGL does not yet support slant, we try to display it with
	391	// italic face (better than nothing...)
	392	if ( font->GetStyle() == wxITALIC \|\| font->GetStyle() == wxSLANT )
	393	{
	394	if ( family->HasFace(type \| wxFONTFACE_ITALIC) )
	395	type \|= wxFONTFACE_ITALIC;
	396	}
	397	if ( !family->HasFace(type) )
	398	{
	399	for (int i = 0; i < wxFONTFACE_MAX; i++)
	400	if ( family->HasFace(i) )
	401	{
	402	type = i;
	403	break;
	404	}
	405	}
	406
	407	return family->GetLibrary(type);
	408	}
	409
	410	static ibool MGLAPI enum_callback(const font_info_t info, void cookie)
	411	{
	412	wxFontsManager db = (wxFontsManager)cookie;
	413	db->AddFamily(info);
	414	return TRUE;
	415	}
	416
	417	wxFontsManager::wxFontsManager()
	418	{
	419	m_hash = new wxHashTable(wxKEY_STRING);
	420	m_hash->DeleteContents(false);
	421	m_list = new wxMGLFontFamilyList;
	422	m_list->DeleteContents(true);
	423	MGL_enumerateFonts(enum_callback, (void*)this);
	424	}
	425
	426	wxFontsManager::~wxFontsManager()
	427	{
	428	delete m_hash;
	429	delete m_list;
	430	}
	431
	432	void wxFontsManager::AddFamily(const font_info_t *info)
	433	{
	434	wxMGLFontFamily *f = new wxMGLFontFamily(info);
	435	m_hash->Put(f->GetName().Lower(), f);
	436	m_list->Append(f);
	437	}
	438
	439	wxMGLFontFamily *wxFontsManager::GetFamily(const wxString& name) const
	440	{
	441	return (wxMGLFontFamily*)m_hash->Get(name.Lower());
	442	}
	443
	444
	445	wxFontsManager *wxTheFontsManager = NULL;