Animation With Circlism
Animation With Circlism
The video
In[]:=
vid=Video["ExampleData/Caminandes.mp4"]
Out[]=
A frame from the video to test:
In[]:=
img=ImageResize[VideoExtractFrames[vid,15],300];
In[]:=
convertCircles[img]
Out[]=
Cropping of the video so that the computation is not taking too much time:
In[]:=
vid2=ImageResize[VideoTrim[vid,{15,20}],100];
In[]:=
vid2
Out[]=
The generation of the video with the circles
In[]:=
vid3=VideoMap[convertCircles[#Image]&,vid2,GeneratedAssetLocationFileNameJoin[{$HomeDirectory,"Downloads"}]]
Out[]=
The display of the conversion status on each frame is slowing down the conversion. I have a internal version of the resource function where the status message can be disabled and it is much faster.
Code
Code