anchor.diff:    TAnimCacheItem = record
       PicOffset: Integer;
       A: TKMAnimLoop;
  +  end;
  +
  +  TInterpCacheItem = record
  +    A, B: Integer;
  +    interpOffset: Integer;
     end;
   
     TForm1 = class(TForm)
  
positive.code: end;
  
  
  procedure TForm1.MakeInterpImages(RT: TRXType; A: TKMAnimLoop; aBaseDir: string; aExportType: TInterpExportType);
  var
    origSpritesDir, interpSpritesDir: string;
  
negative.code:       animData := animData + ',';
      animData := animData+#13#10;
    end;
    animData := animData + ');';}
  
  
    Memo1.Text := animData;
  