anchor.diff:      letter := I * 256 + K;
   
       Used[letter] := Byte((chMaxX > 0) and (chMaxY > 0));
  -    Letters[letter].Width := chMaxX;
  -    Letters[letter].Height := chMaxY;
  +    Letters[letter].Width := chMaxX + 1;
  +    Letters[letter].Height := chMaxY + 1;
     end;
   
     fAtlasCount := 1;
  
positive.code: 
      OutputStream := TFileStream.Create(aFileName, fmCreate);
      CompressionStream := TCompressionStream.Create(clMax, OutputStream);
      InputStream.Position := 0;
      CompressionStream.CopyFrom(InputStream, InputStream.Size);
    finally
      CompressionStream.Free;
      OutputStream.Free;
      InputStream.Free;
    end;
  end;
  
negative.code:     chWidth := Letters[I].Width;
      chHeight := Letters[I].Height;
  
      //Cut the window for the character
      for M := 0 to chHeight + aPadding.Top + aPadding.Bottom - 1 do
      for L := 0 to chWidth + aPadding.Left + aPadding.Right - 1 do
      begin
        dstPixel := ((I div 256) * cellY + M) * pngWidth + (I mod 256) * cellX + L;
        data[dstPixel] := $00000000;
      end;
  
      //Copy the character over
      for M := 0 to chHeight - 1 do
      for L := 0 to chWidth - 1 do
  