WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

グラフィックスオブジェクトに当てる照明の向きを変える

    
Wolfram Language code: obj = RevolutionPlot3D[{8 + Cos[t], 2Sin[t]}, {t, 0, 2Pi}, Mesh -> None, PlotStyle -> Specularity[White, 50], Axes -> False, PlotTheme -> "Classic"];
Wolfram Language code: Grid[Table[Show[obj, Lighting -> ({"Spot", ColorData["SouthwestColors"][RandomReal[]], Scaled[#], {Pi / 4, 100}}&) /@ RandomReal[{-4, 4}, {5, 3}], Boxed -> False], {3}, {3}]]