WOLFRAM

Wolfram 语言与系统参考资料中心

在三维图形中使用圆锥

使用 Cone 基元探索锥形截线.

    
Wolfram Language code: Graphics3D[{Opacity[.5], Blue, Translate[{Cone[], White, Opacity[.9], Polygon[{{-1, -.25, -1}, {1, -.25, -1}, {1, .25, 1}, {-1, .25, 1}}]}, {0, 0, 0}], Translate[{Cone[], Yellow, Opacity[.9], Polygon[{{1, 1, -1}, {1, 1, 1}, {-.5, -1.5, 1}, {-.5, -1.5, -1}}]}, {3.5, -2, 0}], Translate[{Cone[], Yellow, Opacity[.9], Polygon[{{1, 1, .5}, {-1, 1, .5}, {-1, -1, .5}, {1, -1, .5}}]}, {7, -4, 0}]}, Boxed -> False, ViewAngle -> .24, ViewPoint -> {1.3, -2.4, 2}]