In[]:=
image=ImageResize[Import["ExampleData/spikey.tiff"],512];
In[]:=
proj=
1
1/64
0
1/8
1
0
0
1/3
1
;​​AnimatedImage[​​NestList[​​ImagePerspectiveTransformation[​​Sharpen[​​ImageCrop[​​ImageRotate[​​ImagePerspectiveTransformation[​​Blur[#],proj],Pi/128],{512,512}]],Inverse[proj]]&,image,800]]
In[]:=
TakeWithproj=
1
1/64
0
1/8
1
0
0
1/3
1
,​​NestList​​ImagePerspectiveTransformation[​​Sharpen[​​ImageCrop[​​ImageRotate[​​ImagePerspectiveTransformation[​​Blur[#],proj],Pi/128],{512,512}]],Inverse[proj]]&,
,200,1;;100;;10
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
TakeWithproj=
1
1/64
0
1/8
1
0
0
1/3
1
,​​NestList​​ImagePerspectiveTransformation[​​Sharpen[​​ImageCrop[​​ImagePerspectiveTransformation[​​Blur[#],proj],{512,512}]],Inverse[proj]]&,
,200,1;;100;;10
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
GraphicsGridPartitionTake​​NestList​​Sharpen[Blur[#]]&,
,100,1;;100;;10,5
Out[]=
In[]:=
Length[%]
Out[]=
10