Обработка на изображения

1. Image Composition

1.1. ImageCompose

ImageCompose[,{,.3}]

1.2. Blend

Manipulate[Blend[{,,,},a],{a,0,1.2}]

1.3. ImageCollage

ImageCollage[{,,,,},ImagePadding->15,Padding->Orange,Method->"Columns"]

2. WordCloud

data=EntityValue[CountryData[],{"Name","Population"}];
WordCloud[data,]

3. Face Detection

i=;
boxes=FindFaces[i,{50,∞}];
Show[i,Graphics[{EdgeForm[{Red,Thick}],Opacity[0],Rectangle@@@boxes}]]

4. Motion Blur Effect

i=;
blurred=ImageEffect[i,{"MotionBlur",30,0 Degree}];
mask=Dilation[DeleteSmallComponents@Binarize[i,#[[1]]>.65(#[[2]]+#[[3]])&],25];
ImageCompose[i,SetAlphaChannel[blurred,Blur[mask,50]]]

5. Simplify an Image Mask

i=;
b=DeleteSmallComponents@FillingTransform@ChanVeseBinarize[i,"TargetColor"->Red];
skeleton=SkeletonTransform[b];
pruned=Pruning[skeleton,1,5];
mask=InverseDistanceTransform[pruned];
res=SetAlphaChannel[i,mask];
Grid[{{i,b,skeleton},{pruned,mask,res}}]