Vidéo avec Wolfram | Choses à essayer
Vidéo avec Wolfram | Choses à essayer
Effectuez des modifications et exécutez n’importe quel morceau de code en cliquant à l’intérieur du code et en appuyant sur .
+
Analyse, édition et création vidéo. Capturez, créez ou calculez des fichiers vidéo à l’aide de fonctions vidéo exceptionnellement puissantes et flexibles, basées sur des capacités d’image et d’audio bien développées et étroitement intégrées à la visualisation avancée, à l’apprentissage automatique et à bien d’autres choses encore.
Importez, modifiez et exportez
Importez, modifiez et exportez
Importez un fichier vidéo : |
In[]:=
vid=Video["https://www.wolframcloud.com/obj/explore-wolfram/bird.mp4"]
Appliquez un effet à chaque image de la vidéo : |
In[]:=
sepiavid=VideoMap[ImageEffect[#Image,"Sepia"]&,vid]
Exportez le résultat dans le format de votre choix : |
In[]:=
Export["sepiabird.mp4",sepiavid]
Créez une vidéo à partir d’une image
Créez une vidéo à partir d’une image
Utilisez la détection des visages pour identifier l’emplacement des visages dans l’image : |
In[]:=
img=
;
In[]:=
faces=FindFaces[img,PaddingSize->60];
Créez une liste d’images clés en triant les emplacements des visages de gauche à droite et en incluant l’image complète au début et à la fin : |
In[]:=
path=Join[{Full},SortBy[faces,First@*First],{Full}];
Créez une vidéo qui parcourt l’image le long du chemin que vous avez spécifié : |
In[]:=
TourVideo[img,path,DefaultDuration->12]
Éditez une vidéo avec des effets personnalisés
Éditez une vidéo avec des effets personnalisés
Commencez par un clip vidéo : |
In[]:=
aerialvid=;
Définissez un effet qui passera de la couleur sépia à la couleur détaillée pendant la durée du clip : |
In[]:=
sepiaToEnhanced=Blend[{ImageEffect[#Image,"Sepia"],ImageEffect[#Image,"DetailEnhancing"]},#Time/4]&;
Appliquez l’effet à la vidéo : |
In[]:=
VideoMap[sepiaToEnhanced,aerialvid]
Améliorez et corrigez les couleurs
Améliorez et corrigez les couleurs
Ce clip vidéo présente une balance des couleurs indésirable en raison de l’heure de la journée : |
In[]:=
trafficvid=;
Modifiez la balance des couleurs avec une température de référence spécifiée : |
VideoFrameMap[ColorBalance[#,]&,trafficvid]
Analysez les visages
Analysez les visages
Ce clip vidéo présente une variété de réactions faciales, suggérant une histoire : |
In[]:=
reactvideo=;
Créez une vidéo montrant les repères du visage : |
In[]:=
VideoMap[HighlightImage[#Image,{PointSize[0.01],FacialFeatures[#Image,"Landmarks"]},ImageLabels->None]&,reactvideo]
Regroupez les horodatages des images en fonction des émotions détectées : |
In[]:=
emotiondata=GroupBy[VideoMapList[{#Time,FacialFeatures[#Image,"Emotion"][[1]]}&,reactvideo],Last,Map[First]];
Tracez les résultats pour voir l’« histoire » : |
In[]:=
NumberLinePlot[emotiondata,PlotLegends->Keys[emotiondata]]
Détectez et étiquetez des objets
Détectez et étiquetez des objets
Commencez par une vidéo non étiquetée : |
In[]:=
video=;
Étiquetez les images vidéo en mettant en évidence les objets détectés : |
In[]:=
labledvideo=VideoFrameMap[HighlightImage[#,{Magenta,FaceForm[],ImageBoundingBoxes}]&,video]