1
$\begingroup$

I have a 3D plot of 8 adjoining cubes--each of which I've color-customized with CYMKColor.

I'd like to be able to install a monochromatic gradient from white-to-black by z coordinates, but I'm having a bit of trouble as I can only seem to blacken the color with CYMKColor and not whiten it

Here's my code and the graphic I have so far:

min = -10

med = 0

max = 10

arc = Graphics3D[{CMYKColor[1, 1, 0, 0, 0.7], 
   Cuboid[{min, med, med}, {med, max, max}]}]

arp = Graphics3D[{CMYKColor[1, 1, 0, 0, 0.7], 
   Cuboid[{med, med, med}, {max, max, max}]}]

alc = Graphics3D[{CMYKColor[0, 1, 1, 0, 0.7], 
   Cuboid[{min, min, med}, {med, med, max}]}]

alp = Graphics3D[{CMYKColor[0, 1, 1, 0, 0.7], 
   Cuboid[{med, min, med}, {max, med, max}]}]

llc = Graphics3D[{CMYKColor[1, 0, 1, 0, 0.7], 
   Cuboid[{min, min, min}, {med, med, med}]}]

llp = Graphics3D[{CMYKColor[1, 0, 1, 0, 0.7], 
   Cuboid[{med, min, min}, {max, med, med}]}]

lrc = Graphics3D[{CMYKColor[0, 0, 1, 0, 0.7], 
   Cuboid[{min, med, min}, {med, max, med}]}]

lrp = Graphics3D[{CMYKColor[0, 0, 1, 0, 0.7], 
   Cuboid[{med, med, min}, {max, max, med}]}]

Show[arp, arc, alp, alc, llp, llc, lrp, lrc]

Current Graphic

Improve this question
$\endgroup$
2
  • $\begingroup$ does RegionPlot3D[Cuboid[{med, med, min}, {max, max, med}], ColorFunction -> (Blend[{Append[.7]@White, CMYKColor[0, 1, 1, Rescale[#3, {min, max}], .7]}, Rescale[#3, {min, max}]] &), ColorFunctionScaling -> False] give something close to what you have in mind? $\endgroup$ Commented Mar 5, 2021 at 0:20
  • $\begingroup$ @kglr Yes, that's the whiteness level I want the colors to approach as z approaches 10. Similarly, I want a blackness level that it approaches as z approaches -10. Do you know how I might do that? $\endgroup$ Commented Mar 5, 2021 at 0:25

1 Answer 1

Reset to default
3
$\begingroup$ 
RegionPlot3D[-10 <= x <= 10 && -10 <= y <= 10 && -10 <= z <= 
   10, {x, -10, 10}, {y, -10, 10}, {z, -10, 10}, Mesh -> 1, 
 ColorFunction -> Function[{x, y, z}, Blend[{White, Black}, z]], 
 Lighting -> {{"Ambient", White}}, Boxed -> False, Axes -> False, 
 MeshStyle -> Yellow, BoundaryStyle -> Green]

enter image description here

Improve this answer
$\endgroup$
1
  • 1
    $\begingroup$ This is enough for me to take it from here, thanks so much! $\endgroup$ Commented Mar 5, 2021 at 0:30

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.