scatterplot3d with densCols ?

Hi,

I was trying to make a 3D plot using densCols. The documentation for
densCols doesn't look like it'll work for 3D. For example:

-----------------------------------------
library(scatterplot3d)

v1 <- rnorm(10000)
v2 <- rnorm(10000)
v3 <- rnorm(10000)

## 2D with denscols
mat1 <- cbind(v1,v2)
mcols1 <- densCols(mat1)
plot(mat1,col=mcols1)

mat <- cbind(v1,v2,v3)
mcols <- densCols(mat) ## No go?

## 3D version with no densCols parameter
scatterplot3d(mat,pch=16)

## gives error
scatterplot3d(mat,col=mcols,pch=16)

-----------------------------------------

Is there any workaround/modification to the densCols function that might
make this work?

thanks!

	[[alternative HTML version deleted]]