Verbesserungen bei 3D-Bildern
Standardmäßig wirkt sich Beleuchtung auf 3D-Bilder nicht aus. Die Farbwerte werden allein von der jeweiligen Farbfunktion bestimmt.
Den kompletten Wolfram Language-Input zeigen
In[3]:=
img3d = Image3D[data, "Byte", options, ImageSize -> 400]
Out[3]=
Das Beleuchten von Volumen kann dabei helfen, Details der Oberfläche zu beleuchten. In diesem Fall wird gebündeltes Licht auf die Bildschirmebene geworfen und das Bildobjekt mit reflexionsartigem Glanz versehen.
In[4]:=
ImageCrop[
Show[Graphics3D[Specularity[Orange, 3], Background -> Black],
Image3D[img3d, Method -> {"VolumeLighting" -> True}], options,
Lighting -> {{"Directional", White, ImageScaled[{0, 0, 2}]}},
ImageSize -> 700], {410, 410}]
Out[4]=
Körnige Bilder können durch Interpolation der Werte weiter verbessert werden.
In[5]:=
fine = ImageCrop[
Show[Graphics3D[Specularity[Orange, 3], Background -> Black],
Image3D[img3d,
Method -> {"VolumeLighting" -> True,
"InterpolateValues" -> True}], options,
Lighting -> {{"Directional", White, ImageScaled[{0, 0, 2}]}},
ImageSize -> 700], {410, 410}]
Out[5]=
Visualisieren Sie den Übergang vom Original zum interpolierten und beleuchteten Bild.
Den kompletten Wolfram Language-Input zeigen
In[7]:=
Animate[Overlay[{original, SetAlphaChannel[fine, i]}], {i, 0, 1},
AnimationRate -> 1/3, AnimationDirection -> ForwardBackward]