Rounded-edge textured cubes

*To*: mathgroup at smc.vnet.net*Subject*: [mg121343] Rounded-edge textured cubes*From*: "Christopher O. Young" <cy56 at comcast.net>*Date*: Mon, 12 Sep 2011 04:18:30 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

I'm trying to have textured cubes to illustrate things such as the relation of rates of change in difference tables to the rates of change of areas of squares of squares and volumes of cubes. It would be a big help to have rounded cubes with some texture on them. The texture is mostly for looks, but would certainly add something. A rounded-edge option for Cuboid[ ] would be wonderful. I'm experimenting with using tubes on the edges and moving them inwards. One thing that works, but might be too slow, is using RegionPlot to get an inequality plot of each cube. Yields a nicely rounded surface, but I can't seem to map textures to it evenly. I get "streaking" of the marble on six of the surfaces, and only two get the normal looking marble texture. Chris Young cy56 at comcast.net ineq = PolyhedronData["Cube", "RegionFunction"][x, y, z] With[ {r = .7}, RegionPlot3D[ineq, {x, -r, r}, {y, -r, r}, {z, -r, r}, PlotStyle -> Directive[ Specularity[White, 30], Texture[ExampleData[{"ColorTexture", "WhiteMarble"}]] ], TextureCoordinateFunction -> ({#3, #2, #1} &), Lighting -> "Neutral", Mesh -> None, PlotRange -> All, PlotPoints -> 20 ] ]