/work/workdir/UnpackedTarball/cairo/src/cairo-ft-font.c

Source
/* -*- 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_FONT_FORMATS_H
#include FT_MULTIPLE_MASTERS_H
#include FT_SYNTHESIS_H
#include FT_LCD_FILTER_H

#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

/*  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)

/* SCALE() mimics code from commit 399b00a99b2bbc1c56a05974c936aa69a08021f5
 * concerning a potential division by 0, but instead of doing a * (1/b), it
 * does a/b, thus improving the accuracy. With a * (1/b), for a bitmap font
 * of size 13, the computed -y_bearing was 0x1.6000000000001p+3 instead of
 * 0x1.6p+3 (= 11). This triggered a bug in GNU Emacs (when built against
 * cairo), which rounded the value to an integer with ceil().
 * Details:
 *   https://gitlab.freedesktop.org/cairo/cairo/-/issues/503
 *   https://debbugs.gnu.org/cgi/bugreport.cgi?bug=44284
 *
 * Note that rounding errors are not necessarily expected by applications
 * in simple cases like the GNU Emacs one (an identity transformation,
 * which should normally leave the inputs unchanged). However, with the
 * current cairo code, due to the scaling, there is no guarantee that
 * rounding errors will always be avoided at the end. For instance,
 * (a/b)*b may be different from a, but this is still better than doing
 * (a*(1/b))*b.
 *
 * According to the commit mentioned above, avoiding a division by zero
 * was an attempt to fix
 *   https://bugzilla.gnome.org/show_bug.cgi?id=311299
 * but this did not actually solve the problem. So it might be possible
 * to change SCALE() to just do (a) / (b).
 */
#define SCALE(a,b) ((b) == 0 ? 0.0 : (a) / (b))

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

/**
 * 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 */

    /* 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_calloc (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)
  _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)
{
    uintptr_t hash;

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

    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)
{
    _cairo_unscaled_font_init (&unscaled->base,
             &cairo_ft_unscaled_font_backend);

    unscaled->variations = NULL;

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


        unscaled->have_color = FT_HAS_COLOR (face) != 0;
        unscaled->have_color_set = TRUE;
  if (FT_Get_MM_Var (face, &ft_mm_var) == 0) {
      unscaled->variations = _cairo_calloc_ab (ft_mm_var->num_axis, sizeof (FT_Fixed));
      if (unscaled->variations)
    FT_Get_Var_Design_Coordinates (face, ft_mm_var->num_axis, unscaled->variations);
      FT_Done_MM_Var (face->glyph->library, ft_mm_var);
  }
    } else {
  char *filename_copy;

  unscaled->from_face = FALSE;
  unscaled->face = 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);

  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;

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

    /* 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_calloc (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);
    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;

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) {
       int nFD = -1;
       int n;
       if ((sscanf (filename, "/:FD:/%d%n", &nFD, &n) == 1 && filename[n] == '\0') ||
      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,
                out);
}
#endif

static cairo_status_t
_cairo_ft_unscaled_font_create_from_face (FT_Face face,
            cairo_ft_unscaled_font_t **out)
{
    return _cairo_ft_unscaled_font_create_internal (TRUE, NULL, face->face_index, face, 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_font_face_destroy (&unscaled->faces->base);
  }
    } else {
  _font_map_release_face_lock_held (font_map, unscaled);
    }
    unscaled->face = 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;

    CAIRO_MUTEX_LOCK (unscaled->mutex);
    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_MUTEX_UNLOCK (unscaled->mutex);
  _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_MUTEX_UNLOCK (unscaled->mutex);
}


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;

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

    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;

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

    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;
    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;
    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)
{
    cairo_subpixel_order_t rgba = CAIRO_SUBPIXEL_ORDER_DEFAULT;
    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 = CAIRO_SUBPIXEL_ORDER_BGR;
      else
    rgba = CAIRO_SUBPIXEL_ORDER_RGB;
      break;

  case FT_RENDER_MODE_LCD_V:
      if (font_options->subpixel_order == CAIRO_SUBPIXEL_ORDER_VBGR)
    rgba = CAIRO_SUBPIXEL_ORDER_VBGR;
      else
    rgba = CAIRO_SUBPIXEL_ORDER_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;
  }

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

  FT_Library_SetLcdFilter (library, FT_LCD_FILTER_NONE);
  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 = _cairo_calloc (bitmap_size);
  if (bitmap.buffer == NULL)
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);

  _fill_xrender_bitmap (&bitmap, face->glyph, render_mode,
            (rgba == CAIRO_SUBPIXEL_ORDER_BGR || rgba == CAIRO_SUBPIXEL_ORDER_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;
    int hintstyle;
    char *variations;

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

    /* 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;
      }
  }

  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;
  }

  /* 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;

    if (FcPatternGetBool (pattern,
        FC_EMBOLDEN, 0, &embolden) != FcResultMatch)
  embolden = FcFalse;

    if (embolden)
  ft_options.synth_flags |= CAIRO_FT_SYNTHESIZE_BOLD;

    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_calloc (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) {
  fs_metrics.ascent =        SCALE (DOUBLE_FROM_26_6 (metrics->ascender), unscaled->y_scale);
  fs_metrics.descent =       SCALE (DOUBLE_FROM_26_6 (- metrics->descender), unscaled->y_scale);
  fs_metrics.height =        SCALE (DOUBLE_FROM_26_6 (metrics->height), unscaled->y_scale);
  if (!_cairo_ft_scaled_font_is_vertical (&scaled_font->base)) {
      fs_metrics.max_x_advance = SCALE (DOUBLE_FROM_26_6 (metrics->max_advance), unscaled->x_scale);
      fs_metrics.max_y_advance = 0;
  } else {
      fs_metrics.max_x_advance = 0;
      fs_metrics.max_y_advance = SCALE (DOUBLE_FROM_26_6 (metrics->max_advance), unscaled->y_scale);
  }
    } 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);
    y0 = _cairo_fixed_from_26_6 (control1->y);

    x1 = _cairo_fixed_from_26_6 (control2->x);
    y1 = _cairo_fixed_from_26_6 (control2->y);

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

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

    return 0;
}

cairo_status_t
_cairo_ft_face_decompose_glyph_outline (FT_Face        face,
          cairo_path_fixed_t **pathp)
{
    static const FT_Outline_Funcs outline_funcs = {
  (FT_Outline_MoveToFunc)_move_to,
  (FT_Outline_LineToFunc)_line_to,
  (FT_Outline_ConicToFunc)_conic_to,
  (FT_Outline_CubicToFunc)_cubic_to,
  0, /* shift */
  0, /* delta */
    };
    static const FT_Matrix invert_y = {
  DOUBLE_TO_16_16 (1.0), 0,
  0, DOUBLE_TO_16_16 (-1.0),
    };

    FT_GlyphSlot glyph;
    cairo_path_fixed_t *path;
    cairo_status_t status;

    path = _cairo_path_fixed_create ();
    if (!path)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    glyph = face->glyph;

    /* Font glyphs have an inverted Y axis compared to cairo. */
    FT_Outline_Transform (&glyph->outline, &invert_y);
    if (FT_Outline_Decompose (&glyph->outline, &outline_funcs, path)) {
  _cairo_path_fixed_destroy (path);
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);
    }

    status = _cairo_path_fixed_close_path (path);
    if (unlikely (status)) {
  _cairo_path_fixed_destroy (path);
  return status;
    }

    *pathp = path;

    return CAIRO_STATUS_SUCCESS;
}

/*
 * Translate glyph to match its metrics.
 */
static void
_cairo_ft_scaled_glyph_vertical_layout_bearing_fix (void        *abstract_font,
                FT_GlyphSlot glyph)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    FT_Vector vector;

    vector.x = glyph->metrics.vertBearingX - glyph->metrics.horiBearingX;
    vector.y = -glyph->metrics.vertBearingY - glyph->metrics.horiBearingY;

    if (glyph->format == FT_GLYPH_FORMAT_OUTLINE) {
  FT_Vector_Transform (&vector, &scaled_font->unscaled->Current_Shape);
  FT_Outline_Translate(&glyph->outline, vector.x, vector.y);
    } else if (glyph->format == FT_GLYPH_FORMAT_BITMAP) {
  glyph->bitmap_left += vector.x / 64;
  glyph->bitmap_top  += vector.y / 64;
    }
}

static void
cairo_ft_apply_variations (FT_Face                 face,
         cairo_ft_scaled_font_t *scaled_font)
{
    FT_MM_Var *ft_mm_var;
    FT_Error ret;
    unsigned int instance_id = scaled_font->unscaled->id >> 16;

    ret = FT_Get_MM_Var (face, &ft_mm_var);
    if (ret == 0) {
        FT_Fixed *current_coords;
        FT_Fixed *coords;
        unsigned int i;
        const char *p;

        coords = malloc (sizeof (FT_Fixed) * ft_mm_var->num_axis);
  /* FIXME check coords. */

  if (scaled_font->unscaled->variations)
  {
      memcpy (coords, scaled_font->unscaled->variations, ft_mm_var->num_axis * sizeof (*coords));
  }
  else if (instance_id && instance_id <= ft_mm_var->num_namedstyles)
  {
      FT_Var_Named_Style *instance = &ft_mm_var->namedstyle[instance_id - 1];
      memcpy (coords, instance->coords, ft_mm_var->num_axis * sizeof (*coords));
  }
  else
      for (i = 0; i < ft_mm_var->num_axis; i++)
    coords[i] = ft_mm_var->axis[i].def;

        p = scaled_font->ft_options.base.variations;
        while (p && *p) {
            const char *start;
            const char *end, *end2;
            FT_ULong tag;
            double value;

            while (_cairo_isspace (*p)) p++;

            start = p;
            end = strchr (p, ',');
            if (end && (end - p < 6))
                goto skip;

            tag = FT_MAKE_TAG(p[0], p[1], p[2], p[3]);

            p += 4;
            while (_cairo_isspace (*p)) p++;
            if (*p == '=') p++;

            if (p - start < 5)
                goto skip;

            value = _cairo_strtod (p, (char **) &end2);

            while (end2 && _cairo_isspace (*end2)) end2++;

            if (end2 && (*end2 != ',' && *end2 != '\0'))
                goto skip;

            for (i = 0; i < ft_mm_var->num_axis; i++) {
                if (ft_mm_var->axis[i].tag == tag) {
                    coords[i] = (FT_Fixed)(value*65536);
                    break;
                }
            }

skip:
            p = end ? end + 1 : NULL;
        }

        current_coords = malloc (sizeof (FT_Fixed) * ft_mm_var->num_axis);
        ret = FT_Get_Var_Design_Coordinates (face, ft_mm_var->num_axis, current_coords);
        if (ret == 0) {
            for (i = 0; i < ft_mm_var->num_axis; i++) {
              if (coords[i] != current_coords[i])
                break;
            }
            if (i == ft_mm_var->num_axis)
              goto done;
        }

        FT_Set_Var_Design_Coordinates (face, ft_mm_var->num_axis, coords);
done:
        free (coords);
        free (current_coords);
        FT_Done_MM_Var (face->glyph->library, ft_mm_var);
    }
}

typedef enum {
    CAIRO_FT_GLYPH_TYPE_BITMAP,
    CAIRO_FT_GLYPH_TYPE_OUTLINE,
    CAIRO_FT_GLYPH_TYPE_SVG,
    CAIRO_FT_GLYPH_TYPE_COLR_V0,
    CAIRO_FT_GLYPH_TYPE_COLR_V1,
} cairo_ft_glyph_format_t;

typedef struct {
    cairo_scaled_glyph_private_t base;

    cairo_ft_glyph_format_t format;
} cairo_ft_glyph_private_t;

static const int ft_glyph_private_key;

static cairo_int_status_t
_cairo_ft_scaled_glyph_load_glyph (cairo_ft_scaled_font_t *scaled_font,
           cairo_scaled_glyph_t   *scaled_glyph,
           FT_Face                 face,
           int                     load_flags,
           cairo_bool_t            use_em_size,
           cairo_bool_t            vertical_layout)
{
    FT_Error error;
    cairo_status_t status;
    cairo_ft_glyph_private_t *glyph_priv;

    glyph_priv = (cairo_ft_glyph_private_t *) _cairo_scaled_glyph_find_private (scaled_glyph,
                                                                                &ft_glyph_private_key);
    assert (glyph_priv != NULL);

    if (use_em_size) {
  cairo_matrix_t em_size;
  cairo_matrix_init_scale (&em_size, face->units_per_EM, face->units_per_EM);
  status = _cairo_ft_unscaled_font_set_scale (scaled_font->unscaled, &em_size);
    } else {
  status = _cairo_ft_unscaled_font_set_scale (scaled_font->unscaled,
                &scaled_font->base.scale);
    }
    if (unlikely (status))
  return status;

    cairo_ft_apply_variations (face, scaled_font);

#if defined(HAVE_FT_LOAD_NO_SVG)
    if (load_flags & FT_LOAD_COLOR && glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V1)
        load_flags |= FT_LOAD_NO_SVG;
#endif

    error = FT_Load_Glyph (face,
         _cairo_scaled_glyph_index(scaled_glyph),
         load_flags);
    /* 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);

    /*
     * synthesize glyphs if requested
     */
    if (scaled_font->ft_options.synth_flags & CAIRO_FT_SYNTHESIZE_BOLD)
  FT_GlyphSlot_Embolden (face->glyph);

    if (scaled_font->ft_options.synth_flags & CAIRO_FT_SYNTHESIZE_OBLIQUE)
  FT_GlyphSlot_Oblique (face->glyph);

    if (vertical_layout)
  _cairo_ft_scaled_glyph_vertical_layout_bearing_fix (scaled_font, face->glyph);

    if (face->glyph->format == FT_GLYPH_FORMAT_OUTLINE) {
        FT_Pos xshift, yshift;

        xshift = _cairo_scaled_glyph_xphase (scaled_glyph) << 4;
        yshift = _cairo_scaled_glyph_yphase (scaled_glyph) << 4;

        FT_Outline_Translate (&face->glyph->outline, xshift, -yshift);
    }

    return CAIRO_STATUS_SUCCESS;
}

static void
_cairo_ft_glyph_fini (cairo_scaled_glyph_private_t *glyph_private,
          cairo_scaled_glyph_t *glyph,
          cairo_scaled_font_t  *font)
{
    cairo_list_del (&glyph_private->link);
    free (glyph_private);
}


static void
_cairo_ft_scaled_glyph_set_palette (cairo_ft_scaled_font_t  *scaled_font,
            FT_Face                  face,
            unsigned int            *num_entries_ret,
            FT_Color               **entries_ret)
{
    unsigned int num_entries = 0;
    FT_Color *entries = NULL;

    FT_Palette_Data palette_data;

    if (FT_Palette_Data_Get (face, &palette_data) == 0 && palette_data.num_palettes > 0) {
  FT_UShort palette_index = CAIRO_COLOR_PALETTE_DEFAULT;
  if (scaled_font->base.options.palette_index < palette_data.num_palettes)
      palette_index = scaled_font->base.options.palette_index;

  if (FT_Palette_Select (face, palette_index, &entries) == 0) {
      num_entries = palette_data.num_palette_entries;

            /* Overlay custom colors */
            for (unsigned int i = 0; i < scaled_font->base.options.custom_palette_size; i++) {
                cairo_palette_color_t *entry = &scaled_font->base.options.custom_palette[i];
                if (entry->index < num_entries) {
                    entries[entry->index].red = 255 * entry->red;
                    entries[entry->index].green = 255 * entry->green;
                    entries[entry->index].blue = 255 * entry->blue;
                    entries[entry->index].alpha = 255 * entry->alpha;
                }
            }
        }
    }

    if (num_entries_ret)
  *num_entries_ret = num_entries;

    if (entries_ret)
  *entries_ret = entries;
}

/* returns TRUE if foreground color used */
static cairo_bool_t
_cairo_ft_scaled_glyph_set_foreground_color (cairo_ft_scaled_font_t *scaled_font,
               cairo_scaled_glyph_t   *scaled_glyph,
               FT_Face                 face,
               const cairo_color_t    *foreground_color)
{
    cairo_bool_t uses_foreground_color = FALSE;
    FT_LayerIterator  iterator;
    FT_UInt layer_glyph_index;
    FT_UInt layer_color_index;
    FT_Color color;

    /* Check if there is a layer that uses the foreground color */
    iterator.p  = NULL;
    while (FT_Get_Color_Glyph_Layer(face,
            _cairo_scaled_glyph_index (scaled_glyph),
            &layer_glyph_index,
            &layer_color_index,
            &iterator)) {
  if (layer_color_index == 0xFFFF) {
      uses_foreground_color = TRUE;
      break;
  }
    }

    if (uses_foreground_color) {
  color.red = (FT_Byte)(foreground_color->red * 0xFF);
  color.green = (FT_Byte)(foreground_color->green * 0xFF);
  color.blue = (FT_Byte)(foreground_color->blue * 0xFF);
  color.alpha = (FT_Byte)(foreground_color->alpha * 0xFF);
  FT_Palette_Set_Foreground_Color (face, color);
    }

    return uses_foreground_color;
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_surface (cairo_ft_scaled_font_t     *scaled_font,
             cairo_scaled_glyph_t *scaled_glyph,
             cairo_ft_glyph_private_t   *glyph_priv,
             cairo_scaled_glyph_info_t   info,
             FT_Face face,
             const cairo_color_t        *foreground_color,
             cairo_bool_t vertical_layout,
             int load_flags)
{
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_GlyphSlot glyph;
    cairo_status_t status;
    cairo_image_surface_t *surface;
    cairo_bool_t uses_foreground_color = FALSE;

    /* Only one info type at a time handled in this function */
    assert (info == CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE || info == CAIRO_SCALED_GLYPH_INFO_SURFACE);

    if (info == CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE) {
  if (!unscaled->have_color) {
      scaled_glyph->color_glyph = FALSE;
      scaled_glyph->color_glyph_set = TRUE;
      return CAIRO_INT_STATUS_UNSUPPORTED;
  }

  uses_foreground_color = _cairo_ft_scaled_glyph_set_foreground_color (scaled_font,
                       scaled_glyph,
                       face,
                       foreground_color);
  _cairo_ft_scaled_glyph_set_palette (scaled_font, face, NULL, NULL);

        load_flags &= ~FT_LOAD_MONOCHROME;
  /* clear load target mode */
  load_flags &= ~(FT_LOAD_TARGET_(FT_LOAD_TARGET_MODE(load_flags)));
  load_flags |= FT_LOAD_TARGET_NORMAL;
  load_flags |= FT_LOAD_COLOR;
    } else { /* info == CAIRO_SCALED_GLYPH_INFO_SURFACE */
        load_flags &= ~FT_LOAD_COLOR;
    }

    status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
            scaled_glyph,
            face,
            load_flags,
            FALSE,
            vertical_layout);
    if (unlikely (status))
  return status;

    glyph = face->glyph;

    if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_OUTLINE) {

  status = _render_glyph_outline (face, &scaled_font->ft_options.base,
              &surface);
    } else {
  status = _render_glyph_bitmap (face, &scaled_font->ft_options.base,
             &surface);
  if (likely (status == CAIRO_STATUS_SUCCESS) && unscaled->have_shape) {
      status = _transform_glyph_bitmap (&unscaled->current_shape,
                &surface);
      if (unlikely (status))
    cairo_surface_destroy (&surface->base);
  }
    }

    if (unlikely (status))
  return status;

    if (info == CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE) {
  /* We tried loading a color glyph and can now check if we got
   * a color glyph and set scaled_glyph->color_glyph
   * accordingly */
  if (pixman_image_get_format (surface->pixman_image) == PIXMAN_a8r8g8b8 &&
      !pixman_image_get_component_alpha (surface->pixman_image))
  {
      _cairo_scaled_glyph_set_color_surface (scaled_glyph,
               &scaled_font->base,
               surface,
               uses_foreground_color ? foreground_color : NULL);

      scaled_glyph->color_glyph = TRUE;
  } else {
      /* We didn't ask for a non-color surface, but store it
       * anyway so we don't have to load it again. */
      _cairo_scaled_glyph_set_surface (scaled_glyph,
               &scaled_font->base,
               surface);
      scaled_glyph->color_glyph = FALSE;
      status = CAIRO_INT_STATUS_UNSUPPORTED;
  }
  scaled_glyph->color_glyph_set = TRUE;
    } else { /* info == CAIRO_SCALED_GLYPH_INFO_SURFACE */
  _cairo_scaled_glyph_set_surface (scaled_glyph,
           &scaled_font->base,
           surface);
    }

    return status;
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_record_colr_v0_glyph (cairo_ft_scaled_font_t *scaled_font,
              cairo_scaled_glyph_t   *scaled_glyph,
              FT_Face                 face,
              cairo_bool_t            vertical_layout,
              int                     load_flags)
{
    cairo_surface_t *recording_surface;
    cairo_t *cr;
    cairo_status_t status;
    FT_Color *palette;
    unsigned int num_palette_entries;
    FT_LayerIterator iterator;
    FT_UInt layer_glyph_index;
    FT_UInt layer_color_index;
    cairo_path_fixed_t *path_fixed;
    cairo_path_t *path;

    _cairo_ft_scaled_glyph_set_palette (scaled_font, face, &num_palette_entries, &palette);

    load_flags &= ~FT_LOAD_MONOCHROME;
    /* clear load target mode */
    load_flags &= ~(FT_LOAD_TARGET_(FT_LOAD_TARGET_MODE(load_flags)));
    load_flags |= FT_LOAD_TARGET_NORMAL;
    load_flags |= FT_LOAD_COLOR;

    recording_surface =
  cairo_recording_surface_create (CAIRO_CONTENT_COLOR_ALPHA, NULL);

    cr = cairo_create (recording_surface);

    if (!_cairo_matrix_is_scale_0 (&scaled_font->base.scale)) {
        cairo_matrix_t scale;
  scale = scaled_font->base.scale;
  scale.x0 = scale.y0 = 0.;
  cairo_set_matrix (cr, &scale);
    }

    iterator.p  = NULL;
    while (FT_Get_Color_Glyph_Layer(face,
            _cairo_scaled_glyph_index (scaled_glyph),
            &layer_glyph_index,
            &layer_color_index,
            &iterator))
    {
  cairo_pattern_t *pattern;
  if (layer_color_index == 0xFFFF) {
      pattern = _cairo_pattern_create_foreground_marker ();
  } else {
      double r = 0, g = 0, b = 0, a = 1;
      if (layer_color_index <  num_palette_entries) {
    FT_Color *color = &palette[layer_color_index];
    r = color->red / 255.0;
    g = color->green/ 255.0;
    b = color->blue / 255.0;
    a = color->alpha / 255.0;
      }
      pattern = cairo_pattern_create_rgba (r, g, b, a);
  }
  cairo_set_source (cr, pattern);
  cairo_pattern_destroy (pattern);

  if (FT_Load_Glyph (face, layer_glyph_index, load_flags) != 0) {
      status = CAIRO_INT_STATUS_UNSUPPORTED;
      goto cleanup;
  }

  status = _cairo_ft_face_decompose_glyph_outline (face, &path_fixed);
  if (unlikely (status))
      return status;

  path = _cairo_path_create (path_fixed, cr);
  _cairo_path_fixed_destroy (path_fixed);
  cairo_append_path(cr, path);
  cairo_path_destroy (path);
  cairo_fill (cr);
    }

  cleanup:
    cairo_destroy (cr);

    if (status) {
  cairo_surface_destroy (recording_surface);
  return status;
    }

    _cairo_scaled_glyph_set_recording_surface (scaled_glyph,
                 &scaled_font->base,
                 recording_surface,
                 NULL);
    return status;
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_record_colr_v1_glyph (cairo_ft_scaled_font_t *scaled_font,
              cairo_scaled_glyph_t   *scaled_glyph,
              FT_Face                 face,
              const cairo_color_t    *foreground_color,
              cairo_text_extents_t   *extents)
{
#if HAVE_FT_COLR_V1
    cairo_status_t status = CAIRO_STATUS_SUCCESS;
    cairo_surface_t *recording_surface;
    cairo_t *cr;
    FT_Color *palette;
    unsigned int num_palette_entries;
    cairo_bool_t foreground_source_used = FALSE;

    recording_surface =
  cairo_recording_surface_create (CAIRO_CONTENT_COLOR_ALPHA, NULL);

    cairo_surface_set_device_scale (recording_surface, 1, -1);

    cr = cairo_create (recording_surface);

    cairo_set_font_size (cr, 1.0);
    cairo_set_font_options (cr, &scaled_font->base.options);

    extents->x_bearing = DOUBLE_FROM_26_6(face->bbox.xMin);
    extents->y_bearing = DOUBLE_FROM_26_6(face->bbox.yMin);
    extents->width = DOUBLE_FROM_26_6(face->bbox.xMax) - extents->x_bearing;
    extents->height = DOUBLE_FROM_26_6(face->bbox.yMax) - extents->y_bearing;

    _cairo_ft_scaled_glyph_set_palette (scaled_font, face, &num_palette_entries, &palette);

    if (!_cairo_matrix_is_scale_0 (&scaled_font->base.scale)) {
  cairo_pattern_t *foreground_pattern = _cairo_pattern_create_solid (foreground_color);
  status = _cairo_render_colr_v1_glyph (face,
                _cairo_scaled_glyph_index (scaled_glyph),
                                              palette,
                                              num_palette_entries,
                cr,
                foreground_pattern,
                &foreground_source_used);
  cairo_pattern_destroy (foreground_pattern);
  if (status == CAIRO_STATUS_SUCCESS)
      status = cairo_status (cr);
    }

    cairo_destroy (cr);

    if (status) {
  cairo_surface_destroy (recording_surface);
  scaled_glyph->color_glyph = FALSE;
  scaled_glyph->color_glyph_set = TRUE;
  return status;
    }

    _cairo_scaled_glyph_set_recording_surface (scaled_glyph,
                 &scaled_font->base,
                 recording_surface,
                 foreground_source_used ? foreground_color : NULL);

    scaled_glyph->color_glyph = TRUE;
    scaled_glyph->color_glyph_set = TRUE;

    /* get metrics */

    /* Copied from cairo-user-font.c */
    cairo_matrix_t extent_scale;
    double extent_x_scale = 1.0;
    double extent_y_scale = 1.0;
    double snap_x_scale;
    double snap_y_scale;
    double fixed_scale, x_scale, y_scale;

    extent_scale = scaled_font->base.scale_inverse;
    snap_x_scale = 1.0;
    snap_y_scale = 1.0;
    status = _cairo_matrix_compute_basis_scale_factors (&extent_scale,
              &x_scale, &y_scale,
              1);
    if (status == CAIRO_STATUS_SUCCESS) {
  if (x_scale == 0)
      x_scale = 1;
  if (y_scale == 0)
      y_scale = 1;

  snap_x_scale = x_scale;
  snap_y_scale = y_scale;

  /* since glyphs are pretty much 1.0x1.0, we can reduce error by
   * scaling to a larger square.  say, 1024.x1024. */
  fixed_scale = 1024;
  x_scale /= fixed_scale;
  y_scale /= fixed_scale;

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

  extent_x_scale = x_scale;
  extent_y_scale = y_scale;
    }

    {
  /* compute width / height */
  cairo_box_t bbox;
  double x1, y1, x2, y2;
  double x_scale, y_scale;

  /* Compute extents.x/y/width/height from recording_surface,
   * in font space.
   */
  status = _cairo_recording_surface_get_bbox ((cairo_recording_surface_t *) recording_surface,
                &bbox,
                &extent_scale);
  if (unlikely (status))
      return status;

  _cairo_box_to_doubles (&bbox, &x1, &y1, &x2, &y2);

  x_scale = extent_x_scale;
  y_scale = extent_y_scale;
  extents->x_bearing = x1 * x_scale;
  extents->y_bearing = y1 * y_scale;
  extents->width     = (x2 - x1) * x_scale;
  extents->height    = (y2 - y1) * y_scale;
    }

    if (scaled_font->base.options.hint_metrics != CAIRO_HINT_METRICS_OFF) {
  extents->x_advance = _cairo_lround (extents->x_advance / snap_x_scale) * snap_x_scale;
  extents->y_advance = _cairo_lround (extents->y_advance / snap_y_scale) * snap_y_scale;
    }

    return status;
#else
    return CAIRO_INT_STATUS_UNSUPPORTED;
#endif
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_record_svg_glyph (cairo_ft_scaled_font_t *scaled_font,
                cairo_scaled_glyph_t   *scaled_glyph,
                FT_Face                 face,
                const cairo_color_t    *foreground_color,
                cairo_text_extents_t   *extents)
{
#if HAVE_FT_SVG_DOCUMENT
    cairo_status_t status = CAIRO_STATUS_SUCCESS;
    cairo_surface_t *recording_surface;
    cairo_t *cr;
    FT_SVG_Document svg_doc = face->glyph->other;
    char *svg_document;
    FT_Color *palette;
    unsigned int num_palette_entries;
    cairo_bool_t foreground_source_used = FALSE;

    /* Create NULL terminated SVG document */
    svg_document = _cairo_strndup ((const char*)svg_doc->svg_document, svg_doc->svg_document_length);

    recording_surface =
  cairo_recording_surface_create (CAIRO_CONTENT_COLOR_ALPHA, NULL);

    cr = cairo_create (recording_surface);

    if (!_cairo_matrix_is_scale_0 (&scaled_font->base.scale)) {
        cairo_matrix_t scale;
  scale = scaled_font->base.scale;
  scale.x0 = scale.y0 = 0.;
  cairo_set_matrix (cr, &scale);
    }

    cairo_set_font_size (cr, 1.0);
    cairo_set_font_options (cr, &scaled_font->base.options);

    extents->x_bearing = DOUBLE_FROM_26_6(face->bbox.xMin);
    extents->y_bearing = DOUBLE_FROM_26_6(face->bbox.yMin);
    extents->width = DOUBLE_FROM_26_6(face->bbox.xMax) - extents->x_bearing;
    extents->height = DOUBLE_FROM_26_6(face->bbox.yMax) - extents->y_bearing;

    _cairo_ft_scaled_glyph_set_palette (scaled_font, face, &num_palette_entries, &palette);

    if (!_cairo_matrix_is_scale_0 (&scaled_font->base.scale)) {
  cairo_pattern_t *foreground_pattern = _cairo_pattern_create_solid (foreground_color);
  status = _cairo_render_svg_glyph (svg_document,
            svg_doc->start_glyph_id,
            svg_doc->end_glyph_id,
            _cairo_scaled_glyph_index(scaled_glyph),
            svg_doc->units_per_EM,
            palette,
            num_palette_entries,
            cr,
            foreground_pattern,
            &foreground_source_used);
  cairo_pattern_destroy (foreground_pattern);
  if (status == CAIRO_STATUS_SUCCESS)
      status = cairo_status (cr);
    }

    cairo_destroy (cr);
    free (svg_document);

    if (status) {
  cairo_surface_destroy (recording_surface);
  scaled_glyph->color_glyph = FALSE;
  scaled_glyph->color_glyph_set = TRUE;
  return status;
    }

    _cairo_scaled_glyph_set_recording_surface (scaled_glyph,
                 &scaled_font->base,
                 recording_surface,
                 foreground_source_used ? foreground_color : NULL);

    scaled_glyph->color_glyph = TRUE;
    scaled_glyph->color_glyph_set = TRUE;

    /* get metrics */

    /* Copied from cairo-user-font.c */
    cairo_matrix_t extent_scale;
    double extent_x_scale;
    double extent_y_scale;
    double snap_x_scale;
    double snap_y_scale;
    double fixed_scale, x_scale, y_scale;

    extent_scale = scaled_font->base.scale_inverse;
    snap_x_scale = 1.0;
    snap_y_scale = 1.0;
    status = _cairo_matrix_compute_basis_scale_factors (&extent_scale,
              &x_scale, &y_scale,
              1);
    if (status == CAIRO_STATUS_SUCCESS) {
  if (x_scale == 0)
      x_scale = 1;
  if (y_scale == 0)
      y_scale = 1;

  snap_x_scale = x_scale;
  snap_y_scale = y_scale;

  /* since glyphs are pretty much 1.0x1.0, we can reduce error by
   * scaling to a larger square.  say, 1024.x1024. */
  fixed_scale = 1024;
  x_scale /= fixed_scale;
  y_scale /= fixed_scale;

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

  extent_x_scale = x_scale;
  extent_y_scale = y_scale;
    }

    {
  /* compute width / height */
  cairo_box_t bbox;
  double x1, y1, x2, y2;
  double x_scale, y_scale;

  /* Compute extents.x/y/width/height from recording_surface,
   * in font space.
   */
  status = _cairo_recording_surface_get_bbox ((cairo_recording_surface_t *) recording_surface,
                &bbox,
                &extent_scale);
  if (unlikely (status))
      return status;

  _cairo_box_to_doubles (&bbox, &x1, &y1, &x2, &y2);

  x_scale = extent_x_scale;
  y_scale = extent_y_scale;
  extents->x_bearing = x1 * x_scale;
  extents->y_bearing = y1 * y_scale;
  extents->width     = (x2 - x1) * x_scale;
  extents->height    = (y2 - y1) * y_scale;
    }

    if (scaled_font->base.options.hint_metrics != CAIRO_HINT_METRICS_OFF) {
  extents->x_advance = _cairo_lround (extents->x_advance / snap_x_scale) * snap_x_scale;
  extents->y_advance = _cairo_lround (extents->y_advance / snap_y_scale) * snap_y_scale;
    }

    return status;
#else
    return CAIRO_INT_STATUS_UNSUPPORTED;
#endif
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_surface_for_recording_surface (cairo_ft_scaled_font_t *scaled_font,
                 cairo_scaled_glyph_t   *scaled_glyph,
                 const cairo_color_t    *foreground_color)
{
    cairo_surface_t *surface;
    int width, height;
    cairo_int_status_t status = CAIRO_STATUS_SUCCESS;
    cairo_bool_t foreground_used;

    width = _cairo_fixed_integer_ceil (scaled_glyph->bbox.p2.x) -
  _cairo_fixed_integer_floor (scaled_glyph->bbox.p1.x);
    height = _cairo_fixed_integer_ceil (scaled_glyph->bbox.p2.y) -
  _cairo_fixed_integer_floor (scaled_glyph->bbox.p1.y);

    surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, width, height);

    cairo_surface_set_device_offset (surface,
             - _cairo_fixed_integer_floor (scaled_glyph->bbox.p1.x),
             - _cairo_fixed_integer_floor (scaled_glyph->bbox.p1.y));

    status = _cairo_recording_surface_replay_with_foreground_color (scaled_glyph->recording_surface,
                    surface,
                    foreground_color,
                    &foreground_used);
    if (unlikely (status)) {
  cairo_surface_destroy(surface);
  return status;
    }

    _cairo_scaled_glyph_set_color_surface (scaled_glyph,
             &scaled_font->base,
             (cairo_image_surface_t *)surface,
             foreground_used ? foreground_color : NULL);
    surface = NULL;

    if (surface)
  cairo_surface_destroy (surface);

    return status;
}

static void
_cairo_ft_scaled_glyph_get_metrics (cairo_ft_scaled_font_t     *scaled_font,
            FT_Face face,
            cairo_bool_t vertical_layout,
            int load_flags,
            cairo_text_extents_t *fs_metrics)
{
    FT_Glyph_Metrics *metrics;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    cairo_bool_t hint_metrics = scaled_font->base.options.hint_metrics != CAIRO_HINT_METRICS_OFF;
    FT_GlyphSlot glyph = face->glyph;

    /*
     * Compute font-space metrics
     */
    metrics = &glyph->metrics;

    /*
     * Note: Y coordinates of the horizontal bearing need to be negated.
     *
     * Scale metrics back to glyph space from the scaled glyph space returned
     * by FreeType
     *
     * If we want hinted metrics but aren't asking for hinted glyphs from
     * FreeType, then we need to do the metric hinting ourselves.
     */

    if (hint_metrics && (load_flags & FT_LOAD_NO_HINTING))
    {
  FT_Pos x1, x2;
  FT_Pos y1, y2;
  FT_Pos advance;

  if (!vertical_layout) {
      x1 = (metrics->horiBearingX) & -64;
      x2 = (metrics->horiBearingX + metrics->width + 63) & -64;
      y1 = (-metrics->horiBearingY) & -64;
      y2 = (-metrics->horiBearingY + metrics->height + 63) & -64;

      advance = ((metrics->horiAdvance + 32) & -64);

      fs_metrics->x_bearing = SCALE (DOUBLE_FROM_26_6 (x1), unscaled->x_scale);
      fs_metrics->y_bearing = SCALE (DOUBLE_FROM_26_6 (y1), unscaled->y_scale);

      fs_metrics->width  = SCALE (DOUBLE_FROM_26_6 (x2 - x1), unscaled->x_scale);
      fs_metrics->height  = SCALE (DOUBLE_FROM_26_6 (y2 - y1), unscaled->y_scale);

      fs_metrics->x_advance = SCALE (DOUBLE_FROM_26_6 (advance), unscaled->x_scale);
      fs_metrics->y_advance = 0;
  } else {
      x1 = (metrics->vertBearingX) & -64;
      x2 = (metrics->vertBearingX + metrics->width + 63) & -64;
      y1 = (metrics->vertBearingY) & -64;
      y2 = (metrics->vertBearingY + metrics->height + 63) & -64;

      advance = ((metrics->vertAdvance + 32) & -64);

      fs_metrics->x_bearing = SCALE (DOUBLE_FROM_26_6 (x1), unscaled->x_scale);
      fs_metrics->y_bearing = SCALE (DOUBLE_FROM_26_6 (y1), unscaled->y_scale);

      fs_metrics->width  = SCALE (DOUBLE_FROM_26_6 (x2 - x1), unscaled->x_scale);
      fs_metrics->height  = SCALE (DOUBLE_FROM_26_6 (y2 - y1), unscaled->y_scale);

      fs_metrics->x_advance = 0;
      fs_metrics->y_advance = SCALE (DOUBLE_FROM_26_6 (advance), unscaled->y_scale);
  }
    } else {
  fs_metrics->width  = SCALE (DOUBLE_FROM_26_6 (metrics->width), unscaled->x_scale);
  fs_metrics->height = SCALE (DOUBLE_FROM_26_6 (metrics->height), unscaled->y_scale);

  if (!vertical_layout) {
      fs_metrics->x_bearing = SCALE (DOUBLE_FROM_26_6 (metrics->horiBearingX), unscaled->x_scale);
      fs_metrics->y_bearing = SCALE (DOUBLE_FROM_26_6 (-metrics->horiBearingY), unscaled->y_scale);

      if (hint_metrics || glyph->format != FT_GLYPH_FORMAT_OUTLINE)
    fs_metrics->x_advance = SCALE (DOUBLE_FROM_26_6 (metrics->horiAdvance), unscaled->x_scale);
      else
    fs_metrics->x_advance = SCALE (DOUBLE_FROM_16_16 (glyph->linearHoriAdvance), unscaled->x_scale);
      fs_metrics->y_advance = 0;
  } else {
      fs_metrics->x_bearing = SCALE (DOUBLE_FROM_26_6 (metrics->vertBearingX), unscaled->x_scale);
      fs_metrics->y_bearing = SCALE (DOUBLE_FROM_26_6 (metrics->vertBearingY), unscaled->y_scale);

      fs_metrics->x_advance = 0;
      if (hint_metrics || glyph->format != FT_GLYPH_FORMAT_OUTLINE)
    fs_metrics->y_advance = SCALE (DOUBLE_FROM_26_6 (metrics->vertAdvance), unscaled->y_scale);
      else
    fs_metrics->y_advance = SCALE (DOUBLE_FROM_16_16 (glyph->linearVertAdvance), unscaled->y_scale);
  }
    }
}

static cairo_bool_t
_cairo_ft_scaled_glyph_is_colr_v0 (cairo_ft_scaled_font_t *scaled_font,
           cairo_scaled_glyph_t   *scaled_glyph,
           FT_Face                 face)
{
    FT_LayerIterator  iterator;
    FT_UInt layer_glyph_index;
    FT_UInt layer_color_index;

    iterator.p  = NULL;
    if (FT_Get_Color_Glyph_Layer(face,
                                 _cairo_scaled_glyph_index (scaled_glyph),
                                 &layer_glyph_index,
                                 &layer_color_index,
         &iterator) == 1)
    {
  return TRUE;
    }

    return FALSE;
}

static cairo_bool_t
_cairo_ft_scaled_glyph_is_colr_v1 (cairo_ft_scaled_font_t *scaled_font,
           cairo_scaled_glyph_t   *scaled_glyph,
           FT_Face                 face)
{
#if HAVE_FT_COLR_V1
    FT_OpaquePaint paint = { NULL, 0 };

    if (FT_Get_Color_Glyph_Paint (face,
          _cairo_scaled_glyph_index (scaled_glyph),
          FT_COLOR_INCLUDE_ROOT_TRANSFORM,
          &paint) == 1)
    {
  return TRUE;
    }
#endif
    return FALSE;
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init_metrics (cairo_ft_scaled_font_t  *scaled_font,
             cairo_scaled_glyph_t    *scaled_glyph,
             FT_Face                  face,
             cairo_bool_t             vertical_layout,
             int                      load_flags,
             const cairo_color_t     *foreground_color)
{
    cairo_int_status_t status = CAIRO_INT_STATUS_SUCCESS;
    cairo_text_extents_t fs_metrics;
    cairo_ft_glyph_private_t *glyph_priv;

    cairo_bool_t hint_metrics = scaled_font->base.options.hint_metrics != CAIRO_HINT_METRICS_OFF;

    /* _cairo_ft_scaled_glyph_init_metrics() is called once the first
     * time a cairo_scaled_glyph_t is created. We first allocate the
     * cairo_ft_glyph_private_t struct and determine the glyph type.
     */

    glyph_priv = _cairo_calloc (sizeof (*glyph_priv));
    if (unlikely (glyph_priv == NULL))
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    _cairo_scaled_glyph_attach_private (scaled_glyph, &glyph_priv->base,
          &ft_glyph_private_key,
          _cairo_ft_glyph_fini);

    /* We need to load color to determine if this is a color format. */
    int color_flag = 0;

    if (scaled_font->unscaled->have_color && scaled_font->base.options.color_mode != CAIRO_COLOR_MODE_NO_COLOR)
  color_flag = FT_LOAD_COLOR;

    /* Ensure use_em_size = FALSE as the format (bitmap or outline)
     * may change with the size. */
    status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
            scaled_glyph,
            face,
            load_flags | color_flag,
            FALSE,
            vertical_layout);
    if (unlikely (status))
  return status;

    cairo_bool_t is_svg_format = FALSE;
#if HAVE_FT_SVG_DOCUMENT
    if (face->glyph->format == FT_GLYPH_FORMAT_SVG)
  is_svg_format = TRUE;
#endif

    if (is_svg_format) {
        glyph_priv->format = CAIRO_FT_GLYPH_TYPE_SVG;

#if defined(HAVE_FT_COLR_V1) && defined(HAVE_FT_LOAD_NO_SVG)
        /* Prefer COLRv1 table over SVG table due to performance reasons for now */
        if (_cairo_ft_scaled_glyph_is_colr_v1 (scaled_font, scaled_glyph, face)) {
            glyph_priv->format = CAIRO_FT_GLYPH_TYPE_COLR_V1;
        }
#endif

    } else if (face->glyph->format == FT_GLYPH_FORMAT_OUTLINE) {
  glyph_priv->format = CAIRO_FT_GLYPH_TYPE_OUTLINE;
  if (color_flag) {
      if (_cairo_ft_scaled_glyph_is_colr_v1 (scaled_font, scaled_glyph, face))
    glyph_priv->format = CAIRO_FT_GLYPH_TYPE_COLR_V1;
      else if (_cairo_ft_scaled_glyph_is_colr_v0 (scaled_font, scaled_glyph, face))
    glyph_priv->format = CAIRO_FT_GLYPH_TYPE_COLR_V0;
  }
    } else {
  /* For anything else we let FreeType render a bitmap. */
   glyph_priv->format =  CAIRO_FT_GLYPH_TYPE_BITMAP;
    }

    /* If hinting is off, load the glyph with font size set the the em size. */
    if (!hint_metrics) {
  status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
                scaled_glyph,
                face,
                load_flags | color_flag,
                TRUE,
                vertical_layout);
  if (unlikely (status))
      return status;
    }

    _cairo_ft_scaled_glyph_get_metrics (scaled_font,
          face,
          vertical_layout,
          load_flags,
          &fs_metrics);


    /* SVG and COLRv1 glyphs require the bounding box to be obtained
     * from the ink extents of the rendering. We need to render glyph
     * to a recording surface to obtain these extents. But we also
     * need the advance from _cairo_ft_scaled_glyph_get_metrics()
     * before calling this function.
     */

    if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_SVG) {
  status = (cairo_int_status_t)_cairo_ft_scaled_glyph_init_record_svg_glyph (scaled_font,
                       scaled_glyph,
                       face,
                       foreground_color,
                       &fs_metrics);
  if (unlikely (status))
      return status;
    }

    if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V1) {
  /* Restore font size if previously loaded at em_size. */
  if (!hint_metrics) {
      status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
              scaled_glyph,
              face,
              load_flags | color_flag,
              FALSE,
              vertical_layout);
      if (unlikely (status))
    return status;
  }

  status = (cairo_int_status_t)_cairo_ft_scaled_glyph_init_record_colr_v1_glyph (scaled_font,
                           scaled_glyph,
                           face,
                           foreground_color,
                           &fs_metrics);
  if (unlikely (status))
      return status;
    }

    _cairo_scaled_glyph_set_metrics (scaled_glyph,
             &scaled_font->base,
             &fs_metrics);

    return status;
}

static cairo_int_status_t
_cairo_ft_scaled_glyph_init (void     *abstract_font,
           cairo_scaled_glyph_t *scaled_glyph,
           cairo_scaled_glyph_info_t   info,
           const cairo_color_t        *foreground_color)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    int load_flags = scaled_font->ft_options.load_flags;
    cairo_bool_t vertical_layout = FALSE;
    cairo_status_t status = CAIRO_STATUS_SUCCESS;
    cairo_ft_glyph_private_t *glyph_priv;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    /* Ignore global advance unconditionally */
    load_flags |= FT_LOAD_IGNORE_GLOBAL_ADVANCE_WIDTH;

    if ((info & CAIRO_SCALED_GLYPH_INFO_PATH) != 0 &&
  (info & (CAIRO_SCALED_GLYPH_INFO_SURFACE |
                 CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE)) == 0) {
  load_flags |= FT_LOAD_NO_BITMAP;
    }

    /*
     * Don't pass FT_LOAD_VERTICAL_LAYOUT to FT_Load_Glyph here as
     * suggested by freetype people.
     */
    if (load_flags & FT_LOAD_VERTICAL_LAYOUT) {
  load_flags &= ~FT_LOAD_VERTICAL_LAYOUT;
  vertical_layout = TRUE;
    }

    /* Metrics will always be requested when a scaled glyph is created */
    if (info & CAIRO_SCALED_GLYPH_INFO_METRICS) {
  status = _cairo_ft_scaled_glyph_init_metrics (scaled_font,
                  scaled_glyph,
                  face,
                  vertical_layout,
                  load_flags,
                  foreground_color);
  if (unlikely (status))
      goto FAIL;
    }

    glyph_priv = (cairo_ft_glyph_private_t *) _cairo_scaled_glyph_find_private (scaled_glyph,
                    &ft_glyph_private_key);
    assert (glyph_priv != NULL);

    if (info & CAIRO_SCALED_GLYPH_INFO_RECORDING_SURFACE) {
  status = CAIRO_INT_STATUS_UNSUPPORTED;
  if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_SVG ||
      glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V0 ||
      glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V1)
  {
      status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
              scaled_glyph,
              face,
              load_flags | FT_LOAD_COLOR,
              FALSE,
              vertical_layout);
      if (unlikely (status))
    goto FAIL;

      if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_SVG) {
    status = _cairo_ft_scaled_glyph_init_record_svg_glyph (scaled_font,
                       scaled_glyph,
                       face,
                       foreground_color,
                       &scaled_glyph->fs_metrics);
      } else if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V1) {
    status = _cairo_ft_scaled_glyph_init_record_colr_v1_glyph (scaled_font,
                     scaled_glyph,
                     face,
                     foreground_color,
                     &scaled_glyph->fs_metrics);
      } else if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V0) {
    status = _cairo_ft_scaled_glyph_init_record_colr_v0_glyph (scaled_font,
                     scaled_glyph,
                     face,
                     vertical_layout,
                     load_flags);
      }
  }
  if (status)
      goto FAIL;
    }

    if ((info & CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE) && scaled_font->base.options.color_mode != CAIRO_COLOR_MODE_NO_COLOR) {
  if (glyph_priv->format == CAIRO_FT_GLYPH_TYPE_SVG ||
      glyph_priv->format == CAIRO_FT_GLYPH_TYPE_COLR_V1)
  {
      status = _cairo_ft_scaled_glyph_init_surface_for_recording_surface (scaled_font,
                    scaled_glyph,
                    foreground_color);
  } else {
      status = _cairo_ft_scaled_glyph_init_surface (scaled_font,
                scaled_glyph,
                glyph_priv,
                CAIRO_SCALED_GLYPH_INFO_COLOR_SURFACE,
                face,
                foreground_color,
                vertical_layout,
                load_flags);
  }
  if (unlikely (status))
      goto FAIL;
    }

    if (info & CAIRO_SCALED_GLYPH_INFO_SURFACE) {
  status = _cairo_ft_scaled_glyph_init_surface (scaled_font,
                  scaled_glyph,
                  glyph_priv,
                  CAIRO_SCALED_GLYPH_INFO_SURFACE,
                  face,
                  NULL, /* foreground color */
                  vertical_layout,
                  load_flags);
  if (unlikely (status))
      goto FAIL;
    }

    if (info & CAIRO_SCALED_GLYPH_INFO_PATH) {
  cairo_path_fixed_t *path = NULL; /* hide compiler warning */

  /* Load non-color glyph */
  status = _cairo_ft_scaled_glyph_load_glyph (scaled_font,
                scaled_glyph,
                face,
                load_flags,
                FALSE,
                vertical_layout);
  if (unlikely (status))
      goto FAIL;

  if (face->glyph->format == FT_GLYPH_FORMAT_OUTLINE)
      status = _cairo_ft_face_decompose_glyph_outline (face, &path);
  else
      status = CAIRO_INT_STATUS_UNSUPPORTED;

  if (unlikely (status))
      goto FAIL;

  _cairo_scaled_glyph_set_path (scaled_glyph,
              &scaled_font->base,
              path);
    }
 FAIL:
    _cairo_ft_unscaled_font_unlock_face (unscaled);

    return status;
}

static unsigned long
_cairo_ft_ucs4_to_index (void     *abstract_font,
       uint32_t    ucs4)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    FT_UInt index;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return 0;

#if CAIRO_HAS_FC_FONT
    index = FcFreeTypeCharIndex (face, ucs4);
#else
    index = FT_Get_Char_Index (face, ucs4);
#endif

    _cairo_ft_unscaled_font_unlock_face (unscaled);
    return index;
}

static cairo_int_status_t
_cairo_ft_load_truetype_table (void        *abstract_font,
                              unsigned long     tag,
                              long              offset,
                              unsigned char    *buffer,
                              unsigned long    *length)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    cairo_status_t status = CAIRO_INT_STATUS_UNSUPPORTED;

    /* We don't support the FreeType feature of loading a table
     * without specifying the size since this may overflow our
     * buffer. */
    assert (length != NULL);

    if (_cairo_ft_scaled_font_is_vertical (&scaled_font->base))
        return CAIRO_INT_STATUS_UNSUPPORTED;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    if (FT_IS_SFNT (face)) {
  if (buffer == NULL)
      *length = 0;

  if (FT_Load_Sfnt_Table (face, tag, offset, buffer, length) == 0)
      status = CAIRO_STATUS_SUCCESS;
    }

    _cairo_ft_unscaled_font_unlock_face (unscaled);

    return status;
}

static cairo_int_status_t
_cairo_ft_index_to_ucs4(void          *abstract_font,
      unsigned long    index,
      uint32_t  *ucs4)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    FT_ULong  charcode;
    FT_UInt   gindex;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    *ucs4 = (uint32_t) -1;
    charcode = FT_Get_First_Char(face, &gindex);
    while (gindex != 0) {
  if (gindex == index) {
      *ucs4 = charcode;
      break;
  }
  charcode = FT_Get_Next_Char (face, charcode, &gindex);
    }

    _cairo_ft_unscaled_font_unlock_face (unscaled);

    return CAIRO_STATUS_SUCCESS;
}

static cairo_int_status_t
_cairo_ft_is_synthetic (void          *abstract_font,
      cairo_bool_t    *is_synthetic)
{
    cairo_int_status_t status = CAIRO_STATUS_SUCCESS;
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    FT_Error error;

    if (scaled_font->ft_options.synth_flags != 0) {
  *is_synthetic = TRUE;
  return status;
    }

    *is_synthetic = FALSE;
    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    if (face->face_flags & FT_FACE_FLAG_MULTIPLE_MASTERS) {
  FT_MM_Var *mm_var = NULL;
  FT_Fixed *coords = NULL;
  int num_axis;
  int i;

  /* If this is an MM or variable font we can't assume the current outlines
   * are the same as the font tables */
  *is_synthetic = TRUE;

  error = FT_Get_MM_Var (face, &mm_var);
  if (error) {
      status = _cairo_error (_cairo_ft_to_cairo_error (error));
      goto cleanup;
  }

  num_axis = mm_var->num_axis;
  coords = _cairo_malloc_ab (num_axis, sizeof(FT_Fixed));
  if (!coords) {
      status = _cairo_error (CAIRO_STATUS_NO_MEMORY);
      goto cleanup;
  }

  /* Check if the current design coordinates are the default
   * coordinates. In this case the current outlines match the
   * font tables.
   */
  FT_Get_Var_Blend_Coordinates (face, num_axis, coords);
  *is_synthetic = FALSE;
  for (i = 0; i < num_axis; i++) {
      if (coords[i]) {
    *is_synthetic = TRUE;
    break;
      }
  }

      cleanup:
  free (coords);
  FT_Done_MM_Var (face->glyph->library, mm_var);
    }

    _cairo_ft_unscaled_font_unlock_face (unscaled);

    return status;
}

static cairo_int_status_t
_cairo_index_to_glyph_name (void           *abstract_font,
          char                **glyph_names,
          int                   num_glyph_names,
          unsigned long         glyph_index,
          unsigned long        *glyph_array_index)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    char buffer[256]; /* PLRM specifies max name length of 127 */
    FT_Error error;
    int i;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    error = FT_Get_Glyph_Name (face, glyph_index, buffer, sizeof buffer);

    _cairo_ft_unscaled_font_unlock_face (unscaled);

    if (error != FT_Err_Ok) {
  /* propagate fatal errors from FreeType */
  if (error == FT_Err_Out_Of_Memory)
      return _cairo_error (CAIRO_STATUS_NO_MEMORY);

  return CAIRO_INT_STATUS_UNSUPPORTED;
    }

    /* FT first numbers the glyphs in the order they are read from the
     * Type 1 font. Then if .notdef is not the first glyph, the first
     * glyph is swapped with .notdef to ensure that .notdef is at
     * glyph index 0.
     *
     * As all but two glyphs in glyph_names already have the same
     * index as the FT glyph index, we first check if
     * glyph_names[glyph_index] is the name we are looking for. If not
     * we fall back to searching the entire array.
     */

    if ((long)glyph_index < num_glyph_names &&
  strcmp (glyph_names[glyph_index], buffer) == 0)
    {
  *glyph_array_index = glyph_index;

  return CAIRO_STATUS_SUCCESS;
    }

    for (i = 0; i < num_glyph_names; i++) {
  if (strcmp (glyph_names[i], buffer) == 0) {
      *glyph_array_index = i;

      return CAIRO_STATUS_SUCCESS;
  }
    }

    return CAIRO_INT_STATUS_UNSUPPORTED;
}

static cairo_bool_t
_ft_is_type1 (FT_Face face)
{
    const char *font_format = FT_Get_Font_Format (face);
    if (font_format &&
  (strcmp (font_format, "Type 1") == 0 ||
   strcmp (font_format, "CFF") == 0))
    {
  return TRUE;
    }

    return FALSE;
}

static cairo_int_status_t
_cairo_ft_load_type1_data (void             *abstract_font,
         long              offset,
         unsigned char    *buffer,
         unsigned long    *length)
{
    cairo_ft_scaled_font_t *scaled_font = abstract_font;
    cairo_ft_unscaled_font_t *unscaled = scaled_font->unscaled;
    FT_Face face;
    cairo_status_t status = CAIRO_STATUS_SUCCESS;
    unsigned long available_length;
    unsigned long ret;

    assert (length != NULL);

    if (_cairo_ft_scaled_font_is_vertical (&scaled_font->base))
        return CAIRO_INT_STATUS_UNSUPPORTED;

    face = _cairo_ft_unscaled_font_lock_face (unscaled);
    if (!face)
  return _cairo_error (CAIRO_STATUS_NO_MEMORY);

    if (FT_IS_SFNT (face)) {
  status = CAIRO_INT_STATUS_UNSUPPORTED;
  goto unlock;
    }

    if (! _ft_is_type1 (face)) {
        status = CAIRO_INT_STATUS_UNSUPPORTED;
  goto unlock;
    }

    available_length = MAX (face->stream->size - offset, 0);
    if (!buffer) {
  *length = available_length;
    } else {
  if (*length > available_length) {
      status = CAIRO_INT_STATUS_UNSUPPORTED;
  } else if (face->stream->read != NULL) {
      /* Note that read() may be implemented as a macro, thanks POSIX!, so we
       * need to wrap the following usage in parentheses in order to
       * disambiguate it for the pre-processor - using the verbose function
       * pointer dereference for clarity.
       */
      ret = (* face->stream->read) (face->stream,
            offset,
            buffer,
            *length);
      if (ret != *length)
    status = _cairo_error (CAIRO_STATUS_READ_ERROR);
  } else {
      memcpy (buffer, face->stream->base + offset, *length);
  }
    }

  unlock:
    _cairo_ft_unscaled_font_unlock_face (unscaled);

    return status;
}

static cairo_bool_t
_cairo_ft_has_color_glyphs (void *scaled)
{
    cairo_ft_unscaled_font_t *unscaled = ((cairo_ft_scaled_font_t *)scaled)->unscaled;

    if (!unscaled->have_color_set) {
  FT_Face face;
  face = _cairo_ft_unscaled_font_lock_face (unscaled);
  if (unlikely (face == NULL))
      return FALSE;
  _cairo_ft_unscaled_font_unlock_face (unscaled);
    }

    return unscaled->have_color;
}

static const cairo_scaled_font_backend_t _cairo_ft_scaled_font_backend = {
    CAIRO_FONT_TYPE_FT,
    _cairo_ft_scaled_font_fini,
    _cairo_ft_scaled_glyph_init,
    NULL,     /* text_to_glyphs */
    _cairo_ft_ucs4_to_index,
    _cairo_ft_load_truetype_table,
    _cairo_ft_index_to_ucs4,
    _cairo_ft_is_synthetic,
    _cairo_index_to_glyph_name,
    _cairo_ft_load_type1_data,
    _cairo_ft_has_color_glyphs
};

/* #cairo_ft_font_face_t */

#if CAIRO_HAS_FC_FONT
static cairo_font_face_t *
_cairo_ft_font_face_create_for_pattern (FcPattern *pattern);

static cairo_status_t
_cairo_ft_font_face_create_for_toy (cairo_toy_font_face_t *toy_face,
            cairo_font_face_t **font_face_out)
{
    cairo_font_face_t *font_face = (cairo_font_face_t *) &_cairo_font_face_nil;
    FcPattern *pattern;
    int fcslant;
    int fcweight;

    pattern = FcPatternCreate ();
    if (!pattern) {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  return font_face->status;
    }

    if (!FcPatternAddString (pattern,
                 FC_FAMILY, (unsigned char *) toy_face->family))
    {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  goto FREE_PATTERN;
    }

    switch (toy_face->slant)
    {
    case CAIRO_FONT_SLANT_ITALIC:
        fcslant = FC_SLANT_ITALIC;
        break;
    case CAIRO_FONT_SLANT_OBLIQUE:
  fcslant = FC_SLANT_OBLIQUE;
        break;
    case CAIRO_FONT_SLANT_NORMAL:
    default:
        fcslant = FC_SLANT_ROMAN;
        break;
    }

    if (!FcPatternAddInteger (pattern, FC_SLANT, fcslant)) {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  goto FREE_PATTERN;
    }

    switch (toy_face->weight)
    {
    case CAIRO_FONT_WEIGHT_BOLD:
        fcweight = FC_WEIGHT_BOLD;
        break;
    case CAIRO_FONT_WEIGHT_NORMAL:
    default:
        fcweight = FC_WEIGHT_MEDIUM;
        break;
    }

    if (!FcPatternAddInteger (pattern, FC_WEIGHT, fcweight)) {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  goto FREE_PATTERN;
    }

    font_face = _cairo_ft_font_face_create_for_pattern (pattern);

 FREE_PATTERN:
    FcPatternDestroy (pattern);

    *font_face_out = font_face;
    return font_face->status;
}
#endif

static cairo_bool_t
_cairo_ft_font_face_destroy (void *abstract_face)
{
    cairo_ft_font_face_t *font_face = abstract_face;

    /* When destroying a face created by cairo_ft_font_face_create_for_ft_face,
     * we have a special "zombie" state for the face when the unscaled font
     * is still alive but there are no other references to a font face with
     * the same FT_Face.
     *
     * We go from:
     *
     *   font_face ------> unscaled
     *        <-....weak....../
     *
     * To:
     *
     *    font_face <------- unscaled
     */

    if (font_face->unscaled &&
  font_face->unscaled->from_face &&
  font_face->next == NULL &&
  font_face->unscaled->faces == font_face &&
  CAIRO_REFERENCE_COUNT_GET_VALUE (&font_face->unscaled->base.ref_count) > 1)
    {
  _cairo_unscaled_font_destroy (&font_face->unscaled->base);
  font_face->unscaled = NULL;

  return FALSE;
    }

    if (font_face->unscaled) {
  cairo_ft_font_face_t *tmp_face = NULL;
  cairo_ft_font_face_t *last_face = NULL;

  /* Remove face from linked list */
  for (tmp_face = font_face->unscaled->faces;
       tmp_face;
       tmp_face = tmp_face->next)
  {
      if (tmp_face == font_face) {
    if (last_face)
        last_face->next = tmp_face->next;
    else
        font_face->unscaled->faces = tmp_face->next;
      }

      last_face = tmp_face;
  }

  _cairo_unscaled_font_destroy (&font_face->unscaled->base);
  font_face->unscaled = NULL;
    }

    _cairo_ft_options_fini (&font_face->ft_options);

#if CAIRO_HAS_FC_FONT
    if (font_face->pattern) {
  FcPatternDestroy (font_face->pattern);
  cairo_font_face_destroy (font_face->resolved_font_face);
    }
#endif

    return TRUE;
}

static cairo_font_face_t *
_cairo_ft_font_face_get_implementation (void                     *abstract_face,
          const cairo_matrix_t       *font_matrix,
          const cairo_matrix_t       *ctm,
          const cairo_font_options_t *options)
{
    /* The handling of font options is different depending on how the
     * font face was created. When the user creates a font face with
     * cairo_ft_font_face_create_for_ft_face(), then the load flags
     * passed in augment the load flags for the options.  But for
     * cairo_ft_font_face_create_for_pattern(), the load flags are
     * derived from a pattern where the user has called
     * cairo_ft_font_options_substitute(), so *just* use those load
     * flags and ignore the options.
     */

#if CAIRO_HAS_FC_FONT
    cairo_ft_font_face_t      *font_face = abstract_face;

    /* If we have an unresolved pattern, resolve it and create
     * unscaled font.  Otherwise, use the ones stored in font_face.
     */
    if (font_face->pattern) {
  cairo_font_face_t *resolved;

  /* Cache the resolved font whilst the FcConfig remains consistent. */
  resolved = font_face->resolved_font_face;
  if (resolved != NULL) {
      if (! FcInitBringUptoDate ()) {
    _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
    return (cairo_font_face_t *) &_cairo_font_face_nil;
      }

      if (font_face->resolved_config == FcConfigGetCurrent ())
    return cairo_font_face_reference (resolved);

      cairo_font_face_destroy (resolved);
      font_face->resolved_font_face = NULL;
  }

  resolved = _cairo_ft_resolve_pattern (font_face->pattern,
                font_matrix,
                ctm,
                options);
  if (unlikely (resolved->status))
      return resolved;

  font_face->resolved_font_face = cairo_font_face_reference (resolved);
  font_face->resolved_config = FcConfigGetCurrent ();

  return resolved;
    }
#endif

    return abstract_face;
}

const cairo_font_face_backend_t _cairo_ft_font_face_backend = {
    CAIRO_FONT_TYPE_FT,
#if CAIRO_HAS_FC_FONT
    _cairo_ft_font_face_create_for_toy,
#else
    NULL,
#endif
    _cairo_ft_font_face_destroy,
    _cairo_ft_font_face_scaled_font_create,
    _cairo_ft_font_face_get_implementation
};

#if CAIRO_HAS_FC_FONT
static cairo_font_face_t *
_cairo_ft_font_face_create_for_pattern (FcPattern *pattern)
{
    cairo_ft_font_face_t *font_face;

    font_face = _cairo_calloc (sizeof (cairo_ft_font_face_t));
    if (unlikely (font_face == NULL)) {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  return (cairo_font_face_t *) &_cairo_font_face_nil;
    }

    font_face->unscaled = NULL;

    _get_pattern_ft_options (pattern, &font_face->ft_options);

    font_face->next = NULL;

    font_face->pattern = FcPatternDuplicate (pattern);
    if (unlikely (font_face->pattern == NULL)) {
  free (font_face);
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  return (cairo_font_face_t *) &_cairo_font_face_nil;
    }

    font_face->resolved_font_face = NULL;
    font_face->resolved_config = NULL;

    _cairo_font_face_init (&font_face->base, &_cairo_ft_font_face_backend);

    return &font_face->base;
}
#endif

static cairo_font_face_t *
_cairo_ft_font_face_create (cairo_ft_unscaled_font_t *unscaled,
          cairo_ft_options_t       *ft_options)
{
    cairo_ft_font_face_t *font_face, **prev_font_face;

    /* Looked for an existing matching font face */
    for (font_face = unscaled->faces, prev_font_face = &unscaled->faces;
   font_face;
   prev_font_face = &font_face->next, font_face = font_face->next)
    {
  if (font_face->ft_options.load_flags == ft_options->load_flags &&
      font_face->ft_options.synth_flags == ft_options->synth_flags &&
      cairo_font_options_equal (&font_face->ft_options.base, &ft_options->base))
  {
      if (font_face->base.status) {
    /* The font_face has been left in an error state, abandon it. */
    *prev_font_face = font_face->next;
    break;
      }

      if (font_face->unscaled == NULL) {
    /* Resurrect this "zombie" font_face (from
     * _cairo_ft_font_face_destroy), switching its unscaled_font
     * from owner to ownee. */
    font_face->unscaled = unscaled;
    _cairo_unscaled_font_reference (&unscaled->base);
    return &font_face->base;
      } else
    return cairo_font_face_reference (&font_face->base);
  }
    }

    /* No match found, create a new one */
    font_face = _cairo_calloc (sizeof (cairo_ft_font_face_t));
    if (unlikely (!font_face)) {
  _cairo_error_throw (CAIRO_STATUS_NO_MEMORY);
  return (cairo_font_face_t *)&_cairo_font_face_nil;
    }

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

    _cairo_ft_options_init_copy (&font_face->ft_options, ft_options);

    if (unscaled->faces && unscaled->faces->unscaled == NULL) {
  /* This "zombie" font_face (from _cairo_ft_font_face_destroy)
   * is no longer needed. */
  assert (unscaled->from_face && unscaled->faces->next == NULL);
  cairo_font_face_destroy (&unscaled->faces->base);
  unscaled->faces = NULL;
    }

    font_face->next = unscaled->faces;
    unscaled->faces = font_face;

#if CAIRO_HAS_FC_FONT
    font_face->pattern = NULL;
#endif

    _cairo_font_face_init (&font_face->base, &_cairo_ft_font_face_backend);

    return &font_face->base;
}

/* implement the platform-specific interface */

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

    if (options->antialias != CAIRO_ANTIALIAS_DEFAULT)
    {
  if (FcPatternGet (pattern, FC_ANTIALIAS, 0, &v) == FcResultNoMatch)
  {
      if (! FcPatternAddBool (pattern,
                  FC_ANTIALIAS,
            options->antialias != CAIRO_ANTIALIAS_NONE))
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);

      if (options->antialias != CAIRO_ANTIALIAS_SUBPIXEL) {
    FcPatternDel (pattern, FC_RGBA);
    if (! FcPatternAddInteger (pattern, FC_RGBA, FC_RGBA_NONE))
        return _cairo_error (CAIRO_STATUS_NO_MEMORY);
      }
  }
    }

    if (options->antialias != CAIRO_ANTIALIAS_DEFAULT)
    {
  if (FcPatternGet (pattern, FC_RGBA, 0, &v) == FcResultNoMatch)
  {
      int rgba;

      if (options->antialias == CAIRO_ANTIALIAS_SUBPIXEL) {
    switch (options->subpixel_order) {
    case CAIRO_SUBPIXEL_ORDER_DEFAULT:
    case CAIRO_SUBPIXEL_ORDER_RGB:
    default:
        rgba = FC_RGBA_RGB;
        break;
    case CAIRO_SUBPIXEL_ORDER_BGR:
        rgba = FC_RGBA_BGR;
        break;
    case CAIRO_SUBPIXEL_ORDER_VRGB:
        rgba = FC_RGBA_VRGB;
        break;
    case CAIRO_SUBPIXEL_ORDER_VBGR:
        rgba = FC_RGBA_VBGR;
        break;
    }
      } else {
    rgba = FC_RGBA_NONE;
      }

      if (! FcPatternAddInteger (pattern, FC_RGBA, rgba))
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);
  }
    }

    if (options->lcd_filter != CAIRO_LCD_FILTER_DEFAULT)
    {
  if (FcPatternGet (pattern, FC_LCD_FILTER, 0, &v) == FcResultNoMatch)
  {
      int lcd_filter;

      switch (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;
      default:
      case CAIRO_LCD_FILTER_DEFAULT:
      case CAIRO_LCD_FILTER_FIR5:
    lcd_filter = FT_LCD_FILTER_DEFAULT;
    break;
      }

      if (! FcPatternAddInteger (pattern, FC_LCD_FILTER, lcd_filter))
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);
  }
    }

    if (options->hint_style != CAIRO_HINT_STYLE_DEFAULT)
    {
  if (FcPatternGet (pattern, FC_HINTING, 0, &v) == FcResultNoMatch)
  {
      if (! FcPatternAddBool (pattern,
                  FC_HINTING,
            options->hint_style != CAIRO_HINT_STYLE_NONE))
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);
  }

  if (FcPatternGet (pattern, FC_HINT_STYLE, 0, &v) == FcResultNoMatch)
  {
      int hint_style;

      switch (options->hint_style) {
      case CAIRO_HINT_STYLE_NONE:
    hint_style = FC_HINT_NONE;
    break;
      case CAIRO_HINT_STYLE_SLIGHT:
    hint_style = FC_HINT_SLIGHT;
    break;
      case CAIRO_HINT_STYLE_MEDIUM:
    hint_style = FC_HINT_MEDIUM;
    break;
      case CAIRO_HINT_STYLE_FULL:
      case CAIRO_HINT_STYLE_DEFAULT:
      default:
    hint_style = FC_HINT_FULL;
    break;
      }

      if (! FcPatternAddInteger (pattern, FC_HINT_STYLE, hint_style))
    return _cairo_error (CAIRO_STATUS_NO_MEMORY);
  }
    }

    return CAIRO_STATUS_SUCCESS;
}

/**
 * cairo_ft_font_options_substitute:
 * @options: a #cairo_font_options_t object
 * @pattern: an existing #FcPattern
 *
 * Add options to a #FcPattern based on a #cairo_font_options_t font
 * options object. Options that are already in the pattern, are not overridden,
 * so you should call this function after calling FcConfigSubstitute() (the
 * user's settings should override options based on the surface type), but
 * before calling FcDefaultSubstitute().
 *
 * Since: 1.0
 **/
void
cairo_ft_font_options_substitute (const cairo_font_options_t *options,
          FcPattern                  *pattern)
{
    if (cairo_font_options_status ((cairo_font_options_t *) options))
  return;

    _cairo_ft_font_options_substitute (options, 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 *font_options)
{
    cairo_status_t status;

    cairo_matrix_t scale;
    FcPattern *resolved;
    cairo_ft_font_transform_t sf;
    FcResult result;
    cairo_ft_unscaled_font_t *unscaled;
    cairo_ft_options_t ft_options;
    cairo_font_face_t *font_face;

    scale = *ctm;
    scale.x0 = scale.y0 = 0;
    cairo_matrix_multiply (&scale,
                           font_matrix,
                           &scale);

    status = _compute_transform (&sf, &scale, NULL);
    if (unlikely (status))
  return (cairo_font_face_t *)&_cairo_font_face_nil;

    pattern = FcPatternDuplicate (pattern);
    if (pattern == NULL)
  return (cairo_font_face_t *)&_cairo_font_face_nil;

    if (! FcPatternAddDouble (pattern, FC_PIXEL_SIZE, sf.y_scale)) {
  font_face = (cairo_font_face_t *)&_cairo_font_face_nil;
  goto FREE_PATTERN;
    }

    if (! FcConfigSubstitute (NULL, pattern, FcMatchPattern)) {
  font_face = (cairo_font_face_t *)&_cairo_font_face_nil;
  goto FREE_PATTERN;
    }

    status = _cairo_ft_font_options_substitute (font_options, pattern);
    if (status) {
  font_face = (cairo_font_face_t *)&_cairo_font_face_nil;
  goto FREE_PATTERN;
    }

    FcDefaultSubstitute (pattern);

    status = _cairo_ft_unscaled_font_create_for_pattern (pattern, &unscaled);
    if (unlikely (status)) {
  font_face = (cairo_font_face_t *)&_cairo_font_face_nil;
  goto FREE_PATTERN;
    }

    if (unscaled == NULL) {
  resolved = FcFontMatch (NULL, pattern, &result);
  if (!resolved) {
      /* We failed to find any font. Substitute twin so that the user can
       * see something (and hopefully recognise that the font is missing)
       * and not just receive a NO_MEMORY error during rendering.
       */
      font_face = _cairo_font_face_twin_create_fallback ();
      goto FREE_PATTERN;
  }

  status = _cairo_ft_unscaled_font_create_for_pattern (resolved, &unscaled);
  if (unlikely (status || unscaled == NULL)) {
      font_face = (cairo_font_face_t *)&_cairo_font_face_nil;
      goto FREE_RESOLVED;
  }
    } else
  resolved = pattern;

    _get_pattern_ft_options (resolved, &ft_options);
    font_face = _cairo_ft_font_face_create (unscaled, &ft_options);
     _cairo_ft_options_fini (&ft_options);
    _cairo_unscaled_font_destroy (&unscaled->base);

FREE_RESOLVED:
    if (resolved != pattern)
  FcPatternDestroy (resolved);

FREE_PATTERN:
    FcPatternDestroy (pattern);

    return font_face;
}

/**
 * cairo_ft_font_face_create_for_pattern:
 * @pattern: A fontconfig pattern.  Cairo makes a copy of the pattern
 * if it needs to.  You are free to modify or free @pattern after this call.
 *
 * Creates a new font face for the FreeType font backend based on a
 * fontconfig pattern. This font can then be used with
 * cairo_set_font_face() or cairo_scaled_font_create(). The
 * #cairo_scaled_font_t returned from cairo_scaled_font_create() is
 * also for the FreeType backend and can be used with functions such
 * as cairo_ft_scaled_font_lock_face().
 *
 * Font rendering options are represented both here and when you
 * call cairo_scaled_font_create(). Font options that have a representation
 * in a #FcPattern must be passed in here; to modify #FcPattern
 * appropriately to reflect the options in a #cairo_font_options_t, call
 * cairo_ft_font_options_substitute().
 *
 * The pattern's FC_FT_FACE element is inspected first and if that is set,
 * that will be the FreeType font face associated with the returned cairo
 * font face.  Otherwise the FC_FILE element is checked.  If it's set,
 * that and the value of the FC_INDEX element (defaults to zero) of @pattern
 * are used to load a font face from file.
 *
 * If both steps from the previous paragraph fails, @pattern will be passed
 * to FcConfigSubstitute, FcDefaultSubstitute, and finally FcFontMatch,
 * and the resulting font pattern is used.
 *
 * If the FC_FT_FACE element of @pattern is set, the user is responsible
 * for making sure that the referenced FT_Face remains valid for the life
 * time of the returned #cairo_font_face_t.  See
 * cairo_ft_font_face_create_for_ft_face() for an example of how to couple
 * the life time of the FT_Face to that of the cairo font-face.
 *
 * Return value: a newly created #cairo_font_face_t. Free with
 *  cairo_font_face_destroy() when you are done using it.
 *
 * Since: 1.0
 **/
cairo_font_face_t *
cairo_ft_font_face_create_for_pattern (FcPattern *pattern)
{
    cairo_ft_unscaled_font_t *unscaled;
    cairo_font_face_t *font_face;
    cairo_ft_options_t ft_options;
    cairo_status_t status;

    status = _cairo_ft_unscaled_font_create_for_pattern (pattern, &unscaled);
    if (unlikely (status)) {
      if (status == CAIRO_STATUS_FILE_NOT_FOUND)
  return (cairo_font_face_t *) &_cairo_font_face_nil_file_not_found;
      else
  return (cairo_font_face_t *) &_cairo_font_face_nil;
    }
    if (unlikely (unscaled == NULL)) {
  /* Store the pattern.  We will resolve it and create unscaled
   * font when creating scaled fonts */
  return _cairo_ft_font_face_create_for_pattern (pattern);
    }

    _get_pattern_ft_options (pattern, &ft_options);
    font_face = _cairo_ft_font_face_create (unscaled, &ft_options);
    _cairo_ft_options_fini (&ft_options);
    _cairo_unscaled_font_destroy (&unscaled->base);

    return font_face;
}
#endif

/**
 * cairo_ft_font_face_create_for_ft_face:
 * @face: A FreeType face object, already opened. This must
 *   be kept around until the face's ref_count drops to
 *   zero and it is freed. Since the face may be referenced
 *   internally to Cairo, the best way to determine when it
 *   is safe to free the face is to pass a
 *   #cairo_destroy_func_t to cairo_font_face_set_user_data()
 * @load_flags: flags to pass to FT_Load_Glyph when loading
 *   glyphs from the font. These flags are OR'ed together with
 *   the flags derived from the #cairo_font_options_t passed
 *   to cairo_scaled_font_create(), so only a few values such
 *   as %FT_LOAD_VERTICAL_LAYOUT, and %FT_LOAD_FORCE_AUTOHINT
 *   are useful. You should not pass any of the flags affecting
 *   the load target, such as %FT_LOAD_TARGET_LIGHT.
 *
 * Creates a new font face for the FreeType font backend from a
 * pre-opened FreeType face. This font can then be used with
 * cairo_set_font_face() or cairo_scaled_font_create(). The
 * #cairo_scaled_font_t returned from cairo_scaled_font_create() is
 * also for the FreeType backend and can be used with functions such
 * as cairo_ft_scaled_font_lock_face(). Note that Cairo may keep a reference
 * to the FT_Face alive in a font-cache and the exact lifetime of the reference
 * depends highly upon the exact usage pattern and is subject to external
 * factors. You must not call FT_Done_Face() before the last reference to the
 * #cairo_font_face_t has been dropped.
 *
 * As an example, below is how one might correctly couple the lifetime of
 * the FreeType face object to the #cairo_font_face_t.
 *
 * <informalexample><programlisting>
 * static const cairo_user_data_key_t key;
 *
 * font_face = cairo_ft_font_face_create_for_ft_face (ft_face, 0);
 * status = cairo_font_face_set_user_data (font_face, &key,
 *                                ft_face, (cairo_destroy_func_t) FT_Done_Face);
 * if (status) {
 *    cairo_font_face_destroy (font_face);
 *    FT_Done_Face (ft_face);
 *    return ERROR;
 * }
 * </programlisting></informalexample>
 *
 * Return value: a newly created #cairo_font_face_t. Free with
 *  cairo_font_face_destroy() when you are done using it.
 *
 * Since: 1.0
 **/
cairo_font_face_t *
cairo_ft_font_face_create_for_ft_face (FT_Face         face,
               int             load_flags)
{
    cairo_ft_unscaled_font_t *unscaled;
    cairo_font_face_t *font_face;
    cairo_ft_options_t ft_options;
    cairo_status_t status;

    status = _cairo_ft_unscaled_font_create_from_face (face, &unscaled);
    if (unlikely (status))
  return (cairo_font_face_t *)&_cairo_font_face_nil;

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

    font_face = _cairo_ft_font_face_create (unscaled, &ft_options);
    _cairo_unscaled_font_destroy (&unscaled->base);

    return font_face;
}

/**
 * cairo_ft_font_face_set_synthesize:
 * @font_face: The #cairo_ft_font_face_t object to modify
 * @synth_flags: the set of synthesis options to enable
 *
 * FreeType provides the ability to synthesize different glyphs from a base
 * font, which is useful if you lack those glyphs from a true bold or oblique
 * font. See also #cairo_ft_synthesize_t.
 *
 * Since: 1.12
 **/
void
cairo_ft_font_face_set_synthesize (cairo_font_face_t *font_face,
           unsigned int synth_flags)
{
    cairo_ft_font_face_t *ft;

    if (font_face->backend->type != CAIRO_FONT_TYPE_FT)
  return;

    ft = (cairo_ft_font_face_t *) font_face;
    ft->ft_options.synth_flags |= synth_flags;
}

/**
 * cairo_ft_font_face_unset_synthesize:
 * @font_face: The #cairo_ft_font_face_t object to modify
 * @synth_flags: the set of synthesis options to disable
 *
 * See cairo_ft_font_face_set_synthesize().
 *
 * Since: 1.12
 **/
void
cairo_ft_font_face_unset_synthesize (cairo_font_face_t *font_face,
             unsigned int synth_flags)
{
    cairo_ft_font_face_t *ft;

    if (font_face->backend->type != CAIRO_FONT_TYPE_FT)
  return;

    ft = (cairo_ft_font_face_t *) font_face;
    ft->ft_options.synth_flags &= ~synth_flags;
}

/**
 * cairo_ft_font_face_get_synthesize:
 * @font_face: The #cairo_ft_font_face_t object to query
 *
 * See #cairo_ft_synthesize_t.
 *
 * Returns: the current set of synthesis options.
 *
 * Since: 1.12
 **/
unsigned int
cairo_ft_font_face_get_synthesize (cairo_font_face_t *font_face)
{
    cairo_ft_font_face_t *ft;

    if (font_face->backend->type != CAIRO_FONT_TYPE_FT)
  return 0;

    ft = (cairo_ft_font_face_t *) font_face;
    return ft->ft_options.synth_flags;
}

/**
 * cairo_ft_scaled_font_lock_face:
 * @scaled_font: A #cairo_scaled_font_t from the FreeType font backend. Such an
 *   object can be created by calling cairo_scaled_font_create() on a
 *   FreeType backend font face (see cairo_ft_font_face_create_for_pattern(),
 *   cairo_ft_font_face_create_for_ft_face()).
 *
 * cairo_ft_scaled_font_lock_face() gets the #FT_Face object from a FreeType
 * backend font and scales it appropriately for the font and applies OpenType
 * font variations if applicable. You must
 * release the face with cairo_ft_scaled_font_unlock_face()
 * when you are done using it.  Since the #FT_Face object can be
 * shared between multiple #cairo_scaled_font_t objects, you must not
 * lock any other font objects until you unlock this one. A count is
 * kept of the number of times cairo_ft_scaled_font_lock_face() is
 * called. cairo_ft_scaled_font_unlock_face() must be called the same number
 * of times.
 *
 * You must be careful when using this function in a library or in a
 * threaded application, because freetype's design makes it unsafe to
 * call freetype functions simultaneously from multiple threads, (even
 * if using distinct FT_Face objects). Because of this, application
 * code that acquires an FT_Face object with this call must add its
 * own locking to protect any use of that object, (and which also must
 * protect any other calls into cairo as almost any cairo function
 * might result in a call into the freetype library).
 *
 * Return value: The #FT_Face object for @font, scaled appropriately,
 * or %NULL if @scaled_font is in an error state (see
 * cairo_scaled_font_status()) or there is insufficient memory.
 *
 * Since: 1.0
 **/
FT_Face
cairo_ft_scaled_font_lock_face (cairo_scaled_font_t *abstract_font)
{
    cairo_ft_scaled_font_t *scaled_font = (cairo_ft_scaled_font_t *) abstract_font;
    FT_Face face;
    cairo_status_t status;

    if (! _cairo_scaled_font_is_ft (abstract_font)) {
  _cairo_error_throw (CAIRO_STATUS_FONT_TYPE_MISMATCH);
  return NULL;
    }

    if (scaled_font->base.status)
  return NULL;

    face = _cairo_ft_unscaled_font_lock_face (scaled_font->unscaled);
    if (unlikely (face == NULL)) {
  status = _cairo_scaled_font_set_error (&scaled_font->base, CAIRO_STATUS_NO_MEMORY);
  return NULL;
    }

    status = _cairo_ft_unscaled_font_set_scale (scaled_font->unscaled,
                        &scaled_font->base.scale);
    if (unlikely (status)) {
  _cairo_ft_unscaled_font_unlock_face (scaled_font->unscaled);
  status = _cairo_scaled_font_set_error (&scaled_font->base, status);
  return NULL;
    }

    cairo_ft_apply_variations (face, scaled_font);

    /* Note: We deliberately release the unscaled font's mutex here,
     * so that we are not holding a lock across two separate calls to
     * cairo function, (which would give the application some
     * opportunity for creating deadlock. This is obviously unsafe,
     * but as documented, the user must add manual locking when using
     * this function. */
     CAIRO_MUTEX_UNLOCK (scaled_font->unscaled->mutex);

    return face;
}

/**
 * cairo_ft_scaled_font_unlock_face:
 * @scaled_font: A #cairo_scaled_font_t from the FreeType font backend. Such an
 *   object can be created by calling cairo_scaled_font_create() on a
 *   FreeType backend font face (see cairo_ft_font_face_create_for_pattern(),
 *   cairo_ft_font_face_create_for_ft_face()).
 *
 * Releases a face obtained with cairo_ft_scaled_font_lock_face().
 *
 * Since: 1.0
 **/
void
cairo_ft_scaled_font_unlock_face (cairo_scaled_font_t *abstract_font)
{
    cairo_ft_scaled_font_t *scaled_font = (cairo_ft_scaled_font_t *) abstract_font;

    if (! _cairo_scaled_font_is_ft (abstract_font)) {
  _cairo_error_throw (CAIRO_STATUS_FONT_TYPE_MISMATCH);
  return;
    }

    if (scaled_font->base.status)
  return;

    /* Note: We released the unscaled font's mutex at the end of
     * cairo_ft_scaled_font_lock_face, so we have to acquire it again
     * as _cairo_ft_unscaled_font_unlock_face expects it to be held
     * when we call into it. */
    CAIRO_MUTEX_LOCK (scaled_font->unscaled->mutex);

    _cairo_ft_unscaled_font_unlock_face (scaled_font->unscaled);
}

static cairo_bool_t
_cairo_ft_scaled_font_is_vertical (cairo_scaled_font_t *scaled_font)
{
    cairo_ft_scaled_font_t *ft_scaled_font;

    if (!_cairo_scaled_font_is_ft (scaled_font))
  return FALSE;

    ft_scaled_font = (cairo_ft_scaled_font_t *) scaled_font;
    if (ft_scaled_font->ft_options.load_flags & FT_LOAD_VERTICAL_LAYOUT)
  return TRUE;
    return FALSE;
}

unsigned int
_cairo_ft_scaled_font_get_load_flags (cairo_scaled_font_t *scaled_font)
{
    cairo_ft_scaled_font_t *ft_scaled_font;

    if (! _cairo_scaled_font_is_ft (scaled_font))
  return 0;

    ft_scaled_font = (cairo_ft_scaled_font_t *) scaled_font;
    return ft_scaled_font->ft_options.load_flags;
}

void
_cairo_ft_font_reset_static_data (void)
{
    _cairo_ft_unscaled_font_map_destroy ();
}

Coverage Report

Created: 2025-11-16 09:57