x <- arsim(2000,c(5,7,4),2,shuffle=FALSE)
fluctile3d(x,col.array = f3dcol(x,col.fun = rainbow))
fluctile3d(x,col.array = f3dcol(x,col.fun = function(z) sample(rainbow(z))))
fluctile3d(x,col.array = f3dcol(x,col.fun = diverge_hcl))
Run the code above in your browser using DataLab