Edit

kc3-lang/freetype/src/base/ftoutln.c

Branch :

  • Show log

    Commit

  • Author : Werner Lemberg
    Date : 2010-06-27 15:10:15
    Hash : 8bebaa74
    Message : Fix valgrind warning. * src/base/ftoutln.c (FT_Outline_Get_Orientation): Initialize `result' array.

  • src/base/ftoutln.c
  • /***************************************************************************/
    /*                                                                         */
    /*  ftoutln.c                                                              */
    /*                                                                         */
    /*    FreeType outline management (body).                                  */
    /*                                                                         */
    /*  Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010 by */
    /*  David Turner, Robert Wilhelm, and Werner Lemberg.                      */
    /*                                                                         */
    /*  This file is part of the FreeType project, and may only be used,       */
    /*  modified, and distributed under the terms of the FreeType project      */
    /*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     */
    /*  this file you indicate that you have read the license and              */
    /*  understand and accept it fully.                                        */
    /*                                                                         */
    /***************************************************************************/
    
    
      /*************************************************************************/
      /*                                                                       */
      /* All functions are declared in freetype.h.                             */
      /*                                                                       */
      /*************************************************************************/
    
    
    #include <ft2build.h>
    #include FT_OUTLINE_H
    #include FT_INTERNAL_OBJECTS_H
    #include FT_INTERNAL_DEBUG_H
    #include FT_TRIGONOMETRY_H
    
    
      /*************************************************************************/
      /*                                                                       */
      /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */
      /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */
      /* messages during execution.                                            */
      /*                                                                       */
    #undef  FT_COMPONENT
    #define FT_COMPONENT  trace_outline
    
    
      static
      const FT_Outline  null_outline = { 0, 0, 0, 0, 0, 0 };
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Decompose( FT_Outline*              outline,
                            const FT_Outline_Funcs*  func_interface,
                            void*                    user )
      {
    #undef SCALED
    #define SCALED( x )  ( ( (x) << shift ) - delta )
    
        FT_Vector   v_last;
        FT_Vector   v_control;
        FT_Vector   v_start;
    
        FT_Vector*  point;
        FT_Vector*  limit;
        char*       tags;
    
        FT_Error    error;
    
        FT_Int   n;         /* index of contour in outline     */
        FT_UInt  first;     /* index of first point in contour */
        FT_Int   tag;       /* current point's state           */
    
        FT_Int   shift;
        FT_Pos   delta;
    
    
        if ( !outline || !func_interface )
          return FT_Err_Invalid_Argument;
    
        shift = func_interface->shift;
        delta = func_interface->delta;
        first = 0;
    
        for ( n = 0; n < outline->n_contours; n++ )
        {
          FT_Int  last;  /* index of last point in contour */
    
    
          FT_TRACE5(( "FT_Outline_Decompose: Outline %d\n", n ));
    
          last = outline->contours[n];
          if ( last < 0 )
            goto Invalid_Outline;
          limit = outline->points + last;
    
          v_start   = outline->points[first];
          v_start.x = SCALED( v_start.x );
          v_start.y = SCALED( v_start.y );
    
          v_last   = outline->points[last];
          v_last.x = SCALED( v_last.x );
          v_last.y = SCALED( v_last.y );
    
          v_control = v_start;
    
          point = outline->points + first;
          tags  = outline->tags   + first;
          tag   = FT_CURVE_TAG( tags[0] );
    
          /* A contour cannot start with a cubic control point! */
          if ( tag == FT_CURVE_TAG_CUBIC )
            goto Invalid_Outline;
    
          /* check first point to determine origin */
          if ( tag == FT_CURVE_TAG_CONIC )
          {
            /* first point is conic control.  Yes, this happens. */
            if ( FT_CURVE_TAG( outline->tags[last] ) == FT_CURVE_TAG_ON )
            {
              /* start at last point if it is on the curve */
              v_start = v_last;
              limit--;
            }
            else
            {
              /* if both first and last points are conic,         */
              /* start at their middle and record its position    */
              /* for closure                                      */
              v_start.x = ( v_start.x + v_last.x ) / 2;
              v_start.y = ( v_start.y + v_last.y ) / 2;
    
              v_last = v_start;
            }
            point--;
            tags--;
          }
    
          FT_TRACE5(( "  move to (%.2f, %.2f)\n",
                      v_start.x / 64.0, v_start.y / 64.0 ));
          error = func_interface->move_to( &v_start, user );
          if ( error )
            goto Exit;
    
          while ( point < limit )
          {
            point++;
            tags++;
    
            tag = FT_CURVE_TAG( tags[0] );
            switch ( tag )
            {
            case FT_CURVE_TAG_ON:  /* emit a single line_to */
              {
                FT_Vector  vec;
    
    
                vec.x = SCALED( point->x );
                vec.y = SCALED( point->y );
    
                FT_TRACE5(( "  line to (%.2f, %.2f)\n",
                            vec.x / 64.0, vec.y / 64.0 ));
                error = func_interface->line_to( &vec, user );
                if ( error )
                  goto Exit;
                continue;
              }
    
            case FT_CURVE_TAG_CONIC:  /* consume conic arcs */
              v_control.x = SCALED( point->x );
              v_control.y = SCALED( point->y );
    
            Do_Conic:
              if ( point < limit )
              {
                FT_Vector  vec;
                FT_Vector  v_middle;
    
    
                point++;
                tags++;
                tag = FT_CURVE_TAG( tags[0] );
    
                vec.x = SCALED( point->x );
                vec.y = SCALED( point->y );
    
                if ( tag == FT_CURVE_TAG_ON )
                {
                  FT_TRACE5(( "  conic to (%.2f, %.2f)"
                              " with control (%.2f, %.2f)\n",
                              vec.x / 64.0, vec.y / 64.0,
                              v_control.x / 64.0, v_control.y / 64.0 ));
                  error = func_interface->conic_to( &v_control, &vec, user );
                  if ( error )
                    goto Exit;
                  continue;
                }
    
                if ( tag != FT_CURVE_TAG_CONIC )
                  goto Invalid_Outline;
    
                v_middle.x = ( v_control.x + vec.x ) / 2;
                v_middle.y = ( v_control.y + vec.y ) / 2;
    
                FT_TRACE5(( "  conic to (%.2f, %.2f)"
                            " with control (%.2f, %.2f)\n",
                            v_middle.x / 64.0, v_middle.y / 64.0,
                            v_control.x / 64.0, v_control.y / 64.0 ));
                error = func_interface->conic_to( &v_control, &v_middle, user );
                if ( error )
                  goto Exit;
    
                v_control = vec;
                goto Do_Conic;
              }
    
              FT_TRACE5(( "  conic to (%.2f, %.2f)"
                          " with control (%.2f, %.2f)\n",
                          v_start.x / 64.0, v_start.y / 64.0,
                          v_control.x / 64.0, v_control.y / 64.0 ));
              error = func_interface->conic_to( &v_control, &v_start, user );
              goto Close;
    
            default:  /* FT_CURVE_TAG_CUBIC */
              {
                FT_Vector  vec1, vec2;
    
    
                if ( point + 1 > limit                             ||
                     FT_CURVE_TAG( tags[1] ) != FT_CURVE_TAG_CUBIC )
                  goto Invalid_Outline;
    
                point += 2;
                tags  += 2;
    
                vec1.x = SCALED( point[-2].x );
                vec1.y = SCALED( point[-2].y );
    
                vec2.x = SCALED( point[-1].x );
                vec2.y = SCALED( point[-1].y );
    
                if ( point <= limit )
                {
                  FT_Vector  vec;
    
    
                  vec.x = SCALED( point->x );
                  vec.y = SCALED( point->y );
    
                  FT_TRACE5(( "  cubic to (%.2f, %.2f)"
                              " with controls (%.2f, %.2f) and (%.2f, %.2f)\n",
                              vec.x / 64.0, vec.y / 64.0,
                              vec1.x / 64.0, vec1.y / 64.0,
                              vec2.x / 64.0, vec2.y / 64.0 ));
                  error = func_interface->cubic_to( &vec1, &vec2, &vec, user );
                  if ( error )
                    goto Exit;
                  continue;
                }
    
                FT_TRACE5(( "  cubic to (%.2f, %.2f)"
                            " with controls (%.2f, %.2f) and (%.2f, %.2f)\n",
                            v_start.x / 64.0, v_start.y / 64.0,
                            vec1.x / 64.0, vec1.y / 64.0,
                            vec2.x / 64.0, vec2.y / 64.0 ));
                error = func_interface->cubic_to( &vec1, &vec2, &v_start, user );
                goto Close;
              }
            }
          }
    
          /* close the contour with a line segment */
          FT_TRACE5(( "  line to (%.2f, %.2f)\n",
                      v_start.x / 64.0, v_start.y / 64.0 ));
          error = func_interface->line_to( &v_start, user );
    
        Close:
          if ( error )
            goto Exit;
    
          first = last + 1;
        }
    
        FT_TRACE5(( "FT_Outline_Decompose: Done\n", n ));
        return FT_Err_Ok;
    
      Exit:
        FT_TRACE5(( "FT_Outline_Decompose: Error %d\n", error ));
        return error;
    
      Invalid_Outline:
        return FT_Err_Invalid_Outline;
      }
    
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_New_Internal( FT_Memory    memory,
                               FT_UInt      numPoints,
                               FT_Int       numContours,
                               FT_Outline  *anoutline )
      {
        FT_Error  error;
    
    
        if ( !anoutline || !memory )
          return FT_Err_Invalid_Argument;
    
        *anoutline = null_outline;
    
        if ( FT_NEW_ARRAY( anoutline->points,   numPoints   ) ||
             FT_NEW_ARRAY( anoutline->tags,     numPoints   ) ||
             FT_NEW_ARRAY( anoutline->contours, numContours ) )
          goto Fail;
    
        anoutline->n_points    = (FT_UShort)numPoints;
        anoutline->n_contours  = (FT_Short)numContours;
        anoutline->flags      |= FT_OUTLINE_OWNER;
    
        return FT_Err_Ok;
    
      Fail:
        anoutline->flags |= FT_OUTLINE_OWNER;
        FT_Outline_Done_Internal( memory, anoutline );
    
        return error;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_New( FT_Library   library,
                      FT_UInt      numPoints,
                      FT_Int       numContours,
                      FT_Outline  *anoutline )
      {
        if ( !library )
          return FT_Err_Invalid_Library_Handle;
    
        return FT_Outline_New_Internal( library->memory, numPoints,
                                        numContours, anoutline );
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Check( FT_Outline*  outline )
      {
        if ( outline )
        {
          FT_Int  n_points   = outline->n_points;
          FT_Int  n_contours = outline->n_contours;
          FT_Int  end0, end;
          FT_Int  n;
    
    
          /* empty glyph? */
          if ( n_points == 0 && n_contours == 0 )
            return 0;
    
          /* check point and contour counts */
          if ( n_points <= 0 || n_contours <= 0 )
            goto Bad;
    
          end0 = end = -1;
          for ( n = 0; n < n_contours; n++ )
          {
            end = outline->contours[n];
    
            /* note that we don't accept empty contours */
            if ( end <= end0 || end >= n_points )
              goto Bad;
    
            end0 = end;
          }
    
          if ( end != n_points - 1 )
            goto Bad;
    
          /* XXX: check the tags array */
          return 0;
        }
    
      Bad:
        return FT_Err_Invalid_Argument;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Copy( const FT_Outline*  source,
                       FT_Outline        *target )
      {
        FT_Int  is_owner;
    
    
        if ( !source            || !target            ||
             source->n_points   != target->n_points   ||
             source->n_contours != target->n_contours )
          return FT_Err_Invalid_Argument;
    
        if ( source == target )
          return FT_Err_Ok;
    
        FT_ARRAY_COPY( target->points, source->points, source->n_points );
    
        FT_ARRAY_COPY( target->tags, source->tags, source->n_points );
    
        FT_ARRAY_COPY( target->contours, source->contours, source->n_contours );
    
        /* copy all flags, except the `FT_OUTLINE_OWNER' one */
        is_owner      = target->flags & FT_OUTLINE_OWNER;
        target->flags = source->flags;
    
        target->flags &= ~FT_OUTLINE_OWNER;
        target->flags |= is_owner;
    
        return FT_Err_Ok;
      }
    
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Done_Internal( FT_Memory    memory,
                                FT_Outline*  outline )
      {
        if ( memory && outline )
        {
          if ( outline->flags & FT_OUTLINE_OWNER )
          {
            FT_FREE( outline->points   );
            FT_FREE( outline->tags     );
            FT_FREE( outline->contours );
          }
          *outline = null_outline;
    
          return FT_Err_Ok;
        }
        else
          return FT_Err_Invalid_Argument;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Done( FT_Library   library,
                       FT_Outline*  outline )
      {
        /* check for valid `outline' in FT_Outline_Done_Internal() */
    
        if ( !library )
          return FT_Err_Invalid_Library_Handle;
    
        return FT_Outline_Done_Internal( library->memory, outline );
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( void )
      FT_Outline_Get_CBox( const FT_Outline*  outline,
                           FT_BBox           *acbox )
      {
        FT_Pos  xMin, yMin, xMax, yMax;
    
    
        if ( outline && acbox )
        {
          if ( outline->n_points == 0 )
          {
            xMin = 0;
            yMin = 0;
            xMax = 0;
            yMax = 0;
          }
          else
          {
            FT_Vector*  vec   = outline->points;
            FT_Vector*  limit = vec + outline->n_points;
    
    
            xMin = xMax = vec->x;
            yMin = yMax = vec->y;
            vec++;
    
            for ( ; vec < limit; vec++ )
            {
              FT_Pos  x, y;
    
    
              x = vec->x;
              if ( x < xMin ) xMin = x;
              if ( x > xMax ) xMax = x;
    
              y = vec->y;
              if ( y < yMin ) yMin = y;
              if ( y > yMax ) yMax = y;
            }
          }
          acbox->xMin = xMin;
          acbox->xMax = xMax;
          acbox->yMin = yMin;
          acbox->yMax = yMax;
        }
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( void )
      FT_Outline_Translate( const FT_Outline*  outline,
                            FT_Pos             xOffset,
                            FT_Pos             yOffset )
      {
        FT_UShort   n;
        FT_Vector*  vec;
    
    
        if ( !outline )
          return;
    
        vec = outline->points;
    
        for ( n = 0; n < outline->n_points; n++ )
        {
          vec->x += xOffset;
          vec->y += yOffset;
          vec++;
        }
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( void )
      FT_Outline_Reverse( FT_Outline*  outline )
      {
        FT_UShort  n;
        FT_Int     first, last;
    
    
        if ( !outline )
          return;
    
        first = 0;
    
        for ( n = 0; n < outline->n_contours; n++ )
        {
          last  = outline->contours[n];
    
          /* reverse point table */
          {
            FT_Vector*  p = outline->points + first;
            FT_Vector*  q = outline->points + last;
            FT_Vector   swap;
    
    
            while ( p < q )
            {
              swap = *p;
              *p   = *q;
              *q   = swap;
              p++;
              q--;
            }
          }
    
          /* reverse tags table */
          {
            char*  p = outline->tags + first;
            char*  q = outline->tags + last;
            char   swap;
    
    
            while ( p < q )
            {
              swap = *p;
              *p   = *q;
              *q   = swap;
              p++;
              q--;
            }
          }
    
          first = last + 1;
        }
    
        outline->flags ^= FT_OUTLINE_REVERSE_FILL;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Render( FT_Library         library,
                         FT_Outline*        outline,
                         FT_Raster_Params*  params )
      {
        FT_Error     error;
        FT_Bool      update = FALSE;
        FT_Renderer  renderer;
        FT_ListNode  node;
    
    
        if ( !library )
          return FT_Err_Invalid_Library_Handle;
    
        if ( !outline || !params )
          return FT_Err_Invalid_Argument;
    
        renderer = library->cur_renderer;
        node     = library->renderers.head;
    
        params->source = (void*)outline;
    
        error = FT_Err_Cannot_Render_Glyph;
        while ( renderer )
        {
          error = renderer->raster_render( renderer->raster, params );
          if ( !error || FT_ERROR_BASE( error ) != FT_Err_Cannot_Render_Glyph )
            break;
    
          /* FT_Err_Cannot_Render_Glyph is returned if the render mode   */
          /* is unsupported by the current renderer for this glyph image */
          /* format                                                      */
    
          /* now, look for another renderer that supports the same */
          /* format                                                */
          renderer = FT_Lookup_Renderer( library, FT_GLYPH_FORMAT_OUTLINE,
                                         &node );
          update   = TRUE;
        }
    
        /* if we changed the current renderer for the glyph image format */
        /* we need to select it as the next current one                  */
        if ( !error && update && renderer )
          FT_Set_Renderer( library, renderer, 0, 0 );
    
        return error;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Get_Bitmap( FT_Library        library,
                             FT_Outline*       outline,
                             const FT_Bitmap  *abitmap )
      {
        FT_Raster_Params  params;
    
    
        if ( !abitmap )
          return FT_Err_Invalid_Argument;
    
        /* other checks are delayed to FT_Outline_Render() */
    
        params.target = abitmap;
        params.flags  = 0;
    
        if ( abitmap->pixel_mode == FT_PIXEL_MODE_GRAY  ||
             abitmap->pixel_mode == FT_PIXEL_MODE_LCD   ||
             abitmap->pixel_mode == FT_PIXEL_MODE_LCD_V )
          params.flags |= FT_RASTER_FLAG_AA;
    
        return FT_Outline_Render( library, outline, &params );
      }
    
    
      /* documentation is in freetype.h */
    
      FT_EXPORT_DEF( void )
      FT_Vector_Transform( FT_Vector*        vector,
                           const FT_Matrix*  matrix )
      {
        FT_Pos  xz, yz;
    
    
        if ( !vector || !matrix )
          return;
    
        xz = FT_MulFix( vector->x, matrix->xx ) +
             FT_MulFix( vector->y, matrix->xy );
    
        yz = FT_MulFix( vector->x, matrix->yx ) +
             FT_MulFix( vector->y, matrix->yy );
    
        vector->x = xz;
        vector->y = yz;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( void )
      FT_Outline_Transform( const FT_Outline*  outline,
                            const FT_Matrix*   matrix )
      {
        FT_Vector*  vec;
        FT_Vector*  limit;
    
    
        if ( !outline || !matrix )
          return;
    
        vec   = outline->points;
        limit = vec + outline->n_points;
    
        for ( ; vec < limit; vec++ )
          FT_Vector_Transform( vec, matrix );
      }
    
    
    #if 0
    
    #define FT_OUTLINE_GET_CONTOUR( outline, c, first, last )  \
      do {                                                     \
        (first) = ( c > 0 ) ? (outline)->points +              \
                                (outline)->contours[c - 1] + 1 \
                            : (outline)->points;               \
        (last) = (outline)->points + (outline)->contours[c];   \
      } while ( 0 )
    
    
      /* Is a point in some contour?                     */
      /*                                                 */
      /* We treat every point of the contour as if it    */
      /* it were ON.  That is, we allow false positives, */
      /* but disallow false negatives.  (XXX really?)    */
      static FT_Bool
      ft_contour_has( FT_Outline*  outline,
                      FT_Short     c,
                      FT_Vector*   point )
      {
        FT_Vector*  first;
        FT_Vector*  last;
        FT_Vector*  a;
        FT_Vector*  b;
        FT_UInt     n = 0;
    
    
        FT_OUTLINE_GET_CONTOUR( outline, c, first, last );
    
        for ( a = first; a <= last; a++ )
        {
          FT_Pos  x;
          FT_Int  intersect;
    
    
          b = ( a == last ) ? first : a + 1;
    
          intersect = ( a->y - point->y ) ^ ( b->y - point->y );
    
          /* a and b are on the same side */
          if ( intersect >= 0 )
          {
            if ( intersect == 0 && a->y == point->y )
            {
              if ( ( a->x <= point->x && b->x >= point->x ) ||
                   ( a->x >= point->x && b->x <= point->x ) )
                return 1;
            }
    
            continue;
          }
    
          x = a->x + ( b->x - a->x ) * (point->y - a->y ) / ( b->y - a->y );
    
          if ( x < point->x )
            n++;
          else if ( x == point->x )
            return 1;
        }
    
        return ( n % 2 );
      }
    
    
      static FT_Bool
      ft_contour_enclosed( FT_Outline*  outline,
                           FT_UShort    c )
      {
        FT_Vector*  first;
        FT_Vector*  last;
        FT_Short    i;
    
    
        FT_OUTLINE_GET_CONTOUR( outline, c, first, last );
    
        for ( i = 0; i < outline->n_contours; i++ )
        {
          if ( i != c && ft_contour_has( outline, i, first ) )
          {
            FT_Vector*  pt;
    
    
            for ( pt = first + 1; pt <= last; pt++ )
              if ( !ft_contour_has( outline, i, pt ) )
                return 0;
    
            return 1;
          }
        }
    
        return 0;
      }
    
    
      /* This version differs from the public one in that each */
      /* part (contour not enclosed in another contour) of the */
      /* outline is checked for orientation.  This is          */
      /* necessary for some buggy CJK fonts.                   */
      static FT_Orientation
      ft_outline_get_orientation( FT_Outline*  outline )
      {
        FT_Short        i;
        FT_Vector*      first;
        FT_Vector*      last;
        FT_Orientation  orient = FT_ORIENTATION_NONE;
    
    
        first = outline->points;
        for ( i = 0; i < outline->n_contours; i++, first = last + 1 )
        {
          FT_Vector*  point;
          FT_Vector*  xmin_point;
          FT_Pos      xmin;
    
    
          last = outline->points + outline->contours[i];
    
          /* skip degenerate contours */
          if ( last < first + 2 )
            continue;
    
          if ( ft_contour_enclosed( outline, i ) )
            continue;
    
          xmin       = first->x;
          xmin_point = first;
    
          for ( point = first + 1; point <= last; point++ )
          {
            if ( point->x < xmin )
            {
              xmin       = point->x;
              xmin_point = point;
            }
          }
    
          /* check the orientation of the contour */
          {
            FT_Vector*      prev;
            FT_Vector*      next;
            FT_Orientation  o;
    
    
            prev = ( xmin_point == first ) ? last : xmin_point - 1;
            next = ( xmin_point == last ) ? first : xmin_point + 1;
    
            if ( FT_Atan2( prev->x - xmin_point->x, prev->y - xmin_point->y ) >
                 FT_Atan2( next->x - xmin_point->x, next->y - xmin_point->y ) )
              o = FT_ORIENTATION_POSTSCRIPT;
            else
              o = FT_ORIENTATION_TRUETYPE;
    
            if ( orient == FT_ORIENTATION_NONE )
              orient = o;
            else if ( orient != o )
              return FT_ORIENTATION_NONE;
          }
        }
    
        return orient;
      }
    
    #endif /* 0 */
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Error )
      FT_Outline_Embolden( FT_Outline*  outline,
                           FT_Pos       strength )
      {
        FT_Vector*  points;
        FT_Vector   v_prev, v_first, v_next, v_cur;
        FT_Angle    rotate, angle_in, angle_out;
        FT_Int      c, n, first;
        FT_Int      orientation;
    
    
        if ( !outline )
          return FT_Err_Invalid_Argument;
    
        strength /= 2;
        if ( strength == 0 )
          return FT_Err_Ok;
    
        orientation = FT_Outline_Get_Orientation( outline );
        if ( orientation == FT_ORIENTATION_NONE )
        {
          if ( outline->n_contours )
            return FT_Err_Invalid_Argument;
          else
            return FT_Err_Ok;
        }
    
        if ( orientation == FT_ORIENTATION_TRUETYPE )
          rotate = -FT_ANGLE_PI2;
        else
          rotate = FT_ANGLE_PI2;
    
        points = outline->points;
    
        first = 0;
        for ( c = 0; c < outline->n_contours; c++ )
        {
          int  last = outline->contours[c];
    
    
          v_first = points[first];
          v_prev  = points[last];
          v_cur   = v_first;
    
          for ( n = first; n <= last; n++ )
          {
            FT_Vector  in, out;
            FT_Angle   angle_diff;
            FT_Pos     d;
            FT_Fixed   scale;
    
    
            if ( n < last )
              v_next = points[n + 1];
            else
              v_next = v_first;
    
            /* compute the in and out vectors */
            in.x = v_cur.x - v_prev.x;
            in.y = v_cur.y - v_prev.y;
    
            out.x = v_next.x - v_cur.x;
            out.y = v_next.y - v_cur.y;
    
            angle_in   = FT_Atan2( in.x, in.y );
            angle_out  = FT_Atan2( out.x, out.y );
            angle_diff = FT_Angle_Diff( angle_in, angle_out );
            scale      = FT_Cos( angle_diff / 2 );
    
            if ( scale < 0x4000L && scale > -0x4000L )
              in.x = in.y = 0;
            else
            {
              d = FT_DivFix( strength, scale );
    
              FT_Vector_From_Polar( &in, d, angle_in + angle_diff / 2 - rotate );
            }
    
            outline->points[n].x = v_cur.x + strength + in.x;
            outline->points[n].y = v_cur.y + strength + in.y;
    
            v_prev = v_cur;
            v_cur  = v_next;
          }
    
          first = last + 1;
        }
    
        return FT_Err_Ok;
      }
    
    
      /* documentation is in ftoutln.h */
    
      FT_EXPORT_DEF( FT_Orientation )
      FT_Outline_Get_Orientation( FT_Outline*  outline )
      {
        FT_Pos      xmin       = 32768L;
        FT_Pos      xmin_ymin  = 32768L;
        FT_Pos      xmin_ymax  = -32768L;
        FT_Vector*  xmin_first = NULL;
        FT_Vector*  xmin_last  = NULL;
    
        short*      contour;
    
        FT_Vector*  first;
        FT_Vector*  last;
        FT_Vector*  prev;
        FT_Vector*  point;
    
        int             i;
        FT_Pos          ray_y[3];
        FT_Orientation  result[3] =
          { FT_ORIENTATION_NONE, FT_ORIENTATION_NONE, FT_ORIENTATION_NONE };
    
    
        if ( !outline || outline->n_points <= 0 )
          return FT_ORIENTATION_TRUETYPE;
    
        /* We use the nonzero winding rule to find the orientation.       */
        /* Since glyph outlines behave much more `regular' than arbitrary */
        /* cubic or quadratic curves, this test deals with the polygon    */
        /* only which is spanned up by the control points.                */
    
        first = outline->points;
        for ( contour = outline->contours;
              contour < outline->contours + outline->n_contours;
              contour++, first = last + 1 )
        {
          FT_Pos  contour_xmin = 32768L;
          FT_Pos  contour_xmax = -32768L;
          FT_Pos  contour_ymin = 32768L;
          FT_Pos  contour_ymax = -32768L;
    
    
          last = outline->points + *contour;
    
          /* skip degenerate contours */
          if ( last < first + 2 )
            continue;
    
          for ( point = first; point <= last; ++point )
          {
            if ( point->x < contour_xmin )
              contour_xmin = point->x;
    
            if ( point->x > contour_xmax )
              contour_xmax = point->x;
    
            if ( point->y < contour_ymin )
              contour_ymin = point->y;
    
            if ( point->y > contour_ymax )
              contour_ymax = point->y;
          }
    
          if ( contour_xmin < xmin          &&
               contour_xmin != contour_xmax &&
               contour_ymin != contour_ymax )
          {
            xmin       = contour_xmin;
            xmin_ymin  = contour_ymin;
            xmin_ymax  = contour_ymax;
            xmin_first = first;
            xmin_last  = last;
          }
        }
    
        if ( xmin == 32768L )
          return FT_ORIENTATION_TRUETYPE;
    
        ray_y[0] = ( xmin_ymin * 3 + xmin_ymax     ) >> 2;
        ray_y[1] = ( xmin_ymin     + xmin_ymax     ) >> 1;
        ray_y[2] = ( xmin_ymin     + xmin_ymax * 3 ) >> 2;
    
        for ( i = 0; i < 3; i++ )
        {
          FT_Pos      left_x;
          FT_Pos      right_x;
          FT_Vector*  left1;
          FT_Vector*  left2;
          FT_Vector*  right1;
          FT_Vector*  right2;
    
    
        RedoRay:
          left_x  = 32768L;
          right_x = -32768L;
    
          left1 = left2 = right1 = right2 = NULL;
    
          prev = xmin_last;
          for ( point = xmin_first; point <= xmin_last; prev = point, ++point )
          {
            FT_Pos  tmp_x;
    
    
            if ( point->y == ray_y[i] || prev->y == ray_y[i] )
            {
              ray_y[i]++;
              goto RedoRay;
            }
    
            if ( ( point->y < ray_y[i] && prev->y < ray_y[i] ) ||
                 ( point->y > ray_y[i] && prev->y > ray_y[i] ) )
              continue;
    
            tmp_x = FT_MulDiv( point->x - prev->x,
                               ray_y[i] - prev->y,
                               point->y - prev->y ) + prev->x;
    
            if ( tmp_x < left_x )
            {
              left_x = tmp_x;
              left1  = prev;
              left2  = point;
            }
    
            if ( tmp_x > right_x )
            {
              right_x = tmp_x;
              right1  = prev;
              right2  = point;
            }
          }
    
          if ( left1 && right1 )
          {
            if ( left1->y < left2->y && right1->y > right2->y )
              result[i] = FT_ORIENTATION_TRUETYPE;
            else if ( left1->y > left2->y && right1->y < right2->y )
              result[i] = FT_ORIENTATION_POSTSCRIPT;
            else
              result[i] = FT_ORIENTATION_NONE;
          }
        }
    
        if ( result[0] != FT_ORIENTATION_NONE                     &&
             ( result[0] == result[1] || result[0] == result[2] ) )
          return result[0];
    
        if ( result[1] != FT_ORIENTATION_NONE && result[1] == result[2] )
          return result[1];
    
        return FT_ORIENTATION_TRUETYPE;
      }
    
    
    /* END */