Quelle  cairo-ft-font.c   Sprache: C

/* -*- Mode: c; c-basic-offset: 4; indent-tabs-mode: t; tab-width: 8; -*- */
/* cairo - a vector graphics library with display and print output
 *
 * Copyright © 2000 Keith Packard
 * Copyright © 2005 Red Hat, Inc
 *
 * This library is free software; you can redistribute it and/or
 * modify it either under the terms of the GNU Lesser General Public
 * License version 2.1 as published by the Free Software Foundation
 * (the "LGPL") or, at your option, under the terms of the Mozilla
 * Public License Version 1.1 (the "MPL"). If you do not alter this
 * notice, a recipient may use your version of this file under either
 * the MPL or the LGPL.
 *
 * You should have received a copy of the LGPL along with this library
 * in the file COPYING-LGPL-2.1; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Suite 500, Boston, MA 02110-1335, USA
 * You should have received a copy of the MPL along with this library
 * in the file COPYING-MPL-1.1
 *
 * The contents of this file are subject to the Mozilla Public License
 * Version 1.1 (the "License"); you may not use this file except in
 * compliance with the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY
 * OF ANY KIND, either express or implied. See the LGPL or the MPL for
 * the specific language governing rights and limitations.
 *
 * The Original Code is the cairo graphics library.
 *
 * The Initial Developer of the Original Code is Red Hat, Inc.
 *
 * Contributor(s):
 *      Graydon Hoare <graydon@redhat.com>
 * Owen Taylor <otaylor@redhat.com>
 *      Keith Packard <keithp@keithp.com>
 *      Carl Worth <cworth@cworth.org>
 */

#define _DEFAULT_SOURCE /* for strdup() */
#include "cairoint.h"

#include "cairo-error-private.h"
#include "cairo-image-surface-private.h"
#include "cairo-ft-private.h"
#include "cairo-list-inline.h"
#include "cairo-path-private.h"
#include "cairo-pattern-private.h"
#include "cairo-pixman-private.h"
#include "cairo-recording-surface-private.h"

#include <float.h>

#include "cairo-fontconfig-private.h"

#include <ft2build.h>
#include FT_FREETYPE_H
#include FT_OUTLINE_H
#include FT_IMAGE_H
#include FT_BITMAP_H
#include FT_TRUETYPE_TABLES_H
#include FT_XFREE86_H
#include FT_MULTIPLE_MASTERS_H
#if HAVE_FT_GLYPHSLOT_EMBOLDEN
#include FT_SYNTHESIS_H
#endif

#ifdef FT_COLOR_H
#include FT_COLOR_H
#endif

#if HAVE_FT_LIBRARY_SETLCDFILTER
#include FT_LCD_FILTER_H
#endif

#if HAVE_FT_SVG_DOCUMENT
#include FT_OTSVG_H
#endif

#if HAVE_UNISTD_H
#include <unistd.h>
#elif !defined(access)
#define access(p, m) 0
#endif
#include <dlfcn.h>

/* Fontconfig version older than 2.6 didn't have these options */
#ifndef FC_LCD_FILTER
#define FC_LCD_FILTER "lcdfilter"
#endif
/* Some Ubuntu versions defined FC_LCD_FILTER without defining the following */
#ifndef FC_LCD_NONE
#define FC_LCD_NONE 0
#define FC_LCD_DEFAULT 1
#define FC_LCD_LIGHT 2
#define FC_LCD_LEGACY 3
#endif

/* FreeType version older than 2.3.5(?) didn't have these options */
#ifndef FT_LCD_FILTER_NONE
#define FT_LCD_FILTER_NONE 0
#define FT_LCD_FILTER_DEFAULT 1
#define FT_LCD_FILTER_LIGHT 2
#define FT_LCD_FILTER_LEGACY 16
#endif

/*  FreeType version older than 2.11 does not have the FT_RENDER_MODE_SDF enum value in FT_Render_Mode */
#if FREETYPE_MAJOR > 2 || (FREETYPE_MAJOR == 2 && FREETYPE_MINOR >= 11)
#define HAVE_FT_RENDER_MODE_SDF 1
#endif

#define DOUBLE_FROM_26_6(t) ((double)(t) / 64.0)
#define DOUBLE_TO_16_16(d) ((FT_Fixed)((d) * 65536.0))
#define DOUBLE_FROM_16_16(t) ((double)(t) / 65536.0)

/* This is the max number of FT_face objects we keep open at once
 */
#define MAX_OPEN_FACES 10

extern void mozilla_AddRefSharedFTFace(void* aContext);
extern void mozilla_ReleaseSharedFTFace(void* aContext, void* aOwner);
/* Returns true if the face's state has been modified by another owner. */
extern int mozilla_LockSharedFTFace(void* aContext, void* aOwner);
extern void mozilla_UnlockSharedFTFace(void* aContext);
extern FT_Error mozilla_LoadFTGlyph(FT_Face aFace, uint32_t aGlyphIndex, int32_t aFlags);
extern void mozilla_LockFTLibrary(FT_Library aLibrary);
extern void mozilla_UnlockFTLibrary(FT_Library aLibrary);

#define CAIRO_FT_LOCK(unscaled)      \
  ((unscaled)->face_context      \
       ? (void)mozilla_LockSharedFTFace((unscaled)->face_context, NULL) \
       : (void)CAIRO_MUTEX_LOCK((unscaled)->mutex))
#define CAIRO_FT_UNLOCK(unscaled)         \
  ((unscaled)->face_context          \
       ? mozilla_UnlockSharedFTFace((unscaled)->face_context) \
       : (void)CAIRO_MUTEX_UNLOCK((unscaled)->mutex))

/**
 * Function types for FreeType symbols we'll look up at runtime, rather than
 * relying on build-time checks for availability.
 */
typedef FT_Error (*GetVarFunc) (FT_Face, FT_MM_Var**);
typedef FT_Error (*DoneVarFunc) (FT_Library, FT_MM_Var*);
typedef FT_Error (*GetVarDesignCoordsFunc) (FT_Face, FT_UInt, FT_Fixed*);
typedef FT_Error (*SetVarDesignCoordsFunc) (FT_Face, FT_UInt, FT_Fixed*);
typedef FT_Error (*GetVarBlendCoordsFunc) (FT_Face, FT_UInt, FT_Fixed*);

/**
 * SECTION:cairo-ft
 * @Title: FreeType Fonts
 * @Short_Description: Font support for FreeType
 * @See_Also: #cairo_font_face_t
 *
 * The FreeType font backend is primarily used to render text on GNU/Linux
 * systems, but can be used on other platforms too.
 **/

/**
 * CAIRO_HAS_FT_FONT:
 *
 * Defined if the FreeType font backend is available.
 * This macro can be used to conditionally compile backend-specific code.
 *
 * Since: 1.0
 **/

/**
 * CAIRO_HAS_FC_FONT:
 *
 * Defined if the Fontconfig-specific functions of the FreeType font backend
 * are available.
 * This macro can be used to conditionally compile backend-specific code.
 *
 * Since: 1.10
 **/

/*
 * The simple 2x2 matrix is converted into separate scale and shape
 * factors so that hinting works right
 */

typedef struct _cairo_ft_font_transform {
    double  x_scale, y_scale;
    double  shape[2][2];
} cairo_ft_font_transform_t;

/*
 * We create an object that corresponds to a single font on the disk;
 * (identified by a filename/id pair) these are shared between all
 * fonts using that file.  For cairo_ft_font_face_create_for_ft_face(), we
 * just create a one-off version with a permanent face value.
 */

typedef struct _cairo_ft_font_face cairo_ft_font_face_t;

struct _cairo_ft_unscaled_font {
    cairo_unscaled_font_t base;

    cairo_bool_t from_face; /* was the FT_Face provided by user? */
    FT_Face face;     /* provided or cached face */
    void *face_context;

    /* only set if from_face is false */
    char *filename;
    int id;

    /* We temporarily scale the unscaled font as needed */
    cairo_bool_t have_scale;
    cairo_matrix_t current_scale;
    double x_scale;  /* Extracted X scale factor */
    double y_scale;             /* Extracted Y scale factor */
    cairo_bool_t have_shape; /* true if the current scale has a non-scale component*/
    cairo_matrix_t current_shape;
    FT_Matrix Current_Shape;

    unsigned int have_color_set  : 1;
    unsigned int have_color      : 1;  /* true if the font contains color glyphs */
    FT_Fixed *variations;              /* variation settings that FT_Face came */
    unsigned int num_palettes;

    cairo_mutex_t mutex;
    int lock_count;

    cairo_ft_font_face_t *faces; /* Linked list of faces for this font */
};

static int
_cairo_ft_unscaled_font_keys_equal (const void *key_a,
        const void *key_b);

static void
_cairo_ft_unscaled_font_fini (cairo_ft_unscaled_font_t *unscaled);

typedef struct _cairo_ft_options {
    cairo_font_options_t base;
    unsigned int load_flags; /* flags for FT_Load_Glyph */
    unsigned int synth_flags;
} cairo_ft_options_t;

static void
_cairo_ft_options_init_copy (cairo_ft_options_t       *options,
                             const cairo_ft_options_t *other)
{
    _cairo_font_options_init_copy (&options->base, &other->base);
    options->load_flags = other->load_flags;
    options->synth_flags = other->synth_flags;
}

static void
_cairo_ft_options_fini (cairo_ft_options_t *options)
{
    _cairo_font_options_fini (&options->base);
}

struct _cairo_ft_font_face {
    cairo_font_face_t base;

    cairo_ft_unscaled_font_t *unscaled;
    cairo_ft_options_t ft_options;
    cairo_ft_font_face_t *next;

#if CAIRO_HAS_FC_FONT
    FcPattern *pattern; /* if pattern is set, the above fields will be NULL */
    cairo_font_face_t *resolved_font_face;
    FcConfig *resolved_config;
#endif
};

static const cairo_unscaled_font_backend_t cairo_ft_unscaled_font_backend;

#if CAIRO_HAS_FC_FONT
static cairo_status_t
_cairo_ft_font_options_substitute (const cairo_font_options_t *options,
       FcPattern                  *pattern);

static cairo_font_face_t *
_cairo_ft_resolve_pattern (FcPattern        *pattern,
      const cairo_matrix_t       *font_matrix,
      const cairo_matrix_t       *ctm,
      const cairo_font_options_t *options);

#endif

cairo_status_t
_cairo_ft_to_cairo_error (FT_Error error)
{
  /* Currently we don't get many (any?) useful statuses here.
   * Populate as needed. */
  switch (error)
  {
      case FT_Err_Ok:
   return CAIRO_STATUS_SUCCESS;
      case FT_Err_Out_Of_Memory:
   return CAIRO_STATUS_NO_MEMORY;
      default:
   return CAIRO_STATUS_FREETYPE_ERROR;
  }
}

/*
 * We maintain a hash table to map file/id => #cairo_ft_unscaled_font_t.
 * The hash table itself isn't limited in size. However, we limit the
 * number of FT_Face objects we keep around; when we've exceeded that
 * limit and need to create a new FT_Face, we dump the FT_Face from a
 * random #cairo_ft_unscaled_font_t which has an unlocked FT_Face, (if
 * there are any).
 */

typedef struct _cairo_ft_unscaled_font_map {
    cairo_hash_table_t *hash_table;
    FT_Library ft_library;
    int num_open_faces;
} cairo_ft_unscaled_font_map_t;

static cairo_ft_unscaled_font_map_t *cairo_ft_unscaled_font_map = NULL;


static FT_Face
_cairo_ft_unscaled_font_lock_face (cairo_ft_unscaled_font_t *unscaled);

static void
_cairo_ft_unscaled_font_unlock_face (cairo_ft_unscaled_font_t *unscaled);

static cairo_bool_t
_cairo_ft_scaled_font_is_vertical (cairo_scaled_font_t *scaled_font);


static void
_font_map_release_face_lock_held (cairo_ft_unscaled_font_map_t *font_map,
      cairo_ft_unscaled_font_t *unscaled)
{
    if (unscaled->face) {
 FT_Done_Face (unscaled->face);
 unscaled->face = NULL;
 unscaled->have_scale = FALSE;

 font_map->num_open_faces--;
    }
}

static cairo_status_t
_cairo_ft_unscaled_font_map_create (void)
{
    cairo_ft_unscaled_font_map_t *font_map;

    /* This function is only intended to be called from
     * _cairo_ft_unscaled_font_map_lock. So we'll crash if we can
     * detect some other call path. */
    assert (cairo_ft_unscaled_font_map == NULL);

    font_map = _cairo_malloc (sizeof (cairo_ft_unscaled_font_map_t));
    if (unlikely (font_map == NULL))
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    font_map->hash_table =
 _cairo_hash_table_create (_cairo_ft_unscaled_font_keys_equal);

    if (unlikely (font_map->hash_table == NULL))
 goto FAIL;

    if (unlikely (FT_Init_FreeType (&font_map->ft_library)))
 goto FAIL;

    font_map->num_open_faces = 0;

    cairo_ft_unscaled_font_map = font_map;
    return CAIRO_STATUS_SUCCESS;

FAIL:
    if (font_map->hash_table)
 _cairo_hash_table_destroy (font_map->hash_table);
    free (font_map);

    return _cairo_error (CAIRO_STATUS_NO_MEMORY);
}


static void
_cairo_ft_unscaled_font_map_pluck_entry (void *entry, void *closure)
{
    cairo_ft_unscaled_font_t *unscaled = entry;
    cairo_ft_unscaled_font_map_t *font_map = closure;

    _cairo_hash_table_remove (font_map->hash_table,
         &unscaled->base.hash_entry);

    if (unscaled->from_face)
 mozilla_ReleaseSharedFTFace (unscaled->face_context, unscaled);
    else
 _font_map_release_face_lock_held (font_map, unscaled);

    _cairo_ft_unscaled_font_fini (unscaled);
    free (unscaled);
}

static void
_cairo_ft_unscaled_font_map_destroy (void)
{
    cairo_ft_unscaled_font_map_t *font_map;

    CAIRO_MUTEX_LOCK (_cairo_ft_unscaled_font_map_mutex);
    font_map = cairo_ft_unscaled_font_map;
    cairo_ft_unscaled_font_map = NULL;
    CAIRO_MUTEX_UNLOCK (_cairo_ft_unscaled_font_map_mutex);

    if (font_map != NULL) {
 _cairo_hash_table_foreach (font_map->hash_table,
       _cairo_ft_unscaled_font_map_pluck_entry,
       font_map);
 assert (font_map->num_open_faces == 0);

 FT_Done_FreeType (font_map->ft_library);

 _cairo_hash_table_destroy (font_map->hash_table);

 free (font_map);
    }
}

static cairo_ft_unscaled_font_map_t *
_cairo_ft_unscaled_font_map_lock (void)
{
    CAIRO_MUTEX_INITIALIZE ();

    CAIRO_MUTEX_LOCK (_cairo_ft_unscaled_font_map_mutex);

    if (unlikely (cairo_ft_unscaled_font_map == NULL)) {
 if (unlikely (_cairo_ft_unscaled_font_map_create ())) {
     CAIRO_MUTEX_UNLOCK (_cairo_ft_unscaled_font_map_mutex);
     return NULL;
 }
    }

    return cairo_ft_unscaled_font_map;
}

static void
_cairo_ft_unscaled_font_map_unlock (void)
{
    CAIRO_MUTEX_UNLOCK (_cairo_ft_unscaled_font_map_mutex);
}

static void
_cairo_ft_unscaled_font_init_key (cairo_ft_unscaled_font_t *key,
      cairo_bool_t              from_face,
      char      *filename,
      int       id,
      FT_Face      face,
      void                     *face_context)
{
    uintptr_t hash;

    key->from_face = from_face;
    key->filename = filename;
    key->id = id;
    key->face = face;
    key->face_context = face_context;

    hash = _cairo_hash_string (filename);
    /* the constants are just arbitrary primes */
    hash += ((uintptr_t) id) * 1607;
    hash += ((uintptr_t) face) * 2137;

    key->base.hash_entry.hash = hash;
}

/**
 * _cairo_ft_unscaled_font_init:
 *
 * Initialize a #cairo_ft_unscaled_font_t.
 *
 * There are two basic flavors of #cairo_ft_unscaled_font_t, one
 * created from an FT_Face and the other created from a filename/id
 * pair. These two flavors are identified as from_face and !from_face.
 *
 * To initialize a from_face font, pass filename==%NULL, id=0 and the
 * desired face.
 *
 * To initialize a !from_face font, pass the filename/id as desired
 * and face==%NULL.
 *
 * Note that the code handles these two flavors in very distinct
 * ways. For example there is a hash_table mapping
 * filename/id->#cairo_unscaled_font_t in the !from_face case, but no
 * parallel in the from_face case, (where the calling code would have
 * to do its own mapping to ensure similar sharing).
 **/
static cairo_status_t
_cairo_ft_unscaled_font_init (cairo_ft_unscaled_font_t *unscaled,
         cairo_bool_t              from_face,
         const char        *filename,
         int   id,
         FT_Face   face,
         void         *face_context)
{
    _cairo_unscaled_font_init (&unscaled->base,
          &cairo_ft_unscaled_font_backend);

    unscaled->variations = NULL;

    if (from_face) {
 unscaled->from_face = TRUE;
 _cairo_ft_unscaled_font_init_key (unscaled, TRUE, NULL, id, face, face_context);


        unscaled->have_color = FT_HAS_COLOR (face) != 0;
        unscaled->have_color_set = TRUE;

        static GetVarFunc getVar;
        static DoneVarFunc doneVar;
        static GetVarDesignCoordsFunc getVarDesignCoords;

        static int firstTime = 1;
        if (firstTime) {
            getVar = (GetVarFunc) dlsym (RTLD_DEFAULT, "FT_Get_MM_Var");
            doneVar = (DoneVarFunc) dlsym (RTLD_DEFAULT, "FT_Done_MM_Var");
            getVarDesignCoords = (GetVarDesignCoordsFunc) dlsym (RTLD_DEFAULT, "FT_Get_Var_Design_Coordinates");
            firstTime = 0;
        }

        if (getVar && getVarDesignCoords) {
     FT_MM_Var *ft_mm_var;
     if (0 == (*getVar) (face, &ft_mm_var))
     {
  unscaled->variations = calloc (ft_mm_var->num_axis, sizeof (FT_Fixed));
  if (unscaled->variations)
      (*getVarDesignCoords) (face, ft_mm_var->num_axis, unscaled->variations);
  if (doneVar)
      (*doneVar) (face->glyph->library, ft_mm_var);
  else
      free (ft_mm_var);
     }
 }
    } else {
 char *filename_copy;

 unscaled->from_face = FALSE;
 unscaled->face = NULL;
 unscaled->face_context = NULL;

 filename_copy = strdup (filename);
 if (unlikely (filename_copy == NULL))
     return _cairo_error (CAIRO_STATUS_NO_MEMORY);

 _cairo_ft_unscaled_font_init_key (unscaled, FALSE, filename_copy, id, NULL, NULL);

 unscaled->have_color_set = FALSE;
    }

    unscaled->have_scale = FALSE;
    CAIRO_MUTEX_INIT (unscaled->mutex);
    unscaled->lock_count = 0;

    unscaled->faces = NULL;

    return CAIRO_STATUS_SUCCESS;
}

/**
 * _cairo_ft_unscaled_font_fini:
 *
 * Free all data associated with a #cairo_ft_unscaled_font_t.
 *
 * CAUTION: The unscaled->face field must be %NULL before calling this
 * function. This is because the #cairo_ft_unscaled_font_t_map keeps a
 * count of these faces (font_map->num_open_faces) so it maintains the
 * unscaled->face field while it has its lock held. See
 * _font_map_release_face_lock_held().
 **/
static void
_cairo_ft_unscaled_font_fini (cairo_ft_unscaled_font_t *unscaled)
{
    assert (unscaled->face == NULL);

    free (unscaled->filename);
    unscaled->filename = NULL;

    free (unscaled->variations);

    CAIRO_MUTEX_FINI (unscaled->mutex);
}

static int
_cairo_ft_unscaled_font_keys_equal (const void *key_a,
        const void *key_b)
{
    const cairo_ft_unscaled_font_t *unscaled_a = key_a;
    const cairo_ft_unscaled_font_t *unscaled_b = key_b;

    if (unscaled_a->id == unscaled_b->id &&
 unscaled_a->from_face == unscaled_b->from_face)
     {
        if (unscaled_a->from_face)
     return unscaled_a->face == unscaled_b->face &&
     unscaled_a->face_context == unscaled_b->face_context;

 if (unscaled_a->filename == NULL && unscaled_b->filename == NULL)
     return TRUE;
 else if (unscaled_a->filename == NULL || unscaled_b->filename == NULL)
     return FALSE;
 else
     return (strcmp (unscaled_a->filename, unscaled_b->filename) == 0);
    }

    return FALSE;
}

/* Finds or creates a #cairo_ft_unscaled_font_t for the filename/id from
 * pattern.  Returns a new reference to the unscaled font.
 */
static cairo_status_t
_cairo_ft_unscaled_font_create_internal (cairo_bool_t from_face,
      char *filename,
      int id,
      FT_Face font_face,
      void *face_context,
      cairo_ft_unscaled_font_t **out)
{
    cairo_ft_unscaled_font_t key, *unscaled;
    cairo_ft_unscaled_font_map_t *font_map;
    cairo_status_t status;

    font_map = _cairo_ft_unscaled_font_map_lock ();
    if (unlikely (font_map == NULL))
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    _cairo_ft_unscaled_font_init_key (&key, from_face, filename, id, font_face, face_context);

    /* Return existing unscaled font if it exists in the hash table. */
    unscaled = _cairo_hash_table_lookup (font_map->hash_table,
      &key.base.hash_entry);
    if (unscaled != NULL) {
 _cairo_unscaled_font_reference (&unscaled->base);
 goto DONE;
    }

    /* Otherwise create it and insert into hash table. */
    unscaled = _cairo_malloc (sizeof (cairo_ft_unscaled_font_t));
    if (unlikely (unscaled == NULL)) {
 status = _cairo_error (CAIRO_STATUS_NO_MEMORY);
 goto UNWIND_FONT_MAP_LOCK;
    }

    status = _cairo_ft_unscaled_font_init (unscaled, from_face, filename, id, font_face, face_context);
    if (unlikely (status))
 goto UNWIND_UNSCALED_MALLOC;

    assert (unscaled->base.hash_entry.hash == key.base.hash_entry.hash);
    status = _cairo_hash_table_insert (font_map->hash_table,
           &unscaled->base.hash_entry);
    if (unlikely (status))
 goto UNWIND_UNSCALED_FONT_INIT;

    mozilla_AddRefSharedFTFace (face_context);

DONE:
    _cairo_ft_unscaled_font_map_unlock ();
    *out = unscaled;
    return CAIRO_STATUS_SUCCESS;

UNWIND_UNSCALED_FONT_INIT:
    _cairo_ft_unscaled_font_fini (unscaled);
UNWIND_UNSCALED_MALLOC:
    free (unscaled);
UNWIND_FONT_MAP_LOCK:
    _cairo_ft_unscaled_font_map_unlock ();
    return status;
}


#if CAIRO_HAS_FC_FONT
static cairo_status_t
_cairo_ft_unscaled_font_create_for_pattern (FcPattern *pattern,
         cairo_ft_unscaled_font_t **out)
{
    FT_Face font_face = NULL;
    char *filename = NULL;
    int id = 0;
    FcResult ret;

    ret = FcPatternGetFTFace (pattern, FC_FT_FACE, 0, &font_face);
    if (ret == FcResultMatch)
 goto DONE;
    if (ret == FcResultOutOfMemory)
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    ret = FcPatternGetString (pattern, FC_FILE, 0, (FcChar8 **) &filename);
    if (ret == FcResultOutOfMemory)
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);
    if (ret == FcResultMatch) {
 if (access (filename, R_OK) == 0) {
     /* If FC_INDEX is not set, we just use 0 */
     ret = FcPatternGetInteger (pattern, FC_INDEX, 0, &id);
     if (ret == FcResultOutOfMemory)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

     goto DONE;
 } else
     return _cairo_error (CAIRO_STATUS_FILE_NOT_FOUND);
    }

    /* The pattern contains neither a face nor a filename, resolve it later. */
    *out = NULL;
    return CAIRO_STATUS_SUCCESS;

DONE:
    return _cairo_ft_unscaled_font_create_internal (font_face != NULL,
          filename, id, font_face, NULL,
          out);
}
#endif

static cairo_status_t
_cairo_ft_unscaled_font_create_from_face (FT_Face face,
       void *face_context,
       cairo_ft_unscaled_font_t **out)
{
    return _cairo_ft_unscaled_font_create_internal (TRUE, NULL, face->face_index, face, face_context, out);
}

static cairo_bool_t
_cairo_ft_unscaled_font_destroy (void *abstract_font)
{
    cairo_ft_unscaled_font_t *unscaled  = abstract_font;
    cairo_ft_unscaled_font_map_t *font_map;

    font_map = _cairo_ft_unscaled_font_map_lock ();
    /* All created objects must have been mapped in the font map. */
    assert (font_map != NULL);

    if (! _cairo_reference_count_dec_and_test (&unscaled->base.ref_count)) {
 /* somebody recreated the font whilst we waited for the lock */
 _cairo_ft_unscaled_font_map_unlock ();
 return FALSE;
    }

    _cairo_hash_table_remove (font_map->hash_table,
         &unscaled->base.hash_entry);

    if (unscaled->from_face) {
 /* See comments in _ft_font_face_destroy about the "zombie" state
 * for a _ft_font_face.
 */
 if (unscaled->faces && unscaled->faces->unscaled == NULL) {
     assert (unscaled->faces->next == NULL);
     CAIRO_FT_LOCK (unscaled);
     cairo_font_face_destroy (&unscaled->faces->base);
     CAIRO_FT_UNLOCK (unscaled);
 }
 mozilla_ReleaseSharedFTFace (unscaled->face_context, unscaled);
    } else {
 _font_map_release_face_lock_held (font_map, unscaled);
    }
    unscaled->face = NULL;
    unscaled->face_context = NULL;

    _cairo_ft_unscaled_font_map_unlock ();

    _cairo_ft_unscaled_font_fini (unscaled);
    return TRUE;
}

static cairo_bool_t
_has_unlocked_face (const void *entry)
{
    const cairo_ft_unscaled_font_t *unscaled = entry;

    return (!unscaled->from_face && unscaled->lock_count == 0 && unscaled->face);
}

/* Ensures that an unscaled font has a face object. If we exceed
 * MAX_OPEN_FACES, try to close some.
 *
 * This differs from _cairo_ft_scaled_font_lock_face in that it doesn't
 * set the scale on the face, but just returns it at the last scale.
 */
static cairo_warn FT_Face
_cairo_ft_unscaled_font_lock_face (cairo_ft_unscaled_font_t *unscaled)
{
    cairo_ft_unscaled_font_map_t *font_map;
    FT_Face face = NULL;
    FT_Error error;

    if (unscaled->face_context) {
 if (!mozilla_LockSharedFTFace (unscaled->face_context, unscaled)) {
     unscaled->have_scale = FALSE;
 }
    } else {
        CAIRO_FT_LOCK (unscaled);
    }
    unscaled->lock_count++;

    if (unscaled->face)
 return unscaled->face;

    /* If this unscaled font was created from an FT_Face then we just
     * returned it above. */
    assert (!unscaled->from_face);

    font_map = _cairo_ft_unscaled_font_map_lock ();
    {
 assert (font_map != NULL);

 while (font_map->num_open_faces >= MAX_OPEN_FACES)
 {
     cairo_ft_unscaled_font_t *entry;

     entry = _cairo_hash_table_random_entry (font_map->hash_table,
          _has_unlocked_face);
     if (entry == NULL)
  break;

     _font_map_release_face_lock_held (font_map, entry);
 }
    }
    _cairo_ft_unscaled_font_map_unlock ();

    error = FT_New_Face (font_map->ft_library,
    unscaled->filename,
    unscaled->id,
    &face);
    if (error)
    {
 unscaled->lock_count--;
 CAIRO_FT_UNLOCK (unscaled);
 _cairo_error_throw (_cairo_ft_to_cairo_error (error));
 return NULL;
    }

    unscaled->face = face;

    unscaled->have_color = FT_HAS_COLOR (face) != 0;
    unscaled->have_color_set = TRUE;

    font_map->num_open_faces++;

    return face;
}


/* Unlock unscaled font locked with _cairo_ft_unscaled_font_lock_face
 */
static void
_cairo_ft_unscaled_font_unlock_face (cairo_ft_unscaled_font_t *unscaled)
{
    assert (unscaled->lock_count > 0);

    unscaled->lock_count--;

    CAIRO_FT_UNLOCK (unscaled);
}


static cairo_status_t
_compute_transform (cairo_ft_font_transform_t *sf,
      cairo_matrix_t      *scale,
      cairo_ft_unscaled_font_t *unscaled)
{
    cairo_status_t status;
    double x_scale, y_scale;
    cairo_matrix_t normalized = *scale;

    /* The font matrix has x and y "scale" components which we extract and
     * use as character scale values. These influence the way freetype
     * chooses hints, as well as selecting different bitmaps in
     * hand-rendered fonts. We also copy the normalized matrix to
     * freetype's transformation.
     */

    status = _cairo_matrix_compute_basis_scale_factors (scale,
        &x_scale, &y_scale,
        1);
    if (unlikely (status))
 return status;

    /* FreeType docs say this about x_scale and y_scale:
     * "A character width or height smaller than 1pt is set to 1pt;"
     * So, we cap them from below at 1.0 and let the FT transform
     * take care of sub-1.0 scaling. */
    if (x_scale < 1.0)
      x_scale = 1.0;
    if (y_scale < 1.0)
      y_scale = 1.0;

    if (unscaled && (unscaled->face->face_flags & FT_FACE_FLAG_SCALABLE) == 0) {
 double min_distance = DBL_MAX;
 cairo_bool_t magnify = TRUE;
 int i;
 double best_x_size = 0;
 double best_y_size = 0;

 for (i = 0; i < unscaled->face->num_fixed_sizes; i++) {
     double x_size = unscaled->face->available_sizes[i].x_ppem / 64.;
     double y_size = unscaled->face->available_sizes[i].y_ppem / 64.;
     double distance = y_size - y_scale;

     /*
     * distance is positive if current strike is larger than desired
     * size, and negative if smaller.
     *
     * We like to prefer down-scaling to upscaling.
     */

     if ((magnify && distance >= 0) || fabs (distance) <= min_distance) {
  magnify = distance < 0;
  min_distance = fabs (distance);
  best_x_size = x_size;
  best_y_size = y_size;
     }
 }

 x_scale = best_x_size;
 y_scale = best_y_size;
    }

    sf->x_scale = x_scale;
    sf->y_scale = y_scale;

    cairo_matrix_scale (&normalized, 1.0 / x_scale, 1.0 / y_scale);

    _cairo_matrix_get_affine (&normalized,
         &sf->shape[0][0], &sf->shape[0][1],
         &sf->shape[1][0], &sf->shape[1][1],
         NULL, NULL);

    return CAIRO_STATUS_SUCCESS;
}

/* Temporarily scales an unscaled font to the give scale. We catch
 * scaling to the same size, since changing a FT_Face is expensive.
 */
static cairo_status_t
_cairo_ft_unscaled_font_set_scale (cairo_ft_unscaled_font_t *unscaled,
       cairo_matrix_t       *scale)
{
    cairo_status_t status;
    cairo_ft_font_transform_t sf;
    FT_Matrix mat;
    FT_Error error;

    assert (unscaled->face != NULL);

    if (unscaled->have_scale &&
 scale->xx == unscaled->current_scale.xx &&
 scale->yx == unscaled->current_scale.yx &&
 scale->xy == unscaled->current_scale.xy &&
 scale->yy == unscaled->current_scale.yy)
 return CAIRO_STATUS_SUCCESS;

    unscaled->have_scale = TRUE;
    unscaled->current_scale = *scale;

    status = _compute_transform (&sf, scale, unscaled);
    if (unlikely (status))
 return status;

    unscaled->x_scale = sf.x_scale;
    unscaled->y_scale = sf.y_scale;

    mat.xx = DOUBLE_TO_16_16(sf.shape[0][0]);
    mat.yx = - DOUBLE_TO_16_16(sf.shape[0][1]);
    mat.xy = - DOUBLE_TO_16_16(sf.shape[1][0]);
    mat.yy = DOUBLE_TO_16_16(sf.shape[1][1]);

    unscaled->have_shape = (mat.xx != 0x10000 ||
       mat.yx != 0x00000 ||
       mat.xy != 0x00000 ||
       mat.yy != 0x10000);

    unscaled->Current_Shape = mat;
    cairo_matrix_init (&unscaled->current_shape,
         sf.shape[0][0], sf.shape[0][1],
         sf.shape[1][0], sf.shape[1][1],
         0.0, 0.0);

    FT_Set_Transform(unscaled->face, &mat, NULL);

    error = FT_Set_Char_Size (unscaled->face,
         sf.x_scale * 64.0 + .5,
         sf.y_scale * 64.0 + .5,
         0, 0);
    if (error)
      return _cairo_error (_cairo_ft_to_cairo_error (error));

    return CAIRO_STATUS_SUCCESS;
}

/* we sometimes need to convert the glyph bitmap in a FT_GlyphSlot
 * into a different format. For example, we want to convert a
 * FT_PIXEL_MODE_LCD or FT_PIXEL_MODE_LCD_V bitmap into a 32-bit
 * ARGB or ABGR bitmap.
 *
 * this function prepares a target descriptor for this operation.
 *
 * input :: target bitmap descriptor. The function will set its
 *          'width', 'rows' and 'pitch' fields, and only these
 *
 * slot  :: the glyph slot containing the source bitmap. this
 *          function assumes that slot->format == FT_GLYPH_FORMAT_BITMAP
 *
 * mode  :: the requested final rendering mode. supported values are
 *          MONO, NORMAL (i.e. gray), LCD and LCD_V
 *
 * the function returns the size in bytes of the corresponding buffer,
 * it's up to the caller to allocate the corresponding memory block
 * before calling _fill_xrender_bitmap
 *
 * it also returns -1 in case of error (e.g. incompatible arguments,
 * like trying to convert a gray bitmap into a monochrome one)
 */
static int
_compute_xrender_bitmap_size(FT_Bitmap      *target,
        FT_GlyphSlot    slot,
        FT_Render_Mode  mode)
{
    FT_Bitmap *ftbit;
    int width, height, pitch;

    if (slot->format != FT_GLYPH_FORMAT_BITMAP)
 return -1;

    /* compute the size of the final bitmap */
    ftbit = &slot->bitmap;

    width = ftbit->width;
    height = ftbit->rows;
    pitch = (width + 3) & ~3;

    switch (ftbit->pixel_mode) {
    case FT_PIXEL_MODE_MONO:
 if (mode == FT_RENDER_MODE_MONO) {
     pitch = (((width + 31) & ~31) >> 3);
     break;
 }
 /* fall-through */

    case FT_PIXEL_MODE_GRAY:
 if (mode == FT_RENDER_MODE_LCD ||
     mode == FT_RENDER_MODE_LCD_V)
 {
     /* each pixel is replicated into a 32-bit ARGB value */
     pitch = width * 4;
 }
 break;

    case FT_PIXEL_MODE_LCD:
 if (mode != FT_RENDER_MODE_LCD)
     return -1;

 /* horz pixel triplets are packed into 32-bit ARGB values */
 width /= 3;
 pitch = width * 4;
 break;

    case FT_PIXEL_MODE_LCD_V:
 if (mode != FT_RENDER_MODE_LCD_V)
     return -1;

 /* vert pixel triplets are packed into 32-bit ARGB values */
 height /= 3;
 pitch = width * 4;
 break;

#ifdef FT_LOAD_COLOR
    case FT_PIXEL_MODE_BGRA:
 /* each pixel is replicated into a 32-bit ARGB value */
 pitch = width * 4;
 break;
#endif

    default:  /* unsupported source format */
 return -1;
    }

    target->width = width;
    target->rows = height;
    target->pitch = pitch;
    target->buffer = NULL;

    return pitch * height;
}

/* this functions converts the glyph bitmap found in a FT_GlyphSlot
 * into a different format (see _compute_xrender_bitmap_size)
 *
 * you should call this function after _compute_xrender_bitmap_size
 *
 * target :: target bitmap descriptor. Note that its 'buffer' pointer
 *           must point to memory allocated by the caller
 *
 * slot   :: the glyph slot containing the source bitmap
 *
 * mode   :: the requested final rendering mode
 *
 * bgr    :: boolean, set if BGR or VBGR pixel ordering is needed
 */
static void
_fill_xrender_bitmap(FT_Bitmap      *target,
       FT_GlyphSlot    slot,
       FT_Render_Mode  mode,
       int             bgr)
{
    FT_Bitmap *ftbit = &slot->bitmap;
    unsigned char *srcLine = ftbit->buffer;
    unsigned char *dstLine = target->buffer;
    int src_pitch = ftbit->pitch;
    int width = target->width;
    int height = target->rows;
    int pitch = target->pitch;
    int subpixel;
    int h;

    subpixel = (mode == FT_RENDER_MODE_LCD ||
  mode == FT_RENDER_MODE_LCD_V);

    if (src_pitch < 0)
 srcLine -= src_pitch * (ftbit->rows - 1);

    target->pixel_mode = ftbit->pixel_mode;

    switch (ftbit->pixel_mode) {
    case FT_PIXEL_MODE_MONO:
 if (subpixel) {
     /* convert mono to ARGB32 values */

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch) {
  int x;

  for (x = 0; x < width; x++) {
      if (srcLine[(x >> 3)] & (0x80 >> (x & 7)))
   ((unsigned int *) dstLine)[x] = 0xffffffffU;
  }
     }
     target->pixel_mode = FT_PIXEL_MODE_LCD;

 } else if (mode == FT_RENDER_MODE_NORMAL) {
     /* convert mono to 8-bit gray */

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch) {
  int x;

  for (x = 0; x < width; x++) {
      if (srcLine[(x >> 3)] & (0x80 >> (x & 7)))
   dstLine[x] = 0xff;
  }
     }
     target->pixel_mode = FT_PIXEL_MODE_GRAY;

 } else {
     /* copy mono to mono */

     int  bytes = (width + 7) >> 3;

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch)
  memcpy (dstLine, srcLine, bytes);
 }
 break;

    case FT_PIXEL_MODE_GRAY:
 if (subpixel) {
     /* convert gray to ARGB32 values */

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch) {
  int x;
  unsigned int *dst = (unsigned int *) dstLine;

  for (x = 0; x < width; x++) {
      unsigned int pix = srcLine[x];

      pix |= (pix << 8);
      pix |= (pix << 16);

      dst[x] = pix;
  }
     }
     target->pixel_mode = FT_PIXEL_MODE_LCD;
        } else {
            /* copy gray into gray */

            for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch)
                memcpy (dstLine, srcLine, width);
        }
        break;

    case FT_PIXEL_MODE_LCD:
 if (!bgr) {
     /* convert horizontal RGB into ARGB32 */

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch) {
  int x;
  unsigned char *src = srcLine;
  unsigned int *dst = (unsigned int *) dstLine;

  for (x = 0; x < width; x++, src += 3) {
      unsigned int  pix;

      pix = ((unsigned int)src[0] << 16) |
     ((unsigned int)src[1] <<  8) |
     ((unsigned int)src[2]      ) |
     ((unsigned int)src[1] << 24) ;

      dst[x] = pix;
  }
     }
 } else {
     /* convert horizontal BGR into ARGB32 */

     for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch) {

  int x;
  unsigned char *src = srcLine;
  unsigned int *dst = (unsigned int *) dstLine;

  for (x = 0; x < width; x++, src += 3) {
      unsigned int  pix;

      pix = ((unsigned int)src[2] << 16) |
     ((unsigned int)src[1] <<  8) |
     ((unsigned int)src[0]      ) |
     ((unsigned int)src[1] << 24) ;

      dst[x] = pix;
  }
     }
 }
 break;

    case FT_PIXEL_MODE_LCD_V:
 /* convert vertical RGB into ARGB32 */
 if (!bgr) {

     for (h = height; h > 0; h--, srcLine += 3 * src_pitch, dstLine += pitch) {
  int x;
  unsigned char* src = srcLine;
  unsigned int*  dst = (unsigned int *) dstLine;

  for (x = 0; x < width; x++, src += 1) {
      unsigned int pix;
      pix = ((unsigned int)src[0]           << 16) |
     ((unsigned int)src[src_pitch]   <<  8) |
     ((unsigned int)src[src_pitch*2]      ) |
     ((unsigned int)src[src_pitch]   << 24) ;
      dst[x] = pix;
  }
     }
 } else {

     for (h = height; h > 0; h--, srcLine += 3*src_pitch, dstLine += pitch) {
  int x;
  unsigned char *src = srcLine;
  unsigned int *dst = (unsigned int *) dstLine;

  for (x = 0; x < width; x++, src += 1) {
      unsigned int  pix;

      pix = ((unsigned int)src[src_pitch * 2] << 16) |
     ((unsigned int)src[src_pitch]     <<  8) |
     ((unsigned int)src[0]                  ) |
     ((unsigned int)src[src_pitch]     << 24) ;

      dst[x] = pix;
  }
     }
 }
 break;

#ifdef FT_LOAD_COLOR
    case FT_PIXEL_MODE_BGRA:
 for (h = height; h > 0; h--, srcLine += src_pitch, dstLine += pitch)
     memcpy (dstLine, srcLine, (size_t)width * 4);
 break;
#endif

    default:
 assert (0);
    }
}


/* Fills in val->image with an image surface created from @bitmap
 */
static cairo_status_t
_get_bitmap_surface (FT_Bitmap       *bitmap,
       FT_Library        library,
       cairo_bool_t       own_buffer,
       cairo_font_options_t    *font_options,
       cairo_image_surface_t  **surface)
{
    unsigned int width, height;
    unsigned char *data;
    int format = CAIRO_FORMAT_A8;
    int stride;
    cairo_image_surface_t *image;
    cairo_bool_t component_alpha = FALSE;

    width = bitmap->width;
    height = bitmap->rows;

    if (width == 0 || height == 0) {
 *surface = (cairo_image_surface_t *)
     cairo_image_surface_create_for_data (NULL, format, 0, 0, 0);
 return (*surface)->base.status;
    }

    switch (bitmap->pixel_mode) {
    case FT_PIXEL_MODE_MONO:
 stride = (((width + 31) & ~31) >> 3);
 if (own_buffer) {
     data = bitmap->buffer;
     assert (stride == bitmap->pitch);
 } else {
     data = _cairo_malloc_ab (height, stride);
     if (!data)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

     if (stride == bitmap->pitch) {
  memcpy (data, bitmap->buffer, (size_t)stride * height);
     } else {
  int i;
  unsigned char *source, *dest;

  source = bitmap->buffer;
  dest = data;
  for (i = height; i; i--) {
      memcpy (dest, source, bitmap->pitch);
      memset (dest + bitmap->pitch, '\0', stride - bitmap->pitch);

      source += bitmap->pitch;
      dest += stride;
  }
     }
 }

#ifndef WORDS_BIGENDIAN
 {
     uint8_t *d = data;
     int count = stride * height;

     while (count--) {
  *d = CAIRO_BITSWAP8 (*d);
  d++;
     }
 }
#endif
 format = CAIRO_FORMAT_A1;
 break;

    case FT_PIXEL_MODE_LCD:
    case FT_PIXEL_MODE_LCD_V:
    case FT_PIXEL_MODE_GRAY:
 if (font_options->antialias != CAIRO_ANTIALIAS_SUBPIXEL ||
     bitmap->pixel_mode == FT_PIXEL_MODE_GRAY)
 {
     stride = bitmap->pitch;

     /* We don't support stride not multiple of 4. */
     if (stride & 3)
     {
  assert (!own_buffer);
  goto convert;
     }

     if (own_buffer) {
  data = bitmap->buffer;
     } else {
  data = _cairo_malloc_ab (height, stride);
  if (!data)
      return _cairo_error (CAIRO_STATUS_NO_MEMORY);

  memcpy (data, bitmap->buffer, (size_t)stride * height);
     }

     format = CAIRO_FORMAT_A8;
 } else {
     data = bitmap->buffer;
     stride = bitmap->pitch;
     format = CAIRO_FORMAT_ARGB32;
     component_alpha = TRUE;
 }
 break;
#ifdef FT_LOAD_COLOR
    case FT_PIXEL_MODE_BGRA:
 stride = width * 4;
 if (own_buffer) {
     data = bitmap->buffer;
 } else {
     data = _cairo_malloc_ab (height, stride);
     if (!data)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

     memcpy (data, bitmap->buffer, (size_t)stride * height);
 }

 if (!_cairo_is_little_endian ())
 {
     /* Byteswap. */
     unsigned int i, count = height * width;
     uint32_t *p = (uint32_t *) data;
     for (i = 0; i < count; i++)
  p[i] = bswap_32 (p[i]);
 }
 format = CAIRO_FORMAT_ARGB32;
 break;
#endif
    case FT_PIXEL_MODE_GRAY2:
    case FT_PIXEL_MODE_GRAY4:
    convert:
 if (!own_buffer && library)
 {
     /* This is pretty much the only case that we can get in here. */
     /* Convert to 8bit grayscale. */

     FT_Bitmap  tmp;
     FT_Int     align;
     FT_Error   error;

     format = CAIRO_FORMAT_A8;

     align = cairo_format_stride_for_width (format, bitmap->width);

     FT_Bitmap_New( &tmp );

     error = FT_Bitmap_Convert( library, bitmap, &tmp, align );
     if (error)
  return _cairo_error (_cairo_ft_to_cairo_error (error));

     FT_Bitmap_Done( library, bitmap );
     *bitmap = tmp;

     stride = bitmap->pitch;
     data = _cairo_malloc_ab (height, stride);
     if (!data)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

     if (bitmap->num_grays != 256)
     {
       unsigned int x, y;
       unsigned int mul = 255 / (bitmap->num_grays - 1);
       FT_Byte *p = bitmap->buffer;
       for (y = 0; y < height; y++) {
         for (x = 0; x < width; x++)
    p[x] *= mul;
  p += bitmap->pitch;
       }
     }

     memcpy (data, bitmap->buffer, (size_t)stride * height);
     break;
 }
 /* fall through */
 /* These could be triggered by very rare types of TrueType fonts */
    default:
 if (own_buffer)
     free (bitmap->buffer);
 return _cairo_error (CAIRO_STATUS_INVALID_FORMAT);
    }

    /* XXX */
    *surface = image = (cairo_image_surface_t *)
 cairo_image_surface_create_for_data (data,
          format,
          width, height, stride);
    if (image->base.status) {
 free (data);
 return (*surface)->base.status;
    }

    if (component_alpha)
 pixman_image_set_component_alpha (image->pixman_image, TRUE);

    _cairo_image_surface_assume_ownership_of_data (image);

    _cairo_debug_check_image_surface_is_defined (&image->base);

    return CAIRO_STATUS_SUCCESS;
}

/* Converts an outline FT_GlyphSlot into an image
 *
 * This could go through _render_glyph_bitmap as well, letting
 * FreeType convert the outline to a bitmap, but doing it ourselves
 * has two minor advantages: first, we save a copy of the bitmap
 * buffer: we can directly use the buffer that FreeType renders
 * into.
 *
 * Second, it may help when we add support for subpixel
 * rendering: the Xft code does it this way. (Keith thinks that
 * it may also be possible to get the subpixel rendering with
 * FT_Render_Glyph: something worth looking into in more detail
 * when we add subpixel support. If so, we may want to eliminate
 * this version of the code path entirely.
 */
static cairo_status_t
_render_glyph_outline (FT_Face                    face,
         cairo_font_options_t  *font_options,
         cairo_image_surface_t **surface)
{
    int rgba = FC_RGBA_UNKNOWN;
    int lcd_filter = FT_LCD_FILTER_DEFAULT;
    FT_GlyphSlot glyphslot = face->glyph;
    FT_Outline *outline = &glyphslot->outline;
    FT_Bitmap bitmap;
    FT_BBox cbox;
    unsigned int width, height;
    cairo_status_t status;
    FT_Error error;
    FT_Library library = glyphslot->library;
    FT_Render_Mode render_mode = FT_RENDER_MODE_NORMAL;

    switch (font_options->antialias) {
    case CAIRO_ANTIALIAS_NONE:
 render_mode = FT_RENDER_MODE_MONO;
 break;

    case CAIRO_ANTIALIAS_SUBPIXEL:
    case CAIRO_ANTIALIAS_BEST:
 switch (font_options->subpixel_order) {
     case CAIRO_SUBPIXEL_ORDER_DEFAULT:
     case CAIRO_SUBPIXEL_ORDER_RGB:
     case CAIRO_SUBPIXEL_ORDER_BGR:
  render_mode = FT_RENDER_MODE_LCD;
  break;

     case CAIRO_SUBPIXEL_ORDER_VRGB:
     case CAIRO_SUBPIXEL_ORDER_VBGR:
  render_mode = FT_RENDER_MODE_LCD_V;
  break;
 }

 switch (font_options->lcd_filter) {
 case CAIRO_LCD_FILTER_NONE:
     lcd_filter = FT_LCD_FILTER_NONE;
     break;
 case CAIRO_LCD_FILTER_INTRA_PIXEL:
     lcd_filter = FT_LCD_FILTER_LEGACY;
     break;
 case CAIRO_LCD_FILTER_FIR3:
     lcd_filter = FT_LCD_FILTER_LIGHT;
     break;
 case CAIRO_LCD_FILTER_DEFAULT:
 case CAIRO_LCD_FILTER_FIR5:
     lcd_filter = FT_LCD_FILTER_DEFAULT;
     break;
 }

 break;

    case CAIRO_ANTIALIAS_DEFAULT:
    case CAIRO_ANTIALIAS_GRAY:
    case CAIRO_ANTIALIAS_GOOD:
    case CAIRO_ANTIALIAS_FAST:
 render_mode = FT_RENDER_MODE_NORMAL;
    }

    FT_Outline_Get_CBox (outline, &cbox);

    cbox.xMin &= -64;
    cbox.yMin &= -64;
    cbox.xMax = (cbox.xMax + 63) & -64;
    cbox.yMax = (cbox.yMax + 63) & -64;

    width = (unsigned int) ((cbox.xMax - cbox.xMin) >> 6);
    height = (unsigned int) ((cbox.yMax - cbox.yMin) >> 6);

    if (width * height == 0) {
 cairo_format_t format;
 /* Looks like fb handles zero-sized images just fine */
 switch (render_mode) {
 case FT_RENDER_MODE_MONO:
     format = CAIRO_FORMAT_A1;
     break;
 case FT_RENDER_MODE_LCD:
 case FT_RENDER_MODE_LCD_V:
     format= CAIRO_FORMAT_ARGB32;
     break;
 case FT_RENDER_MODE_LIGHT:
 case FT_RENDER_MODE_NORMAL:
 case FT_RENDER_MODE_MAX:
#if HAVE_FT_RENDER_MODE_SDF
 case FT_RENDER_MODE_SDF:
#endif
 default:
     format = CAIRO_FORMAT_A8;
     break;
 }

 (*surface) = (cairo_image_surface_t *)
     cairo_image_surface_create_for_data (NULL, format, 0, 0, 0);
 pixman_image_set_component_alpha ((*surface)->pixman_image, TRUE);
 if ((*surface)->base.status)
     return (*surface)->base.status;
    } else {

 int bitmap_size;

 switch (render_mode) {
 case FT_RENDER_MODE_LCD:
     if (font_options->subpixel_order == CAIRO_SUBPIXEL_ORDER_BGR)
  rgba = FC_RGBA_BGR;
     else
  rgba = FC_RGBA_RGB;
     break;

 case FT_RENDER_MODE_LCD_V:
     if (font_options->subpixel_order == CAIRO_SUBPIXEL_ORDER_VBGR)
  rgba = FC_RGBA_VBGR;
     else
  rgba = FC_RGBA_VRGB;
     break;

 case FT_RENDER_MODE_MONO:
 case FT_RENDER_MODE_LIGHT:
 case FT_RENDER_MODE_NORMAL:
 case FT_RENDER_MODE_MAX:
#if HAVE_FT_RENDER_MODE_SDF
 case FT_RENDER_MODE_SDF:
#endif
 default:
     break;
 }

#if HAVE_FT_LIBRARY_SETLCDFILTER
 FT_Library_SetLcdFilter (library, lcd_filter);
#endif

 error = FT_Render_Glyph (face->glyph, render_mode);

#if HAVE_FT_LIBRARY_SETLCDFILTER
 FT_Library_SetLcdFilter (library, FT_LCD_FILTER_NONE);
#endif

 if (error)
     return _cairo_error (_cairo_ft_to_cairo_error (error));

 bitmap_size = _compute_xrender_bitmap_size (&bitmap,
          face->glyph,
          render_mode);
 if (bitmap_size < 0)
     return _cairo_error (CAIRO_STATUS_INVALID_FORMAT);

 bitmap.buffer = calloc (1, bitmap_size);
 if (bitmap.buffer == NULL)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

 _fill_xrender_bitmap (&bitmap, face->glyph, render_mode,
         (rgba == FC_RGBA_BGR || rgba == FC_RGBA_VBGR));

 /* Note:
 * _get_bitmap_surface will free bitmap.buffer if there is an error
 */
 status = _get_bitmap_surface (&bitmap, NULL, TRUE, font_options, surface);
 if (unlikely (status))
     return status;

 /* Note: the font's coordinate system is upside down from ours, so the
 * Y coordinate of the control box needs to be negated.  Moreover, device
 * offsets are position of glyph origin relative to top left while xMin
 * and yMax are offsets of top left relative to origin.  Another negation.
 */
 cairo_surface_set_device_offset (&(*surface)->base,
      (double)-glyphslot->bitmap_left,
      (double)+glyphslot->bitmap_top);
    }

    return CAIRO_STATUS_SUCCESS;
}

/* Converts a bitmap (or other) FT_GlyphSlot into an image */
static cairo_status_t
_render_glyph_bitmap (FT_Face        face,
        cairo_font_options_t   *font_options,
        cairo_image_surface_t **surface)
{
    FT_GlyphSlot glyphslot = face->glyph;
    cairo_status_t status;
    FT_Error error;

    /* According to the FreeType docs, glyphslot->format could be
     * something other than FT_GLYPH_FORMAT_OUTLINE or
     * FT_GLYPH_FORMAT_BITMAP. Calling FT_Render_Glyph gives FreeType
     * the opportunity to convert such to
     * bitmap. FT_GLYPH_FORMAT_COMPOSITE will not be encountered since
     * we avoid the FT_LOAD_NO_RECURSE flag.
     */
    error = FT_Render_Glyph (glyphslot, FT_RENDER_MODE_NORMAL);
    /* XXX ignoring all other errors for now.  They are not fatal, typically
     * just a glyph-not-found. */
    if (error == FT_Err_Out_Of_Memory)
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    status = _get_bitmap_surface (&glyphslot->bitmap,
      glyphslot->library,
      FALSE, font_options,
      surface);
    if (unlikely (status))
 return status;

    /*
     * Note: the font's coordinate system is upside down from ours, so the
     * Y coordinate of the control box needs to be negated.  Moreover, device
     * offsets are position of glyph origin relative to top left while
     * bitmap_left and bitmap_top are offsets of top left relative to origin.
     * Another negation.
     */
    cairo_surface_set_device_offset (&(*surface)->base,
         -glyphslot->bitmap_left,
         +glyphslot->bitmap_top);

    return CAIRO_STATUS_SUCCESS;
}

static cairo_status_t
_transform_glyph_bitmap (cairo_matrix_t         * shape,
    cairo_image_surface_t ** surface)
{
    cairo_matrix_t original_to_transformed;
    cairo_matrix_t transformed_to_original;
    cairo_image_surface_t *old_image;
    cairo_surface_t *image;
    double x[4], y[4];
    double origin_x, origin_y;
    int orig_width, orig_height;
    int i;
    int x_min, y_min, x_max, y_max;
    int width, height;
    cairo_status_t status;
    cairo_surface_pattern_t pattern;

    /* We want to compute a transform that takes the origin
     * (device_x_offset, device_y_offset) to 0,0, then applies
     * the "shape" portion of the font transform
     */
    original_to_transformed = *shape;

    cairo_surface_get_device_offset (&(*surface)->base, &origin_x, &origin_y);
    orig_width = (*surface)->width;
    orig_height = (*surface)->height;

    cairo_matrix_translate (&original_to_transformed,
       -origin_x, -origin_y);

    /* Find the bounding box of the original bitmap under that
     * transform
     */
    x[0] = 0;          y[0] = 0;
    x[1] = orig_width; y[1] = 0;
    x[2] = orig_width; y[2] = orig_height;
    x[3] = 0;          y[3] = orig_height;

    for (i = 0; i < 4; i++)
      cairo_matrix_transform_point (&original_to_transformed,
        &x[i], &y[i]);

    x_min = floor (x[0]);   y_min = floor (y[0]);
    x_max =  ceil (x[0]);   y_max =  ceil (y[0]);

    for (i = 1; i < 4; i++) {
 if (x[i] < x_min)
     x_min = floor (x[i]);
 else if (x[i] > x_max)
     x_max = ceil (x[i]);
 if (y[i] < y_min)
     y_min = floor (y[i]);
 else if (y[i] > y_max)
     y_max = ceil (y[i]);
    }

    /* Adjust the transform so that the bounding box starts at 0,0 ...
     * this gives our final transform from original bitmap to transformed
     * bitmap.
     */
    original_to_transformed.x0 -= x_min;
    original_to_transformed.y0 -= y_min;

    /* Create the transformed bitmap */
    width  = x_max - x_min;
    height = y_max - y_min;

    transformed_to_original = original_to_transformed;
    status = cairo_matrix_invert (&transformed_to_original);
    if (unlikely (status))
 return status;

    if ((*surface)->format == CAIRO_FORMAT_ARGB32 &&
        !pixman_image_get_component_alpha ((*surface)->pixman_image))
      image = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, width, height);
    else
      image = cairo_image_surface_create (CAIRO_FORMAT_A8, width, height);
    if (unlikely (image->status))
 return image->status;

    /* Draw the original bitmap transformed into the new bitmap
     */
    _cairo_pattern_init_for_surface (&pattern, &(*surface)->base);
    cairo_pattern_set_matrix (&pattern.base, &transformed_to_original);

    status = _cairo_surface_paint (image,
       CAIRO_OPERATOR_SOURCE,
       &pattern.base,
       NULL);

    _cairo_pattern_fini (&pattern.base);

    if (unlikely (status)) {
 cairo_surface_destroy (image);
 return status;
    }

    /* Now update the cache entry for the new bitmap, recomputing
     * the origin based on the final transform.
     */
    cairo_matrix_transform_point (&original_to_transformed,
      &origin_x, &origin_y);

    old_image = (*surface);
    (*surface) = (cairo_image_surface_t *)image;

    /* Note: we converted subpixel-rendered RGBA images to grayscale,
     * so, no need to copy component alpha to new image. */

    cairo_surface_destroy (&old_image->base);

    cairo_surface_set_device_offset (&(*surface)->base,
         _cairo_lround (origin_x),
         _cairo_lround (origin_y));
    return CAIRO_STATUS_SUCCESS;
}

static const cairo_unscaled_font_backend_t cairo_ft_unscaled_font_backend = {
    _cairo_ft_unscaled_font_destroy,
#if 0
    _cairo_ft_unscaled_font_create_glyph
#endif
};

/* #cairo_ft_scaled_font_t */

typedef struct _cairo_ft_scaled_font {
    cairo_scaled_font_t base;
    cairo_ft_unscaled_font_t *unscaled;
    cairo_ft_options_t ft_options;
} cairo_ft_scaled_font_t;

static const cairo_scaled_font_backend_t _cairo_ft_scaled_font_backend;

#if CAIRO_HAS_FC_FONT
/* The load flags passed to FT_Load_Glyph control aspects like hinting and
 * antialiasing. Here we compute them from the fields of a FcPattern.
 */
static void
_get_pattern_ft_options (FcPattern *pattern, cairo_ft_options_t *ret)
{
    FcBool antialias, vertical_layout, hinting, autohint, bitmap, embolden;
    cairo_ft_options_t ft_options;
    int rgba;
#ifdef FC_HINT_STYLE
    int hintstyle;
#endif
    char *variations;

    _cairo_font_options_init_default (&ft_options.base);
    ft_options.load_flags = FT_LOAD_DEFAULT;
    ft_options.synth_flags = 0;

#ifndef FC_EMBEDDED_BITMAP
#define FC_EMBEDDED_BITMAP "embeddedbitmap"
#endif

    /* Check whether to force use of embedded bitmaps */
    if (FcPatternGetBool (pattern,
     FC_EMBEDDED_BITMAP, 0, &bitmap) != FcResultMatch)
 bitmap = FcFalse;

    /* disable antialiasing if requested */
    if (FcPatternGetBool (pattern,
     FC_ANTIALIAS, 0, &antialias) != FcResultMatch)
 antialias = FcTrue;
    
    if (antialias) {
 cairo_subpixel_order_t subpixel_order;
 int lcd_filter;

 /* disable hinting if requested */
 if (FcPatternGetBool (pattern,
         FC_HINTING, 0, &hinting) != FcResultMatch)
     hinting = FcTrue;

 if (FcPatternGetInteger (pattern,
     FC_RGBA, 0, &rgba) != FcResultMatch)
     rgba = FC_RGBA_UNKNOWN;

 switch (rgba) {
 case FC_RGBA_RGB:
     subpixel_order = CAIRO_SUBPIXEL_ORDER_RGB;
     break;
 case FC_RGBA_BGR:
     subpixel_order = CAIRO_SUBPIXEL_ORDER_BGR;
     break;
 case FC_RGBA_VRGB:
     subpixel_order = CAIRO_SUBPIXEL_ORDER_VRGB;
     break;
 case FC_RGBA_VBGR:
     subpixel_order = CAIRO_SUBPIXEL_ORDER_VBGR;
     break;
 case FC_RGBA_UNKNOWN:
 case FC_RGBA_NONE:
 default:
     subpixel_order = CAIRO_SUBPIXEL_ORDER_DEFAULT;
     break;
 }

 if (subpixel_order != CAIRO_SUBPIXEL_ORDER_DEFAULT) {
     ft_options.base.subpixel_order = subpixel_order;
     ft_options.base.antialias = CAIRO_ANTIALIAS_SUBPIXEL;
 }

 if (FcPatternGetInteger (pattern,
     FC_LCD_FILTER, 0, &lcd_filter) == FcResultMatch)
 {
     switch (lcd_filter) {
     case FC_LCD_NONE:
  ft_options.base.lcd_filter = CAIRO_LCD_FILTER_NONE;
  break;
     case FC_LCD_DEFAULT:
  ft_options.base.lcd_filter = CAIRO_LCD_FILTER_FIR5;
  break;
     case FC_LCD_LIGHT:
  ft_options.base.lcd_filter = CAIRO_LCD_FILTER_FIR3;
  break;
     case FC_LCD_LEGACY:
  ft_options.base.lcd_filter = CAIRO_LCD_FILTER_INTRA_PIXEL;
  break;
     }
 }

#ifdef FC_HINT_STYLE
 if (FcPatternGetInteger (pattern,
     FC_HINT_STYLE, 0, &hintstyle) != FcResultMatch)
     hintstyle = FC_HINT_FULL;

 if (!hinting)
     hintstyle = FC_HINT_NONE;

 switch (hintstyle) {
 case FC_HINT_NONE:
     ft_options.base.hint_style = CAIRO_HINT_STYLE_NONE;
     break;
 case FC_HINT_SLIGHT:
     ft_options.base.hint_style = CAIRO_HINT_STYLE_SLIGHT;
     break;
 case FC_HINT_MEDIUM:
 default:
     ft_options.base.hint_style = CAIRO_HINT_STYLE_MEDIUM;
     break;
 case FC_HINT_FULL:
     ft_options.base.hint_style = CAIRO_HINT_STYLE_FULL;
     break;
 }
#else /* !FC_HINT_STYLE */
 if (!hinting) {
     ft_options.base.hint_style = CAIRO_HINT_STYLE_NONE;
 }
#endif /* FC_HINT_STYLE */

 /* Force embedded bitmaps off if no hinting requested */
 if (ft_options.base.hint_style == CAIRO_HINT_STYLE_NONE)
   bitmap = FcFalse;

 if (!bitmap)
     ft_options.load_flags |= FT_LOAD_NO_BITMAP;

    } else {
 ft_options.base.antialias = CAIRO_ANTIALIAS_NONE;
    }

    /* force autohinting if requested */
    if (FcPatternGetBool (pattern,
     FC_AUTOHINT, 0, &autohint) != FcResultMatch)
 autohint = FcFalse;

    if (autohint)
 ft_options.load_flags |= FT_LOAD_FORCE_AUTOHINT;

    if (FcPatternGetBool (pattern,
     FC_VERTICAL_LAYOUT, 0, &vertical_layout) != FcResultMatch)
 vertical_layout = FcFalse;

    if (vertical_layout)
 ft_options.load_flags |= FT_LOAD_VERTICAL_LAYOUT;

#ifndef FC_EMBOLDEN
#define FC_EMBOLDEN "embolden"
#endif
    if (FcPatternGetBool (pattern,
     FC_EMBOLDEN, 0, &embolden) != FcResultMatch)
 embolden = FcFalse;

    if (embolden)
 ft_options.synth_flags |= CAIRO_FT_SYNTHESIZE_BOLD;

#ifndef FC_FONT_VARIATIONS
#define FC_FONT_VARIATIONS "fontvariations"
#endif
    if (FcPatternGetString (pattern, FC_FONT_VARIATIONS, 0, (FcChar8 **) &variations) == FcResultMatch) {
      ft_options.base.variations = strdup (variations);
    }

    *ret = ft_options;
}
#endif

static void
_cairo_ft_options_merge (cairo_ft_options_t *options,
    cairo_ft_options_t *other)
{
    int load_flags = other->load_flags;
    int load_target = FT_LOAD_TARGET_NORMAL;

    /* clear load target mode */
    load_flags &= ~(FT_LOAD_TARGET_(FT_LOAD_TARGET_MODE(other->load_flags)));

    if (load_flags & FT_LOAD_NO_HINTING)
 other->base.hint_style = CAIRO_HINT_STYLE_NONE;

    if (other->base.antialias == CAIRO_ANTIALIAS_NONE ||
 options->base.antialias == CAIRO_ANTIALIAS_NONE) {
 options->base.antialias = CAIRO_ANTIALIAS_NONE;
 options->base.subpixel_order = CAIRO_SUBPIXEL_ORDER_DEFAULT;
    }

    if (other->base.antialias == CAIRO_ANTIALIAS_SUBPIXEL &&
 options->base.antialias == CAIRO_ANTIALIAS_DEFAULT) {
 options->base.antialias = CAIRO_ANTIALIAS_SUBPIXEL;
 options->base.subpixel_order = other->base.subpixel_order;
    }

    if (options->base.hint_style == CAIRO_HINT_STYLE_DEFAULT)
 options->base.hint_style = other->base.hint_style;

    if (other->base.hint_style == CAIRO_HINT_STYLE_NONE)
 options->base.hint_style = CAIRO_HINT_STYLE_NONE;

    if (options->base.lcd_filter == CAIRO_LCD_FILTER_DEFAULT)
 options->base.lcd_filter = other->base.lcd_filter;

    if (other->base.lcd_filter == CAIRO_LCD_FILTER_NONE)
 options->base.lcd_filter = CAIRO_LCD_FILTER_NONE;

    if (options->base.antialias == CAIRO_ANTIALIAS_NONE) {
 if (options->base.hint_style == CAIRO_HINT_STYLE_NONE)
     load_flags |= FT_LOAD_NO_HINTING;
 else
     load_target = FT_LOAD_TARGET_MONO;
 load_flags |= FT_LOAD_MONOCHROME;
    } else {
 switch (options->base.hint_style) {
 case CAIRO_HINT_STYLE_NONE:
     load_flags |= FT_LOAD_NO_HINTING;
     break;
 case CAIRO_HINT_STYLE_SLIGHT:
     load_target = FT_LOAD_TARGET_LIGHT;
     break;
 case CAIRO_HINT_STYLE_MEDIUM:
     break;
 case CAIRO_HINT_STYLE_FULL:
 case CAIRO_HINT_STYLE_DEFAULT:
     if (options->base.antialias == CAIRO_ANTIALIAS_SUBPIXEL) {
  switch (options->base.subpixel_order) {
  case CAIRO_SUBPIXEL_ORDER_DEFAULT:
  case CAIRO_SUBPIXEL_ORDER_RGB:
  case CAIRO_SUBPIXEL_ORDER_BGR:
      load_target = FT_LOAD_TARGET_LCD;
      break;
  case CAIRO_SUBPIXEL_ORDER_VRGB:
  case CAIRO_SUBPIXEL_ORDER_VBGR:
      load_target = FT_LOAD_TARGET_LCD_V;
  break;
  }
     }
     break;
 }
    }

    if (other->base.variations) {
      if (options->base.variations) {
        char *p;

        /* 'merge' variations by concatenating - later entries win */
        p = malloc (strlen (other->base.variations) + strlen (options->base.variations) + 2);
        p[0] = 0;
        strcat (p, other->base.variations);
        strcat (p, ",");
        strcat (p, options->base.variations);
        free (options->base.variations);
        options->base.variations = p;
      }
      else {
        options->base.variations = strdup (other->base.variations);
      }
    }

    options->load_flags = load_flags | load_target;
    options->synth_flags = other->synth_flags;
}

static cairo_status_t
_cairo_ft_font_face_scaled_font_create (void      *abstract_font_face,
     const cairo_matrix_t  *font_matrix,
     const cairo_matrix_t  *ctm,
     const cairo_font_options_t *options,
     cairo_scaled_font_t       **font_out)
{
    cairo_ft_font_face_t *font_face = abstract_font_face;
    cairo_ft_scaled_font_t *scaled_font;
    FT_Face face;
    FT_Size_Metrics *metrics;
    cairo_font_extents_t fs_metrics;
    cairo_status_t status;
    cairo_ft_unscaled_font_t *unscaled;

    assert (font_face->unscaled);

    face = _cairo_ft_unscaled_font_lock_face (font_face->unscaled);
    if (unlikely (face == NULL)) /* backend error */
 return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    scaled_font = _cairo_malloc (sizeof (cairo_ft_scaled_font_t));
    if (unlikely (scaled_font == NULL)) {
 status = _cairo_error (CAIRO_STATUS_NO_MEMORY);
 goto FAIL;
    }

    scaled_font->unscaled = unscaled = font_face->unscaled;
    _cairo_unscaled_font_reference (&unscaled->base);

    _cairo_font_options_init_copy (&scaled_font->ft_options.base, options);
    _cairo_ft_options_merge (&scaled_font->ft_options, &font_face->ft_options);

    status = _cairo_scaled_font_init (&scaled_font->base,
                 &font_face->base,
          font_matrix, ctm, options,
          &_cairo_ft_scaled_font_backend);
    if (unlikely (status))
 goto CLEANUP_SCALED_FONT;

    status = _cairo_ft_unscaled_font_set_scale (unscaled,
                    &scaled_font->base.scale);
    if (unlikely (status)) {
 /* This can only fail if we encounter an error with the underlying
 * font, so propagate the error back to the font-face. */
 _cairo_ft_unscaled_font_unlock_face (unscaled);
 _cairo_unscaled_font_destroy (&unscaled->base);
 free (scaled_font);
 return status;
    }


    metrics = &face->size->metrics;

    /*
     * Get to unscaled metrics so that the upper level can get back to
     * user space
     *
     * Also use this path for bitmap-only fonts.  The other branch uses
     * face members that are only relevant for scalable fonts.  This is
     * detected by simply checking for units_per_EM==0.
     */
    if (scaled_font->base.options.hint_metrics != CAIRO_HINT_METRICS_OFF ||
 face->units_per_EM == 0) {
 double x_factor, y_factor;

 if (unscaled->x_scale == 0)
     x_factor = 0;
 else
     x_factor = 1 / unscaled->x_scale;

 if (unscaled->y_scale == 0)
     y_factor = 0;
 else
     y_factor = 1 / unscaled->y_scale;

 fs_metrics.ascent =        DOUBLE_FROM_26_6(metrics->ascender) * y_factor;
 fs_metrics.descent =       DOUBLE_FROM_26_6(- metrics->descender) * y_factor;
 fs_metrics.height =        DOUBLE_FROM_26_6(metrics->height) * y_factor;
 if (!_cairo_ft_scaled_font_is_vertical (&scaled_font->base)) {
     fs_metrics.max_x_advance = DOUBLE_FROM_26_6(metrics->max_advance) * x_factor;
     fs_metrics.max_y_advance = 0;
 } else {
     fs_metrics.max_x_advance = 0;
     fs_metrics.max_y_advance = DOUBLE_FROM_26_6(metrics->max_advance) * y_factor;
 }
    } else {
 double scale = face->units_per_EM;

 fs_metrics.ascent =        face->ascender / scale;
 fs_metrics.descent =       - face->descender / scale;
 fs_metrics.height =        face->height / scale;
 if (!_cairo_ft_scaled_font_is_vertical (&scaled_font->base)) {
     fs_metrics.max_x_advance = face->max_advance_width / scale;
     fs_metrics.max_y_advance = 0;
 } else {
     fs_metrics.max_x_advance = 0;
     fs_metrics.max_y_advance = face->max_advance_height / scale;
 }
    }

    status = _cairo_scaled_font_set_metrics (&scaled_font->base, &fs_metrics);
    if (unlikely (status))
 goto CLEANUP_SCALED_FONT;

    _cairo_ft_unscaled_font_unlock_face (unscaled);

    *font_out = &scaled_font->base;
    return CAIRO_STATUS_SUCCESS;

  CLEANUP_SCALED_FONT:
    _cairo_unscaled_font_destroy (&unscaled->base);
    free (scaled_font);
  FAIL:
    _cairo_ft_unscaled_font_unlock_face (font_face->unscaled);
    *font_out = _cairo_scaled_font_create_in_error (status);
    return CAIRO_STATUS_SUCCESS; /* non-backend error */
}

cairo_bool_t
_cairo_scaled_font_is_ft (cairo_scaled_font_t *scaled_font)
{
    return scaled_font->backend == &_cairo_ft_scaled_font_backend;
}

static void
_cairo_ft_scaled_font_fini (void *abstract_font)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;

    if (scaled_font == NULL)
        return;

    _cairo_font_options_fini (&scaled_font->ft_options.base);
    _cairo_unscaled_font_destroy (&scaled_font->unscaled->base);
}

static int
_move_to (FT_Vector *to, void *closure)
{
    cairo_path_fixed_t *path = closure;
    cairo_fixed_t x, y;

    x = _cairo_fixed_from_26_6 (to->x);
    y = _cairo_fixed_from_26_6 (to->y);

    if (_cairo_path_fixed_close_path (path) != CAIRO_STATUS_SUCCESS)
 return 1;
    if (_cairo_path_fixed_move_to (path, x, y) != CAIRO_STATUS_SUCCESS)
 return 1;

    return 0;
}

static int
_line_to (FT_Vector *to, void *closure)
{
    cairo_path_fixed_t *path = closure;
    cairo_fixed_t x, y;

    x = _cairo_fixed_from_26_6 (to->x);
    y = _cairo_fixed_from_26_6 (to->y);

    if (_cairo_path_fixed_line_to (path, x, y) != CAIRO_STATUS_SUCCESS)
 return 1;

    return 0;
}

static int
_conic_to (FT_Vector *control, FT_Vector *to, void *closure)
{
    cairo_path_fixed_t *path = closure;

    cairo_fixed_t x0, y0;
    cairo_fixed_t x1, y1;
    cairo_fixed_t x2, y2;
    cairo_fixed_t x3, y3;
    cairo_point_t conic;

    if (! _cairo_path_fixed_get_current_point (path, &x0, &y0))
 return 1;

    conic.x = _cairo_fixed_from_26_6 (control->x);
    conic.y = _cairo_fixed_from_26_6 (control->y);

    x3 = _cairo_fixed_from_26_6 (to->x);
    y3 = _cairo_fixed_from_26_6 (to->y);

    x1 = x0 + 2.0/3.0 * (conic.x - x0);
    y1 = y0 + 2.0/3.0 * (conic.y - y0);

    x2 = x3 + 2.0/3.0 * (conic.x - x3);
    y2 = y3 + 2.0/3.0 * (conic.y - y3);

    if (_cairo_path_fixed_curve_to (path,
        x1, y1,
        x2, y2,
        x3, y3) != CAIRO_STATUS_SUCCESS)
 return 1;

    return 0;
}

static int
_cubic_to (FT_Vector *control1, FT_Vector *control2,
    FT_Vector *to, void *closure)
{
    cairo_path_fixed_t *path = closure;
    cairo_fixed_t x0, y0;
    cairo_fixed_t x1, y1;
    cairo_fixed_t x2, y2;

    x0 = _cairo_fixed_from_26_6 (control1->x);
--> --------------------

--> maximum size reached

--> --------------------