Graphics`Graphics3D`
ListPointPlot3D has been added to the built-in Mathematica kernel.
ListSurfacePlot3D has been added to the built-in Mathematica kernel.
BarChart3D has been added to the built-in Mathematica kernel.
Histogram3D has been added to the built-in Mathematica kernel.
The functionality of ScatterPlot3D is now available in the built-in Mathematica kernel function ListPointPlot3D:
![<< Graphics`Graphics3D`;
ScatterPlot3D[Table[{Cos[t], Sin[t], Sqrt[t]}, {t, 0, 4 Pi, 0.2}]]](Files/Graphics3D.zh/legacy_1.gif)
ListSurfacePlot3D is now a built-in Mathematica function:
![<< Graphics`Graphics3D`;
ListSurfacePlot3D[
Table[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t,
0, \[Pi], \[Pi]/5}, {u, 0, \[Pi]/2, \[Pi]/10}]]](Files/Graphics3D.zh/legacy_2.gif)
Histogram3D is now a built-in Mathematica function:
![<< Graphics`Graphics3D`;
Histogram3D[{{7, 0}, {0, 8}, {0, 8}, {3, 7}, {1, 6}, {1, 10}, {4,
9}, {1, 5}, {10, 6}, {0, 2}, {5, 0}, {7, 6}, {9, 7}, {0, 9}, {3, 9}}]](Files/Graphics3D.zh/legacy_3.gif)
BarChart3D is now a built-in Mathematica function:
![<< Graphics`Graphics3D`;
BarChart3D[{{2, 1, 6, 7, 4}, {7, 9, 1, 0, 4}, {5, 2, 6, 2, 7}, {4, 3,
0, 0, 10}, {8, 9, 1, 0, 9}}]](Files/Graphics3D.zh/legacy_4.gif)
![<< Graphics`Graphics3D`;
StackGraphics[Table[Plot[Sin[x]^n, {x, 0, \[Pi]}], {n, 5}]]](Files/Graphics3D.zh/legacy_5.gif)
The functionality of SkewGraphics3D and TransformGraphics3D is now available in the built-in Mathematica kernel function GeometricTransformation:
![<< Graphics`Graphics3D`;
Show[SkewGraphics3D[
Graphics3D[
Plot3D[Sin[x + Cos[y]], {x, 0, 2 \[Pi]}, {y, 0, 2 \[Pi]}]], {{1, 0,
1}, {0, 1, 0}, {0, 0, 1}}]]](Files/Graphics3D.zh/legacy_6.gif)
Project a graphics object onto a plane:
![<< Graphics`Graphics3D`;
bell = ParametricPlot3D[{Sin[t], Sin[2 t] Sin[u],
Sin[2 t] Cos[u]}, {t, -\[Pi]/2, \[Pi]/2}, {u, 0, 2 \[Pi]}]
Project[bell, {1, 1, 0}]](Files/Graphics3D.zh/legacy_7.gif)
The functionality of Shadow, ShadowPlot3D, and ListShadowPlot3D can be obtained using the built-in Mathematica kernel function Scale:
![<< Graphics`Graphics3D`;
Shadow[Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}]]](Files/Graphics3D.zh/legacy_8.gif)
The original package is now available on the web at library.wolfram.com/infocenter/MathSource/6766.