[BedaZzle]

При исправлении пересечений субтитров SW выставляет зазор между субтитрами длиной в один кадр. Это не всегда подходит, приведённый скрипт устанавливает три кадра (примерно 125 мс).

// Nice transition times. By Tengo.
//
// Increases the gap between titles to 125ms.

program NiceTransitions;

var
  FPS		 : Integer;
  DesiredGap  : Integer;
  i		   : Integer;
  Count	   : Integer;
  InitialTime : Integer;
  FinalTime   : Integer;
  Gap		 : Integer;

begin
  FPS		:= 24;					  // Framerate
  DesiredGap := Round(3 * 1/FPS * 1000); // Desired transition time set to 3 frames.

  Count := GetSubtitleCount;
  if Count < 2 then exit;

  for i := 0 to Count-2 do
  begin
	FinalTime   := GetSubtitleFinalTime(i);
	InitialTime := GetSubtitleInitialTime(i+1);

	Gap := InitialTime - FinalTime;

	if Gap < DesiredGap then
	begin
	  FinalTime := InitialTime - DesiredGap;
	  SetSubtitleFinalTime(i, FinalTime);
	end;
  end;
end.