-- This file:
--   http://anggtwu.net/SUBTITLES/2023-caepro-VR.lua.html
--   http://anggtwu.net/SUBTITLES/2023-caepro-VR.lua
--           (find-angg "SUBTITLES/2023-caepro-VR.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun st () (interactive) (find-angg "SUBTITLES/2023-caepro-VR.lua"))
-- Skel: (find-editeevsubtitles-links-1 "caev")
--       (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links       "caev" "JoAQ6TsFlto")
-- Info: (find-1stclassvideo-links      "caev")
-- Play: (find-caevvideo "0:00")
--
-- I use the code below to generate the subtitles in .vtt.
--
-- «.legendas»	(to "legendas")

ee_dofile "~/LUA/Subtitles.lua" -- (find-angg "LUA/Subtitles.lua")

--[[
-- (find-angg "LUA/Subtitles.lua")

** Run the .lua and tell it to
** write the .vtt - by default in /tmp/
*
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2023-caepro-VR.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("12:22")
sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2023-caepro-VR.vtt"
outfname =                           "/tmp/2023-caepro-VR.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline                       "/tmp/2023-caepro-VR.vtt")

** Test the .vtt
** (find-caevvideo "0:00")

** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile ""   "2023-caepro-VR.mp4")
** (find-eevvideossh0 "cp -v 2023-caepro-VR.mp4 /tmp/")
** (code-video "caevvideo"                           "/tmp/2023-caepro-VR.mp4")
** (code-video "caevvideo" "$S/http/anggtwu.net/eev-videos/2023-caepro-VR.mp4")
** (find-caevvideo "0:00")

** Upload the 2023-caepro-VR.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
scp    2023-caepro-VR.vtt $LINP/eev-videos/
scp    2023-caepro-VR.vtt $LINS/eev-videos/
Scp-np 2023-caepro-VR.vtt $TWUP/eev-videos/
Scp-np 2023-caepro-VR.vtt $TWUS/eev-videos/

** Upload the subtitles to youtube
** http://www.youtube.com/watch?v=JoAQ6TsFlto

** Check that the "psne subtitles" thing works
** (find-1stclassvideo-links "caev")

--]]

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2023-caepro-VR.lua"
for li in subs_bigstr:gmatch("([^\n]+)") do
  local time,text = li:match('^.-"(.-)".-"(.*)"%)$')
  text = text:gsub("\\(.)", "%1")
  if time then print("  "..time.."  "..text) end
end

--]]

-- «legendas»  (to ".legendas")
subs_bigstr = [==[
% (find-caevvideo "00:00" "Oi gente, isso aqui é mais um vídeo sobre")
% (find-caevvideo "00:03" "aquele documento que o CAEPRO apresentou")
% (find-caevvideo "00:05" "com reclamações dos alunos a respeito")
% (find-caevvideo "00:07" "dos meus cursos... e esse vídeo vai ser só")
% (find-caevvideo "00:10" "sobre as reclamações a respeito da VR de")
% (find-caevvideo "00:12" "Cálculo 3. Vou fazer um outro vídeo sobre")
% (find-caevvideo "00:15" "todas as provas, mostrando que todas as")
% (find-caevvideo "00:18" "questões de provas eram sobre coisas que")
% (find-caevvideo "00:20" "a gente viu em sala, mas aqui")
% (find-caevvideo "00:22" "eu quero falar da VR com muito mais")
% (find-caevvideo "00:24" "detalhe, porque teve muitas reclamações")
% (find-caevvideo "00:27" "sobre ela... e o que aconteceu foi que")
% (find-caevvideo "00:29" "cinco alunos foram fazer VR, só que esses")
% (find-caevvideo "00:32" "cinco alunos foram reprovados, e...")
% (find-caevvideo "00:36" "bom, deixa eu mostrar aqui.")
% (find-caevvideo "00:39" "Primeiro deixa eu só contar uma coisa,")
% (find-caevvideo "00:41" "tá...")

% (find-caevvideo "00:43" "atualmente quando eu preparo minhas")
% (find-caevvideo "00:45" "provas eu já penso que elas podem acabar")
% (find-caevvideo "00:47" "sendo recorregidas por uma banca... os")
% (find-caevvideo "00:49" "alunos podem reclamar que a minha prova")
% (find-caevvideo "00:51" "era absurda, minha correção era absurda,")
% (find-caevvideo "00:53" "e aí pedem que uma banca de três pessoas")
% (find-caevvideo "00:56" "recorrija a minha prova e dê outra nota.")

% (find-caevvideo "00:58" "E aí essa banca pode mudar os critérios")
% (find-caevvideo "01:00" "de correção e o peso de cada questão, e")
% (find-caevvideo "01:02" "eu agora já preparo as provas pra não")
% (find-caevvideo "01:04" "só a gente poder avaliar os alunos pela")
% (find-caevvideo "01:08" "nota deles pelo meu critério como também")
% (find-caevvideo "01:10" "pelo que eles mostram que sabem na prova...")

% (find-caevvideo "01:13" "então nessa prova daqui dá pra ver")
% (find-caevvideo "01:17" "ver se os alunos sabem os")
% (find-caevvideo "01:19" "assuntos mais importantes do curso ou")
% (find-caevvideo "01:21" "não. Deixa eu explicar isso...")
% (find-caevvideo "01:23" "primeira coisa...")
% (find-caevvideo "01:28" "caramba, tão faltando os links aqui,")
% (find-caevvideo "01:31" "mas no final me viro... primeira coisa.")

% (find-caevvideo "01:33" "No dia... deixa eu começar")
% (find-caevvideo "01:36" "falando um pouquinho da P1. No dia 8 de")
% (find-caevvideo "01:38" "novembro eu")
% (find-caevvideo "01:40" "mandei pros alunos um PDF com dicas")
% (find-caevvideo "01:42" "para P1, que era esse aqui...")

% (find-caevvideo "01:45" "E aí o pdf aparentemente é pequeno, mas")
% (find-caevvideo "01:49" "ele é cheio de links... e ele diz que a")
% (find-caevvideo "01:51" "P1 vai ter uma questão não sei que, que")
% (find-caevvideo "01:53" "agora não nos interessa, e a P1 vai ter")
% (find-caevvideo "01:55" "uma questão de desenhar curvas de nível")
% (find-caevvideo "01:57" "e vetores gradientes, e você pode treinar")
% (find-caevvideo "02:00" "pra ela fazendo o exercício 1 daqui.")

% (find-caevvideo "02:03" "Então, deixa eu voltar... ah, e três dias")
% (find-caevvideo "02:07" "depois a gente teve a P1... a P1 tá")
% (find-caevvideo "02:10" "aqui...")
% (find-caevvideo "02:14" "e a questão 2 é a questão sobre")
% (find-caevvideo "02:18" "desenhar curvas de nível e vetores")
% (find-caevvideo "02:21" "gradientes. E aí reparem que o gabarito")
% (find-caevvideo "02:25" "dela tem figuras super caprichadas")
% (find-caevvideo "02:27" "feitas no computador, em que dá até pra")
% (find-caevvideo "02:29" "ver quando é que os vetores gradientes")
% (find-caevvideo "02:32" "são pequenininhos e quando é que eles")
% (find-caevvideo "02:34" "são grandões. Então, vamos voltar...")

% (find-caevvideo "02:39" "lembrem que figuras caprichadas em geral")
% (find-caevvideo "02:42" "querem \"dizer essa questão vai ser muito")
% (find-caevvideo "02:44" "importante, estudem por ela\", tá...")
% (find-caevvideo "02:45" "querem dizer \"eu gastei horas fazendo")
% (find-caevvideo "02:47" "essa figura porque eu quero que vocês")
% (find-caevvideo "02:49" "olhem para ela muitas vezes\".")
% (find-caevvideo "02:51" "Deixa eu voltar aqui...")
% (find-caevvideo "02:55" "aqui deixa eu mostrar uma foto de um")
% (find-caevvideo "02:57" "quadro, de 16 de novembro...")
% (find-caevvideo "03:01" "ai, caramba!... ah tá aqui.")

% (find-caevvideo "03:04" "Nesse pedacinho do quadro aqui pra")
% (find-caevvideo "03:07" "explicar uma coisa da matéria desse dia")
% (find-caevvideo "03:09" "eu citei")
% (find-caevvideo "03:10" "algumas coisas que caíram na prova e")
% (find-caevvideo "03:13" "acabei discutindo um pouco das questões")
% (find-caevvideo "03:14" "da prova, então isso aqui foi um pedaço")
% (find-caevvideo "03:17" "de uma discussão sobre essa questão de")
% (find-caevvideo "03:19" "nível... e aí Aqui tem uma outra coisa que")
% (find-caevvideo "03:23" "aparentemente tem uns erros, mas é porque")
% (find-caevvideo "03:25" "essa área aqui deveria ser pintada de cinza")
% (find-caevvideo "03:27" "e essa também...")
% (find-caevvideo "03:28" "que são as curvas de nível da questão 1.")

% (find-caevvideo "03:30" "então aqui eu tava explicando as curvas")
% (find-caevvideo "03:33" "de nível das duas questões da prova.")

% (find-caevvideo "03:35" "Vamos voltar...")
% (find-caevvideo "03:40" "aí aqui, na aula de 23 de novembro...")
% (find-caevvideo "03:45" "primeira coisa reparem que no quadro")
% (find-caevvideo "03:48" "dessa aula, aqui...")
% (find-caevvideo "03:53" "a letra vai ficar meio pequenininha, mas")
% (find-caevvideo "03:55" "deixa eu ler para vocês...")
% (find-caevvideo "03:57" "hoje a gente vai terminar de ver abertos")
% (find-caevvideo "04:00" "fechados, limitados e compactos, e aí a")
% (find-caevvideo "04:02" "gente vai")

% (find-caevvideo "04:05" "pular um pedação do PDF de hoje, a gente")
% (find-caevvideo "04:08" "vai para página 18 dele para ver um")
% (find-caevvideo "04:10" "truque que vai nos permitir entender")
% (find-caevvideo "04:11" "várias ideias que o Bortolossi")
% (find-caevvideo "04:14" "apresenta em 3D, usando só a curvas de")
% (find-caevvideo "04:16" "nível...")

% (find-caevvideo "04:18" "então, eu já tô meio que convencendo as")
% (find-caevvideo "04:21" "pessoas que curvas de nível são muito")
% (find-caevvideo "04:22" "importantes, né... e deixa só mostrar mais")
% (find-caevvideo "04:25" "uma coisa aqui: esses desenhos no canto")
% (find-caevvideo "04:28" "são de uma discussão com os alunos. Nesse")
% (find-caevvideo "04:30" "dia alguns alunos estavam fazendo um")
% (find-caevvideo "04:33" "exercício")
% (find-caevvideo "04:35" "com ideias meio preliminares pra curvas")
% (find-caevvideo "04:38" "de nível, e eu discuti com eles")
% (find-caevvideo "04:41" "porque que os")
% (find-caevvideo "04:44" "conjuntos daquele exercício tinham essas")
% (find-caevvideo "04:48" "curvas daqui... então, vamos voltar...")
% (find-caevvideo "04:53" "outra coisa, aqui tá o PDF dessa aula...")
% (find-caevvideo "04:58" "os alunos estavam discutindo esse")
% (find-caevvideo "05:00" "exercício aqui sobre imagem inversa e")
% (find-caevvideo "05:04" "fazendo esse exercícios daqui, mas no")
% (find-caevvideo "05:06" "início da aula o meu aviso já")
% (find-caevvideo "05:08" "correspondia a isso aqui, e eu disse: olhem")
% (find-caevvideo "05:10" "para isso aqui, e esse problema daqui vai")
% (find-caevvideo "05:12" "ser muito importante mas não garanto que")
% (find-caevvideo "05:14" "a gente vai conseguir chegar nele hoje.")

% (find-caevvideo "05:17" "Então repara que aqui diz: o objetivo do")
% (find-caevvideo "05:20" "item (c), daqui, é")
% (find-caevvideo "05:23" "você aprender a resolver só com curvas")
% (find-caevvideo "05:26" "de nível as ideias que o Bortolossi")
% (find-caevvideo "05:28" "apresenta usando figuras em 3D. Então de")
% (find-caevvideo "05:30" "novo eu tô repetindo que se a gente")
% (find-caevvideo "05:31" "souber curvas de nível a gente não precisa")
% (find-caevvideo "05:34" "fazer desenhos em 3D, que demoram muito")
% (find-caevvideo "05:37" "para fazer na mão.")

% (find-caevvideo "05:39" "E aí dou dicas para como estudar, pra o")
% (find-caevvideo "05:42" "que fazer se você tiver com dificuldade")
% (find-caevvideo "05:44" "de pensar em curvas de nível e preferir")
% (find-caevvideo "05:46" "começar com 3D, dou um exercício para")
% (find-caevvideo "05:49" "você começar com uma figura em 3D e")
% (find-caevvideo "05:52" "cortar essa figura no olhômetro...")

% (find-caevvideo "05:56" "e, de novo, aqui eu digo: e repare que")
% (find-caevvideo "05:58" "quando o Bortolossi chega no capítulo")
% (find-caevvideo "06:00" "12 ele passa a usar quase só curvas de")
% (find-caevvideo "06:02" "nível e gradiente, ele praticamente")
% (find-caevvideo "06:04" "abandona as figuras 3D... e aqui tem um")
% (find-caevvideo "06:07" "link para o capítulo 12 do Bortolossi.")
% (find-caevvideo "06:10" "Daqui a pouco a gente vai ver que nos")
% (find-caevvideo "06:12" "capítulos 10, 11 e 12 ele vai")
% (find-caevvideo "06:14" "progressivamente abandonando figuras")
% (find-caevvideo "06:17" "3D e fazendo tudo com curvas de nível")
% (find-caevvideo "06:19" "e gradientes.")

% (find-caevvideo "06:21" "Então, voltando...")
% (find-caevvideo "06:25" "esse pedaço de 23/nov eu já expliquei,")

% (find-caevvideo "06:30" "agora aqui, em 4/dezembro,")
% (find-caevvideo "06:32" "eu fiz o pdf com dicas para P2")
% (find-caevvideo "06:35" "e divulguei ele pelo Telegram três dias")
% (find-caevvideo "06:39" "antes da P2... então aqui foram as")
% (find-caevvideo "06:42" "dicas precisas dizendo exatamente o que")
% (find-caevvideo "06:44" "que iria cair na P2. Vamos dar uma olhada")
% (find-caevvideo "06:47" "nele... as dicas pra P2 estão aqui, ela")
% (find-caevvideo "06:50" "citam o programa do curso...")
% (find-caevvideo "06:53" "no programa os itens são numerados,")
% (find-caevvideo "06:57" "e aqui eu aviso que os")
% (find-caevvideo "07:02" "itens do programa que vão cair nessa")
% (find-caevvideo "07:04" "prova vão ser principalmente os itens 4,")
% (find-caevvideo "07:06" "4.1, 4.2 e 4.3, mas para fazer eles as")
% (find-caevvideo "07:10" "pessoas vão precisar de algumas ideias")
% (find-caevvideo "07:12" "daqui.")

% (find-caevvideo "07:16" "Voltando...")
% (find-caevvideo "07:19" "além dessa página")
% (find-caevvideo "07:22" "que lista os assuntos da prova tem essa")
% (find-caevvideo "07:25" "outra página daqui com dicas para como")
% (find-caevvideo "07:26" "estudar em casa,")
% (find-caevvideo "07:30" "dizendo: comecem entendendo esses")
% (find-caevvideo "07:32" "conceitos aqui, e o Bortolossi tem boas")
% (find-caevvideo "07:34" "explicações para eles nos capítulos 10,")
% (find-caevvideo "07:37" "11 e 12...")

% (find-caevvideo "07:38" "comece lendo as partes mais legíveis")
% (find-caevvideo "07:40" "desses capítulos, porque eles têm muitas")
% (find-caevvideo "07:42" "ideias super técnicas mas tem várias")
% (find-caevvideo "07:44" "ideias mais intuitivas... e entendendo as")
% (find-caevvideo "07:48" "figuras. Depois tente entender os")
% (find-caevvideo "07:49" "enunciados dos exercícios. Tem muitas")
% (find-caevvideo "07:52" "demonstrações que são muito difíceis, mas se")
% (find-caevvideo "07:55" "a gente ler os exercícios um a um a gente")
% (find-caevvideo "07:58" "consegue entender facilmente alguns")
% (find-caevvideo "07:59" "enunciados, mas outros são difíceis...")
% (find-caevvideo "08:03" "então eu proponho que as pessoas TENTEM")
% (find-caevvideo "08:05" "ler os exercícios. E aí eu aviso")
% (find-caevvideo "08:07" "que nas próximas aulas nós vamos fazer")
% (find-caevvideo "08:09" "muitos exercícios que são versões")
% (find-caevvideo "08:11" "\"desmontadas\", são miniaturas de exercícios")
% (find-caevvideo "08:14" "daqui... por exemplo os exercícios 1 a 4")
% (find-caevvideo "08:17" "desse PDF aqui, que eu não vou abrir")
% (find-caevvideo "08:18" "agora são parecidos com passos do")
% (find-caevvideo "08:20" "exercício 8 da página 359 do Bortolossi,")
% (find-caevvideo "08:24" "que eu tratei como um exercício")
% (find-caevvideo "08:27" "importantíssimo.")

% (find-caevvideo "08:30" "Deixa eu voltar... então, tem as dicas")
% (find-caevvideo "08:32" "sobre como estudar em casa, que estão")
% (find-caevvideo "08:37" "aqui...")
% (find-caevvideo "08:39" "E aí tem uma outra dica, que diz...")
% (find-caevvideo "08:44" "ah... droga, peraí... é, isso,")
% (find-caevvideo "08:47" "a página seguinte... que diz:")

% (find-caevvideo "08:50" "\"a prova provavelmente vai ter uma")
% (find-caevvideo "08:52" "questão parecida com o exercício 10")
% (find-caevvideo "08:54" "que vai valer muitos pontos\".")
% (find-caevvideo "08:56" "Vamos voltar pro exercício 10.")
% (find-caevvideo "09:03" "O exercício 10 é o dessa página daqui,")
% (find-caevvideo "09:07" "ó. É esse exercício sobre \"Máximos")
% (find-caevvideo "09:07" "numa elipse\".")
% (find-caevvideo "09:15" "lembra que a gente já viu a dica dele...")
% (find-caevvideo "09:19" "bom, deixa eu voltar.")

% (find-caevvideo "09:26" "Aí depois disso tem a P2 e tem a VR.")
% (find-caevvideo "09:31" "Deixa eu apresentar umas coisas sobre a P2,")
% (find-caevvideo "09:34" "deixa eu ir para lá... só um instantinho...")
% (find-caevvideo "09:40" "a P2 tá aqui, ela tem várias questões -")
% (find-caevvideo "09:48" "quatro questões, se eu não me engano... isso.")
% (find-caevvideo "09:53" "Essa questão daqui tem algumas curvas de")
% (find-caevvideo "09:55" "nível, mas elas valem poucos pontos porque")
% (find-caevvideo "09:59" "essas funções são super simples...")

% (find-caevvideo "10:02" "aí aqui tem uma questão que também é de")
% (find-caevvideo "10:09" "curvas de nível, mas é muito mais")
% (find-caevvideo "10:10" "complicada...")
% (find-caevvideo "10:12" "então dá para ver que essas coisas já")
% (find-caevvideo "10:15" "caem nos assuntos da P2... e logo depois")
% (find-caevvideo "10:19" "disso tem... bom, aqui tem um gabarito")
% (find-caevvideo "10:22" "parcial, sem muita figuras...")

% (find-caevvideo "10:22" "e depois tem a prova de reposição - a VR.")
% (find-caevvideo "10:29" "A VR tem só uma questão bem grande,")
% (find-caevvideo "10:33" "só que essa questão é toda sobre")
% (find-caevvideo "10:35" "esses assuntos de antes, que eu já avisei")
% (find-caevvideo "10:38" "que era importantíssimos... então, tem")
% (find-caevvideo "10:41" "algumas questões de \"desenhe as curvas")
% (find-caevvideo "10:43" "de nível\", tipo essa questão aqui,")
% (find-caevvideo "10:45" "desenhe as curvas de nível da função M,")
% (find-caevvideo "10:46" "que é essa daqui, que o domínio")
% (find-caevvideo "10:48" "dela não é R^2...")

% (find-caevvideo "10:53" "eu peço para as pessoas desenharem")
% (find-caevvideo "10:56" "uma região que é um pouquinho difícil,")
% (find-caevvideo "10:58" "encontrar os bicos dela e outras coisas...")
% (find-caevvideo "11:02" "e tem uma questão enorme aqui que é:")

% (find-caevvideo "11:04" "\"Descubra quais são os passos")
% (find-caevvideo "11:05" "intermediários e faça-os\". Então na")
% (find-caevvideo "11:07" "verdade para fazer esses exercícios aqui,")
% (find-caevvideo "11:09" "esses itens que dão 6 pontos no total as")
% (find-caevvideo "11:13" "pessoas que teriam que representar")
% (find-caevvideo "11:14" "graficamente todas essas coisas daqui...")
% (find-caevvideo "11:16" "algumas são mais fáceis de outras são")
% (find-caevvideo "11:18" "mais difíceis.")

% (find-caevvideo "11:20" "Voltando...")
% (find-caevvideo "11:25" "o que aconteceu nessa prova foi o")
% (find-caevvideo "11:27" "seguinte.")
% (find-caevvideo "11:31" "as duas pessoas que conseguiram fazer")
% (find-caevvideo "11:33" "algo nessa prova só conseguiram")
% (find-caevvideo "11:36" "desenhar um diagrama de curvas de nível")
% (find-caevvideo "11:37" "cada uma. Uma dessas pessoas fez um")
% (find-caevvideo "11:40" "diagrama de curvas de nível super simples")
% (find-caevvideo "11:42" "certo e depois um outro diagrama de")
% (find-caevvideo "11:44" "curvas de nível completamente errado...")
% (find-caevvideo "11:46" "e a outra pessoa")
% (find-caevvideo "11:48" "conseguiu fazer um desenho de uma curva")
% (find-caevvideo "11:49" "de nível um pouquinho mais complicada")
% (find-caevvideo "11:51" "mas que não valia nem mesmo um ponto na")
% (find-caevvideo "11:52" "prova... então dava para ver que essas")
% (find-caevvideo "11:55" "pessoas ainda não tinham prática")
% (find-caevvideo "11:57" "suficiente para fazer essas coisas")
% (find-caevvideo "11:58" "rápido. Elas conseguiam fazer")
% (find-caevvideo "11:59" "com muito esforço, elas")
% (find-caevvideo "12:01" "erravam no caminho... essas coisas.")
% (find-caevvideo "12:04" "Elas não tinham fluência nisso.")

% (find-caevvideo "12:07" "E... bom, acho que é isso, né?")
% (find-caevvideo "12:10" "É isso que eu queria apresentar...")

% (find-caevvideo "12:13" "Já que as reclamações")
% (find-caevvideo "12:15" "eram de que a prova não tinha nada a ver")
% (find-caevvideo "12:16" "com a matéria nem com a P2, acho que isso")
% (find-caevvideo "12:19" "aqui já tá explicado. Deixa parar esse")
% (find-caevvideo "12:21" "vídeo por aqui.")

(find-caevvideo "12:22" " ")
]==]

unrevised_bigstr = [==[
(find-caevvideo "00:00" " ")
]==]

-- Local Variables:
-- coding:  utf-8-unix
-- End: