RosettaCodeData/Task/OpenGL/Mathematica/opengl.math

4 lines
185 B
Plaintext

Style[Graphics3D[{Polygon[{{-1, 0, 0}, {1, 0, 0}, {0, Sqrt[3], 0.5}},
VertexColors -> {Red, Green, Blue}]}, Boxed -> False],
RenderingOptions -> {"3DRenderingEngine" -> "OpenGL"}]