anchor.diff:        Procedure stbtt_Rasterize(resultBitmap:Image; FlatnessInPixels: Single; Vertices: PStBttVertexArray; NumVerts: Integer; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
         Procedure stbtt_GetFontVMetrics(var ascent, descent, lineGap: Integer);
         Procedure stbtt_setvertex(var v:TStBttVertex; typeByte: Byte; x, y, cx, cy: Smallint);
  -      Procedure stbtt__rasterize(resultBitmap:Image; Pts: PStBttPointArray; WCount: PIntegerArray; Windings: Integer; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
  -      Function stbtt_FlattenCurves(Vertices: PStBttVertexArray; num_verts:Integer; ObjSpaceFlatness: Single; var contour_lengths: PIntegerArray; var num_contours: Integer): PStBttPointArray;
  -      Procedure stbtt__add_point(points: PStBttPointArray; n: Integer; x, y: Single);
  -      Function stbtt__tesselate_curve(points:PStBttPointArray; var num_points: Integer; x0, y0, x1, y1, x2, y2, objspace_flatness_squared: Single; n: Integer): Integer;
  +      Procedure stbtt__rasterize(resultBitmap:Image; Var Pts:TStBttPointArray; WCount: PIntegerArray; Windings: Integer; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
  +      Procedure stbtt_FlattenCurves(Vertices: PStBttVertexArray; num_verts:Integer; ObjSpaceFlatness: Single; var contour_lengths: PIntegerArray; var num_contours: Integer; Out Result: TStBttPointArray);
  +      Procedure stbtt__add_point(Var points:TStBttPointArray; n: Integer; x, y: Single);
  +      Function stbtt__tesselate_curve(Var points:TStBttPointArray; var num_points: Integer; x0, y0, x1, y1, x2, y2, objspace_flatness_squared: Single; n: Integer): Integer;
         Procedure stbtt__rasterize_sorted_edges(resultBitmap:Image; e:EdgeList; vsubsample, off_x, off_y: Integer);
         Procedure stbtt__fill_active_edges(scanline: PByteArray; len: Integer; e:TStBttActiveEdge; max_weight: Integer);
         Function new_active(Const e: TStBttEdge; off_x: Integer; start_point: Single):TStBttActiveEdge;
  
positive.code:    begin
        x := 0;
        y := 0;
        if pass = 1 then
        begin
           GetMem(points, NumPoints * 2 * sizeof(TStBttPoint));
        end;
        NumPoints := 0;
        n := -1;
  
  
negative.code:       if vertices[i].vertexType = STBTT_vmove then Inc(n);
  
     num_contours := n;
     If n = 0 Then
       Exit;
  
     GetMem(contour_lengths, n*sizeof(Integer));
  
  