Wolfram Research

Sample Video: Friends at the Beach

Video of several people on a beach walking towards the camera

Examples

Basic Examples

Retrieve the video:

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

Show video information:

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

Show some of the video frames:

In[3]:=
ImageCollage[VideoFrameList[video, 9], ImagePadding -> 5, Background -> White]
Out[3]=

Scope & Additional Elements

See the file path containing the video file:

In[4]:=
dir = ResourceData[\!\(\*
TagBox["\"\<Sample Video: Friends at the Beach\>\"",
#& ,
BoxID -> "ResourceTag-Sample Video: Friends at the Beach-Input",
AutoDelete->True]\), "Directory"]
Out[4]=

Find the video file:

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

Analysis

Highlight faces detected in three different frames:

In[6]:=
HighlightImage[#, FindFaces] & /@ VideoFrameList[ResourceData[\!\(\*
TagBox["\"\<Sample Video: Friends at the Beach\>\"",
#& ,
BoxID -> "ResourceTag-Sample Video: Friends at the Beach-Input",
AutoDelete->True]\)], 3]
Out[6]=

Find faces over the entire video:

In[7]:=
tseries = VideoMapTimeSeries[Length[FindFaces[#Image]] &, ResourceData[\!\(\*
TagBox["\"\<Sample Video: Friends at the Beach\>\"",
#& ,
BoxID -> "ResourceTag-Sample Video: Friends at the Beach-Input",
AutoDelete->True]\)]]
Out[8]=

Plot the number of faces found over time:

In[9]:=
DateListPlot[tseries]
Out[10]=

Wolfram Research, "Sample Video: Friends at the Beach" 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