Sample Video: Eiffel Tower

Source Notebook

Video of Paris with the Eiffel Tower in the background

Examples

Basic Examples

Retrieve the video:

In[1]:=
video = ResourceData[\!\(\*
TagBox["\"\<Sample Video: Eiffel Tower\>\"",
#& ,
BoxID -> "ResourceTag-Sample Video: Eiffel Tower-Input",
AutoDelete->True]\)]
Out[1]=

Show video information:

In[2]:=
Information[video]
Out[2]=

Show some of the video frames:

In[3]:=
VideoFrameList[video, 3]
In[4]:=
(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/33035137-5ef9-46a1-972d-9df885ed2995"]

Scope & Additional Elements

See the file path containing the video file:

In[5]:=
dir = ResourceData[\!\(\*
TagBox["\"\<Sample Video: Eiffel Tower\>\"",
#& ,
BoxID -> "ResourceTag-Sample Video: Eiffel Tower-Input",
AutoDelete->True]\), "Directory"]
Out[5]=

Find the video file:

In[6]:=
FileNames["*.mp4", dir, Infinity]
Out[6]=

Processing & Analysis

Extract audio from the video:

In[7]:=
audio = Audio[video]
Out[8]=

Show the audio spectrogram:

In[9]:=
Spectrogram[audio]
Out[9]=

Remove the high frequency noise from the audio:

In[10]:=
AudioTrackApply[LowpassFilter[#, Quantity[1000, "Hertz"]] &, video] //
   Audio // Spectrogram
Out[10]=

Wolfram Research, "Sample Video: Eiffel Tower" from the Wolfram Data Repository (2021)  

License Information

Free to use, no attribution required, https://www.pexels.com/license/

Data Resource History

Source Metadata

Publisher Information