rglでアウトラインを記入

Question

次のコードはいくつかの点を描画し、線で結びます。私は の色とアルファを選択する行で囲まれた領域を埋めるしたいと思います。私は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))) 

Answer 1

を使用していることを行う方法を見るように見えることはできませんどの程度：

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

？