src/base/ftpfr.c

   1 /****************************************************************************
   2  *
   3  * ftpfr.c
   4  *
   5  *   FreeType API for accessing PFR-specific data (body).
   6  *
   7  * Copyright (C) 2002-2023 by
   8  * David Turner, Robert Wilhelm, and Werner Lemberg.
   9  *
  10  * This file is part of the FreeType project, and may only be used,
  11  * modified, and distributed under the terms of the FreeType project
  12  * license, LICENSE.TXT.  By continuing to use, modify, or distribute
  13  * this file you indicate that you have read the license and
  14  * understand and accept it fully.
  15  *
  16  */
  17
  18 #include <freetype/internal/ftdebug.h>
  19
  20 #include <freetype/internal/ftobjs.h>
  21 #include <freetype/internal/services/svpfr.h>
  22
  23
  24   /* check the format */
  25   static FT_Service_PfrMetrics
  26   ft_pfr_check( FT_Face  face )
  27   {
  28     FT_Service_PfrMetrics  service = NULL;
  29
  30
  31     if ( face )
  32       FT_FACE_LOOKUP_SERVICE( face, service, PFR_METRICS );
  33
  34     return service;
  35   }
  36
  37
  38   /* documentation is in ftpfr.h */
  39
  40   FT_EXPORT_DEF( FT_Error )
  41   FT_Get_PFR_Metrics( FT_Face    face,
  42                       FT_UInt   *aoutline_resolution,
  43                       FT_UInt   *ametrics_resolution,
  44                       FT_Fixed  *ametrics_x_scale,
  45                       FT_Fixed  *ametrics_y_scale )
  46   {
  47     FT_Error               error = FT_Err_Ok;
  48     FT_Service_PfrMetrics  service;
  49
  50
  51     if ( !face )
  52       return FT_THROW( Invalid_Face_Handle );
  53
  54     service = ft_pfr_check( face );
  55     if ( service )
  56     {
  57       error = service->get_metrics( face,
  58                                     aoutline_resolution,
  59                                     ametrics_resolution,
  60                                     ametrics_x_scale,
  61                                     ametrics_y_scale );
  62     }
  63     else
  64     {
  65       FT_Fixed  x_scale, y_scale;
  66
  67
  68       /* this is not a PFR font */
  69       if ( aoutline_resolution )
  70         *aoutline_resolution = face->units_per_EM;
  71
  72       if ( ametrics_resolution )
  73         *ametrics_resolution = face->units_per_EM;
  74
  75       x_scale = y_scale = 0x10000L;
  76       if ( face->size )
  77       {
  78         x_scale = face->size->metrics.x_scale;
  79         y_scale = face->size->metrics.y_scale;
  80       }
  81
  82       if ( ametrics_x_scale )
  83         *ametrics_x_scale = x_scale;
  84
  85       if ( ametrics_y_scale )
  86         *ametrics_y_scale = y_scale;
  87
  88       error = FT_THROW( Unknown_File_Format );
  89     }
  90
  91     return error;
  92   }
  93
  94
  95   /* documentation is in ftpfr.h */
  96
  97   FT_EXPORT_DEF( FT_Error )
  98   FT_Get_PFR_Kerning( FT_Face     face,
  99                       FT_UInt     left,
 100                       FT_UInt     right,
 101                       FT_Vector  *avector )
 102   {
 103     FT_Error               error;
 104     FT_Service_PfrMetrics  service;
 105
 106
 107     if ( !face )
 108       return FT_THROW( Invalid_Face_Handle );
 109
 110     if ( !avector )
 111       return FT_THROW( Invalid_Argument );
 112
 113     service = ft_pfr_check( face );
 114     if ( service )
 115       error = service->get_kerning( face, left, right, avector );
 116     else
 117       error = FT_Get_Kerning( face, left, right,
 118                               FT_KERNING_UNSCALED, avector );
 119
 120     return error;
 121   }
 122
 123
 124   /* documentation is in ftpfr.h */
 125
 126   FT_EXPORT_DEF( FT_Error )
 127   FT_Get_PFR_Advance( FT_Face   face,
 128                       FT_UInt   gindex,
 129                       FT_Pos   *aadvance )
 130   {
 131     FT_Error               error;
 132     FT_Service_PfrMetrics  service;
 133
 134
 135     if ( !face )
 136       return FT_THROW( Invalid_Face_Handle );
 137
 138     if ( !aadvance )
 139       return FT_THROW( Invalid_Argument );
 140
 141     service = ft_pfr_check( face );
 142     if ( service )
 143       error = service->get_advance( face, gindex, aadvance );
 144     else
 145       /* XXX: TODO: PROVIDE ADVANCE-LOADING METHOD TO ALL FONT DRIVERS */
 146       error = FT_THROW( Invalid_Argument );
 147
 148     return error;
 149   }
 150
 151
 152 /* END */