Améliorations des images en 3D
Par défaut, les images 3D ne réagissent pas à l'éclairage. Les valeurs de couleur sont purement déterminées par la fonction de couleur donnée.
Afficher l'entrée complète de Wolfram Language
In[3]:=
![Click for copyable input](assets.fr/3d-image-enhancements/In_15.png)
img3d = Image3D[data, "Byte", options, ImageSize -> 400]
Out[3]=
![](assets.fr/3d-image-enhancements/O_22.png)
L'activation de l'éclairage de volume peut aider à mettre en évidence les détails de surface. Dans ce cas, une lumière directionnelle est ajoutée, pointant vers le plan de l'écran, et la spécularité est ajoutée à l'objet image.
In[4]:=
![Click for copyable input](assets.fr/3d-image-enhancements/In_16.png)
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]=
![](assets.fr/3d-image-enhancements/O_23.png)
Les images granuleuses peuvent être encore améliorées en interpolant les valeurs.
In[5]:=
![Click for copyable input](assets.fr/3d-image-enhancements/In_17.png)
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]=
![](assets.fr/3d-image-enhancements/O_24.png)
Visualisez la transition entre l'image originale et l'image interpolée et mise en évidence.
Afficher l'entrée complète de Wolfram Language
In[7]:=
![Click for copyable input](assets.fr/3d-image-enhancements/In_19.png)
Animate[Overlay[{original, SetAlphaChannel[fine, i]}], {i, 0, 1},
AnimationRate -> 1/3, AnimationDirection -> ForwardBackward]
![](assets.fr/3d-image-enhancements/swf_5.png)
![](assets.fr/3d-image-enhancements/O_25.png)