Smooth Image Assembly using Multiscale Blending

Consider two images, the portraits of Werner Heisenberg and Erwin Schrödinger, the founders of matrix and wave mechanics:

In[1]:=

werner=

;erwin=

;

Define a function to split and merge the two images without blending:

In[2]:=

splitMerge[i1_,i2_]:=With[{c=Floor[0.515First@ImageDimensions[i1]]},ImageAssemble[{{ImageTake[i1,All,{1,c}],ImageTake[i2,All,{c+1,-1}]}}]]

Apply the function to split and merge the two images:

In[3]:=

splitMerge[werner,erwin]

Out[3]=

Create two Laplacian pyramids:

In[4]:=

pyramids=Map[ImagePyramid[#,"Laplacian",{2,2}]&,{werner,erwin}];

Split and merge the images at all scales using image pyramids:

In[5]:=

new=ImagePyramidApply[splitMerge,pyramids]

Out[5]=

ImagePyramid

Type: Laplacian Levels: 8
Dimensions: {323,323} ↔ {3,3}



Reconstruct the image:

In[6]:=

InverseImagePyramid[new]

Out[6]=

Related Symbols