RosettaCodeData/Task/OpenGL/Mathematica/opengl.math

4 lines
185 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Style[Graphics3D[{Polygon[{{-1, 0, 0}, {1, 0, 0}, {0, Sqrt[3], 0.5}},
VertexColors -> {Red, Green, Blue}]}, Boxed -> False],
RenderingOptions -> {"3DRenderingEngine" -> "OpenGL"}]