graphics3d - Color disparity in legend and graph due to opacity

I have the following graph:Due to opacity, my legend coloring is not matching my graphs and it might be confusing. Is there any remedy? I could not get the coloring what I wanted due to the opacity. It, indeed, hard to predict what I would get due to having multiple transparent surfaces on top of each other. I'm wondering if I can "randomly" assign "different" colors to the surfaces and run it many times so that I can eventually happen to like one combination.I have two less related questions. But since they can probably be done quickly and tri...Read more

graphics3d - Outline around sphere

Is there an easy way to draw an outline around a sphere? Is there something like EdgeForm[] that will work?I'm looking for perhaps a thick red line; I'm making a plot with many spheres of different colors and opacities, and I need a way of visually distinguishing the ones that are "in use" from the ones that are "inert"....Read more

graphics3d - eigenoscillations of a sphere

I would like to animate the eigenoscillations of a sphere (Earth?).It's just simple to draw images one by one:SphericalPlot3D[{1 + 0.25*Re[SphericalHarmonicY[6, 3, th, phi]]}, {th, 0, Pi}, {phi, 0, 2 Pi}, PlotPoints -> {16, 32}] but how to change m and l arbitrary to see, how a sphere vibrate. I've made this years ago, but I forgot..Regards, Darko...Read more

graphics3d - Strategies for creating 3D text

I am interested in using Mathematica to create 3D text for printing. I stumbled upon this answer which works very well in a slightly modified form:text3D[text_String, mult_] := ListPlot3D[ ClusteringComponents[ ImageRotate@ImagePad[ImageReflect[ ImageCrop@First@ ColorSeparate@ Rasterize@ Graphics[{Text[Style[text, Bold, 60]]}], Left -> Right], 5, White]], Boxed -> False, Mesh -> False, Axes -> False, DataRange -> {{0, mult}, {0, mult}}]It seems to work well, except for one peculiar instanc...Read more

graphics3d - Create a torus with a hexagonal mesh for 3D-printing

I am new to Mathematica, and I'm looking for a way to create patterns on the surface of 3D objects. One thing I have not been able to do is to create a hexagonal mesh on a torus. What I would like to have is a hexagonal mesh that has a certain thickness (so that it would be 3D-printable). So far, I have been able to create the torus itself. I am not sure of how to create the hexagonal pattern on the surface, and the process of mapping it onto the torus.ParametricPlot3D[{Cos[t] (3 + Cos[u]), Sin[t] (3 + Cos[u]), Sin[u]}, {t, 0, 2 Pi}, {u, 0, 2 ...Read more

graphics3d - Putting legends within the frame of the plot at the desired position

dat1krafull = {{1.`, 2.61594`*^-8}, {10.`, 7.10017`*^-9}, {50.`, 2.1565*^-9}, {75., 1.6567*^-9}, {100., 1.37786*^-9}, {250., 7.500625*^-10}, {500., 4.754925*^-10}, {750., 3.612*^-10}, {1000., 2.94925`*^-10}}dat1kra = {{1.`, 2.8896`*^-10}, {10.`, 7.89039`*^-11}, {50.`, 2.403665`*^-11}, {75.`, 1.8478`*^-11}, {100.`, 1.53523`*^-11}, {250.`, 8.33675`*^-12}, {500.`, 5.24605`*^-12}, {750.`, 3.95007`*^-12}, {1000.`, 3.19502`*^-12}}pltkra2part = ListLogLogPlot[ dat1kra, PlotRange -> {{10^0, 10^3}, {10^-12, 10^-6}}, Ticks -...Read more

graphics3d - Way around rendering bug for 3D graphics in Mathematica 12

I have some complicated 3D plots that rendered fine in Mathematica 11. With Mathematica 12, however, objects are not drawn in the right order and objects that should be hidden appear in front. This can be seen in the following simplified example:Show[ Graphics3D[{FaceForm[Yellow], Polygon[{{-1, -1, 0}, {-1, 1, 0}, {1, 1, 0}, {1, -1, 0}}]}], Graphics3D[{Thick, Black, Line[{{-1, 0, -0.1}, {1, 0, -0.1}}]}], PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -> {1.6, -1.7, 2.45}, ViewVertical -> {-0.12, 0.13, 0.98} ]Since this may be m...Read more

graphics3d - Translate (and scale) AnatomyData in three-dimensions

I would like to create a Graphics3D entity consisting of a human eyeball and a complex figure defined elsewhere. (For a minimal working example, assume that the other object is a Sphere[].) I need to adjust (transform) the position of the eyeball (not of the other components).Creating the eyeball is straightforward:eyeball = Show[ Entity["AnatomicalStructure", "RightEyeball"]["Graphics3D"], ViewPoint -> {-1, -.6, 0}]I can put the eyeball and sphere in the same Graphics3D by:Show[eyeball, Graphics3D[Sphere[]]]Alas, they do not have the pr...Read more

unity - How to ray trace Graphics3D with UnityLink?

In version 12, you can create a scene in Unity from Graphics3D objects like this:<< UnityLink`project = FileNameJoin[{$UnityLinkResourceDirectory, "ExampleData", "hello-world"}];UnityOpen[%]umaterial = CreateUnityMaterial["material", RandomColor[]]sphere = CreateUnityGameObject["sphere", Graphics3D[Sphere[]]]SetProperty[sphere, "SharedMaterial" -> umaterial]Now, I'd like to ray trace the scene - exporting it to a high quality image. But I can't see how. Is this not a fundamental feature of modern gaming engines?...Read more

graphics3d - Labeling distinct objects produced by Show[RegionPlot3D's]

I have these commandsj0=Q1>0&&Q2>0&&Q3>0&&Q1+3 Q2+2 Q3<1;j1=j0&&Q1^2+3 Q2 Q1+(3 Q2+Q3)^2<3 Q2+2 Q1 Q3;Choi=2 Q3+1<2 Q1+3 Q2;MUB=Q1>3 Q2+4 Q3;Show[RegionPlot3D[j1,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&MUB,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&Choi,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","S...Read more

graphics3d - How to animate a cube with images on their faces?

From this code, how could I animate (speed given by the user) this cube at random so that each face shows me a different image.EDIT(The idea is that the cube rotates at random and shows different images on each face, it is understood now :( $Graphics3D[ GraphicsComplex[ Tuples[{0, 1}, 3], MapThread[ {Texture[ Graphics[ImportString[ExportString[#1, "PDF"], "PDF"][[1, 1]], Background -> #3]], Polygon[#2, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]} &,{Characters["ABCDEF"], {{1, 2, 4, 3}, {1, 5, 6, 2}, {1, 3, 7, 5...Read more

graphics3d - Catmull-Clark and Doo-Sabin Subdivision Implementations

I want to work on subdivision surfaces. Unfortunately, I don’t have any source code to start with. I need some Mathematica codes for applying Catmull-Clark and Doo-Sabin methods. I would like to request anyone on this platform who have such codes to kindly share them with me. The codes I have from: are giving the error code: Part::partd: Part specification DooSabinListAlt[[1]] is longer than depth of object.I will appreciate your help....Read more

graphics3d - Why ClipPlane show a hollow object for a filled object?

For example, according to the doc, the Ball is a filled ball in 2D and 3D.However, Graphics3D[{Ball[]}, ClipPlanes -> InfinitePlane[{{0, 0, 0}, {0, 1, 1}, {1, 1, 2}}]]Shows a hollow ball, the same as SphereWhat is wrong? How to make the cut object solid, and even better, can set the opacity to it?updateWhat I actually want to do is to construct Wigner-Seitz cell by series of middle cutting planes. like this...Read more