Додавання кліпу з титрами

Клацніть правою кнопкою миші на порожньому місці на панелі контейнера проєкту або натисніть піктограму Додати кліп на панелі інструментів контейнера проєкту і виберіть пункт Додати кліп з титрами.

Додавання кліпу з титрами

У результаті буде відкрито вбудований редактор титрів.

Докладніший опис можна знайти у розділі Кліпи з титрами.

Ось скрипт, автором якого є Grog (див. його допис post, щоб дізнатися більше та про використання його у Windows), який перетворює субтитри на титри, які надалі можна редагувати у редакторі титрів:

#!/bin/bash

read -p "frame rate:"$'\n' frate
[ "$frate" = "" ] && frate=60
echo "..."

[ -d ./Kden_Titles/ ] && rm -r ./Kden_Titles
mkdir -p Kden_Titles

readarray -t frm < <( (sed -n '2~4p' ./*.srt) )
readarray -t sub < <( (sed -n '3~4p' ./*.srt) )

n=1
w=$(bc<<<"length(${#sub[@]}*2)")

for i in "${!frm[@]}"; do

        b=$(date -d "${frm[i]:0:12}" "+%S.%3N")
        e=$(date -d "${frm[i]:17:12}" "+%S.%3N")
        ee=$(date -d "${frm[i-1]:17:12}" "+%S.%3N")

        if [ "$i" -eq 0 ]; then ee=0; fi
        if [ "$(bc<<<"$b<$ee && $i!=0")" -eq 1 ]; then b="$(bc<<<"$b+60")"; fi
        if [ "$(bc<<<"$e<$b")" -eq 1 ]; then e="$(bc<<<"$e+60")"; fi

        blank="$(bc <<< "($b*$frate+0.5)/1-($ee*$frate+0.5)/1")"
        duration="$(bc <<< "($e*$frate+0.5)/1-($b*$frate+0.5)/1")"

        if [ "$blank" -gt 0 ]; then
        sed -e "s/30/$blank/" -e "s/%s//" ./*.kdenlivetitle* > ./Kden_Titles/"$(printf "%0*d" "$w" "$n")"_.kdenlivetitle
        ((n++))
        fi

        sed -e "s/30/$duration/" -e "s/%s/${sub[i]}/" ./*.kdenlivetitle* > ./Kden_Titles/"$(printf "%0*d" "$w" "$n")".kdenlivetitle
        ((n++))

done

sleep 1
echo "Titles in $PWD/Kden_Titles"$'\n'
touch ./Kden_Titles/*_*

$SHELL

У підсвічених рядках виокремлено змінну %s (ту саму змінну використовують як стандартний замінник для шаблонних титрів). Ви можете замінити її на будь-що бажане, наприклад, слово placeholder.

Ось той самий скрипт, але для Powershell у Windows (збережіть його як файл .ps1):

# Prompt for frame rate
$frate = Read-Host "frame rate"
if (-not $frate) { $frate = 60 }
Write-Host "..."

# Remove existing Kden_Titles directory if it exists
if (Test-Path -Path "./Kden_Titles/") { Remove-Item -Path "./Kden_Titles/" -Recurse -Force }
New-Item -ItemType Directory -Path "Kden_Titles"

# Read frames and subtitles from SRT files
$frm = Get-Content -Path '*.srt' | Select-Object -Skip 1 | ForEach-Object -Begin {$i=0} -Process {if ($i++ % 4 -eq 0) {$_}}
$sub = Get-Content -Path '*.srt' | Select-Object -Skip 2 | ForEach-Object -Begin {$i=0} -Process {if ($i++ % 4 -eq 0) {$_}}
# output File name width / counter
$w = [math]::Ceiling($sub.Count * 2)
$w = "$w".length
$n = 1
# Template file placeholders
[regex] $p_1='30'
[regex] $p_2='%s'

for ($i = 0; $i -lt $frm.Count; $i++) {
    # Timing
   $b = [datetime]::ParseExact($frm[$i].Substring(0, 12), "hh:mm:ss,fff", $null).ToString("ss.fff")
   $e = [datetime]::ParseExact($frm[$i].Substring(17, 12), "hh:mm:ss,fff", $null).ToString("ss.fff")
   $ee = if ($i -gt 0) { [datetime]::ParseExact($frm[$i - 1].Substring(17, 12), "hh:mm:ss,fff", $null).ToString("ss.fff") } else { 0 }
   # Add 60s if necessary
   if ($i -eq 0) { $ee = 0 }
   if ($b -lt $ee -and $i -ne 0) { $b = [math]::Round([double]$b + 60, 3) }
   if ($e -lt $b) { $e = [math]::Round([double]$e + 60, 3) }
   # Clip length / padding
   $blank = [math]::Round([decimal]$b * $frate + 0.1) - [math]::Round([decimal]$ee * $frate + 0.1)
   $duration = [math]::Round([decimal]$e * $frate + 0.1) - [math]::Round([decimal]$b * $frate + 0.1)
   # Replace placeholders
   if ($blank -gt 0) {
      Get-Content -Path ./*.kdenlivetitle* |
           ForEach-Object { $p_1.replace("$_", "$blank", 1) } |
           ForEach-Object { $p_2.replace("$_", '',1) } |
      Set-Content -Path "./Kden_Titles/$($n.ToString("D$w"))_.kdenlivetitle"
      $n++
   }
   Get-Content -Path ./*.kdenlivetitle* |
   ForEach-Object { $p_1.replace("$_", "$duration", 1) } |
   ForEach-Object { $p_2.replace("$_", $sub[$i],1) } |
   Set-Content -Path "./Kden_Titles/$($n.ToString("D$w")).kdenlivetitle"
   $n++
}

Start-Sleep -Seconds 1
Write-Host "`nTitles in $PWD\Kden_Titles`n"
# Set date modified for blank clips
(Get-ChildItem -Path ./Kden_Titles/*_*) | % {$_.LastWriteTime = (Get-Date)}