Wolfram Research

Cheerleading Video Samples

Source Notebook

A collection of videos of cheerleading

Details

Size: 112x112
Video Codec: H264
Duration: 5s

Examples

Basic Examples (2) 

Retrieve the video:

In[1]:=
videos = ResourceData[\!\(\*
TagBox["\"\<Cheerleading Video Samples\>\"",
#& ,
BoxID -> "ResourceTag-Cheerleading Video Samples-Input",
AutoDelete->True]\)]
Out[1]=

Show some of the video frames:

In[2]:=
Grid@Map[VideoFrameList[#, 3] &, videos]
Out[2]=

Processing & Analysis (3) 

Retrieve the videos:

In[3]:=
videos = ResourceData[\!\(\*
TagBox["\"\<Cheerleading Video Samples\>\"",
#& ,
BoxID -> "ResourceTag-Cheerleading Video Samples-Input",
AutoDelete->True]\)];

Extract some frames:

In[4]:=
frames = Flatten[VideoFrameList[#, 2] & /@ videos]
Out[4]=

Highlight faces detected in the frames:

In[5]:=
HighlightImage[#, FindFaces[#, AcceptanceThreshold -> .2] &] & /@ frames // Multicolumn
Out[5]=

Wolfram Research, "Cheerleading Video Samples" from the Wolfram Data Repository (2021) 

License Information

Free for commercial use, no attribution required, https://pexels/license/

Data Resource History

Source Metadata

Publisher Information