anchor.diff:      procedure Execute; override;
     end;
   
  -
     TKMTexCoords = record
  -                  ID: Cardinal;
  -                  u1,v1,u2,v2: Single; //Top-Left, Bottom-Right uv coords
  -                end;
  +    ID: Cardinal;
  +    u1,v1,u2,v2: Single; //Top-Left, Bottom-Right uv coords
  +  end;
   
   var
     gGFXData: array [TRXType] of array of record
  
positive.code: end;
  
  
  procedure TKMSpritePack.SoftenShadows(aIdList: TStringList);
  var
    I, ID: Integer;
    shadowConverter: TKMSoftShadowConverter;
    softenShadowType: TKMSoftenShadowType;
  begin
  
negative.code:   try
      for I := 0 to aIdList.Count - 1 do
      begin
        id := aIdList[I];
        if fRXData.Flag[id] <> 0 then
        begin
          softenShadowType := GetSoftenShadowType(id);
          case softenShadowType of
            sstNone: ;
            sstOnlyShadow:  shadowConverter.ConvertShadows(id, True);
            sstBoth:        begin
                              shadowConverter.ConvertShadows(id, False);
                              shadowConverter.ConvertShadows(id, True);
                            end;
          end;
        end;
  