dlls/dwrite/freetype.c - wine - Git at Google

 /*
  *    FreeType integration
  *
  * Copyright 2014 Nikolay Sivov for CodeWeavers
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * This library is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  */

 #define COBJMACROS

 #include "config.h"
 #include "wine/port.h"

 #ifdef HAVE_FT2BUILD_H
 #include <ft2build.h>
 #include FT_CACHE_H
 #include FT_FREETYPE_H
 #include FT_OUTLINE_H
 #endif /* HAVE_FT2BUILD_H */

 #include "windef.h"
 #include "dwrite_2.h"
 #include "wine/library.h"
 #include "wine/debug.h"

 #include "dwrite_private.h"

 WINE_DEFAULT_DEBUG_CHANNEL(dwrite);

 #ifdef HAVE_FREETYPE

 static CRITICAL_SECTION freetype_cs;
 static CRITICAL_SECTION_DEBUG critsect_debug =
 {
     0, 0, &freetype_cs,
     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
       0, 0, { (DWORD_PTR)(__FILE__ ": freetype_cs") }
 };
 static CRITICAL_SECTION freetype_cs = { &critsect_debug, -1, 0, 0, 0, 0 };

 static void *ft_handle = NULL;
 static FT_Library library = 0;
 static FTC_Manager cache_manager = 0;
 static FTC_CMapCache cmap_cache = 0;
 typedef struct
 {
     FT_Int major;
     FT_Int minor;
     FT_Int patch;
 } FT_Version_t;

 #define MAKE_FUNCPTR(f) static typeof(f) * p##f = NULL
 MAKE_FUNCPTR(FT_Done_FreeType);
 MAKE_FUNCPTR(FT_Get_Kerning);
 MAKE_FUNCPTR(FT_Init_FreeType);
 MAKE_FUNCPTR(FT_Library_Version);
 MAKE_FUNCPTR(FT_Load_Glyph);
 MAKE_FUNCPTR(FT_New_Memory_Face);
 MAKE_FUNCPTR(FT_Outline_Transform);
 MAKE_FUNCPTR(FTC_CMapCache_Lookup);
 MAKE_FUNCPTR(FTC_CMapCache_New);
 MAKE_FUNCPTR(FTC_Manager_New);
 MAKE_FUNCPTR(FTC_Manager_Done);
 MAKE_FUNCPTR(FTC_Manager_LookupFace);
 MAKE_FUNCPTR(FTC_Manager_LookupSize);
 MAKE_FUNCPTR(FTC_Manager_RemoveFaceID);
 #undef MAKE_FUNCPTR

 static FT_Error face_requester(FTC_FaceID face_id, FT_Library library, FT_Pointer request_data, FT_Face *face)
 {
     IDWriteFontFace *fontface = (IDWriteFontFace*)face_id;
     IDWriteFontFileStream *stream;
     IDWriteFontFile *file;
     const void *data_ptr;
     UINT32 index, count;
     FT_Error fterror;
     UINT64 data_size;
     void *context;
     HRESULT hr;

     *face = NULL;

     count = 1;
     hr = IDWriteFontFace_GetFiles(fontface, &count, &file);
     if (FAILED(hr))
         return FT_Err_Ok;

     hr = get_filestream_from_file(file, &stream);
     IDWriteFontFile_Release(file);
     if (FAILED(hr))
         return FT_Err_Ok;

     hr = IDWriteFontFileStream_GetFileSize(stream, &data_size);
     if (FAILED(hr)) {
         fterror = FT_Err_Invalid_Stream_Read;
         goto fail;
     }

     hr = IDWriteFontFileStream_ReadFileFragment(stream, &data_ptr, 0, data_size, &context);
     if (FAILED(hr)) {
         fterror = FT_Err_Invalid_Stream_Read;
         goto fail;
     }

     index = IDWriteFontFace_GetIndex(fontface);
     fterror = pFT_New_Memory_Face(library, data_ptr, data_size, index, face);
     IDWriteFontFileStream_ReleaseFileFragment(stream, context);

 fail:
     IDWriteFontFileStream_Release(stream);

     return fterror;
 }

 BOOL init_freetype(void)
 {
     FT_Version_t FT_Version;

     ft_handle = wine_dlopen(SONAME_LIBFREETYPE, RTLD_NOW, NULL, 0);
     if (!ft_handle) {
         WINE_MESSAGE("Wine cannot find the FreeType font library.\n");
 	return FALSE;
     }

 #define LOAD_FUNCPTR(f) if((p##f = wine_dlsym(ft_handle, #f, NULL, 0)) == NULL){WARN("Can't find symbol %s\n", #f); goto sym_not_found;}
     LOAD_FUNCPTR(FT_Done_FreeType)
     LOAD_FUNCPTR(FT_Get_Kerning)
     LOAD_FUNCPTR(FT_Init_FreeType)
     LOAD_FUNCPTR(FT_Library_Version)
     LOAD_FUNCPTR(FT_Load_Glyph)
     LOAD_FUNCPTR(FT_New_Memory_Face)
     LOAD_FUNCPTR(FT_Outline_Transform)
     LOAD_FUNCPTR(FTC_CMapCache_Lookup)
     LOAD_FUNCPTR(FTC_CMapCache_New)
     LOAD_FUNCPTR(FTC_Manager_New)
     LOAD_FUNCPTR(FTC_Manager_Done)
     LOAD_FUNCPTR(FTC_Manager_LookupFace)
     LOAD_FUNCPTR(FTC_Manager_LookupSize)
     LOAD_FUNCPTR(FTC_Manager_RemoveFaceID)
 #undef LOAD_FUNCPTR

     if (pFT_Init_FreeType(&library) != 0) {
         ERR("Can't init FreeType library\n");
 	wine_dlclose(ft_handle, NULL, 0);
         ft_handle = NULL;
 	return FALSE;
     }
     pFT_Library_Version(library, &FT_Version.major, &FT_Version.minor, &FT_Version.patch);

     /* init cache manager */
     if (pFTC_Manager_New(library, 0, 0, 0, &face_requester, NULL, &cache_manager) != 0 ||
         pFTC_CMapCache_New(cache_manager, &cmap_cache) != 0) {

         ERR("Failed to init FreeType cache\n");
         pFTC_Manager_Done(cache_manager);
         pFT_Done_FreeType(library);
         wine_dlclose(ft_handle, NULL, 0);
         ft_handle = NULL;
         return FALSE;
     }

     TRACE("FreeType version is %d.%d.%d\n", FT_Version.major, FT_Version.minor, FT_Version.patch);
     return TRUE;

 sym_not_found:
     WINE_MESSAGE("Wine cannot find certain functions that it needs from FreeType library.\n");
     wine_dlclose(ft_handle, NULL, 0);
     ft_handle = NULL;
     return FALSE;
 }

 void release_freetype(void)
 {
     pFTC_Manager_Done(cache_manager);
     pFT_Done_FreeType(library);
 }

 void freetype_notify_cacheremove(IDWriteFontFace2 *fontface)
 {
     EnterCriticalSection(&freetype_cs);
     pFTC_Manager_RemoveFaceID(cache_manager, fontface);
     LeaveCriticalSection(&freetype_cs);
 }

 HRESULT freetype_get_design_glyph_metrics(IDWriteFontFace2 *fontface, UINT16 unitsperEm, UINT16 glyph, DWRITE_GLYPH_METRICS *ret)
 {
     FTC_ScalerRec scaler;
     FT_Size size;

     scaler.face_id = fontface;
     scaler.width  = unitsperEm;
     scaler.height = unitsperEm;
     scaler.pixel = 1;
     scaler.x_res = 0;
     scaler.y_res = 0;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupSize(cache_manager, &scaler, &size) == 0) {
          if (pFT_Load_Glyph(size->face, glyph, FT_LOAD_NO_SCALE) == 0) {
              FT_Glyph_Metrics *metrics = &size->face->glyph->metrics;

              ret->leftSideBearing = metrics->horiBearingX;
              ret->advanceWidth = metrics->horiAdvance;
              ret->rightSideBearing = metrics->horiAdvance - metrics->horiBearingX - metrics->width;
              ret->topSideBearing = metrics->vertBearingY;
              ret->advanceHeight = metrics->vertAdvance;
              ret->bottomSideBearing = metrics->vertAdvance - metrics->vertBearingY - metrics->height;
              ret->verticalOriginY = metrics->height + metrics->vertBearingY;
          }
     }
     LeaveCriticalSection(&freetype_cs);

     return S_OK;
 }

 BOOL freetype_is_monospaced(IDWriteFontFace2 *fontface)
 {
     BOOL is_monospaced = FALSE;
     FT_Face face;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
         is_monospaced = FT_IS_FIXED_WIDTH(face);
     LeaveCriticalSection(&freetype_cs);

     return is_monospaced;
 }

 static inline void ft_vector_to_d2d_point(const FT_Vector *v, D2D1_POINT_2F *p)
 {
     p->x = v->x / 64.0;
     p->y = v->y / 64.0;
 }

 static HRESULT get_outline_data(const FT_Outline *outline, struct glyph_outline **ret)
 {
     short i, j, contour = 0;
     D2D1_POINT_2F *points;
     UINT16 count = 0;
     UINT8 *tags;
     HRESULT hr;

     /* we need all curves in cubic format */
     for (i = 0; i < outline->n_points; i++) {
         /* control point */
         if (!(outline->tags[i] & FT_Curve_Tag_On)) {
             if (!(outline->tags[i] & FT_Curve_Tag_Cubic)) {
                 count++;
             }
         }
         count++;
     }

     hr = new_glyph_outline(count, ret);
     if (FAILED(hr))
         return hr;

     points = (*ret)->points;
     tags = (*ret)->tags;

     ft_vector_to_d2d_point(outline->points, points);
     tags[0] = OUTLINE_POINT_START;

     for (i = 1, j = 1; i < outline->n_points; i++, j++) {
         /* mark start of new contour */
         if (tags[j-1] & OUTLINE_POINT_END)
             tags[j] = OUTLINE_POINT_START;
         else
             tags[j] = 0;

         if (outline->tags[i] & FT_Curve_Tag_On) {
             ft_vector_to_d2d_point(outline->points+i, points+j);
             tags[j] |= OUTLINE_POINT_LINE;
         }
         else {
             /* third order curve */
             if (outline->tags[i] & FT_Curve_Tag_Cubic) {
                 /* store 3 points, advance 3 points */

                 ft_vector_to_d2d_point(outline->points+i,   points+j);
                 ft_vector_to_d2d_point(outline->points+i+1, points+j+1);
                 ft_vector_to_d2d_point(outline->points+i+2, points+j+2);

                 i += 2;
             }
             else {
                 FT_Vector vec;

                 /* Convert the quadratic Beziers to cubic Beziers.
                    The parametric eqn for a cubic Bezier is, from PLRM:
                    r(t) = at^3 + bt^2 + ct + r0
                    with the control points:
                    r1 = r0 + c/3
                    r2 = r1 + (c + b)/3
                    r3 = r0 + c + b + a

                    A quadratic Bezier has the form:
                    p(t) = (1-t)^2 p0 + 2(1-t)t p1 + t^2 p2

                    So equating powers of t leads to:
                    r1 = 2/3 p1 + 1/3 p0
                    r2 = 2/3 p1 + 1/3 p2
                    and of course r0 = p0, r3 = p2
                 */

                 /* r1 */
                 vec.x = 2 * outline->points[i].x + outline->points[i-1].x;
                 vec.y = 2 * outline->points[i].y + outline->points[i-1].y;
                 ft_vector_to_d2d_point(&vec, points+j);
                 points[j].x /= 3.0;
                 points[j].y /= 3.0;

                 /* r2 */
                 vec.x = 2 * outline->points[i].x + outline->points[i+1].x;
                 vec.y = 2 * outline->points[i].y + outline->points[i+1].y;
                 ft_vector_to_d2d_point(&vec, points+j+1);
                 points[j+1].x /= 3.0;
                 points[j+1].y /= 3.0;

                 /* r3 */
                 ft_vector_to_d2d_point(outline->points+i+1, points+j+2);

                 i++;
             }

             tags[j] = tags[j+1] = tags[j+2] = OUTLINE_POINT_BEZIER;
             j += 2;
         }

         /* mark end point */
         if (i < outline->n_points && outline->contours[contour] == i) {
             tags[j] |= OUTLINE_POINT_END;
             contour++;
         }
     }

     return S_OK;
 }

 HRESULT freetype_get_glyph_outline(IDWriteFontFace2 *fontface, FLOAT emSize, UINT16 index, USHORT simulations, struct glyph_outline **ret)
 {
     FTC_ScalerRec scaler;
     HRESULT hr = S_OK;
     FT_Size size;

     scaler.face_id = fontface;
     scaler.width  = emSize;
     scaler.height = emSize;
     scaler.pixel = 1;
     scaler.x_res = 0;
     scaler.y_res = 0;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupSize(cache_manager, &scaler, &size) == 0) {
          if (pFT_Load_Glyph(size->face, index, FT_LOAD_DEFAULT) == 0) {
              FT_Outline *outline = &size->face->glyph->outline;
              FT_Matrix m;

              m.xx = 1 << 16;
              m.xy = simulations & DWRITE_FONT_SIMULATIONS_OBLIQUE ? (1 << 16) / 3 : 0;
              m.yx = 0;
              m.yy = -(1 << 16); /* flip Y axis */

              pFT_Outline_Transform(outline, &m);

              hr = get_outline_data(outline, ret);
              if (hr == S_OK)
                  (*ret)->advance = size->face->glyph->metrics.horiAdvance >> 6;
          }
     }
     LeaveCriticalSection(&freetype_cs);

     return hr;
 }

 UINT16 freetype_get_glyphcount(IDWriteFontFace2 *fontface)
 {
     UINT16 count = 0;
     FT_Face face;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
         count = face->num_glyphs;
     LeaveCriticalSection(&freetype_cs);

     return count;
 }

 UINT16 freetype_get_glyphindex(IDWriteFontFace2 *fontface, UINT32 codepoint)
 {
     UINT16 glyph;

     EnterCriticalSection(&freetype_cs);
     glyph = pFTC_CMapCache_Lookup(cmap_cache, fontface, -1, codepoint);
     LeaveCriticalSection(&freetype_cs);

     return glyph;
 }

 BOOL freetype_has_kerning_pairs(IDWriteFontFace2 *fontface)
 {
     BOOL has_kerning_pairs = FALSE;
     FT_Face face;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
         has_kerning_pairs = FT_HAS_KERNING(face);
     LeaveCriticalSection(&freetype_cs);

     return has_kerning_pairs;
 }

 INT32 freetype_get_kerning_pair_adjustment(IDWriteFontFace2 *fontface, UINT16 left, UINT16 right)
 {
     INT32 adjustment = 0;
     FT_Face face;

     EnterCriticalSection(&freetype_cs);
     if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0) {
         FT_Vector kern;
         if (FT_HAS_KERNING(face)) {
             pFT_Get_Kerning(face, left, right, FT_KERNING_UNSCALED, &kern);
             adjustment = kern.x;
         }
     }
     LeaveCriticalSection(&freetype_cs);

     return adjustment;
 }

 #else /* HAVE_FREETYPE */

 BOOL init_freetype(void)
 {
     return FALSE;
 }

 void release_freetype(void)
 {
 }

 void freetype_notify_cacheremove(IDWriteFontFace2 *fontface)
 {
 }

 HRESULT freetype_get_design_glyph_metrics(IDWriteFontFace2 *fontface, UINT16 unitsperEm, UINT16 glyph, DWRITE_GLYPH_METRICS *ret)
 {
     return E_NOTIMPL;
 }

 BOOL freetype_is_monospaced(IDWriteFontFace2 *fontface)
 {
     return FALSE;
 }

 HRESULT freetype_get_glyph_outline(IDWriteFontFace2 *fontface, FLOAT emSize, UINT16 index, USHORT simulations, struct glyph_outline **ret)
 {
     *ret = NULL;
     return E_NOTIMPL;
 }

 UINT16 freetype_get_glyphcount(IDWriteFontFace2 *fontface)
 {
     return 0;
 }

 UINT16 freetype_get_glyphindex(IDWriteFontFace2 *fontface, UINT32 codepoint)
 {
     return 0;
 }

 BOOL freetype_has_kerning_pairs(IDWriteFontFace2 *fontface)
 {
     return FALSE;
 }

 INT32 freetype_get_kerning_pair_adjustment(IDWriteFontFace2 *fontface, UINT16 left, UINT16 right)
 {
     return 0;
 }

 #endif /* HAVE_FREETYPE */
	/*
	* FreeType integration
	*
	* Copyright 2014 Nikolay Sivov for CodeWeavers
	*
	* This library is free software; you can redistribute it and/or
	* modify it under the terms of the GNU Lesser General Public
	* License as published by the Free Software Foundation; either
	* version 2.1 of the License, or (at your option) any later version.
	*
	* This library is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	* Lesser General Public License for more details.
	*
	* You should have received a copy of the GNU Lesser General Public
	* License along with this library; if not, write to the Free Software
	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
	*/

	#define COBJMACROS

	#include "config.h"
	#include "wine/port.h"

	#ifdef HAVE_FT2BUILD_H
	#include <ft2build.h>
	#include FT_CACHE_H
	#include FT_FREETYPE_H
	#include FT_OUTLINE_H
	#endif /* HAVE_FT2BUILD_H */

	#include "windef.h"
	#include "dwrite_2.h"
	#include "wine/library.h"
	#include "wine/debug.h"

	#include "dwrite_private.h"

	WINE_DEFAULT_DEBUG_CHANNEL(dwrite);

	#ifdef HAVE_FREETYPE

	static CRITICAL_SECTION freetype_cs;
	static CRITICAL_SECTION_DEBUG critsect_debug =
	{
	0, 0, &freetype_cs,
	{ &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
	0, 0, { (DWORD_PTR)(__FILE__ ": freetype_cs") }
	};
	static CRITICAL_SECTION freetype_cs = { &critsect_debug, -1, 0, 0, 0, 0 };

	static void *ft_handle = NULL;
	static FT_Library library = 0;
	static FTC_Manager cache_manager = 0;
	static FTC_CMapCache cmap_cache = 0;
	typedef struct
	{
	FT_Int major;
	FT_Int minor;
	FT_Int patch;
	} FT_Version_t;

	#define MAKE_FUNCPTR(f) static typeof(f) * p##f = NULL
	MAKE_FUNCPTR(FT_Done_FreeType);
	MAKE_FUNCPTR(FT_Get_Kerning);
	MAKE_FUNCPTR(FT_Init_FreeType);
	MAKE_FUNCPTR(FT_Library_Version);
	MAKE_FUNCPTR(FT_Load_Glyph);
	MAKE_FUNCPTR(FT_New_Memory_Face);
	MAKE_FUNCPTR(FT_Outline_Transform);
	MAKE_FUNCPTR(FTC_CMapCache_Lookup);
	MAKE_FUNCPTR(FTC_CMapCache_New);
	MAKE_FUNCPTR(FTC_Manager_New);
	MAKE_FUNCPTR(FTC_Manager_Done);
	MAKE_FUNCPTR(FTC_Manager_LookupFace);
	MAKE_FUNCPTR(FTC_Manager_LookupSize);
	MAKE_FUNCPTR(FTC_Manager_RemoveFaceID);
	#undef MAKE_FUNCPTR

	static FT_Error face_requester(FTC_FaceID face_id, FT_Library library, FT_Pointer request_data, FT_Face *face)
	{
	IDWriteFontFace fontface = (IDWriteFontFace)face_id;
	IDWriteFontFileStream *stream;
	IDWriteFontFile *file;
	const void *data_ptr;
	UINT32 index, count;
	FT_Error fterror;
	UINT64 data_size;
	void *context;
	HRESULT hr;

	*face = NULL;

	count = 1;
	hr = IDWriteFontFace_GetFiles(fontface, &count, &file);
	if (FAILED(hr))
	return FT_Err_Ok;

	hr = get_filestream_from_file(file, &stream);
	IDWriteFontFile_Release(file);
	if (FAILED(hr))
	return FT_Err_Ok;

	hr = IDWriteFontFileStream_GetFileSize(stream, &data_size);
	if (FAILED(hr)) {
	fterror = FT_Err_Invalid_Stream_Read;
	goto fail;
	}

	hr = IDWriteFontFileStream_ReadFileFragment(stream, &data_ptr, 0, data_size, &context);
	if (FAILED(hr)) {
	fterror = FT_Err_Invalid_Stream_Read;
	goto fail;
	}

	index = IDWriteFontFace_GetIndex(fontface);
	fterror = pFT_New_Memory_Face(library, data_ptr, data_size, index, face);
	IDWriteFontFileStream_ReleaseFileFragment(stream, context);

	fail:
	IDWriteFontFileStream_Release(stream);

	return fterror;
	}

	BOOL init_freetype(void)
	{
	FT_Version_t FT_Version;

	ft_handle = wine_dlopen(SONAME_LIBFREETYPE, RTLD_NOW, NULL, 0);
	if (!ft_handle) {
	WINE_MESSAGE("Wine cannot find the FreeType font library.\n");
	return FALSE;
	}

	#define LOAD_FUNCPTR(f) if((p##f = wine_dlsym(ft_handle, #f, NULL, 0)) == NULL){WARN("Can't find symbol %s\n", #f); goto sym_not_found;}
	LOAD_FUNCPTR(FT_Done_FreeType)
	LOAD_FUNCPTR(FT_Get_Kerning)
	LOAD_FUNCPTR(FT_Init_FreeType)
	LOAD_FUNCPTR(FT_Library_Version)
	LOAD_FUNCPTR(FT_Load_Glyph)
	LOAD_FUNCPTR(FT_New_Memory_Face)
	LOAD_FUNCPTR(FT_Outline_Transform)
	LOAD_FUNCPTR(FTC_CMapCache_Lookup)
	LOAD_FUNCPTR(FTC_CMapCache_New)
	LOAD_FUNCPTR(FTC_Manager_New)
	LOAD_FUNCPTR(FTC_Manager_Done)
	LOAD_FUNCPTR(FTC_Manager_LookupFace)
	LOAD_FUNCPTR(FTC_Manager_LookupSize)
	LOAD_FUNCPTR(FTC_Manager_RemoveFaceID)
	#undef LOAD_FUNCPTR

	if (pFT_Init_FreeType(&library) != 0) {
	ERR("Can't init FreeType library\n");
	wine_dlclose(ft_handle, NULL, 0);
	ft_handle = NULL;
	return FALSE;
	}
	pFT_Library_Version(library, &FT_Version.major, &FT_Version.minor, &FT_Version.patch);

	/* init cache manager */
	if (pFTC_Manager_New(library, 0, 0, 0, &face_requester, NULL, &cache_manager) != 0 \|\|
	pFTC_CMapCache_New(cache_manager, &cmap_cache) != 0) {

	ERR("Failed to init FreeType cache\n");
	pFTC_Manager_Done(cache_manager);
	pFT_Done_FreeType(library);
	wine_dlclose(ft_handle, NULL, 0);
	ft_handle = NULL;
	return FALSE;
	}

	TRACE("FreeType version is %d.%d.%d\n", FT_Version.major, FT_Version.minor, FT_Version.patch);
	return TRUE;

	sym_not_found:
	WINE_MESSAGE("Wine cannot find certain functions that it needs from FreeType library.\n");
	wine_dlclose(ft_handle, NULL, 0);
	ft_handle = NULL;
	return FALSE;
	}

	void release_freetype(void)
	{
	pFTC_Manager_Done(cache_manager);
	pFT_Done_FreeType(library);
	}

	void freetype_notify_cacheremove(IDWriteFontFace2 *fontface)
	{
	EnterCriticalSection(&freetype_cs);
	pFTC_Manager_RemoveFaceID(cache_manager, fontface);
	LeaveCriticalSection(&freetype_cs);
	}

	HRESULT freetype_get_design_glyph_metrics(IDWriteFontFace2 fontface, UINT16 unitsperEm, UINT16 glyph, DWRITE_GLYPH_METRICS ret)
	{
	FTC_ScalerRec scaler;
	FT_Size size;

	scaler.face_id = fontface;
	scaler.width = unitsperEm;
	scaler.height = unitsperEm;
	scaler.pixel = 1;
	scaler.x_res = 0;
	scaler.y_res = 0;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupSize(cache_manager, &scaler, &size) == 0) {
	if (pFT_Load_Glyph(size->face, glyph, FT_LOAD_NO_SCALE) == 0) {
	FT_Glyph_Metrics *metrics = &size->face->glyph->metrics;

	ret->leftSideBearing = metrics->horiBearingX;
	ret->advanceWidth = metrics->horiAdvance;
	ret->rightSideBearing = metrics->horiAdvance - metrics->horiBearingX - metrics->width;
	ret->topSideBearing = metrics->vertBearingY;
	ret->advanceHeight = metrics->vertAdvance;
	ret->bottomSideBearing = metrics->vertAdvance - metrics->vertBearingY - metrics->height;
	ret->verticalOriginY = metrics->height + metrics->vertBearingY;
	}
	}
	LeaveCriticalSection(&freetype_cs);

	return S_OK;
	}

	BOOL freetype_is_monospaced(IDWriteFontFace2 *fontface)
	{
	BOOL is_monospaced = FALSE;
	FT_Face face;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
	is_monospaced = FT_IS_FIXED_WIDTH(face);
	LeaveCriticalSection(&freetype_cs);

	return is_monospaced;
	}

	static inline void ft_vector_to_d2d_point(const FT_Vector v, D2D1_POINT_2F p)
	{
	p->x = v->x / 64.0;
	p->y = v->y / 64.0;
	}

	static HRESULT get_outline_data(const FT_Outline outline, struct glyph_outline *ret)
	{
	short i, j, contour = 0;
	D2D1_POINT_2F *points;
	UINT16 count = 0;
	UINT8 *tags;
	HRESULT hr;

	/* we need all curves in cubic format */
	for (i = 0; i < outline->n_points; i++) {
	/* control point */
	if (!(outline->tags[i] & FT_Curve_Tag_On)) {
	if (!(outline->tags[i] & FT_Curve_Tag_Cubic)) {
	count++;
	}
	}
	count++;
	}

	hr = new_glyph_outline(count, ret);
	if (FAILED(hr))
	return hr;

	points = (*ret)->points;
	tags = (*ret)->tags;

	ft_vector_to_d2d_point(outline->points, points);
	tags[0] = OUTLINE_POINT_START;

	for (i = 1, j = 1; i < outline->n_points; i++, j++) {
	/* mark start of new contour */
	if (tags[j-1] & OUTLINE_POINT_END)
	tags[j] = OUTLINE_POINT_START;
	else
	tags[j] = 0;

	if (outline->tags[i] & FT_Curve_Tag_On) {
	ft_vector_to_d2d_point(outline->points+i, points+j);
	tags[j] \|= OUTLINE_POINT_LINE;
	}
	else {
	/* third order curve */
	if (outline->tags[i] & FT_Curve_Tag_Cubic) {
	/* store 3 points, advance 3 points */

	ft_vector_to_d2d_point(outline->points+i, points+j);
	ft_vector_to_d2d_point(outline->points+i+1, points+j+1);
	ft_vector_to_d2d_point(outline->points+i+2, points+j+2);

	i += 2;
	}
	else {
	FT_Vector vec;

	/* Convert the quadratic Beziers to cubic Beziers.
	The parametric eqn for a cubic Bezier is, from PLRM:
	r(t) = at^3 + bt^2 + ct + r0
	with the control points:
	r1 = r0 + c/3
	r2 = r1 + (c + b)/3
	r3 = r0 + c + b + a

	A quadratic Bezier has the form:
	p(t) = (1-t)^2 p0 + 2(1-t)t p1 + t^2 p2

	So equating powers of t leads to:
	r1 = 2/3 p1 + 1/3 p0
	r2 = 2/3 p1 + 1/3 p2
	and of course r0 = p0, r3 = p2
	*/

	/* r1 */
	vec.x = 2 * outline->points[i].x + outline->points[i-1].x;
	vec.y = 2 * outline->points[i].y + outline->points[i-1].y;
	ft_vector_to_d2d_point(&vec, points+j);
	points[j].x /= 3.0;
	points[j].y /= 3.0;

	/* r2 */
	vec.x = 2 * outline->points[i].x + outline->points[i+1].x;
	vec.y = 2 * outline->points[i].y + outline->points[i+1].y;
	ft_vector_to_d2d_point(&vec, points+j+1);
	points[j+1].x /= 3.0;
	points[j+1].y /= 3.0;

	/* r3 */
	ft_vector_to_d2d_point(outline->points+i+1, points+j+2);

	i++;
	}

	tags[j] = tags[j+1] = tags[j+2] = OUTLINE_POINT_BEZIER;
	j += 2;
	}

	/* mark end point */
	if (i < outline->n_points && outline->contours[contour] == i) {
	tags[j] \|= OUTLINE_POINT_END;
	contour++;
	}
	}

	return S_OK;
	}

	HRESULT freetype_get_glyph_outline(IDWriteFontFace2 fontface, FLOAT emSize, UINT16 index, USHORT simulations, struct glyph_outline *ret)
	{
	FTC_ScalerRec scaler;
	HRESULT hr = S_OK;
	FT_Size size;

	scaler.face_id = fontface;
	scaler.width = emSize;
	scaler.height = emSize;
	scaler.pixel = 1;
	scaler.x_res = 0;
	scaler.y_res = 0;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupSize(cache_manager, &scaler, &size) == 0) {
	if (pFT_Load_Glyph(size->face, index, FT_LOAD_DEFAULT) == 0) {
	FT_Outline *outline = &size->face->glyph->outline;
	FT_Matrix m;

	m.xx = 1 << 16;
	m.xy = simulations & DWRITE_FONT_SIMULATIONS_OBLIQUE ? (1 << 16) / 3 : 0;
	m.yx = 0;
	m.yy = -(1 << 16); /* flip Y axis */

	pFT_Outline_Transform(outline, &m);

	hr = get_outline_data(outline, ret);
	if (hr == S_OK)
	(*ret)->advance = size->face->glyph->metrics.horiAdvance >> 6;
	}
	}
	LeaveCriticalSection(&freetype_cs);

	return hr;
	}

	UINT16 freetype_get_glyphcount(IDWriteFontFace2 *fontface)
	{
	UINT16 count = 0;
	FT_Face face;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
	count = face->num_glyphs;
	LeaveCriticalSection(&freetype_cs);

	return count;
	}

	UINT16 freetype_get_glyphindex(IDWriteFontFace2 *fontface, UINT32 codepoint)
	{
	UINT16 glyph;

	EnterCriticalSection(&freetype_cs);
	glyph = pFTC_CMapCache_Lookup(cmap_cache, fontface, -1, codepoint);
	LeaveCriticalSection(&freetype_cs);

	return glyph;
	}

	BOOL freetype_has_kerning_pairs(IDWriteFontFace2 *fontface)
	{
	BOOL has_kerning_pairs = FALSE;
	FT_Face face;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0)
	has_kerning_pairs = FT_HAS_KERNING(face);
	LeaveCriticalSection(&freetype_cs);

	return has_kerning_pairs;
	}

	INT32 freetype_get_kerning_pair_adjustment(IDWriteFontFace2 *fontface, UINT16 left, UINT16 right)
	{
	INT32 adjustment = 0;
	FT_Face face;

	EnterCriticalSection(&freetype_cs);
	if (pFTC_Manager_LookupFace(cache_manager, fontface, &face) == 0) {
	FT_Vector kern;
	if (FT_HAS_KERNING(face)) {
	pFT_Get_Kerning(face, left, right, FT_KERNING_UNSCALED, &kern);
	adjustment = kern.x;
	}
	}
	LeaveCriticalSection(&freetype_cs);

	return adjustment;
	}

	#else /* HAVE_FREETYPE */

	BOOL init_freetype(void)
	{
	return FALSE;
	}

	void release_freetype(void)
	{
	}

	void freetype_notify_cacheremove(IDWriteFontFace2 *fontface)
	{
	}

	HRESULT freetype_get_design_glyph_metrics(IDWriteFontFace2 fontface, UINT16 unitsperEm, UINT16 glyph, DWRITE_GLYPH_METRICS ret)
	{
	return E_NOTIMPL;
	}

	BOOL freetype_is_monospaced(IDWriteFontFace2 *fontface)
	{
	return FALSE;
	}

	HRESULT freetype_get_glyph_outline(IDWriteFontFace2 fontface, FLOAT emSize, UINT16 index, USHORT simulations, struct glyph_outline *ret)
	{
	*ret = NULL;
	return E_NOTIMPL;
	}

	UINT16 freetype_get_glyphcount(IDWriteFontFace2 *fontface)
	{
	return 0;
	}

	UINT16 freetype_get_glyphindex(IDWriteFontFace2 *fontface, UINT32 codepoint)
	{
	return 0;
	}

	BOOL freetype_has_kerning_pairs(IDWriteFontFace2 *fontface)
	{
	return FALSE;
	}

	INT32 freetype_get_kerning_pair_adjustment(IDWriteFontFace2 *fontface, UINT16 left, UINT16 right)
	{
	return 0;
	}

	#endif /* HAVE_FREETYPE */