anchor.diff:    ;
   
   type
  -  TKMFadeState = (fsNone, fsFadeOut, fsFadeIn, fsFaded);
  +  TKMFadeState = (fsNone,
  +                  fsFadeOut, // Unfade
  +                  fsFadeIn,  // Fade
  +                  fsFaded);
   
     TKMMusicLib = class
     private
  
positive.code:     fTrackOrder: TIntegerDynArray; //Each index points to an index of MusicTracks
      //MIDICount,MIDIIndex:integer;
      //MIDITracks:array[1..256]of string;
      IsMusicInitialized: Boolean;
      MusicGain: Single;
      {$IFDEF USEBASS} fBassStream, fBassOtherStream: Cardinal; {$ENDIF}
      {$IFDEF USELIBZPLAY} ZPlayer, ZPlayerOther: ZPlay; {$ENDIF} //I dislike that it's not TZPlay... Guess they don't know Delphi conventions.
      fFadeState: TKMFadeState;
  
negative.code: 
  procedure TKMMusicLib.ShuffleSongs;
  var
    I, R, newIndex: Integer;
  begin
    if fMusicIndex = -1 then Exit; // Music is disabled
  
    newIndex := fMusicIndex;
  
    //Shuffle everything except for first (menu) track
    for I := fMusicCount - 1 downto 1 do
  