source: trunk/poppler/freetype-2.1.10/src/sfnt/ttsbit.c @ 2

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

First import

File size: 53.2 KB
Line 
1/***************************************************************************/
2/*                                                                         */
3/*  ttsbit.c                                                               */
4/*                                                                         */
5/*    TrueType and OpenType embedded bitmap support (body).                */
6/*                                                                         */
7/*  Copyright 1996-2001, 2002, 2003, 2004, 2005 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 <ft2build.h>
19#include FT_INTERNAL_DEBUG_H
20#include FT_INTERNAL_STREAM_H
21#include FT_TRUETYPE_TAGS_H
22
23#ifdef FT_OPTIMIZE_MEMORY
24#include "ttsbit0.c"
25#else /* !OPTIMIZE_MEMORY */
26
27#include <ft2build.h>
28#include FT_INTERNAL_DEBUG_H
29#include FT_INTERNAL_STREAM_H
30#include FT_TRUETYPE_TAGS_H
31#include "ttsbit.h"
32
33#include "sferrors.h"
34
35
36  /*************************************************************************/
37  /*                                                                       */
38  /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */
39  /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */
40  /* messages during execution.                                            */
41  /*                                                                       */
42#undef  FT_COMPONENT
43#define FT_COMPONENT  trace_ttsbit
44
45
46  /*************************************************************************/
47  /*                                                                       */
48  /* <Function>                                                            */
49  /*    blit_sbit                                                          */
50  /*                                                                       */
51  /* <Description>                                                         */
52  /*    Blits a bitmap from an input stream into a given target.  Supports */
53  /*    x and y offsets as well as byte padded lines.                      */
54  /*                                                                       */
55  /* <Input>                                                               */
56  /*    target      :: The target bitmap/pixmap.                           */
57  /*                                                                       */
58  /*    source      :: The input packed bitmap data.                       */
59  /*                                                                       */
60  /*    line_bits   :: The number of bits per line.                        */
61  /*                                                                       */
62  /*    byte_padded :: A flag which is true if lines are byte-padded.      */
63  /*                                                                       */
64  /*    x_offset    :: The horizontal offset.                              */
65  /*                                                                       */
66  /*    y_offset    :: The vertical offset.                                */
67  /*                                                                       */
68  /* <Note>                                                                */
69  /*    IMPORTANT: The x and y offsets are relative to the top corner of   */
70  /*               the target bitmap (unlike the normal TrueType           */
71  /*               convention).  A positive y offset indicates a downwards */
72  /*               direction!                                              */
73  /*                                                                       */
74  static void
75  blit_sbit( FT_Bitmap*  target,
76             FT_Byte*    source,
77             FT_Int      line_bits,
78             FT_Bool     byte_padded,
79             FT_Int      x_offset,
80             FT_Int      y_offset )
81  {
82    FT_Byte*   line_buff;
83    FT_Int     line_incr;
84    FT_Int     height;
85
86    FT_UShort  acc;
87    FT_UInt    loaded;
88
89
90    /* first of all, compute starting write position */
91    line_incr = target->pitch;
92    line_buff = target->buffer;
93
94    if ( line_incr < 0 )
95      line_buff -= line_incr * ( target->rows - 1 );
96
97    line_buff += ( x_offset >> 3 ) + y_offset * line_incr;
98
99    /***********************************************************************/
100    /*                                                                     */
101    /* We use the extra-classic `accumulator' trick to extract the bits    */
102    /* from the source byte stream.                                        */
103    /*                                                                     */
104    /* Namely, the variable `acc' is a 16-bit accumulator containing the   */
105    /* last `loaded' bits from the input stream.  The bits are shifted to  */
106    /* the upmost position in `acc'.                                       */
107    /*                                                                     */
108    /***********************************************************************/
109
110    acc    = 0;  /* clear accumulator   */
111    loaded = 0;  /* no bits were loaded */
112
113    for ( height = target->rows; height > 0; height-- )
114    {
115      FT_Byte*  cur   = line_buff;        /* current write cursor          */
116      FT_Int    count = line_bits;        /* # of bits to extract per line */
117      FT_Byte   shift = (FT_Byte)( x_offset & 7 ); /* current write shift  */
118      FT_Byte   space = (FT_Byte)( 8 - shift );
119
120
121      /* first of all, read individual source bytes */
122      if ( count >= 8 )
123      {
124        count -= 8;
125        {
126          do
127          {
128            FT_Byte  val;
129
130
131            /* ensure that there are at least 8 bits in the accumulator */
132            if ( loaded < 8 )
133            {
134              acc    |= (FT_UShort)((FT_UShort)*source++ << ( 8 - loaded ));
135              loaded += 8;
136            }
137
138            /* now write one byte */
139            val = (FT_Byte)( acc >> 8 );
140            if ( shift )
141            {
142              cur[0] |= (FT_Byte)( val >> shift );
143              cur[1] |= (FT_Byte)( val << space );
144            }
145            else
146              cur[0] |= val;
147
148            cur++;
149            acc   <<= 8;  /* remove bits from accumulator */
150            loaded -= 8;
151            count  -= 8;
152
153          } while ( count >= 0 );
154        }
155
156        /* restore `count' to correct value */
157        count += 8;
158      }
159
160      /* now write remaining bits (count < 8) */
161      if ( count > 0 )
162      {
163        FT_Byte  val;
164
165
166        /* ensure that there are at least `count' bits in the accumulator */
167        if ( (FT_Int)loaded < count )
168        {
169          acc    |= (FT_UShort)((FT_UShort)*source++ << ( 8 - loaded ));
170          loaded += 8;
171        }
172
173        /* now write remaining bits */
174        val     = (FT_Byte)( ( (FT_Byte)( acc >> 8 ) ) & ~( 0xFF >> count ) );
175        cur[0] |= (FT_Byte)( val >> shift );
176
177        if ( count > space )
178          cur[1] |= (FT_Byte)( val << space );
179
180        acc   <<= count;
181        loaded -= count;
182      }
183
184      /* now, skip to next line */
185      if ( byte_padded )
186      {
187        acc    = 0;
188        loaded = 0;   /* clear accumulator on byte-padded lines */
189      }
190
191      line_buff += line_incr;
192    }
193  }
194
195
196  static const FT_Frame_Field  sbit_metrics_fields[] =
197  {
198#undef  FT_STRUCTURE
199#define FT_STRUCTURE  TT_SBit_MetricsRec
200
201    FT_FRAME_START( 8 ),
202      FT_FRAME_BYTE( height ),
203      FT_FRAME_BYTE( width ),
204
205      FT_FRAME_CHAR( horiBearingX ),
206      FT_FRAME_CHAR( horiBearingY ),
207      FT_FRAME_BYTE( horiAdvance ),
208
209      FT_FRAME_CHAR( vertBearingX ),
210      FT_FRAME_CHAR( vertBearingY ),
211      FT_FRAME_BYTE( vertAdvance ),
212    FT_FRAME_END
213  };
214
215
216  /*************************************************************************/
217  /*                                                                       */
218  /* <Function>                                                            */
219  /*    TT_Load_SBit_Const_Metrics                                         */
220  /*                                                                       */
221  /* <Description>                                                         */
222  /*    Loads the metrics for `EBLC' index tables format 2 and 5.          */
223  /*                                                                       */
224  /* <Input>                                                               */
225  /*    range  :: The target range.                                        */
226  /*                                                                       */
227  /*    stream :: The input stream.                                        */
228  /*                                                                       */
229  /* <Return>                                                              */
230  /*    FreeType error code.  0 means success.                             */
231  /*                                                                       */
232  static FT_Error
233  Load_SBit_Const_Metrics( TT_SBit_Range  range,
234                           FT_Stream      stream )
235  {
236    FT_Error  error;
237
238
239    if ( FT_READ_ULONG( range->image_size ) )
240      return error;
241
242    return FT_STREAM_READ_FIELDS( sbit_metrics_fields, &range->metrics );
243  }
244
245
246  /*************************************************************************/
247  /*                                                                       */
248  /* <Function>                                                            */
249  /*    TT_Load_SBit_Range_Codes                                           */
250  /*                                                                       */
251  /* <Description>                                                         */
252  /*    Loads the range codes for `EBLC' index tables format 4 and 5.      */
253  /*                                                                       */
254  /* <Input>                                                               */
255  /*    range        :: The target range.                                  */
256  /*                                                                       */
257  /*    stream       :: The input stream.                                  */
258  /*                                                                       */
259  /*    load_offsets :: A flag whether to load the glyph offset table.     */
260  /*                                                                       */
261  /* <Return>                                                              */
262  /*    FreeType error code.  0 means success.                             */
263  /*                                                                       */
264  static FT_Error
265  Load_SBit_Range_Codes( TT_SBit_Range  range,
266                         FT_Stream      stream,
267                         FT_Bool        load_offsets )
268  {
269    FT_Error   error;
270    FT_ULong   count, n, size;
271    FT_Memory  memory = stream->memory;
272
273
274    if ( FT_READ_ULONG( count ) )
275      goto Exit;
276
277    range->num_glyphs = count;
278
279    /* Allocate glyph offsets table if needed */
280    if ( load_offsets )
281    {
282      if ( FT_NEW_ARRAY( range->glyph_offsets, count ) )
283        goto Exit;
284
285      size = count * 4L;
286    }
287    else
288      size = count * 2L;
289
290    /* Allocate glyph codes table and access frame */
291    if ( FT_NEW_ARRAY ( range->glyph_codes, count ) ||
292         FT_FRAME_ENTER( size )                     )
293      goto Exit;
294
295    for ( n = 0; n < count; n++ )
296    {
297      range->glyph_codes[n] = FT_GET_USHORT();
298
299      if ( load_offsets )
300        range->glyph_offsets[n] = (FT_ULong)range->image_offset +
301                                  FT_GET_USHORT();
302    }
303
304    FT_FRAME_EXIT();
305
306  Exit:
307    return error;
308  }
309
310
311  /*************************************************************************/
312  /*                                                                       */
313  /* <Function>                                                            */
314  /*    TT_Load_SBit_Range                                                 */
315  /*                                                                       */
316  /* <Description>                                                         */
317  /*    Loads a given `EBLC' index/range table.                            */
318  /*                                                                       */
319  /* <Input>                                                               */
320  /*    range  :: The target range.                                        */
321  /*                                                                       */
322  /*    stream :: The input stream.                                        */
323  /*                                                                       */
324  /* <Return>                                                              */
325  /*    FreeType error code.  0 means success.                             */
326  /*                                                                       */
327  static FT_Error
328  Load_SBit_Range( TT_SBit_Range  range,
329                   FT_Stream      stream )
330  {
331    FT_Error   error;
332    FT_Memory  memory = stream->memory;
333
334
335    switch( range->index_format )
336    {
337    case 1:   /* variable metrics with 4-byte offsets */
338    case 3:   /* variable metrics with 2-byte offsets */
339      {
340        FT_ULong  num_glyphs, n;
341        FT_Int    size_elem;
342        FT_Bool   large = FT_BOOL( range->index_format == 1 );
343
344
345
346        if ( range->last_glyph < range->first_glyph )
347        {
348          error = SFNT_Err_Invalid_File_Format;
349          goto Exit;
350        }
351
352        num_glyphs        = range->last_glyph - range->first_glyph + 1L;
353        range->num_glyphs = num_glyphs;
354        num_glyphs++;                       /* XXX: BEWARE - see spec */
355
356        size_elem = large ? 4 : 2;
357
358        if ( FT_NEW_ARRAY( range->glyph_offsets, num_glyphs ) ||
359             FT_FRAME_ENTER( num_glyphs * size_elem )         )
360          goto Exit;
361
362        for ( n = 0; n < num_glyphs; n++ )
363          range->glyph_offsets[n] = (FT_ULong)( range->image_offset +
364                                                ( large ? FT_GET_ULONG()
365                                                        : FT_GET_USHORT() ) );
366        FT_FRAME_EXIT();
367      }
368      break;
369
370    case 2:   /* all glyphs have identical metrics */
371      error = Load_SBit_Const_Metrics( range, stream );
372      break;
373
374    case 4:
375      error = Load_SBit_Range_Codes( range, stream, 1 );
376      break;
377
378    case 5:
379      error = Load_SBit_Const_Metrics( range, stream )   ||
380              Load_SBit_Range_Codes( range, stream, 0 );
381      break;
382
383    default:
384      error = SFNT_Err_Invalid_File_Format;
385    }
386
387  Exit:
388    return error;
389  }
390
391
392  /*************************************************************************/
393  /*                                                                       */
394  /* <Function>                                                            */
395  /*    tt_face_load_sbit_strikes                                          */
396  /*                                                                       */
397  /* <Description>                                                         */
398  /*    Loads the table of embedded bitmap sizes for this face.            */
399  /*                                                                       */
400  /* <Input>                                                               */
401  /*    face   :: The target face object.                                  */
402  /*                                                                       */
403  /*    stream :: The input stream.                                        */
404  /*                                                                       */
405  /* <Return>                                                              */
406  /*    FreeType error code.  0 means success.                             */
407  /*                                                                       */
408  FT_LOCAL_DEF( FT_Error )
409  tt_face_load_sbit_strikes( TT_Face    face,
410                             FT_Stream  stream )
411  {
412    FT_Error   error  = 0;
413    FT_Memory  memory = stream->memory;
414    FT_Fixed   version;
415    FT_ULong   num_strikes;
416    FT_ULong   table_base;
417
418    static const FT_Frame_Field  sbit_line_metrics_fields[] =
419    {
420#undef  FT_STRUCTURE
421#define FT_STRUCTURE  TT_SBit_LineMetricsRec
422
423      /* no FT_FRAME_START */
424        FT_FRAME_CHAR( ascender ),
425        FT_FRAME_CHAR( descender ),
426        FT_FRAME_BYTE( max_width ),
427
428        FT_FRAME_CHAR( caret_slope_numerator ),
429        FT_FRAME_CHAR( caret_slope_denominator ),
430        FT_FRAME_CHAR( caret_offset ),
431
432        FT_FRAME_CHAR( min_origin_SB ),
433        FT_FRAME_CHAR( min_advance_SB ),
434        FT_FRAME_CHAR( max_before_BL ),
435        FT_FRAME_CHAR( min_after_BL ),
436        FT_FRAME_CHAR( pads[0] ),
437        FT_FRAME_CHAR( pads[1] ),
438      FT_FRAME_END
439    };
440
441    static const FT_Frame_Field  strike_start_fields[] =
442    {
443#undef  FT_STRUCTURE
444#define FT_STRUCTURE  TT_SBit_StrikeRec
445
446      /* no FT_FRAME_START */
447        FT_FRAME_ULONG( ranges_offset ),
448        FT_FRAME_SKIP_LONG,
449        FT_FRAME_ULONG( num_ranges ),
450        FT_FRAME_ULONG( color_ref ),
451      FT_FRAME_END
452    };
453
454    static const FT_Frame_Field  strike_end_fields[] =
455    {
456      /* no FT_FRAME_START */
457        FT_FRAME_USHORT( start_glyph ),
458        FT_FRAME_USHORT( end_glyph ),
459        FT_FRAME_BYTE  ( x_ppem ),
460        FT_FRAME_BYTE  ( y_ppem ),
461        FT_FRAME_BYTE  ( bit_depth ),
462        FT_FRAME_CHAR  ( flags ),
463      FT_FRAME_END
464    };
465
466
467    face->num_sbit_strikes = 0;
468
469    /* this table is optional */
470    error = face->goto_table( face, TTAG_EBLC, stream, 0 );
471    if ( error )
472      error = face->goto_table( face, TTAG_bloc, stream, 0 );
473    if ( error )
474      goto Exit;
475
476    table_base = FT_STREAM_POS();
477    if ( FT_FRAME_ENTER( 8L ) )
478      goto Exit;
479
480    version     = FT_GET_LONG();
481    num_strikes = FT_GET_ULONG();
482
483    FT_FRAME_EXIT();
484
485    /* check version number and strike count */
486    if ( version     != 0x00020000L ||
487         num_strikes >= 0x10000L    )
488    {
489      FT_ERROR(( "tt_face_load_sbit_strikes: invalid table version!\n" ));
490      error = SFNT_Err_Invalid_File_Format;
491
492      goto Exit;
493    }
494
495    /* allocate the strikes table */
496    if ( FT_NEW_ARRAY( face->sbit_strikes, num_strikes ) )
497      goto Exit;
498
499    face->num_sbit_strikes = num_strikes;
500
501    /* now read each strike table separately */
502    {
503      TT_SBit_Strike  strike = face->sbit_strikes;
504      FT_ULong        count  = num_strikes;
505
506
507      if ( FT_FRAME_ENTER( 48L * num_strikes ) )
508        goto Exit;
509
510      while ( count > 0 )
511      {
512        if ( FT_STREAM_READ_FIELDS( strike_start_fields, strike )             ||
513             FT_STREAM_READ_FIELDS( sbit_line_metrics_fields, &strike->hori ) ||
514             FT_STREAM_READ_FIELDS( sbit_line_metrics_fields, &strike->vert ) ||
515             FT_STREAM_READ_FIELDS( strike_end_fields, strike )               )
516          break;
517
518        count--;
519        strike++;
520      }
521
522      FT_FRAME_EXIT();
523    }
524
525    /* allocate the index ranges for each strike table */
526    {
527      TT_SBit_Strike  strike = face->sbit_strikes;
528      FT_ULong        count  = num_strikes;
529
530
531      while ( count > 0 )
532      {
533        TT_SBit_Range  range;
534        FT_ULong       count2 = strike->num_ranges;
535
536
537        /* read each range */
538        if ( FT_STREAM_SEEK( table_base + strike->ranges_offset ) ||
539             FT_FRAME_ENTER( strike->num_ranges * 8L )            )
540          goto Exit;
541
542        if ( FT_NEW_ARRAY( strike->sbit_ranges, strike->num_ranges ) )
543          goto Exit;
544
545        range = strike->sbit_ranges;
546        while ( count2 > 0 )
547        {
548          range->first_glyph  = FT_GET_USHORT();
549          range->last_glyph   = FT_GET_USHORT();
550          range->table_offset = table_base + strike->ranges_offset +
551                                  FT_GET_ULONG();
552          count2--;
553          range++;
554        }
555
556        FT_FRAME_EXIT();
557
558        /* Now, read each index table */
559        count2 = strike->num_ranges;
560        range  = strike->sbit_ranges;
561        while ( count2 > 0 )
562        {
563          /* Read the header */
564          if ( FT_STREAM_SEEK( range->table_offset ) ||
565               FT_FRAME_ENTER( 8L )                  )
566            goto Exit;
567
568          range->index_format = FT_GET_USHORT();
569          range->image_format = FT_GET_USHORT();
570          range->image_offset = FT_GET_ULONG();
571
572          FT_FRAME_EXIT();
573
574          error = Load_SBit_Range( range, stream );
575          if ( error )
576            goto Exit;
577
578          count2--;
579          range++;
580        }
581
582        count--;
583        strike++;
584      }
585    }
586
587    /* now set up the root fields to indicate the strikes */
588    if ( face->num_sbit_strikes )
589    {
590      FT_ULong  n;
591      FT_Face   root = FT_FACE( face );
592
593
594      if ( FT_NEW_ARRAY( root->available_sizes, face->num_sbit_strikes ) )
595        goto Exit;
596
597      for ( n = 0 ; n < face->num_sbit_strikes ; n++ )
598      {
599        FT_Bitmap_Size*  bsize  = root->available_sizes + n;
600        TT_SBit_Strike   strike = face->sbit_strikes + n;
601        FT_UShort        fupem  = face->header.Units_Per_EM;
602        FT_Short         height = (FT_Short)( face->horizontal.Ascender -
603                                              face->horizontal.Descender +
604                                              face->horizontal.Line_Gap );
605        FT_Short         avg    = face->os2.xAvgCharWidth;
606
607
608        /* assume 72dpi */
609        bsize->height =
610          (FT_Short)( ( height * strike->y_ppem + fupem / 2 ) / fupem );
611        bsize->width  =
612          (FT_Short)( ( avg * strike->y_ppem + fupem / 2 ) / fupem );
613        bsize->size   = strike->y_ppem << 6;
614        bsize->x_ppem = strike->x_ppem << 6;
615        bsize->y_ppem = strike->y_ppem << 6;
616      }
617
618      root->face_flags     |= FT_FACE_FLAG_FIXED_SIZES;
619      root->num_fixed_sizes = (FT_Int)face->num_sbit_strikes;
620    }
621
622  Exit:
623    return error;
624  }
625
626
627  /*************************************************************************/
628  /*                                                                       */
629  /* <Function>                                                            */
630  /*    tt_face_free_sbit_strikes                                          */
631  /*                                                                       */
632  /* <Description>                                                         */
633  /*    Releases the embedded bitmap tables.                               */
634  /*                                                                       */
635  /* <Input>                                                               */
636  /*    face :: The target face object.                                    */
637  /*                                                                       */
638  FT_LOCAL_DEF( void )
639  tt_face_free_sbit_strikes( TT_Face  face )
640  {
641    FT_Memory       memory       = face->root.memory;
642    TT_SBit_Strike  strike       = face->sbit_strikes;
643    TT_SBit_Strike  strike_limit = strike + face->num_sbit_strikes;
644
645
646    if ( strike )
647    {
648      for ( ; strike < strike_limit; strike++ )
649      {
650        TT_SBit_Range  range       = strike->sbit_ranges;
651        TT_SBit_Range  range_limit = range + strike->num_ranges;
652
653
654        if ( range )
655        {
656          for ( ; range < range_limit; range++ )
657          {
658            /* release the glyph offsets and codes tables */
659            /* where appropriate                          */
660            FT_FREE( range->glyph_offsets );
661            FT_FREE( range->glyph_codes );
662          }
663        }
664        FT_FREE( strike->sbit_ranges );
665        strike->num_ranges = 0;
666      }
667      FT_FREE( face->sbit_strikes );
668    }
669    face->num_sbit_strikes = 0;
670  }
671
672
673  FT_LOCAL_DEF( FT_Error )
674  tt_face_set_sbit_strike( TT_Face    face,
675                           FT_UInt    x_ppem,
676                           FT_UInt    y_ppem,
677                           FT_ULong  *astrike_index )
678  {
679    FT_ULong  i;
680
681
682    if ( x_ppem > 255 ||
683         y_ppem < 1 || y_ppem > 255 )
684      return SFNT_Err_Invalid_PPem;
685
686    for ( i = 0; i < face->num_sbit_strikes; i++ )
687    {
688      if ( ( (FT_UInt)face->sbit_strikes[i].y_ppem == y_ppem )     &&
689           ( ( x_ppem == 0 )                                     ||
690             ( (FT_UInt)face->sbit_strikes[i].x_ppem == x_ppem ) ) )
691      {
692        *astrike_index = i;
693        return SFNT_Err_Ok;
694      }
695    }
696
697    return SFNT_Err_Invalid_PPem;
698  }
699
700
701  /*************************************************************************/
702  /*                                                                       */
703  /* <Function>                                                            */
704  /*    find_sbit_range                                                    */
705  /*                                                                       */
706  /* <Description>                                                         */
707  /*    Scans a given strike's ranges and return, for a given glyph        */
708  /*    index, the corresponding sbit range, and `EBDT' offset.            */
709  /*                                                                       */
710  /* <Input>                                                               */
711  /*    glyph_index   :: The glyph index.                                  */
712  /*                                                                       */
713  /*    strike        :: The source/current sbit strike.                   */
714  /*                                                                       */
715  /* <Output>                                                              */
716  /*    arange        :: The sbit range containing the glyph index.        */
717  /*                                                                       */
718  /*    aglyph_offset :: The offset of the glyph data in `EBDT' table.     */
719  /*                                                                       */
720  /* <Return>                                                              */
721  /*    FreeType error code.  0 means the glyph index was found.           */
722  /*                                                                       */
723  static FT_Error
724  find_sbit_range( FT_UInt          glyph_index,
725                   TT_SBit_Strike   strike,
726                   TT_SBit_Range   *arange,
727                   FT_ULong        *aglyph_offset )
728  {
729    TT_SBit_RangeRec  *range, *range_limit;
730
731
732    /* check whether the glyph index is within this strike's */
733    /* glyph range                                           */
734    if ( glyph_index < (FT_UInt)strike->start_glyph ||
735         glyph_index > (FT_UInt)strike->end_glyph   )
736      goto Fail;
737
738    /* scan all ranges in strike */
739    range       = strike->sbit_ranges;
740    range_limit = range + strike->num_ranges;
741    if ( !range )
742      goto Fail;
743
744    for ( ; range < range_limit; range++ )
745    {
746      if ( glyph_index >= (FT_UInt)range->first_glyph &&
747           glyph_index <= (FT_UInt)range->last_glyph  )
748      {
749        FT_UShort  delta = (FT_UShort)( glyph_index - range->first_glyph );
750
751
752        switch ( range->index_format )
753        {
754        case 1:
755        case 3:
756          *aglyph_offset = range->glyph_offsets[delta];
757          break;
758
759        case 2:
760          *aglyph_offset = range->image_offset +
761                           range->image_size * delta;
762          break;
763
764        case 4:
765        case 5:
766          {
767            FT_ULong  n;
768
769
770            for ( n = 0; n < range->num_glyphs; n++ )
771            {
772              if ( (FT_UInt)range->glyph_codes[n] == glyph_index )
773              {
774                if ( range->index_format == 4 )
775                  *aglyph_offset = range->glyph_offsets[n];
776                else
777                  *aglyph_offset = range->image_offset +
778                                   n * range->image_size;
779                goto Found;
780              }
781            }
782          }
783
784        /* fall-through */
785        default:
786          goto Fail;
787        }
788
789      Found:
790        /* return successfully! */
791        *arange  = range;
792        return 0;
793      }
794    }
795
796  Fail:
797    *arange        = 0;
798    *aglyph_offset = 0;
799
800    return SFNT_Err_Invalid_Argument;
801  }
802
803
804  /*************************************************************************/
805  /*                                                                       */
806  /* <Function>                                                            */
807  /*    tt_find_sbit_image                                                 */
808  /*                                                                       */
809  /* <Description>                                                         */
810  /*    Checks whether an embedded bitmap (an `sbit') exists for a given   */
811  /*    glyph, at a given strike.                                          */
812  /*                                                                       */
813  /* <Input>                                                               */
814  /*    face          :: The target face object.                           */
815  /*                                                                       */
816  /*    glyph_index   :: The glyph index.                                  */
817  /*                                                                       */
818  /*    strike_index  :: The current strike index.                         */
819  /*                                                                       */
820  /* <Output>                                                              */
821  /*    arange        :: The SBit range containing the glyph index.        */
822  /*                                                                       */
823  /*    astrike       :: The SBit strike containing the glyph index.       */
824  /*                                                                       */
825  /*    aglyph_offset :: The offset of the glyph data in `EBDT' table.     */
826  /*                                                                       */
827  /* <Return>                                                              */
828  /*    FreeType error code.  0 means success.  Returns                    */
829  /*    SFNT_Err_Invalid_Argument if no sbit exists for the requested      */
830  /*    glyph.                                                             */
831  /*                                                                       */
832  FT_LOCAL( FT_Error )
833  tt_find_sbit_image( TT_Face          face,
834                      FT_UInt          glyph_index,
835                      FT_ULong         strike_index,
836                      TT_SBit_Range   *arange,
837                      TT_SBit_Strike  *astrike,
838                      FT_ULong        *aglyph_offset )
839  {
840    FT_Error        error;
841    TT_SBit_Strike  strike;
842
843
844    if ( !face->sbit_strikes                        ||
845         ( face->num_sbit_strikes <= strike_index ) )
846      goto Fail;
847
848    strike = &face->sbit_strikes[strike_index];
849
850    error = find_sbit_range( glyph_index, strike,
851                             arange, aglyph_offset );
852    if ( error )
853      goto Fail;
854
855    *astrike = strike;
856
857    return SFNT_Err_Ok;
858
859  Fail:
860    /* no embedded bitmap for this glyph in face */
861    *arange        = 0;
862    *astrike       = 0;
863    *aglyph_offset = 0;
864
865    return SFNT_Err_Invalid_Argument;
866  }
867
868
869  /*************************************************************************/
870  /*                                                                       */
871  /* <Function>                                                            */
872  /*    tt_load_sbit_metrics                                               */
873  /*                                                                       */
874  /* <Description>                                                         */
875  /*    Gets the big metrics for a given SBit.                             */
876  /*                                                                       */
877  /* <Input>                                                               */
878  /*    stream      :: The input stream.                                   */
879  /*                                                                       */
880  /*    range       :: The SBit range containing the glyph.                */
881  /*                                                                       */
882  /* <Output>                                                              */
883  /*    big_metrics :: A big SBit metrics structure for the glyph.         */
884  /*                                                                       */
885  /* <Return>                                                              */
886  /*    FreeType error code.  0 means success.                             */
887  /*                                                                       */
888  /* <Note>                                                                */
889  /*    The stream cursor must be positioned at the glyph's offset within  */
890  /*    the `EBDT' table before the call.                                  */
891  /*                                                                       */
892  /*    If the image format uses variable metrics, the stream cursor is    */
893  /*    positioned just after the metrics header in the `EBDT' table on    */
894  /*    function exit.                                                     */
895  /*                                                                       */
896  FT_LOCAL( FT_Error )
897  tt_load_sbit_metrics( FT_Stream        stream,
898                        TT_SBit_Range    range,
899                        TT_SBit_Metrics  metrics )
900  {
901    FT_Error  error = SFNT_Err_Ok;
902
903
904    switch ( range->image_format )
905    {
906    case 1:
907    case 2:
908    case 8:
909      /* variable small metrics */
910      {
911        TT_SBit_SmallMetricsRec  smetrics;
912
913        const FT_Frame_Field  sbit_small_metrics_fields[] =
914        {
915#undef  FT_STRUCTURE
916#define FT_STRUCTURE  TT_SBit_SmallMetricsRec
917
918          FT_FRAME_START( 5 ),
919            FT_FRAME_BYTE( height ),
920            FT_FRAME_BYTE( width ),
921            FT_FRAME_CHAR( bearingX ),
922            FT_FRAME_CHAR( bearingY ),
923            FT_FRAME_BYTE( advance ),
924          FT_FRAME_END
925        };
926
927
928        /* read small metrics */
929        if ( FT_STREAM_READ_FIELDS( sbit_small_metrics_fields, &smetrics ) )
930          goto Exit;
931
932        /* convert it to a big metrics */
933        metrics->height       = smetrics.height;
934        metrics->width        = smetrics.width;
935        metrics->horiBearingX = smetrics.bearingX;
936        metrics->horiBearingY = smetrics.bearingY;
937        metrics->horiAdvance  = smetrics.advance;
938
939        /* these metrics are made up at a higher level when */
940        /* needed.                                          */
941        metrics->vertBearingX = 0;
942        metrics->vertBearingY = 0;
943        metrics->vertAdvance  = 0;
944      }
945      break;
946
947    case 6:
948    case 7:
949    case 9:
950      /* variable big metrics */
951      if ( FT_STREAM_READ_FIELDS( sbit_metrics_fields, metrics ) )
952        goto Exit;
953      break;
954
955    case 5:
956    default:  /* constant metrics */
957      if ( range->index_format == 2 || range->index_format == 5 )
958        *metrics = range->metrics;
959      else
960        return SFNT_Err_Invalid_File_Format;
961   }
962
963  Exit:
964    return error;
965  }
966
967
968  /*************************************************************************/
969  /*                                                                       */
970  /* <Function>                                                            */
971  /*    crop_bitmap                                                        */
972  /*                                                                       */
973  /* <Description>                                                         */
974  /*    Crops a bitmap to its tightest bounding box, and adjusts its       */
975  /*    metrics.                                                           */
976  /*                                                                       */
977  /* <InOut>                                                               */
978  /*    map     :: The bitmap.                                             */
979  /*                                                                       */
980  /*    metrics :: The corresponding metrics structure.                    */
981  /*                                                                       */
982  static void
983  crop_bitmap( FT_Bitmap*       map,
984               TT_SBit_Metrics  metrics )
985  {
986    /***********************************************************************/
987    /*                                                                     */
988    /* In this situation, some bounding boxes of embedded bitmaps are too  */
989    /* large.  We need to crop it to a reasonable size.                    */
990    /*                                                                     */
991    /*      ---------                                                      */
992    /*      |       |                -----                                 */
993    /*      |  ***  |                |***|                                 */
994    /*      |   *   |                | * |                                 */
995    /*      |   *   |    ------>     | * |                                 */
996    /*      |   *   |                | * |                                 */
997    /*      |   *   |                | * |                                 */
998    /*      |  ***  |                |***|                                 */
999    /*      ---------                -----                                 */
1000    /*                                                                     */
1001    /***********************************************************************/
1002
1003    FT_Int    rows, count;
1004    FT_Long   line_len;
1005    FT_Byte*  line;
1006
1007
1008    /***********************************************************************/
1009    /*                                                                     */
1010    /* first of all, check the top-most lines of the bitmap, and remove    */
1011    /* them if they're empty.                                              */
1012    /*                                                                     */
1013    {
1014      line     = (FT_Byte*)map->buffer;
1015      rows     = map->rows;
1016      line_len = map->pitch;
1017
1018
1019      for ( count = 0; count < rows; count++ )
1020      {
1021        FT_Byte*  cur   = line;
1022        FT_Byte*  limit = line + line_len;
1023
1024
1025        for ( ; cur < limit; cur++ )
1026          if ( cur[0] )
1027            goto Found_Top;
1028
1029        /* the current line was empty - skip to next one */
1030        line  = limit;
1031      }
1032
1033    Found_Top:
1034      /* check that we have at least one filled line */
1035      if ( count >= rows )
1036        goto Empty_Bitmap;
1037
1038      /* now, crop the empty upper lines */
1039      if ( count > 0 )
1040      {
1041        line = (FT_Byte*)map->buffer;
1042
1043        FT_MEM_MOVE( line, line + count * line_len,
1044                     ( rows - count ) * line_len );
1045
1046        metrics->height       = (FT_Byte)( metrics->height - count );
1047        metrics->horiBearingY = (FT_Char)( metrics->horiBearingY - count );
1048        metrics->vertBearingY = (FT_Char)( metrics->vertBearingY - count );
1049
1050        map->rows -= count;
1051        rows      -= count;
1052      }
1053    }
1054
1055    /***********************************************************************/
1056    /*                                                                     */
1057    /* second, crop the lower lines                                        */
1058    /*                                                                     */
1059    {
1060      line = (FT_Byte*)map->buffer + ( rows - 1 ) * line_len;
1061
1062      for ( count = 0; count < rows; count++ )
1063      {
1064        FT_Byte*  cur   = line;
1065        FT_Byte*  limit = line + line_len;
1066
1067
1068        for ( ; cur < limit; cur++ )
1069          if ( cur[0] )
1070            goto Found_Bottom;
1071
1072        /* the current line was empty - skip to previous one */
1073        line -= line_len;
1074      }
1075
1076    Found_Bottom:
1077      if ( count > 0 )
1078      {
1079        metrics->height  = (FT_Byte)( metrics->height - count );
1080        rows            -= count;
1081        map->rows       -= count;
1082      }
1083    }
1084
1085    /***********************************************************************/
1086    /*                                                                     */
1087    /* third, get rid of the space on the left side of the glyph           */
1088    /*                                                                     */
1089    do
1090    {
1091      FT_Byte*  limit;
1092
1093
1094      line  = (FT_Byte*)map->buffer;
1095      limit = line + rows * line_len;
1096
1097      for ( ; line < limit; line += line_len )
1098        if ( line[0] & 0x80 )
1099          goto Found_Left;
1100
1101      /* shift the whole glyph one pixel to the left */
1102      line  = (FT_Byte*)map->buffer;
1103      limit = line + rows * line_len;
1104
1105      for ( ; line < limit; line += line_len )
1106      {
1107        FT_Int    n, width = map->width;
1108        FT_Byte   old;
1109        FT_Byte*  cur = line;
1110
1111
1112        old = (FT_Byte)(cur[0] << 1);
1113        for ( n = 8; n < width; n += 8 )
1114        {
1115          FT_Byte  val;
1116
1117
1118          val    = cur[1];
1119          cur[0] = (FT_Byte)( old | ( val >> 7 ) );
1120          old    = (FT_Byte)( val << 1 );
1121          cur++;
1122        }
1123        cur[0] = old;
1124      }
1125
1126      map->width--;
1127      metrics->horiBearingX++;
1128      metrics->vertBearingX++;
1129      metrics->width--;
1130
1131    } while ( map->width > 0 );
1132
1133  Found_Left:
1134
1135    /***********************************************************************/
1136    /*                                                                     */
1137    /* finally, crop the bitmap width to get rid of the space on the right */
1138    /* side of the glyph.                                                  */
1139    /*                                                                     */
1140    do
1141    {
1142      FT_Int    right = map->width - 1;
1143      FT_Byte*  limit;
1144      FT_Byte   mask;
1145
1146
1147      line  = (FT_Byte*)map->buffer + ( right >> 3 );
1148      limit = line + rows * line_len;
1149      mask  = (FT_Byte)( 0x80 >> ( right & 7 ) );
1150
1151      for ( ; line < limit; line += line_len )
1152        if ( line[0] & mask )
1153          goto Found_Right;
1154
1155      /* crop the whole glyph to the right */
1156      map->width--;
1157      metrics->width--;
1158
1159    } while ( map->width > 0 );
1160
1161  Found_Right:
1162    /* all right, the bitmap was cropped */
1163    return;
1164
1165  Empty_Bitmap:
1166    map->width      = 0;
1167    map->rows       = 0;
1168    map->pitch      = 0;
1169    map->pixel_mode = FT_PIXEL_MODE_MONO;
1170  }
1171
1172
1173  static FT_Error
1174  Load_SBit_Single( FT_Bitmap*       map,
1175                    FT_Int           x_offset,
1176                    FT_Int           y_offset,
1177                    FT_Int           pix_bits,
1178                    FT_UShort        image_format,
1179                    TT_SBit_Metrics  metrics,
1180                    FT_Stream        stream )
1181  {
1182    FT_Error  error;
1183
1184
1185    /* check that the source bitmap fits into the target pixmap */
1186    if ( x_offset < 0 || x_offset + metrics->width  > map->width ||
1187         y_offset < 0 || y_offset + metrics->height > map->rows  )
1188    {
1189      error = SFNT_Err_Invalid_Argument;
1190
1191      goto Exit;
1192    }
1193
1194    {
1195      FT_Int   glyph_width  = metrics->width;
1196      FT_Int   glyph_height = metrics->height;
1197      FT_Int   glyph_size;
1198      FT_Int   line_bits    = pix_bits * glyph_width;
1199      FT_Bool  pad_bytes    = 0;
1200
1201
1202      /* compute size of glyph image */
1203      switch ( image_format )
1204      {
1205      case 1:  /* byte-padded formats */
1206      case 6:
1207        {
1208          FT_Int  line_length;
1209
1210
1211          switch ( pix_bits )
1212          {
1213          case 1:
1214            line_length = ( glyph_width + 7 ) >> 3;
1215            break;
1216          case 2:
1217            line_length = ( glyph_width + 3 ) >> 2;
1218            break;
1219          case 4:
1220            line_length = ( glyph_width + 1 ) >> 1;
1221            break;
1222          default:
1223            line_length =   glyph_width;
1224          }
1225
1226          glyph_size = glyph_height * line_length;
1227          pad_bytes  = 1;
1228        }
1229        break;
1230
1231      case 2:
1232      case 5:
1233      case 7:
1234        line_bits  =   glyph_width  * pix_bits;
1235        glyph_size = ( glyph_height * line_bits + 7 ) >> 3;
1236        break;
1237
1238      default:  /* invalid format */
1239        return SFNT_Err_Invalid_File_Format;
1240      }
1241
1242      /* Now read data and draw glyph into target pixmap       */
1243      if ( FT_FRAME_ENTER( glyph_size ) )
1244        goto Exit;
1245
1246      /* don't forget to multiply `x_offset' by `map->pix_bits' as */
1247      /* the sbit blitter doesn't make a difference between pixmap */
1248      /* depths.                                                   */
1249      blit_sbit( map, (FT_Byte*)stream->cursor, line_bits, pad_bytes,
1250                 x_offset * pix_bits, y_offset );
1251
1252      FT_FRAME_EXIT();
1253    }
1254
1255  Exit:
1256    return error;
1257  }
1258
1259
1260  static FT_Error
1261  Load_SBit_Image( TT_SBit_Strike   strike,
1262                   TT_SBit_Range    range,
1263                   FT_ULong         ebdt_pos,
1264                   FT_ULong         glyph_offset,
1265                   FT_GlyphSlot     slot,
1266                   FT_Int           x_offset,
1267                   FT_Int           y_offset,
1268                   FT_Stream        stream,
1269                   TT_SBit_Metrics  metrics,
1270                   FT_Int           depth )
1271  {
1272    FT_Memory   memory = stream->memory;
1273    FT_Bitmap*  map    = &slot->bitmap;
1274    FT_Error    error;
1275
1276
1277    /* place stream at beginning of glyph data and read metrics */
1278    if ( FT_STREAM_SEEK( ebdt_pos + glyph_offset ) )
1279      goto Exit;
1280
1281    error = tt_load_sbit_metrics( stream, range, metrics );
1282    if ( error )
1283      goto Exit;
1284
1285    /* This function is recursive.  At the top-level call, we  */
1286    /* compute the dimensions of the higher-level glyph to     */
1287    /* allocate the final pixmap buffer.                       */
1288    if ( depth == 0 )
1289    {
1290      FT_Long  size;
1291
1292
1293      map->width = metrics->width;
1294      map->rows  = metrics->height;
1295
1296      switch ( strike->bit_depth )
1297      {
1298      case 1:
1299        map->pixel_mode = FT_PIXEL_MODE_MONO;
1300        map->pitch      = ( map->width + 7 ) >> 3;
1301        break;
1302
1303      case 2:
1304        map->pixel_mode = FT_PIXEL_MODE_GRAY2;
1305        map->pitch      = ( map->width + 3 ) >> 2;
1306        break;
1307
1308      case 4:
1309        map->pixel_mode = FT_PIXEL_MODE_GRAY4;
1310        map->pitch      = ( map->width + 1 ) >> 1;
1311        break;
1312
1313      case 8:
1314        map->pixel_mode = FT_PIXEL_MODE_GRAY;
1315        map->pitch      = map->width;
1316        break;
1317
1318      default:
1319        return SFNT_Err_Invalid_File_Format;
1320      }
1321
1322      size = map->rows * map->pitch;
1323
1324      /* check that there is no empty image */
1325      if ( size == 0 )
1326        goto Exit;     /* exit successfully! */
1327
1328      error = ft_glyphslot_alloc_bitmap( slot, size );
1329      if (error)
1330        goto Exit;
1331    }
1332
1333    switch ( range->image_format )
1334    {
1335    case 1:  /* single sbit image - load it */
1336    case 2:
1337    case 5:
1338    case 6:
1339    case 7:
1340      return Load_SBit_Single( map, x_offset, y_offset, strike->bit_depth,
1341                               range->image_format, metrics, stream );
1342
1343    case 8:  /* compound format */
1344      FT_Stream_Skip( stream, 1L );
1345      /* fallthrough */
1346
1347    case 9:
1348      break;
1349
1350    default: /* invalid image format */
1351      return SFNT_Err_Invalid_File_Format;
1352    }
1353
1354    /* All right, we have a compound format.  First of all, read */
1355    /* the array of elements.                                    */
1356    {
1357      TT_SBit_Component  components;
1358      TT_SBit_Component  comp;
1359      FT_UShort          num_components, count;
1360
1361
1362      if ( FT_READ_USHORT( num_components )           ||
1363           FT_NEW_ARRAY( components, num_components ) )
1364        goto Exit;
1365
1366      count = num_components;
1367
1368      if ( FT_FRAME_ENTER( 4L * num_components ) )
1369        goto Fail_Memory;
1370
1371      for ( comp = components; count > 0; count--, comp++ )
1372      {
1373        comp->glyph_code = FT_GET_USHORT();
1374        comp->x_offset   = FT_GET_CHAR();
1375        comp->y_offset   = FT_GET_CHAR();
1376      }
1377
1378      FT_FRAME_EXIT();
1379
1380      /* Now recursively load each element glyph */
1381      count = num_components;
1382      comp  = components;
1383      for ( ; count > 0; count--, comp++ )
1384      {
1385        TT_SBit_Range       elem_range;
1386        TT_SBit_MetricsRec  elem_metrics;
1387        FT_ULong            elem_offset;
1388
1389
1390        /* find the range for this element */
1391        error = find_sbit_range( comp->glyph_code,
1392                                 strike,
1393                                 &elem_range,
1394                                 &elem_offset );
1395        if ( error )
1396          goto Fail_Memory;
1397
1398        /* now load the element, recursively */
1399        error = Load_SBit_Image( strike,
1400                                 elem_range,
1401                                 ebdt_pos,
1402                                 elem_offset,
1403                                 slot,
1404                                 x_offset + comp->x_offset,
1405                                 y_offset + comp->y_offset,
1406                                 stream,
1407                                 &elem_metrics,
1408                                 depth + 1 );
1409        if ( error )
1410          goto Fail_Memory;
1411      }
1412
1413    Fail_Memory:
1414      FT_FREE( components );
1415    }
1416
1417  Exit:
1418    return error;
1419  }
1420
1421
1422  /*************************************************************************/
1423  /*                                                                       */
1424  /* <Function>                                                            */
1425  /*    tt_face_load_sbit_image                                            */
1426  /*                                                                       */
1427  /* <Description>                                                         */
1428  /*    Loads a given glyph sbit image from the font resource.  This also  */
1429  /*    returns its metrics.                                               */
1430  /*                                                                       */
1431  /* <Input>                                                               */
1432  /*    face         :: The target face object.                            */
1433  /*                                                                       */
1434  /*    strike_index :: The current strike index.                          */
1435  /*                                                                       */
1436  /*    glyph_index  :: The current glyph index.                           */
1437  /*                                                                       */
1438  /*    load_flags   :: The glyph load flags (the code checks for the flag */
1439  /*                    FT_LOAD_CROP_BITMAP).                              */
1440  /*                                                                       */
1441  /*    stream       :: The input stream.                                  */
1442  /*                                                                       */
1443  /* <Output>                                                              */
1444  /*    map          :: The target pixmap.                                 */
1445  /*                                                                       */
1446  /*    metrics      :: A big sbit metrics structure for the glyph image.  */
1447  /*                                                                       */
1448  /* <Return>                                                              */
1449  /*    FreeType error code.  0 means success.  Returns an error if no     */
1450  /*    glyph sbit exists for the index.                                   */
1451  /*                                                                       */
1452  /*  <Note>                                                               */
1453  /*    The `map.buffer' field is always freed before the glyph is loaded. */
1454  /*                                                                       */
1455  FT_LOCAL_DEF( FT_Error )
1456  tt_face_load_sbit_image( TT_Face              face,
1457                           FT_ULong             strike_index,
1458                           FT_UInt              glyph_index,
1459                           FT_UInt              load_flags,
1460                           FT_Stream            stream,
1461                           FT_Bitmap           *map,
1462                           TT_SBit_MetricsRec  *metrics )
1463  {
1464    FT_Error        error;
1465    FT_ULong        ebdt_pos, glyph_offset;
1466
1467    TT_SBit_Strike  strike;
1468    TT_SBit_Range   range;
1469
1470
1471    /* Check whether there is a glyph sbit for the current index */
1472    error = tt_find_sbit_image( face, glyph_index, strike_index,
1473                                &range, &strike, &glyph_offset );
1474    if ( error )
1475      goto Exit;
1476
1477    /* now, find the location of the `EBDT' table in */
1478    /* the font file                                 */
1479    error = face->goto_table( face, TTAG_EBDT, stream, 0 );
1480    if ( error )
1481      error = face->goto_table( face, TTAG_bdat, stream, 0 );
1482    if ( error )
1483      goto Exit;
1484
1485    ebdt_pos = FT_STREAM_POS();
1486
1487    error = Load_SBit_Image( strike, range, ebdt_pos, glyph_offset,
1488                             face->root.glyph, 0, 0, stream, metrics, 0 );
1489    if ( error )
1490      goto Exit;
1491
1492    /* setup vertical metrics if needed */
1493    if ( strike->flags & 1 )
1494    {
1495      /* in case of a horizontal strike only */
1496      FT_Int  advance;
1497
1498
1499      advance = strike->hori.ascender - strike->hori.descender;
1500
1501      /* some heuristic values */
1502
1503      metrics->vertBearingX = (FT_Char)(-metrics->width / 2 );
1504      metrics->vertBearingY = (FT_Char)( advance / 10 );
1505      metrics->vertAdvance  = (FT_Char)( advance * 12 / 10 );
1506    }
1507
1508    /* Crop the bitmap now, unless specified otherwise */
1509    if ( load_flags & FT_LOAD_CROP_BITMAP )
1510      crop_bitmap( map, metrics );
1511
1512  Exit:
1513    return error;
1514  }
1515
1516#endif /* !OPTIMIZE_MEMORY */
1517
1518
1519/* END */
Note: See TracBrowser for help on using the repository browser.