WOLFRAM

Wolfram Language & System Documentation Center

Upgrading from:

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:

Version 5.2 << Graphics`Graphics3D`; ScatterPlot3D[Table[{Cos[t], Sin[t], Sqrt[t]}, {t, 0, 4 Pi, 0.2}]]
Wolfram Language code: ListPointPlot3D[Table[{Cos[t], Sin[t], Sqrt[t]}, {t, 0, 4 Pi, 0.2}], BoxRatios -> Automatic]

ListSurfacePlot3D is now a built-in Mathematica function:

Version 5.2 << 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}]]
Wolfram Language code: ListSurfacePlot3D[Table[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t, 0, π, π / 5}, {u, 0, π / 2, π / 10}]//Flatten[#, 1]&]

Histogram3D is now a built-in Mathematica function:

Version 5.2 << 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}}]
Wolfram Language code: 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}}, BoxRatios -> {1, 1, 1}, ChartStyle -> Directive[EdgeForm[Black], White], Lighting -> Automatic]

BarChart3D is now a built-in Mathematica function:

Version 5.2 << 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}}]
Wolfram Language code: 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}}//Transpose, BarSpacing -> {0, 0}, ChartElementFunction -> "Cube", ChartLayout -> "Grid", ChartStyle -> Directive[EdgeForm[Black], White], Lighting -> Automatic]

Display stacked 2D plots:

Version 5.2 << Graphics`Graphics3D`; StackGraphics[Table[Plot[Sin[x]^n, {x, 0, \[Pi]}], {n, 5}]]
Wolfram Language code: Graphics3D[MapIndexed[Cases[#, Line[L_] :> Line[Thread[{L[[All, 1]], #2[[1]] / 5, L[[All, 2]]}]], -1]&, Table[Plot[Sin[x] ^ n, {x, 0, π}], {n, 5}]], Axes -> True, BoxRatios -> {1, 1, 1}]

The functionality of SkewGraphics3D and TransformGraphics3D is now available in the built-in Mathematica kernel function GeometricTransformation:

Version 5.2 << 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}}]]
Wolfram Language code: Plot3D[Sin[x + Cos[y]], {x, 0, 2π}, {y, 0, 2π}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[GeometricTransformation[gr, {{1, 0, 1}, {0, 1, 0}, {0, 0, 1}}], opts]

Project a graphics object onto a plane:

Version 5.2 << 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}]
Wolfram Language code: ParametricPlot3D[{Sin[t], Sin[2t] Sin[u], Sin[2t] Cos[u]}, {t, -π / 2, π / 2}, {u, 0, 2π}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[GeometricTransformation[gr, ScalingTransform[10 ^ -3, {1, 1, 0}, {1, 1, 0}]], opts]

The functionality of Shadow, ShadowPlot3D, and ListShadowPlot3D can be obtained using the built-in Mathematica kernel function Scale:

Version 5.2 << Graphics`Graphics3D`; Shadow[Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}]]
Wolfram Language code: Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[{gr, Scale[gr, #, {-1, -1, -1}]& /@ (1 + 10 ^ -3 - IdentityMatrix[3])}, opts]

The original package is now available on the web at library.wolfram.com/infocenter/MathSource/6766.