Wolfram Vídeo | Experimente!

Edite e execute qualquer trecho de código clicando dentro do código e pressionando
+
.
Análise, Edição & Criação de Vídeos. Capture, crie ou calcule com arquivos de vídeo usando funções de vídeo excepcionalmente poderosas e flexíveis, baseadas em capacidades bem desenvolvidas de imagem e áudio, e integradas de forma estreita com visualização avançada, machine learning automatizada, entre outros.

Importar, Editar e Exportar

Importar um arquivo de vídeo:
Executar
In[]:=
vid=Video["https://www.wolframcloud.com/obj/explore-wolfram/bird.mp4"]
Aplique um efeito em cada quadro do vídeo:
Executar
In[]:=
sepiavid=VideoMap[ImageEffect[#Image,"Sepia"]&,vid]
; Exporte o resultado no formato de sua escolha:
Executar
In[]:=
Export["sepiabird.mp4",sepiavid]

Criar um Vídeo a partir de Imagem

Use detecção facial para identificar as localizações das faces na imagem:
Executar
In[]:=
img=
;
In[]:=
faces=FindFaces[img,PaddingSize->60];
Crie uma lista de quadros-chave classificando as localizações das faces da esquerda para a direita e incluindo a imagem inteira no início e no final:
Executar
In[]:=
path=Join[{Full},SortBy[faces,First@*First],{Full}];
Crie um vídeo que percorre a imagem ao longo do caminho especificado:
Executar
In[]:=
TourVideo[img,path,DefaultDuration->12]

Editar o Vídeo com Efeitos Personalizados

Comece com um clipe de vídeo:
Executar
In[]:=
aerialvid=
;
Defina um efeito que transite de sépia para realce de detalhes ao longo da duração do clipe:
Executar
In[]:=
sepiaToEnhanced=Blend[{ImageEffect[#Image,"Sepia"],ImageEffect[#Image,"DetailEnhancing"]},#Time/4]&;
Aplique o efeito ao vídeo:
Executar
In[]:=
VideoMap[sepiaToEnhanced,aerialvid]

Melhorar e Corrigir Cores

Este clipe de vídeo tem um balanço de cores indesejável devido ao horário do dia:
Executar
In[]:=
trafficvid=
;
Altere o balanço de cores com uma temperatura de referência especificada:
Executar
VideoFrameMap[ColorBalance[#,
2500
K
]&,trafficvid]

Analisar Rostos

Este clipe de vídeo tem uma variedade de reações faciais, sugerindo uma história:
Executar
In[]:=
reactvideo=
;
Crie um vídeo mostrando os marcos faciais:
Executar
In[]:=
VideoMap[​​HighlightImage[​​#Image,​​{PointSize[0.01],FacialFeatures[#Image,"Landmarks"]},​​ImageLabels->None​​]&,​​reactvideo]
Agrupe os carimbos de data/hora dos quadros pelas emoções detectadas:
Executar
In[]:=
emotiondata=GroupBy[​​VideoMapList[{#Time,FacialFeatures[#Image,"Emotion"][[1]]}&,reactvideo],​​Last,Map[First]];
Plote os resultados para ver a “história”;
Executar
In[]:=
NumberLinePlot[emotiondata,PlotLegends->Keys[emotiondata]]

Detectar e Rotular Objetos

Comece com um vídeo não rotulado:
Executar
In[]:=
video=
;
Rotule os quadros do vídeo destacando os objetos detectados:
Executar
In[]:=
labledvideo=VideoFrameMap[​​HighlightImage[#,{Magenta,FaceForm[],ImageBoundingBoxes}]&,​​video]