Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dims = Dimensions@data;
- coords = Table[{x, y, z}, {x, 1, dims[[1]]}, {y, 1, dims[[2]]}, {z, 1,
- dims[[3]]}];
- cubes = {Hue @@ #1, EdgeForm[], Cuboid@#2} &
- output = MapThread[cubes, {data, coords}, 3];
- Graphics3D@output
Add Comment
Please, Sign In to add comment