Update interactive.R

natverse · Aug 6, 2019 · 3016367 · 3016367
1 parent 920d78b
commit 3016367
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/interactive.R b/R/interactive.R
@@ -192,7 +192,7 @@ make_model <- function(x,
     message("alpha is ", alpha)
     alphashape <- alphashape3d::ashape3d(unique(selected.points), alpha = alpha)
     mesh3d <- as.mesh3d(alphashape)
-    ids=rgl::plot3d(mesh3d, alpha = 0.5, col = "orangered", add = TRUE)
+    ids=rgl::plot3d(mesh3d, alpha = 0.5, col = "purple", add = TRUE)
     progress <- readline(prompt="Continue? y/n  ")
     if(progress == "n"){
       alpha <- as.numeric (readline(prompt="Select a numeric value for alpha  "))