anchor.diff:        if w = 0 then
         begin
            // if we're currently at zero, we need to record the edge start point
  -         x0 := e^.x;
  -         Inc(w, e^.valid);
  +         x0 := e.x;
  +         Inc(w, e.valid);
         end else begin
  -         x1 := e^.x;
  -         Inc(w, e^.valid);
  +         x1 := e.x;
  +         Inc(w, e.valid);
            // if we went to zero, we need to draw
            if w = 0 then
            begin
  
positive.code:    Begin
        z := active;
        Active := Active.Next;
        Dispose(z);
     End;
  
     if scanline<>@scanline_data then
        FreeMem(scanline);
  End;
  
  Function TTFFont.GetKerning(Current, Next: Cardinal): Integer;
  
negative.code:    active := nil;
     j := 0;
     max_weight := 255 div vsubsample;  // weight per vertical scanline
  
     y := off_y * vsubsample;
  
  