X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fafc_graph.R;fp=Rscripts%2Fafc_graph.R;h=8233d8ffae4fa73963604a6fe13be65c99899ea7;hp=f450f1e720185772dd7ba13ffbfa9b7181a196c6;hb=3d36aa1a6c5b7bdbf5d927af4abfd10c2e618b7a;hpb=5280f41fbdd915f461686a5dfcf6120de8463d73

diff --git a/Rscripts/afc_graph.R b/Rscripts/afc_graph.R
index f450f1e..8233d8f 100644
--- a/Rscripts/afc_graph.R
+++ b/Rscripts/afc_graph.R
@@ -187,11 +187,11 @@ if (typegraph == 0) {
     rain = rainbow(clnb)
     colors = rain[classes]
     #rn <- rownames(table.in)
-    open3d()
+    rgl.open()
     text3d(table.in[,1], table.in[,2], table.in[,3], rn, col = colors , cex = cex.par)
+    rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = TRUE)
     par3d(cex=0.7)
     #par3d(windowRect = c(100,100,600,600))
-    rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = FALSE)
     rgl.lines(c(rx), c(0, 0), c(0, 0), col = "#000000")
     rgl.lines(c(0,0),c(ry),c(0,0),col = "#000000")
     rgl.lines(c(0,0),c(0,0),c(rz),col = "#000000")