Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

6
  • 1
    $\begingroup$ Thanks a lot @Tim Laska! Is it possible to assign a specific color for the desk instead of Black? $\endgroup$ Commented May 9, 2020 at 2:21
  • 1
    $\begingroup$ @HD2006 The disk is black due to the lack of lighting. I added the ability to change the surface color through the Style command and specularity if desired. $\endgroup$ Commented May 9, 2020 at 2:54
  • $\begingroup$ it is not working with me, it gives black disk without lighting once I change the color inside style to blue. May you please let the disk blue while lighting is red as it is and add a picture of the new shape? $\endgroup$ Commented May 9, 2020 at 3:09
  • $\begingroup$ @HD2006 I added a ColorSlider to the Manipulate function to show that the image changes with changes in the surface color. $\endgroup$ Commented May 9, 2020 at 3:43
  • 3
    $\begingroup$ @HD2006 I am pretty sure the black you are seeing is a function of the lighting. If evaluate Graphics3D[{Style[ell, Yellow]}], then you should see a Yellow disk. If you add lighting by evaluating Graphics3D[{Style[ell, Yellow]}, Lighting -> {{"Spot", Red, {centroid + {0, 0, 3}, centroid}, Pi/2.5}}], then the disk appears darker because less light is reflecting back. $\endgroup$ Commented May 9, 2020 at 4:24