Русские субтитры: Зазор между субтитрами - Русские субтитры

Перейти к содержимому

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Зазор между субтитрами

#1 Пользователь офлайн   BedaZzle Иконка

  • Иконка
  • Отправить ЛС
  • Группа: Admin
  • Сообщений: 2 987
  • Регистрация: 22 Октябрь 02
  • Страна:
  • Прислал(a) субтитров: 98
  • Своих переводов: 16

Отправлено 17 Апрель 2007 - 02:06

При исправлении пересечений субтитров 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.

0

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему