anchor.diff:  
      for i:=0 to windings-1 do
      begin
  -      p := @Pts[m];
  +      ptOfs := M;
  +
         Inc(m, wcount[i]);
         j := wcount[i]-1;
         k:=0;
  
positive.code: 
  
  // returns number of contours
  function TTFFont.stbtt_FlattenCurves(Vertices: PStBttVertexArray; num_verts:Integer; ObjSpaceFlatness: Single; var contour_lengths: PIntegerArray; var num_contours: Integer): PStBttPointArray;
  var
     points: PStBttPointArray;
     NumPoints: Integer;
     objspace_flatness_squared: Single;
     i, n, start, pass: Integer;
     x, y: Single;
  begin
     points := nil;
     NumPoints := 0;
  
     objspace_flatness_squared := Sqr(ObjSpaceFlatness);
  
negative.code: 
                 x := vertices[i].x;
                 y := vertices[i].y;
                 stbtt__add_point(Result, NumPoints, x,y);
                 Inc(NumPoints);
              end;
  
              STBTT_vline:
              begin
                 x := vertices[i].x;
                 y := vertices[i].y;
                 stbtt__add_point(Result, NumPoints, x, y);
                 Inc(NumPoints);
              end;
  
              STBTT_vcurve:
              begin
                 stbtt__tesselate_curve(Result, NumPoints, x,y,
                                          vertices[i].cx, vertices[i].cy,
                                          vertices[i].x,  vertices[i].y,
                                          objspace_flatness_squared, 0);
  