anchor.diff:          Result := True;
   
         pngData[dstY*dstWidth + dstX] := M or (M shl 8) or (M shl 16) or $FF000000;
  +
  +      Continue;
  +    end;
  +
  +    if aExportType = ietBaseAlpha then
  +    begin
  +      if not isShadow then
  +      begin
  +        pngData[dstY*dstWidth + dstX] := A or (A shl 8) or (A shl 16) or $FF000000;
  +        Result := True;
  +      end;
   
         Continue;
       end;
  
positive.code:     else
        pngData[dstY*dstWidth + dstX] := fRXData.RGBA[aIndex, I*srcWidth + K] and $FFFFFF;
  
      pngData[dstY*dstWidth + dstX] := pngData[dstY*dstWidth + dstX] or (fRXData.RGBA[aIndex, I*srcWidth + K] and $FF000000);
  
      if isShadow and (aExportType = ietBase) then
        pngData[dstY*dstWidth + dstX] := 0;
  
      if EXPORT_SPRITES_NO_ALPHA then
        pngData[dstY*dstWidth + dstX] := pngData[dstY*dstWidth + dstX] or $FF000000;
    end;
  
    //Mark pivot location with a dot
  
negative.code:   {$IFDEF WDC}, ZLib {$ENDIF};
  
  type
    TInterpExportType = (ietNormal, ietBase, ietBaseAlpha, ietBaseBlack, ietBaseWhite, ietShadows, ietTeamMask);
  
    //Class with additional editing properties
    TKMSpritePackEdit = class(TKMSpritePack)
  