« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Advanced Image Processing with Large Image Support
Analyze Intermediate Image Processing Steps via 3D Images
Compute a Gabor filter for different orientations and visualize the stack in the 3D space.
In[1]:=
X
gaborMagnitude[image_, r_, k_] := With[{data = ImageData[image]}, Image[GaborFilter[data, r, k, 0]^2 + GaborFilter[data, r, k, Pi/2]^2]]
In[2]:=
X
t = Table[gaborMagnitude[\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnAlMFFcYgPfkVgQUD5RbvBBSi0ctVcFqRdQoEi+qVhSPpkoK1orVNFZb jUqqLRrrgbSiUqpIlTZVwXpGrHiheFYUUUFhqwjssud0duC9md2dY5vIe6SZ L9Eszk/2y8ybN+/9/z8GJCbHzZdJJJJUJ/KvuDmfR6WkzEmbrCB/iE5bmpRo PpTV8ocQERERERERERER+T9jMhhMuB04MGoaXr8qP3WstKZOrWf8u0GnbwPK uoZry6NDXMk9g0TqOy//uabFyagqysy/1YhXjtDWZI8w72sg7RbdVhvJA6Z7 keRPylnPcdqZGjO8JNY4zryqIYim1dQPDqkYL7HhcbyNHSX16TN9bST1UTbk H2x62uO9WfVIfPPu+zd/8rmOTW+zG5ceOfAiXZo/uJ7ApKf53oVbj8YlF4+e Nsf2zmDDeTsWPf1JX6ldfk6bsPhdDZUJu5lxXINDrz5OYZ+exDENg54x29lO PYlDMga/x4Msrq7UpWMXH18fbw83uY2fcgF6Pd0qR4aB3Cvkk7ziioaKop0r BntYGypnovc758MQcB2YUwePaHZHdLC8rxXxyPUMCUr6+70WqywOqjMsJx75 WOQLhDvdaYNOB2wOF/RgCsqjkPulO8Fvd9/FcvwYw59cwBgR6zWMgPeAczpr REFHhl+YAbFfoQecVyZr2UOW09OPtI8arZ4p2QF8d9dzHDGVIbRf8EukekRd KBhdsrQmrqCt8PEnDXyG0o4gLnQBX92jlHPoq8Kgn185SjuC+AE+ehN4RtY6 eIG730TnZmYJGH7KQ3ruqLPt4SAtQedGookBs0v/Jzxhz4fCGfwMMjczT4PB 7TGbb+JQzwd+nseRuZm5BDdtGzkmPwrdDhDmfgSZm5kjYNemzOcZfoSxBMS1 O4TMzcxecPt2usb7YK16G5y/o6jUKDLA4sD3Ie/CRLO0Ja7zeVRqFGvA0jmo ljdOf7Q5UBrwCJFZM6lg+gt9zRtnqoygwuQj0a4PksDaeVA9f6A2nTqBrlvQ eAGmgyf/EAE/04MoMlQx7B4aL8AMcP768V9fcptyLjqo16izSKxoFgC/IJVQ qKnyYEEVCicmS8H94fN3G0jO2/IlmF/an0S9sbCLjXDztkuH24WN7XB5ugR3 bYOVX2BWN4z/AYeJy+7AT763LV7gqkCYHIhFPnnYQf37dPZgJ98KFROmRDp5 FX4Ftw0Laxm5yYmI97b2UOBO+0kSyvgW+VioiWDmnqP+eIFbyJplDgw/SZfV xdWoM3z8FFoVtvxXnLhRpcFtRfP8XescvdPQz3LOlz5UtZH5ejVb4bLDkNnr 8i+UPa4T/v3W5kEYV+2ty4iFGWfu1OIej5vdOfyoExnzzYm7nIlLJLwYZVvH shiPsbkPsc6LFwcKVFcVw9bifPYZcnsJVafd4k5gHIZN2/yEBOXDchBXFpjU bewmJCjrv7UBn6Bqc7hQhV/qn43xEmvyJjoJCMoGoM4eWHA5xV9AUDH+Nk7B qqzZfvyCzskYhyBJ+Z45gbxD0KcQqx9BPPpp6bie3M0myo+E0lytzuuS7FVT 3/LkOIHdcfWHMdHe+vW7ZdMjfZW2gspZeEcgpPFuYeZX82NCrJYOUp9i3GY0 xmfF+1eMt7zUjutwW1miKUmPZl5nRWxby3PpT891ZVzgHmW4hWx4kMpo/XRm 60HBTHUCvXhQzsVtw0LJYOgnH9nWBiCJLgsW+KWhFbhtWKiOhSfQ+xJuGRb0 ++A97HIYtwwLpoo+wM+JvUurdWi6kpdbZk9lRj0H+DmktroVpGnvpPB+U+wp Hemy4AST1PpegMyu5m1bz/PCgsa/wHNYMRWBWDP6cdRSVPqxcL7PVN4XTICx CMyaueHfvOsNvClcO6obDvyGIys05bXMuopM4VxkA5gBZRHItsG7QHXQjgvc CF6ukYUj84OtsYOrBWPVs4HfO8iuL12dviJ4TtSJYPyNRqFGkQb8pPsEB2Dj FDC/TEahRrEc1j64e08BDWPB/JyIQo1iJSy+xQku6upGgOfbEhRqFLD7SjKA r3uSojqiJdRxJQo1ig0wpdahWOAGMZZ2A+uXDWjkSLZAP6nQDK0/AnaZztlo 5Ahm9wZvd7GZpq9BpCe6LGUW7Rdwm3/WbZwAznQfdB2AB+h9rXI37wU2XgEv 2chHoWtTONwO+klia/gitetBoshhESo7gviNkftpn8NXw3oyEMQ5bUOmRxQx a9NjeNYI2m3wTndDmMQ/25nh55bBPbCuhYIoWSjCNp5L3Rh+5DaEK84wD6ak lYsQljJLuzP9ZGO5Ts0++A6QpGMBOj3inmVZ0GUa+xDMCYAh8mGvEPpV+FtW BV2mseV+DgbREU7rEeoR1cFWVUuX4fnWMao1wfRxqS/S11Ne9bauqko94/9k Pui0P4czkrsS5UKkhX5NX9uqr6N39Mbz1GrV9OpUSn8vZtlVGow2+WxkbS1R unf2D4+eEBnSo7Or5XHHdWibfI2DuIrSMoWDbRVOHsX7jH7zmN7j7yyxwgPt uykko/+Ln8Mi5G1jk+x9b59EMVE4yfCmSWIpUXIgH4P2zRmKL8AG091LoL9E NlRgA9AqwA3coLPTeE+lrP9lHM0l+0HvX0xd7R6e/4JDOfMWltcbLnq3CCSp CXXpDC7BTntUeFpzXke2TDDp5NrZWFs0gXW+mXAVV8nNlNKcwfK6Tp0ffU1R vHW3p9/ikzX4+prK+lHX9EPw9pau9t6Ps+Cq2jUo4fCTlzh7Ew2/h5CCH9yn 5w6TRlVZWrj/2017C29UPFXhbe0kiKbKYztOW7dkm3SahnqNrm28sKJtbHNN 9yIiIiIiIiIiIiKtyr+wfCI8 "], {{0, 160}, {160, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> None], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{160, 160}, PlotRange->{{0, 160}, {0, 160}}]\), 6, 1.7 {Cos[\[Alpha]], Sin[\[Alpha]]}], {\[Alpha], 0, \[Pi], \[Pi]/100}];
In[3]:=
X
Threshold[ Image3D[t, ViewPoint -> {-0.2, -0.5, 3}, ViewVertical -> {0.3, 0.5, 1.2}] // ImageAdjust, .2]
Out[3]=