Consider this code
$data = With[{step = .1, r = 2},
Table[Exp[-Norm[{x, y, z}]^2], {x, -r, r, step}, {y, -r, r,
step}, {z, -r, r, step}]];
Graphics3D[{Raster3D[$data, {{0, 0, 0}, {1, 1, 1}},
ColorFunction -> (Opacity[#, Red] &)],
Raster3D[$data, {{1, 1, 1}, {2, 2, 2}},
ColorFunction -> (Opacity[#, Red] &)]}]
The generated figure looks like

Obviously the transparency works within one Raster3D object but not between them.
- Is this an expected behaviour?
- How could I go around this, assuming I cannot generate everything in one
Raster3Dobject? I want to be able to patch variousRaster3Dobjects according to my liking.

Style[graphics, RenderingOptions -> {"Graphics3DRenderingEngine" -> "BSPTree"}]also works without making a persistent change to the$FrontEnd. (I assumeSetOptions[$FrontEndSession, RenderingOptions -> {"Graphics3DRenderingEngine" -> "BSPTree"}]would work, too.) – Michael E2 Jul 18 '15 at 02:41