source: trunk/poppler/freetype2/src/pfr/pfrobjs.c @ 165

Last change on this file since 165 was 165, checked in by Eugene Romanenko, 15 years ago

update to latest freetype cvs, (closes #76)

File size: 17.2 KB
Line 
1/***************************************************************************/
2/*                                                                         */
3/*  pfrobjs.c                                                              */
4/*                                                                         */
5/*    FreeType PFR object methods (body).                                  */
6/*                                                                         */
7/*  Copyright 2002, 2003, 2004, 2005, 2006 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
19#include "pfrobjs.h"
20#include "pfrload.h"
21#include "pfrgload.h"
22#include "pfrcmap.h"
23#include "pfrsbit.h"
24#include FT_OUTLINE_H
25#include FT_INTERNAL_DEBUG_H
26
27#include "pfrerror.h"
28
29#undef  FT_COMPONENT
30#define FT_COMPONENT  trace_pfr
31
32
33  /*************************************************************************/
34  /*************************************************************************/
35  /*****                                                               *****/
36  /*****                     FACE OBJECT METHODS                       *****/
37  /*****                                                               *****/
38  /*************************************************************************/
39  /*************************************************************************/
40
41  FT_LOCAL_DEF( void )
42  pfr_face_done( FT_Face  pfrface )     /* PFR_Face */
43  {
44    PFR_Face   face   = (PFR_Face)pfrface;
45    FT_Memory  memory = pfrface->driver->root.memory;
46
47
48    /* we don't want dangling pointers */
49    pfrface->family_name = NULL;
50    pfrface->style_name  = NULL;
51
52    /* finalize the physical font record */
53    pfr_phy_font_done( &face->phy_font, FT_FACE_MEMORY( face ) );
54
55    /* no need to finalize the logical font or the header */
56    FT_FREE( pfrface->available_sizes );
57  }
58
59
60  FT_LOCAL_DEF( FT_Error )
61  pfr_face_init( FT_Stream      stream,
62                 FT_Face        pfrface,
63                 FT_Int         face_index,
64                 FT_Int         num_params,
65                 FT_Parameter*  params )
66  {
67    PFR_Face  face = (PFR_Face)pfrface;
68    FT_Error  error;
69
70    FT_UNUSED( num_params );
71    FT_UNUSED( params );
72
73
74    /* load the header and check it */
75    error = pfr_header_load( &face->header, stream );
76    if ( error )
77      goto Exit;
78
79    if ( !pfr_header_check( &face->header ) )
80    {
81      FT_TRACE4(( "pfr_face_init: not a valid PFR font\n" ));
82      error = PFR_Err_Unknown_File_Format;
83      goto Exit;
84    }
85
86    /* check face index */
87    {
88      FT_UInt  num_faces;
89
90
91      error = pfr_log_font_count( stream,
92                                  face->header.log_dir_offset,
93                                  &num_faces );
94      if ( error )
95        goto Exit;
96
97      pfrface->num_faces = num_faces;
98    }
99
100    if ( face_index < 0 )
101      goto Exit;
102
103    if ( face_index >= pfrface->num_faces )
104    {
105      FT_ERROR(( "pfr_face_init: invalid face index\n" ));
106      error = PFR_Err_Invalid_Argument;
107      goto Exit;
108    }
109
110    /* load the face */
111    error = pfr_log_font_load(
112               &face->log_font, stream, face_index,
113               face->header.log_dir_offset,
114               FT_BOOL( face->header.phy_font_max_size_high != 0 ) );
115    if ( error )
116      goto Exit;
117
118    /* now load the physical font descriptor */
119    error = pfr_phy_font_load( &face->phy_font, stream,
120                               face->log_font.phys_offset,
121                               face->log_font.phys_size );
122    if ( error )
123      goto Exit;
124
125    /* now, set-up all root face fields */
126    {
127      PFR_PhyFont  phy_font = &face->phy_font;
128
129
130      pfrface->face_index = face_index;
131      pfrface->num_glyphs = phy_font->num_chars + 1;
132      pfrface->face_flags = FT_FACE_FLAG_SCALABLE;
133
134      if ( (phy_font->flags & PFR_PHY_PROPORTIONAL) == 0 )
135        pfrface->face_flags |= FT_FACE_FLAG_FIXED_WIDTH;
136
137      if ( phy_font->flags & PFR_PHY_VERTICAL )
138        pfrface->face_flags |= FT_FACE_FLAG_VERTICAL;
139      else
140        pfrface->face_flags |= FT_FACE_FLAG_HORIZONTAL;
141
142      if ( phy_font->num_strikes > 0 )
143        pfrface->face_flags |= FT_FACE_FLAG_FIXED_SIZES;
144
145      if ( phy_font->num_kern_pairs > 0 )
146        pfrface->face_flags |= FT_FACE_FLAG_KERNING;
147
148      /* If no family name was found in the "undocumented" auxiliary
149       * data, use the font ID instead.  This sucks but is better than
150       * nothing.
151       */
152      pfrface->family_name = phy_font->family_name;
153      if ( pfrface->family_name == NULL )
154        pfrface->family_name = phy_font->font_id;
155
156      /* note that the style name can be NULL in certain PFR fonts,
157       * probably meaning "Regular"
158       */
159      pfrface->style_name = phy_font->style_name;
160
161      pfrface->num_fixed_sizes = 0;
162      pfrface->available_sizes = 0;
163
164      pfrface->bbox         = phy_font->bbox;
165      pfrface->units_per_EM = (FT_UShort)phy_font->outline_resolution;
166      pfrface->ascender     = (FT_Short) phy_font->bbox.yMax;
167      pfrface->descender    = (FT_Short) phy_font->bbox.yMin;
168
169      pfrface->height = (FT_Short)( ( pfrface->units_per_EM * 12 ) / 10 );
170      if ( pfrface->height < pfrface->ascender - pfrface->descender )
171        pfrface->height = (FT_Short)(pfrface->ascender - pfrface->descender);
172
173      if ( phy_font->num_strikes > 0 )
174      {
175        FT_UInt          n, count = phy_font->num_strikes;
176        FT_Bitmap_Size*  size;
177        PFR_Strike       strike;
178        FT_Memory        memory = pfrface->stream->memory;
179
180
181        if ( FT_NEW_ARRAY( pfrface->available_sizes, count ) )
182          goto Exit;
183
184        size   = pfrface->available_sizes;
185        strike = phy_font->strikes;
186        for ( n = 0; n < count; n++, size++, strike++ )
187        {
188          size->height = (FT_UShort)strike->y_ppm;
189          size->width  = (FT_UShort)strike->x_ppm;
190          size->size   = strike->y_ppm << 6;
191          size->x_ppem = strike->x_ppm << 6;
192          size->y_ppem = strike->y_ppm << 6;
193        }
194        pfrface->num_fixed_sizes = count;
195      }
196
197      /* now compute maximum advance width */
198      if ( ( phy_font->flags & PFR_PHY_PROPORTIONAL ) == 0 )
199        pfrface->max_advance_width = (FT_Short)phy_font->standard_advance;
200      else
201      {
202        FT_Int    max = 0;
203        FT_UInt   count = phy_font->num_chars;
204        PFR_Char  gchar = phy_font->chars;
205
206
207        for ( ; count > 0; count--, gchar++ )
208        {
209          if ( max < gchar->advance )
210            max = gchar->advance;
211        }
212
213        pfrface->max_advance_width = (FT_Short)max;
214      }
215
216      pfrface->max_advance_height = pfrface->height;
217
218      pfrface->underline_position  = (FT_Short)( -pfrface->units_per_EM / 10 );
219      pfrface->underline_thickness = (FT_Short)(  pfrface->units_per_EM / 30 );
220
221      /* create charmap */
222      {
223        FT_CharMapRec  charmap;
224
225
226        charmap.face        = pfrface;
227        charmap.platform_id = 3;
228        charmap.encoding_id = 1;
229        charmap.encoding    = FT_ENCODING_UNICODE;
230
231        FT_CMap_New( &pfr_cmap_class_rec, NULL, &charmap, NULL );
232
233#if 0
234        /* Select default charmap */
235        if ( pfrface->num_charmaps )
236          pfrface->charmap = pfrface->charmaps[0];
237#endif
238      }
239
240      /* check whether we've loaded any kerning pairs */
241      if ( phy_font->num_kern_pairs )
242        pfrface->face_flags |= FT_FACE_FLAG_KERNING;
243    }
244
245  Exit:
246    return error;
247  }
248
249
250  /*************************************************************************/
251  /*************************************************************************/
252  /*****                                                               *****/
253  /*****                    SLOT OBJECT METHOD                         *****/
254  /*****                                                               *****/
255  /*************************************************************************/
256  /*************************************************************************/
257
258  FT_LOCAL_DEF( FT_Error )
259  pfr_slot_init( FT_GlyphSlot  pfrslot )        /* PFR_Slot */
260  {
261    PFR_Slot        slot   = (PFR_Slot)pfrslot;
262    FT_GlyphLoader  loader = pfrslot->internal->loader;
263
264
265    pfr_glyph_init( &slot->glyph, loader );
266
267    return 0;
268  }
269
270
271  FT_LOCAL_DEF( void )
272  pfr_slot_done( FT_GlyphSlot  pfrslot )        /* PFR_Slot */
273  {
274    PFR_Slot  slot = (PFR_Slot)pfrslot;
275
276
277    pfr_glyph_done( &slot->glyph );
278  }
279
280
281  FT_LOCAL_DEF( FT_Error )
282  pfr_slot_load( FT_GlyphSlot  pfrslot,         /* PFR_Slot */
283                 FT_Size       pfrsize,         /* PFR_Size */
284                 FT_UInt       gindex,
285                 FT_Int32      load_flags )
286  {
287    PFR_Slot     slot    = (PFR_Slot)pfrslot;
288    PFR_Size     size    = (PFR_Size)pfrsize;
289    FT_Error     error;
290    PFR_Face     face    = (PFR_Face)pfrslot->face;
291    PFR_Char     gchar;
292    FT_Outline*  outline = &pfrslot->outline;
293    FT_ULong     gps_offset;
294
295
296    if ( gindex > 0 )
297      gindex--;
298
299    if ( !face || gindex >= face->phy_font.num_chars )
300    {
301      error = PFR_Err_Invalid_Argument;
302      goto Exit;
303    }
304
305    /* try to load an embedded bitmap */
306    if ( ( load_flags & ( FT_LOAD_NO_SCALE | FT_LOAD_NO_BITMAP ) ) == 0 )
307    {
308      error = pfr_slot_load_bitmap( slot, size, gindex );
309      if ( error == 0 )
310        goto Exit;
311    }
312
313    if ( load_flags & FT_LOAD_SBITS_ONLY )
314    {
315      error = PFR_Err_Invalid_Argument;
316      goto Exit;
317    }
318
319    gchar               = face->phy_font.chars + gindex;
320    pfrslot->format     = FT_GLYPH_FORMAT_OUTLINE;
321    outline->n_points   = 0;
322    outline->n_contours = 0;
323    gps_offset          = face->header.gps_section_offset;
324
325    /* load the glyph outline (FT_LOAD_NO_RECURSE isn't supported) */
326    error = pfr_glyph_load( &slot->glyph, face->root.stream,
327                            gps_offset, gchar->gps_offset, gchar->gps_size );
328
329    if ( !error )
330    {
331      FT_BBox            cbox;
332      FT_Glyph_Metrics*  metrics = &pfrslot->metrics;
333      FT_Pos             advance;
334      FT_Int             em_metrics, em_outline;
335      FT_Bool            scaling;
336
337
338      scaling = FT_BOOL( ( load_flags & FT_LOAD_NO_SCALE ) == 0 );
339
340      /* copy outline data */
341      *outline = slot->glyph.loader->base.outline;
342
343      outline->flags &= ~FT_OUTLINE_OWNER;
344      outline->flags |= FT_OUTLINE_REVERSE_FILL;
345
346      if ( size && pfrsize->metrics.y_ppem < 24 )
347        outline->flags |= FT_OUTLINE_HIGH_PRECISION;
348
349      /* compute the advance vector */
350      metrics->horiAdvance = 0;
351      metrics->vertAdvance = 0;
352
353      advance    = gchar->advance;
354      em_metrics = face->phy_font.metrics_resolution;
355      em_outline = face->phy_font.outline_resolution;
356
357      if ( em_metrics != em_outline )
358        advance = FT_MulDiv( advance, em_outline, em_metrics );
359
360      if ( face->phy_font.flags & PFR_PHY_VERTICAL )
361        metrics->vertAdvance = advance;
362      else
363        metrics->horiAdvance = advance;
364
365      pfrslot->linearHoriAdvance = metrics->horiAdvance;
366      pfrslot->linearVertAdvance = metrics->vertAdvance;
367
368      /* make-up vertical metrics(?) */
369      metrics->vertBearingX = 0;
370      metrics->vertBearingY = 0;
371
372#if 0 /* some fonts seem to be broken here! */
373
374      /* Apply the font matrix, if any.                 */
375      /* TODO: Test existing fonts with unusual matrix  */
376      /* whether we have to adjust Units per EM.        */
377      {
378        FT_Matrix font_matrix;
379
380
381        font_matrix.xx = face->log_font.matrix[0] << 8;
382        font_matrix.yx = face->log_font.matrix[1] << 8;
383        font_matrix.xy = face->log_font.matrix[2] << 8;
384        font_matrix.yy = face->log_font.matrix[3] << 8;
385
386        FT_Outline_Transform( outline, &font_matrix );
387      }
388#endif
389
390      /* scale when needed */
391      if ( scaling )
392      {
393        FT_Int      n;
394        FT_Fixed    x_scale = pfrsize->metrics.x_scale;
395        FT_Fixed    y_scale = pfrsize->metrics.y_scale;
396        FT_Vector*  vec     = outline->points;
397
398
399        /* scale outline points */
400        for ( n = 0; n < outline->n_points; n++, vec++ )
401        {
402          vec->x = FT_MulFix( vec->x, x_scale );
403          vec->y = FT_MulFix( vec->y, y_scale );
404        }
405
406        /* scale the advance */
407        metrics->horiAdvance = FT_MulFix( metrics->horiAdvance, x_scale );
408        metrics->vertAdvance = FT_MulFix( metrics->vertAdvance, y_scale );
409      }
410
411      /* compute the rest of the metrics */
412      FT_Outline_Get_CBox( outline, &cbox );
413
414      metrics->width        = cbox.xMax - cbox.xMin;
415      metrics->height       = cbox.yMax - cbox.yMin;
416      metrics->horiBearingX = cbox.xMin;
417      metrics->horiBearingY = cbox.yMax - metrics->height;
418    }
419
420  Exit:
421    return error;
422  }
423
424
425  /*************************************************************************/
426  /*************************************************************************/
427  /*****                                                               *****/
428  /*****                      KERNING METHOD                           *****/
429  /*****                                                               *****/
430  /*************************************************************************/
431  /*************************************************************************/
432
433  FT_LOCAL_DEF( FT_Error )
434  pfr_face_get_kerning( FT_Face     pfrface,        /* PFR_Face */
435                        FT_UInt     glyph1,
436                        FT_UInt     glyph2,
437                        FT_Vector*  kerning )
438  {
439    PFR_Face     face     = (PFR_Face)pfrface;
440    FT_Error     error    = PFR_Err_Ok;
441    PFR_PhyFont  phy_font = &face->phy_font;
442    FT_UInt32    code1, code2, pair;
443
444
445    kerning->x = 0;
446    kerning->y = 0;
447
448    if ( glyph1 > 0 )
449      glyph1--;
450
451    if ( glyph2 > 0 )
452      glyph2--;
453
454    /* convert glyph indices to character codes */
455    if ( glyph1 > phy_font->num_chars ||
456         glyph2 > phy_font->num_chars )
457      goto Exit;
458
459    code1 = phy_font->chars[glyph1].char_code;
460    code2 = phy_font->chars[glyph2].char_code;
461    pair  = PFR_KERN_INDEX( code1, code2 );
462
463    /* now search the list of kerning items */
464    {
465      PFR_KernItem  item   = phy_font->kern_items;
466      FT_Stream     stream = pfrface->stream;
467
468
469      for ( ; item; item = item->next )
470      {
471        if ( pair >= item->pair1 && pair <= item->pair2 )
472          goto FoundPair;
473      }
474      goto Exit;
475
476    FoundPair: /* we found an item, now parse it and find the value if any */
477      if ( FT_STREAM_SEEK( item->offset )                       ||
478           FT_FRAME_ENTER( item->pair_count * item->pair_size ) )
479        goto Exit;
480
481      {
482        FT_UInt    count       = item->pair_count;
483        FT_UInt    size        = item->pair_size;
484        FT_UInt    power       = (FT_UInt)ft_highpow2( (FT_UInt32)count );
485        FT_UInt    probe       = power * size;
486        FT_UInt    extra       = count - power;
487        FT_Byte*   base        = stream->cursor;
488        FT_Bool    twobytes    = FT_BOOL( item->flags & 1 );
489        FT_Bool    twobyte_adj = FT_BOOL( item->flags & 2 );
490        FT_Byte*   p;
491        FT_UInt32  cpair;
492
493
494        if ( extra > 0 )
495        {
496          p = base + extra * size;
497
498          if ( twobytes )
499            cpair = FT_NEXT_ULONG( p );
500          else
501            cpair = PFR_NEXT_KPAIR( p );
502
503          if ( cpair == pair )
504            goto Found;
505
506          if ( cpair < pair )
507          {
508            if ( twobyte_adj )
509              p += 2;
510            else
511              p++;
512            base = p;
513          }
514        }
515
516        while ( probe > size )
517        {
518          probe >>= 1;
519          p       = base + probe;
520
521          if ( twobytes )
522            cpair = FT_NEXT_ULONG( p );
523          else
524            cpair = PFR_NEXT_KPAIR( p );
525
526          if ( cpair == pair )
527            goto Found;
528
529          if ( cpair < pair )
530            base += probe;
531        }
532
533        p = base;
534
535        if ( twobytes )
536          cpair = FT_NEXT_ULONG( p );
537        else
538          cpair = PFR_NEXT_KPAIR( p );
539
540        if ( cpair == pair )
541        {
542          FT_Int  value;
543
544
545        Found:
546          if ( twobyte_adj )
547            value = FT_PEEK_SHORT( p );
548          else
549            value = p[0];
550
551          kerning->x = item->base_adj + value;
552        }
553      }
554
555      FT_FRAME_EXIT();
556    }
557
558  Exit:
559    return error;
560  }
561
562/* END */
Note: See TracBrowser for help on using the repository browser.