In[]:=
image=ImageResize[Import["ExampleData/spikey.tiff"],512];
In[]:=
proj=
;AnimatedImage[NestList[ImagePerspectiveTransformation[Sharpen[ImageCrop[ImageRotate[ImagePerspectiveTransformation[Blur[#],proj],Pi/128],{512,512}]],Inverse[proj]]&,image,800]]
1 | 1/64 | 0 |
1/8 | 1 | 0 |
0 | 1/3 | 1 |
In[]:=
TakeWithproj=
,NestListImagePerspectiveTransformation[Sharpen[ImageCrop[ImageRotate[ImagePerspectiveTransformation[Blur[#],proj],Pi/128],{512,512}]],Inverse[proj]]&,
1 | 1/64 | 0 |
1/8 | 1 | 0 |
0 | 1/3 | 1 |
,200,1;;100;;10
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
TakeWithproj=
,NestListImagePerspectiveTransformation[Sharpen[ImageCrop[ImagePerspectiveTransformation[Blur[#],proj],{512,512}]],Inverse[proj]]&,
1 | 1/64 | 0 |
1/8 | 1 | 0 |
0 | 1/3 | 1 |
,200,1;;100;;10
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
GraphicsGridPartitionTakeNestListSharpen[Blur[#]]&,
,100,1;;100;;10,5
Out[]=
In[]:=
Length[%]
Out[]=
10