src/base/ftoutln.c

   1 /****************************************************************************
   2  *
   3  * ftoutln.c
   4  *
   5  *   FreeType outline management (body).
   6  *
   7  * Copyright (C) 1996-2020 by
   8  * David Turner, Robert Wilhelm, and Werner Lemberg.
   9  *
  10  * This file is part of the FreeType project, and may only be used,
  11  * modified, and distributed under the terms of the FreeType project
  12  * license, LICENSE.TXT.  By continuing to use, modify, or distribute
  13  * this file you indicate that you have read the license and
  14  * understand and accept it fully.
  15  *
  16  */
  17
  18
  19 #include <freetype/ftoutln.h>
  20 #include <freetype/internal/ftobjs.h>
  21 #include <freetype/internal/ftcalc.h>
  22 #include <freetype/internal/ftdebug.h>
  23 #include <freetype/fttrigon.h>
  24
  25
  26   /**************************************************************************
  27    *
  28    * The macro FT_COMPONENT is used in trace mode.  It is an implicit
  29    * parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log
  30    * messages during execution.
  31    */
  32 #undef  FT_COMPONENT
  33 #define FT_COMPONENT  outline
  34
  35
  36   static
  37   const FT_Outline  null_outline = { 0, 0, NULL, NULL, NULL, 0 };
  38
  39
  40   /* documentation is in ftoutln.h */
  41
  42   FT_EXPORT_DEF( FT_Error )
  43   FT_Outline_Decompose( FT_Outline*              outline,
  44                         const FT_Outline_Funcs*  func_interface,
  45                         void*                    user )
  46   {
  47 #undef  SCALED
  48 #define SCALED( x )  ( (x) * ( 1L << shift ) - delta )
  49
  50     FT_Vector   v_last;
  51     FT_Vector   v_control;
  52     FT_Vector   v_start;
  53
  54     FT_Vector*  point;
  55     FT_Vector*  limit;
  56     char*       tags;
  57
  58     FT_Error    error;
  59
  60     FT_Int   n;         /* index of contour in outline     */
  61     FT_UInt  first;     /* index of first point in contour */
  62     FT_Int   tag;       /* current point's state           */
  63
  64     FT_Int   shift;
  65     FT_Pos   delta;
  66
  67
  68     if ( !outline )
  69       return FT_THROW( Invalid_Outline );
  70
  71     if ( !func_interface )
  72       return FT_THROW( Invalid_Argument );
  73
  74     shift = func_interface->shift;
  75     delta = func_interface->delta;
  76     first = 0;
  77
  78     for ( n = 0; n < outline->n_contours; n++ )
  79     {
  80       FT_Int  last;  /* index of last point in contour */
  81
  82
  83       FT_TRACE5(( "FT_Outline_Decompose: Outline %d\n", n ));
  84
  85       last = outline->contours[n];
  86       if ( last < 0 )
  87         goto Invalid_Outline;
  88       limit = outline->points + last;
  89
  90       v_start   = outline->points[first];
  91       v_start.x = SCALED( v_start.x );
  92       v_start.y = SCALED( v_start.y );
  93
  94       v_last   = outline->points[last];
  95       v_last.x = SCALED( v_last.x );
  96       v_last.y = SCALED( v_last.y );
  97
  98       v_control = v_start;
  99
 100       point = outline->points + first;
 101       tags  = outline->tags   + first;
 102       tag   = FT_CURVE_TAG( tags[0] );
 103
 104       /* A contour cannot start with a cubic control point! */
 105       if ( tag == FT_CURVE_TAG_CUBIC )
 106         goto Invalid_Outline;
 107
 108       /* check first point to determine origin */
 109       if ( tag == FT_CURVE_TAG_CONIC )
 110       {
 111         /* first point is conic control.  Yes, this happens. */
 112         if ( FT_CURVE_TAG( outline->tags[last] ) == FT_CURVE_TAG_ON )
 113         {
 114           /* start at last point if it is on the curve */
 115           v_start = v_last;
 116           limit--;
 117         }
 118         else
 119         {
 120           /* if both first and last points are conic,         */
 121           /* start at their middle and record its position    */
 122           /* for closure                                      */
 123           v_start.x = ( v_start.x + v_last.x ) / 2;
 124           v_start.y = ( v_start.y + v_last.y ) / 2;
 125
 126        /* v_last = v_start; */
 127         }
 128         point--;
 129         tags--;
 130       }
 131
 132       FT_TRACE5(( "  move to (%.2f, %.2f)\n",
 133                   v_start.x / 64.0, v_start.y / 64.0 ));
 134       error = func_interface->move_to( &v_start, user );
 135       if ( error )
 136         goto Exit;
 137
 138       while ( point < limit )
 139       {
 140         point++;
 141         tags++;
 142
 143         tag = FT_CURVE_TAG( tags[0] );
 144         switch ( tag )
 145         {
 146         case FT_CURVE_TAG_ON:  /* emit a single line_to */
 147           {
 148             FT_Vector  vec;
 149
 150
 151             vec.x = SCALED( point->x );
 152             vec.y = SCALED( point->y );
 153
 154             FT_TRACE5(( "  line to (%.2f, %.2f)\n",
 155                         vec.x / 64.0, vec.y / 64.0 ));
 156             error = func_interface->line_to( &vec, user );
 157             if ( error )
 158               goto Exit;
 159             continue;
 160           }
 161
 162         case FT_CURVE_TAG_CONIC:  /* consume conic arcs */
 163           v_control.x = SCALED( point->x );
 164           v_control.y = SCALED( point->y );
 165
 166         Do_Conic:
 167           if ( point < limit )
 168           {
 169             FT_Vector  vec;
 170             FT_Vector  v_middle;
 171
 172
 173             point++;
 174             tags++;
 175             tag = FT_CURVE_TAG( tags[0] );
 176
 177             vec.x = SCALED( point->x );
 178             vec.y = SCALED( point->y );
 179
 180             if ( tag == FT_CURVE_TAG_ON )
 181             {
 182               FT_TRACE5(( "  conic to (%.2f, %.2f)"
 183                           " with control (%.2f, %.2f)\n",
 184                           vec.x / 64.0, vec.y / 64.0,
 185                           v_control.x / 64.0, v_control.y / 64.0 ));
 186               error = func_interface->conic_to( &v_control, &vec, user );
 187               if ( error )
 188                 goto Exit;
 189               continue;
 190             }
 191
 192             if ( tag != FT_CURVE_TAG_CONIC )
 193               goto Invalid_Outline;
 194
 195             v_middle.x = ( v_control.x + vec.x ) / 2;
 196             v_middle.y = ( v_control.y + vec.y ) / 2;
 197
 198             FT_TRACE5(( "  conic to (%.2f, %.2f)"
 199                         " with control (%.2f, %.2f)\n",
 200                         v_middle.x / 64.0, v_middle.y / 64.0,
 201                         v_control.x / 64.0, v_control.y / 64.0 ));
 202             error = func_interface->conic_to( &v_control, &v_middle, user );
 203             if ( error )
 204               goto Exit;
 205
 206             v_control = vec;
 207             goto Do_Conic;
 208           }
 209
 210           FT_TRACE5(( "  conic to (%.2f, %.2f)"
 211                       " with control (%.2f, %.2f)\n",
 212                       v_start.x / 64.0, v_start.y / 64.0,
 213                       v_control.x / 64.0, v_control.y / 64.0 ));
 214           error = func_interface->conic_to( &v_control, &v_start, user );
 215           goto Close;
 216
 217         default:  /* FT_CURVE_TAG_CUBIC */
 218           {
 219             FT_Vector  vec1, vec2;
 220
 221
 222             if ( point + 1 > limit                             ||
 223                  FT_CURVE_TAG( tags[1] ) != FT_CURVE_TAG_CUBIC )
 224               goto Invalid_Outline;
 225
 226             point += 2;
 227             tags  += 2;
 228
 229             vec1.x = SCALED( point[-2].x );
 230             vec1.y = SCALED( point[-2].y );
 231
 232             vec2.x = SCALED( point[-1].x );
 233             vec2.y = SCALED( point[-1].y );
 234
 235             if ( point <= limit )
 236             {
 237               FT_Vector  vec;
 238
 239
 240               vec.x = SCALED( point->x );
 241               vec.y = SCALED( point->y );
 242
 243               FT_TRACE5(( "  cubic to (%.2f, %.2f)"
 244                           " with controls (%.2f, %.2f) and (%.2f, %.2f)\n",
 245                           vec.x / 64.0, vec.y / 64.0,
 246                           vec1.x / 64.0, vec1.y / 64.0,
 247                           vec2.x / 64.0, vec2.y / 64.0 ));
 248               error = func_interface->cubic_to( &vec1, &vec2, &vec, user );
 249               if ( error )
 250                 goto Exit;
 251               continue;
 252             }
 253
 254             FT_TRACE5(( "  cubic to (%.2f, %.2f)"
 255                         " with controls (%.2f, %.2f) and (%.2f, %.2f)\n",
 256                         v_start.x / 64.0, v_start.y / 64.0,
 257                         vec1.x / 64.0, vec1.y / 64.0,
 258                         vec2.x / 64.0, vec2.y / 64.0 ));
 259             error = func_interface->cubic_to( &vec1, &vec2, &v_start, user );
 260             goto Close;
 261           }
 262         }
 263       }
 264
 265       /* close the contour with a line segment */
 266       FT_TRACE5(( "  line to (%.2f, %.2f)\n",
 267                   v_start.x / 64.0, v_start.y / 64.0 ));
 268       error = func_interface->line_to( &v_start, user );
 269
 270     Close:
 271       if ( error )
 272         goto Exit;
 273
 274       first = (FT_UInt)last + 1;
 275     }
 276
 277     FT_TRACE5(( "FT_Outline_Decompose: Done\n" ));
 278     return FT_Err_Ok;
 279
 280   Invalid_Outline:
 281     error = FT_THROW( Invalid_Outline );
 282     /* fall through */
 283
 284   Exit:
 285     FT_TRACE5(( "FT_Outline_Decompose: Error 0x%x\n", error ));
 286     return error;
 287   }
 288
 289
 290   /* documentation is in ftoutln.h */
 291
 292   FT_EXPORT_DEF( FT_Error )
 293   FT_Outline_New( FT_Library   library,
 294                   FT_UInt      numPoints,
 295                   FT_Int       numContours,
 296                   FT_Outline  *anoutline )
 297   {
 298     FT_Error   error;
 299     FT_Memory  memory;
 300
 301
 302     if ( !library )
 303       return FT_THROW( Invalid_Library_Handle );
 304
 305     memory = library->memory;
 306
 307     if ( !anoutline || !memory )
 308       return FT_THROW( Invalid_Argument );
 309
 310     *anoutline = null_outline;
 311
 312     if ( numContours < 0                  ||
 313          (FT_UInt)numContours > numPoints )
 314       return FT_THROW( Invalid_Argument );
 315
 316     if ( numPoints > FT_OUTLINE_POINTS_MAX )
 317       return FT_THROW( Array_Too_Large );
 318
 319     if ( FT_NEW_ARRAY( anoutline->points,   numPoints   ) ||
 320          FT_NEW_ARRAY( anoutline->tags,     numPoints   ) ||
 321          FT_NEW_ARRAY( anoutline->contours, numContours ) )
 322       goto Fail;
 323
 324     anoutline->n_points    = (FT_Short)numPoints;
 325     anoutline->n_contours  = (FT_Short)numContours;
 326     anoutline->flags      |= FT_OUTLINE_OWNER;
 327
 328     return FT_Err_Ok;
 329
 330   Fail:
 331     anoutline->flags |= FT_OUTLINE_OWNER;
 332     FT_Outline_Done( library, anoutline );
 333
 334     return error;
 335   }
 336
 337
 338   /* documentation is in ftoutln.h */
 339
 340   FT_EXPORT_DEF( FT_Error )
 341   FT_Outline_Check( FT_Outline*  outline )
 342   {
 343     if ( outline )
 344     {
 345       FT_Int  n_points   = outline->n_points;
 346       FT_Int  n_contours = outline->n_contours;
 347       FT_Int  end0, end;
 348       FT_Int  n;
 349
 350
 351       /* empty glyph? */
 352       if ( n_points == 0 && n_contours == 0 )
 353         return FT_Err_Ok;
 354
 355       /* check point and contour counts */
 356       if ( n_points <= 0 || n_contours <= 0 )
 357         goto Bad;
 358
 359       end0 = end = -1;
 360       for ( n = 0; n < n_contours; n++ )
 361       {
 362         end = outline->contours[n];
 363
 364         /* note that we don't accept empty contours */
 365         if ( end <= end0 || end >= n_points )
 366           goto Bad;
 367
 368         end0 = end;
 369       }
 370
 371       if ( end != n_points - 1 )
 372         goto Bad;
 373
 374       /* XXX: check the tags array */
 375       return FT_Err_Ok;
 376     }
 377
 378   Bad:
 379     return FT_THROW( Invalid_Argument );
 380   }
 381
 382
 383   /* documentation is in ftoutln.h */
 384
 385   FT_EXPORT_DEF( FT_Error )
 386   FT_Outline_Copy( const FT_Outline*  source,
 387                    FT_Outline        *target )
 388   {
 389     FT_Int  is_owner;
 390
 391
 392     if ( !source || !target )
 393       return FT_THROW( Invalid_Outline );
 394
 395     if ( source->n_points   != target->n_points   ||
 396          source->n_contours != target->n_contours )
 397       return FT_THROW( Invalid_Argument );
 398
 399     if ( source == target )
 400       return FT_Err_Ok;
 401
 402     if ( source->n_points )
 403     {
 404       FT_ARRAY_COPY( target->points, source->points, source->n_points );
 405       FT_ARRAY_COPY( target->tags,   source->tags,   source->n_points );
 406     }
 407
 408     if ( source->n_contours )
 409       FT_ARRAY_COPY( target->contours, source->contours, source->n_contours );
 410
 411     /* copy all flags, except the `FT_OUTLINE_OWNER' one */
 412     is_owner      = target->flags & FT_OUTLINE_OWNER;
 413     target->flags = source->flags;
 414
 415     target->flags &= ~FT_OUTLINE_OWNER;
 416     target->flags |= is_owner;
 417
 418     return FT_Err_Ok;
 419   }
 420
 421
 422   /* documentation is in ftoutln.h */
 423
 424   FT_EXPORT_DEF( FT_Error )
 425   FT_Outline_Done( FT_Library   library,
 426                    FT_Outline*  outline )
 427   {
 428     FT_Memory  memory;
 429
 430
 431     if ( !library )
 432       return FT_THROW( Invalid_Library_Handle );
 433
 434     if ( !outline )
 435       return FT_THROW( Invalid_Outline );
 436
 437     memory = library->memory;
 438
 439     if ( !memory )
 440       return FT_THROW( Invalid_Argument );
 441
 442     if ( outline->flags & FT_OUTLINE_OWNER )
 443     {
 444       FT_FREE( outline->points   );
 445       FT_FREE( outline->tags     );
 446       FT_FREE( outline->contours );
 447     }
 448     *outline = null_outline;
 449
 450     return FT_Err_Ok;
 451   }
 452
 453
 454   /* documentation is in ftoutln.h */
 455
 456   FT_EXPORT_DEF( void )
 457   FT_Outline_Get_CBox( const FT_Outline*  outline,
 458                        FT_BBox           *acbox )
 459   {
 460     FT_Pos  xMin, yMin, xMax, yMax;
 461
 462
 463     if ( outline && acbox )
 464     {
 465       if ( outline->n_points == 0 )
 466       {
 467         xMin = 0;
 468         yMin = 0;
 469         xMax = 0;
 470         yMax = 0;
 471       }
 472       else
 473       {
 474         FT_Vector*  vec   = outline->points;
 475         FT_Vector*  limit = vec + outline->n_points;
 476
 477
 478         xMin = xMax = vec->x;
 479         yMin = yMax = vec->y;
 480         vec++;
 481
 482         for ( ; vec < limit; vec++ )
 483         {
 484           FT_Pos  x, y;
 485
 486
 487           x = vec->x;
 488           if ( x < xMin ) xMin = x;
 489           if ( x > xMax ) xMax = x;
 490
 491           y = vec->y;
 492           if ( y < yMin ) yMin = y;
 493           if ( y > yMax ) yMax = y;
 494         }
 495       }
 496       acbox->xMin = xMin;
 497       acbox->xMax = xMax;
 498       acbox->yMin = yMin;
 499       acbox->yMax = yMax;
 500     }
 501   }
 502
 503
 504   /* documentation is in ftoutln.h */
 505
 506   FT_EXPORT_DEF( void )
 507   FT_Outline_Translate( const FT_Outline*  outline,
 508                         FT_Pos             xOffset,
 509                         FT_Pos             yOffset )
 510   {
 511     FT_UShort   n;
 512     FT_Vector*  vec;
 513
 514
 515     if ( !outline )
 516       return;
 517
 518     vec = outline->points;
 519
 520     for ( n = 0; n < outline->n_points; n++ )
 521     {
 522       vec->x = ADD_LONG( vec->x, xOffset );
 523       vec->y = ADD_LONG( vec->y, yOffset );
 524       vec++;
 525     }
 526   }
 527
 528
 529   /* documentation is in ftoutln.h */
 530
 531   FT_EXPORT_DEF( void )
 532   FT_Outline_Reverse( FT_Outline*  outline )
 533   {
 534     FT_UShort  n;
 535     FT_Int     first, last;
 536
 537
 538     if ( !outline )
 539       return;
 540
 541     first = 0;
 542
 543     for ( n = 0; n < outline->n_contours; n++ )
 544     {
 545       last  = outline->contours[n];
 546
 547       /* reverse point table */
 548       {
 549         FT_Vector*  p = outline->points + first;
 550         FT_Vector*  q = outline->points + last;
 551         FT_Vector   swap;
 552
 553
 554         while ( p < q )
 555         {
 556           swap = *p;
 557           *p   = *q;
 558           *q   = swap;
 559           p++;
 560           q--;
 561         }
 562       }
 563
 564       /* reverse tags table */
 565       {
 566         char*  p = outline->tags + first;
 567         char*  q = outline->tags + last;
 568
 569
 570         while ( p < q )
 571         {
 572           char  swap;
 573
 574
 575           swap = *p;
 576           *p   = *q;
 577           *q   = swap;
 578           p++;
 579           q--;
 580         }
 581       }
 582
 583       first = last + 1;
 584     }
 585
 586     outline->flags ^= FT_OUTLINE_REVERSE_FILL;
 587   }
 588
 589
 590   /* documentation is in ftoutln.h */
 591
 592   FT_EXPORT_DEF( FT_Error )
 593   FT_Outline_Render( FT_Library         library,
 594                      FT_Outline*        outline,
 595                      FT_Raster_Params*  params )
 596   {
 597     FT_Error     error;
 598     FT_Renderer  renderer;
 599     FT_ListNode  node;
 600     FT_BBox      cbox;
 601
 602
 603     if ( !library )
 604       return FT_THROW( Invalid_Library_Handle );
 605
 606     if ( !outline )
 607       return FT_THROW( Invalid_Outline );
 608
 609     if ( !params )
 610       return FT_THROW( Invalid_Argument );
 611
 612     FT_Outline_Get_CBox( outline, &cbox );
 613     if ( cbox.xMin < -0x1000000L || cbox.yMin < -0x1000000L ||
 614          cbox.xMax >  0x1000000L || cbox.yMax >  0x1000000L )
 615       return FT_THROW( Invalid_Outline );
 616
 617     renderer = library->cur_renderer;
 618     node     = library->renderers.head;
 619
 620     params->source = (void*)outline;
 621
 622     /* preset clip_box for direct mode */
 623     if ( params->flags & FT_RASTER_FLAG_DIRECT    &&
 624          !( params->flags & FT_RASTER_FLAG_CLIP ) )
 625     {
 626       params->clip_box.xMin = cbox.xMin >> 6;
 627       params->clip_box.yMin = cbox.yMin >> 6;
 628       params->clip_box.xMax = ( cbox.xMax + 63 ) >> 6;
 629       params->clip_box.yMax = ( cbox.yMax + 63 ) >> 6;
 630     }
 631
 632     error = FT_ERR( Cannot_Render_Glyph );
 633     while ( renderer )
 634     {
 635       error = renderer->raster_render( renderer->raster, params );
 636       if ( !error || FT_ERR_NEQ( error, Cannot_Render_Glyph ) )
 637         break;
 638
 639       /* FT_Err_Cannot_Render_Glyph is returned if the render mode   */
 640       /* is unsupported by the current renderer for this glyph image */
 641       /* format                                                      */
 642
 643       /* now, look for another renderer that supports the same */
 644       /* format                                                */
 645       renderer = FT_Lookup_Renderer( library, FT_GLYPH_FORMAT_OUTLINE,
 646                                      &node );
 647     }
 648
 649     return error;
 650   }
 651
 652
 653   /* documentation is in ftoutln.h */
 654
 655   FT_EXPORT_DEF( FT_Error )
 656   FT_Outline_Get_Bitmap( FT_Library        library,
 657                          FT_Outline*       outline,
 658                          const FT_Bitmap  *abitmap )
 659   {
 660     FT_Raster_Params  params;
 661
 662
 663     if ( !abitmap )
 664       return FT_THROW( Invalid_Argument );
 665
 666     /* other checks are delayed to `FT_Outline_Render' */
 667
 668     params.target = abitmap;
 669     params.flags  = 0;
 670
 671     if ( abitmap->pixel_mode == FT_PIXEL_MODE_GRAY  ||
 672          abitmap->pixel_mode == FT_PIXEL_MODE_LCD   ||
 673          abitmap->pixel_mode == FT_PIXEL_MODE_LCD_V )
 674       params.flags |= FT_RASTER_FLAG_AA;
 675
 676     return FT_Outline_Render( library, outline, &params );
 677   }
 678
 679
 680   /* documentation is in freetype.h */
 681
 682   FT_EXPORT_DEF( void )
 683   FT_Vector_Transform( FT_Vector*        vector,
 684                        const FT_Matrix*  matrix )
 685   {
 686     FT_Pos  xz, yz;
 687
 688
 689     if ( !vector || !matrix )
 690       return;
 691
 692     xz = FT_MulFix( vector->x, matrix->xx ) +
 693          FT_MulFix( vector->y, matrix->xy );
 694
 695     yz = FT_MulFix( vector->x, matrix->yx ) +
 696          FT_MulFix( vector->y, matrix->yy );
 697
 698     vector->x = xz;
 699     vector->y = yz;
 700   }
 701
 702
 703   /* documentation is in ftoutln.h */
 704
 705   FT_EXPORT_DEF( void )
 706   FT_Outline_Transform( const FT_Outline*  outline,
 707                         const FT_Matrix*   matrix )
 708   {
 709     FT_Vector*  vec;
 710     FT_Vector*  limit;
 711
 712
 713     if ( !outline || !matrix || !outline->points )
 714       return;
 715
 716     vec   = outline->points;
 717     limit = vec + outline->n_points;
 718
 719     for ( ; vec < limit; vec++ )
 720       FT_Vector_Transform( vec, matrix );
 721   }
 722
 723
 724 #if 0
 725
 726 #define FT_OUTLINE_GET_CONTOUR( outline, c, first, last )  \
 727   do                                                       \
 728   {                                                        \
 729     (first) = ( c > 0 ) ? (outline)->points +              \
 730                             (outline)->contours[c - 1] + 1 \
 731                         : (outline)->points;               \
 732     (last) = (outline)->points + (outline)->contours[c];   \
 733   } while ( 0 )
 734
 735
 736   /* Is a point in some contour?                     */
 737   /*                                                 */
 738   /* We treat every point of the contour as if it    */
 739   /* it were ON.  That is, we allow false positives, */
 740   /* but disallow false negatives.  (XXX really?)    */
 741   static FT_Bool
 742   ft_contour_has( FT_Outline*  outline,
 743                   FT_Short     c,
 744                   FT_Vector*   point )
 745   {
 746     FT_Vector*  first;
 747     FT_Vector*  last;
 748     FT_Vector*  a;
 749     FT_Vector*  b;
 750     FT_UInt     n = 0;
 751
 752
 753     FT_OUTLINE_GET_CONTOUR( outline, c, first, last );
 754
 755     for ( a = first; a <= last; a++ )
 756     {
 757       FT_Pos  x;
 758       FT_Int  intersect;
 759
 760
 761       b = ( a == last ) ? first : a + 1;
 762
 763       intersect = ( a->y - point->y ) ^ ( b->y - point->y );
 764
 765       /* a and b are on the same side */
 766       if ( intersect >= 0 )
 767       {
 768         if ( intersect == 0 && a->y == point->y )
 769         {
 770           if ( ( a->x <= point->x && b->x >= point->x ) ||
 771                ( a->x >= point->x && b->x <= point->x ) )
 772             return 1;
 773         }
 774
 775         continue;
 776       }
 777
 778       x = a->x + ( b->x - a->x ) * (point->y - a->y ) / ( b->y - a->y );
 779
 780       if ( x < point->x )
 781         n++;
 782       else if ( x == point->x )
 783         return 1;
 784     }
 785
 786     return n & 1;
 787   }
 788
 789
 790   static FT_Bool
 791   ft_contour_enclosed( FT_Outline*  outline,
 792                        FT_UShort    c )
 793   {
 794     FT_Vector*  first;
 795     FT_Vector*  last;
 796     FT_Short    i;
 797
 798
 799     FT_OUTLINE_GET_CONTOUR( outline, c, first, last );
 800
 801     for ( i = 0; i < outline->n_contours; i++ )
 802     {
 803       if ( i != c && ft_contour_has( outline, i, first ) )
 804       {
 805         FT_Vector*  pt;
 806
 807
 808         for ( pt = first + 1; pt <= last; pt++ )
 809           if ( !ft_contour_has( outline, i, pt ) )
 810             return 0;
 811
 812         return 1;
 813       }
 814     }
 815
 816     return 0;
 817   }
 818
 819
 820   /* This version differs from the public one in that each */
 821   /* part (contour not enclosed in another contour) of the */
 822   /* outline is checked for orientation.  This is          */
 823   /* necessary for some buggy CJK fonts.                   */
 824   static FT_Orientation
 825   ft_outline_get_orientation( FT_Outline*  outline )
 826   {
 827     FT_Short        i;
 828     FT_Vector*      first;
 829     FT_Vector*      last;
 830     FT_Orientation  orient = FT_ORIENTATION_NONE;
 831
 832
 833     first = outline->points;
 834     for ( i = 0; i < outline->n_contours; i++, first = last + 1 )
 835     {
 836       FT_Vector*  point;
 837       FT_Vector*  xmin_point;
 838       FT_Pos      xmin;
 839
 840
 841       last = outline->points + outline->contours[i];
 842
 843       /* skip degenerate contours */
 844       if ( last < first + 2 )
 845         continue;
 846
 847       if ( ft_contour_enclosed( outline, i ) )
 848         continue;
 849
 850       xmin       = first->x;
 851       xmin_point = first;
 852
 853       for ( point = first + 1; point <= last; point++ )
 854       {
 855         if ( point->x < xmin )
 856         {
 857           xmin       = point->x;
 858           xmin_point = point;
 859         }
 860       }
 861
 862       /* check the orientation of the contour */
 863       {
 864         FT_Vector*      prev;
 865         FT_Vector*      next;
 866         FT_Orientation  o;
 867
 868
 869         prev = ( xmin_point == first ) ? last : xmin_point - 1;
 870         next = ( xmin_point == last ) ? first : xmin_point + 1;
 871
 872         if ( FT_Atan2( prev->x - xmin_point->x, prev->y - xmin_point->y ) >
 873              FT_Atan2( next->x - xmin_point->x, next->y - xmin_point->y ) )
 874           o = FT_ORIENTATION_POSTSCRIPT;
 875         else
 876           o = FT_ORIENTATION_TRUETYPE;
 877
 878         if ( orient == FT_ORIENTATION_NONE )
 879           orient = o;
 880         else if ( orient != o )
 881           return FT_ORIENTATION_NONE;
 882       }
 883     }
 884
 885     return orient;
 886   }
 887
 888 #endif /* 0 */
 889
 890
 891   /* documentation is in ftoutln.h */
 892
 893   FT_EXPORT_DEF( FT_Error )
 894   FT_Outline_Embolden( FT_Outline*  outline,
 895                        FT_Pos       strength )
 896   {
 897     return FT_Outline_EmboldenXY( outline, strength, strength );
 898   }
 899
 900
 901   /* documentation is in ftoutln.h */
 902
 903   FT_EXPORT_DEF( FT_Error )
 904   FT_Outline_EmboldenXY( FT_Outline*  outline,
 905                          FT_Pos       xstrength,
 906                          FT_Pos       ystrength )
 907   {
 908     FT_Vector*      points;
 909     FT_Int          c, first, last;
 910     FT_Orientation  orientation;
 911
 912
 913     if ( !outline )
 914       return FT_THROW( Invalid_Outline );
 915
 916     xstrength /= 2;
 917     ystrength /= 2;
 918     if ( xstrength == 0 && ystrength == 0 )
 919       return FT_Err_Ok;
 920
 921     orientation = FT_Outline_Get_Orientation( outline );
 922     if ( orientation == FT_ORIENTATION_NONE )
 923     {
 924       if ( outline->n_contours )
 925         return FT_THROW( Invalid_Argument );
 926       else
 927         return FT_Err_Ok;
 928     }
 929
 930     points = outline->points;
 931
 932     first = 0;
 933     for ( c = 0; c < outline->n_contours; c++ )
 934     {
 935       FT_Vector  in, out, anchor, shift;
 936       FT_Fixed   l_in, l_out, l_anchor = 0, l, q, d;
 937       FT_Int     i, j, k;
 938
 939
 940       l_in = 0;
 941       last = outline->contours[c];
 942
 943       /* pacify compiler */
 944       in.x = in.y = anchor.x = anchor.y = 0;
 945
 946       /* Counter j cycles though the points; counter i advances only  */
 947       /* when points are moved; anchor k marks the first moved point. */
 948       for ( i = last, j = first, k = -1;
 949             j != i && i != k;
 950             j = j < last ? j + 1 : first )
 951       {
 952         if ( j != k )
 953         {
 954           out.x = points[j].x - points[i].x;
 955           out.y = points[j].y - points[i].y;
 956           l_out = (FT_Fixed)FT_Vector_NormLen( &out );
 957
 958           if ( l_out == 0 )
 959             continue;
 960         }
 961         else
 962         {
 963           out   = anchor;
 964           l_out = l_anchor;
 965         }
 966
 967         if ( l_in != 0 )
 968         {
 969           if ( k < 0 )
 970           {
 971             k        = i;
 972             anchor   = in;
 973             l_anchor = l_in;
 974           }
 975
 976           d = FT_MulFix( in.x, out.x ) + FT_MulFix( in.y, out.y );
 977
 978           /* shift only if turn is less than ~160 degrees */
 979           if ( d > -0xF000L )
 980           {
 981             d = d + 0x10000L;
 982
 983             /* shift components along lateral bisector in proper orientation */
 984             shift.x = in.y + out.y;
 985             shift.y = in.x + out.x;
 986
 987             if ( orientation == FT_ORIENTATION_TRUETYPE )
 988               shift.x = -shift.x;
 989             else
 990               shift.y = -shift.y;
 991
 992             /* restrict shift magnitude to better handle collapsing segments */
 993             q = FT_MulFix( out.x, in.y ) - FT_MulFix( out.y, in.x );
 994             if ( orientation == FT_ORIENTATION_TRUETYPE )
 995               q = -q;
 996
 997             l = FT_MIN( l_in, l_out );
 998
 999             /* non-strict inequalities avoid divide-by-zero when q == l == 0 */
1000             if ( FT_MulFix( xstrength, q ) <= FT_MulFix( l, d ) )
1001               shift.x = FT_MulDiv( shift.x, xstrength, d );
1002             else
1003               shift.x = FT_MulDiv( shift.x, l, q );
1004
1005
1006             if ( FT_MulFix( ystrength, q ) <= FT_MulFix( l, d ) )
1007               shift.y = FT_MulDiv( shift.y, ystrength, d );
1008             else
1009               shift.y = FT_MulDiv( shift.y, l, q );
1010           }
1011           else
1012             shift.x = shift.y = 0;
1013
1014           for ( ;
1015                 i != j;
1016                 i = i < last ? i + 1 : first )
1017           {
1018             points[i].x += xstrength + shift.x;
1019             points[i].y += ystrength + shift.y;
1020           }
1021         }
1022         else
1023           i = j;
1024
1025         in   = out;
1026         l_in = l_out;
1027       }
1028
1029       first = last + 1;
1030     }
1031
1032     return FT_Err_Ok;
1033   }
1034
1035
1036   /* documentation is in ftoutln.h */
1037
1038   FT_EXPORT_DEF( FT_Orientation )
1039   FT_Outline_Get_Orientation( FT_Outline*  outline )
1040   {
1041     FT_BBox     cbox = { 0, 0, 0, 0 };
1042     FT_Int      xshift, yshift;
1043     FT_Vector*  points;
1044     FT_Vector   v_prev, v_cur;
1045     FT_Int      c, n, first;
1046     FT_Pos      area = 0;
1047
1048
1049     if ( !outline || outline->n_points <= 0 )
1050       return FT_ORIENTATION_TRUETYPE;
1051
1052     /* We use the nonzero winding rule to find the orientation.       */
1053     /* Since glyph outlines behave much more `regular' than arbitrary */
1054     /* cubic or quadratic curves, this test deals with the polygon    */
1055     /* only that is spanned up by the control points.                 */
1056
1057     FT_Outline_Get_CBox( outline, &cbox );
1058
1059     /* Handle collapsed outlines to avoid undefined FT_MSB. */
1060     if ( cbox.xMin == cbox.xMax || cbox.yMin == cbox.yMax )
1061       return FT_ORIENTATION_NONE;
1062
1063     /* Reject values large outlines. */
1064     if ( cbox.xMin < -0x1000000L || cbox.yMin < -0x1000000L ||
1065          cbox.xMax >  0x1000000L || cbox.yMax >  0x1000000L )
1066       return FT_ORIENTATION_NONE;
1067
1068     xshift = FT_MSB( (FT_UInt32)( FT_ABS( cbox.xMax ) |
1069                                   FT_ABS( cbox.xMin ) ) ) - 14;
1070     xshift = FT_MAX( xshift, 0 );
1071
1072     yshift = FT_MSB( (FT_UInt32)( cbox.yMax - cbox.yMin ) ) - 14;
1073     yshift = FT_MAX( yshift, 0 );
1074
1075     points = outline->points;
1076
1077     first = 0;
1078     for ( c = 0; c < outline->n_contours; c++ )
1079     {
1080       FT_Int  last = outline->contours[c];
1081
1082
1083       v_prev.x = points[last].x >> xshift;
1084       v_prev.y = points[last].y >> yshift;
1085
1086       for ( n = first; n <= last; n++ )
1087       {
1088         v_cur.x = points[n].x >> xshift;
1089         v_cur.y = points[n].y >> yshift;
1090
1091         area = ADD_LONG( area,
1092                          MUL_LONG( v_cur.y - v_prev.y,
1093                                    v_cur.x + v_prev.x ) );
1094
1095         v_prev = v_cur;
1096       }
1097
1098       first = last + 1;
1099     }
1100
1101     if ( area > 0 )
1102       return FT_ORIENTATION_POSTSCRIPT;
1103     else if ( area < 0 )
1104       return FT_ORIENTATION_TRUETYPE;
1105     else
1106       return FT_ORIENTATION_NONE;
1107   }
1108
1109
1110 /* END */