Fill an outline in rgl

问题

The following code draws some points and connects them with lines. I want to to fill in the area enclosed by the lines choosing color and alpha. I can't seem to see how to do that using rgl

# Open plot and add axes
open3d()
decorate3d(xlim=c(0,4), ylim=c(0,4), zlim=c(0,4), 
       xlab = NULL, ylab = NULL, zlab = NULL,
       box = FALSE, axes = FALSE, 
       main = "", sub = NULL,
       top = TRUE, aspect = FALSE)
axis3d(edge="z", col="blue")
axis3d(edge="x", col="green")
axis3d(edge="y", col="green")
# Draw some points and connect by lines
#             x y z 
vs = matrix(c(1,1,1, 1,2,1, 2,3,1, 2,3,2, 1,2,2, 1,2,2, 1,1,2), byrow=TRUE, ncol=3)
points3d(vs, size=4, col="red")
lines3d(rbind(vs, c(1,1,1)))

回答1:

How about:

quads3d(vs[c(1:2,5,7),],col="purple",alpha=0.5)
quads3d(vs[c(2:5),],col="cyan",alpha=0.5)

?

来源：https://stackoverflow.com/questions/9022814/fill-an-outline-in-rgl