anchor.diff:  { FT_IS_SCALABLE }
   function FT_IS_SCALABLE(face : FT_Face_ptr ) : boolean;
   begin
  - result:=boolean(face.face_flags and FT_FACE_FLAG_SCALABLE );
  -
  +  Result := (face.face_flags and FT_FACE_FLAG_SCALABLE) = 1;
   end;
   
   { FT_HAS_KERNING }
   function FT_HAS_KERNING(face : FT_Face_ptr ) : boolean;
   begin
  - result:=boolean(face.face_flags and FT_FACE_FLAG_KERNING );
  -
  +  Result := (face.face_flags and FT_FACE_FLAG_KERNING) = 1;
   end;
   
  -END.
  -
  +end.
  +
  
positive.code: uses
   agg_basics ;
  
  { GLOBAL VARIABLES & CONSTANTS }
  type
   FT_Encoding = array[0..3 ] of char;
  
  const
  {$IFDEF AGG_WINDOWS }
   ft_lib = 'freetype.dll';
  
  {$ENDIF }
  
  {$IFDEF AGG_LINUX }
   ft_lib = 'freetype.so';
  
  {$ENDIF }
  
  {$IFDEF AGG_MACOSX }
   ft_lib = 'libfreetype';
  
  {$ENDIF }
  
   FT_CURVE_TAG_ON    = 1;
   FT_CURVE_TAG_CONIC = 0;
   FT_CURVE_TAG_CUBIC = 2;
  
   FT_FACE_FLAG_SCALABLE = 1 shl 0;
   FT_FACE_FLAG_KERNING  = 1 shl 6;
  
   FT_ENCODING_NONE : FT_Encoding = (#0 ,#0 ,#0 ,#0 );
  
   FT_LOAD_DEFAULT        = $0000;
   FT_LOAD_NO_HINTING     = $0002;
   FT_LOAD_FORCE_AUTOHINT = $0020;
  
   FT_RENDER_MODE_NORMAL = 0;
   FT_RENDER_MODE_LIGHT  = FT_RENDER_MODE_NORMAL + 1;
   FT_RENDER_MODE_MONO   = FT_RENDER_MODE_LIGHT + 1;
   FT_RENDER_MODE_LCD    = FT_RENDER_MODE_MONO + 1;
   FT_RENDER_MODE_LCD_V  = FT_RENDER_MODE_LCD + 1;
   FT_RENDER_MODE_MAX    = FT_RENDER_MODE_LCD_V + 1;
  
   FT_KERNING_DEFAULT  = 0;
   FT_KERNING_UNFITTED = 1;
   FT_KERNING_UNSCALED = 2;
  
   FT_STYLE_FLAG_ITALIC = 1 shl 0;
   FT_STYLE_FLAG_BOLD   = 1 shl 1;
  
  { TYPES DEFINITION }
  type
   FT_Byte    = byte;
   FT_Short   = smallint;
   FT_UShort  = word;
   FT_Int     = longint;
   FT_UInt    = longword;
   FT_Int32   = longint;
    {$if defined(cpu64) and not(defined(win64) and defined(cpux86_64))}
    FT_Long = int64;
    FT_ULong = qword;
  
negative.code:   FT_ULong = longword;
    FT_Pos = longint;
    {$ENDIF}
    FT_F2Dot14 = smallint;
    FT_F26Dot6 = longint;
    FT_Fixed = FT_Long;
    FT_Error = longint;
    FT_Pointer = pointer;
  
    FT_Byte_ptr  = ^FT_Byte;
    FT_Short_ptr = ^FT_Short;
  
    FT_Render_Mode = (FT_RENDER_MODE_NORMAL, FT_RENDER_MODE_LIGHT,
        FT_RENDER_MODE_MONO, FT_RENDER_MODE_LCD, FT_RENDER_MODE_LCD_V,
        FT_RENDER_MODE_MAX);
  
   FT_Library_ptr_ptr = ^FT_Library_ptr;
   FT_Library_ptr = ^FT_Library;
  