例 1 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
pts1 = Tuples[{Range[4], Range[4]}];
pts2 = Tuples[{Range[3], Range[3], Range[3]}];
Grid[{
{Graphics[{Green, Line[pts1], Red, Point[pts1], Blue, BezierCurve[pts1, SplineDegree -> 5]}], Graphics3D[{BezierCurve[pts2, SplineDegree -> 4], Green, Opacity[.5], Line[pts2], Red, Point[pts2]}]}, {Graphics[BezierCurve[Table[{Cos[2k Pi / 13], Sin[2 k Pi / 13]}, {k, 0, 156, 4}]]],
Graphics3D[BezierCurve[Table[{Cos[2k Pi / 13], Sin[2 k Pi / 13], k / 156}, {k, 0, 156, 4}]]]}}]Grid[{{-Graphics-, -Graphics3D-}, {-Graphics-, -Graphics3D-}}]