X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;ds=sidebyside;f=Rscripts%2Fafc_graph.R;h=ca39a358c4511fde99e5b0ca02be80e60a548420;hb=b19770356272772c8c8ba75f351520eca186bd19;hp=e4b061753edfe807bb5c9846a4912613693c72d7;hpb=e525a32fa83bf1a174b743139e3d30990799c47c;p=iramuteq

diff --git a/Rscripts/afc_graph.R b/Rscripts/afc_graph.R
index e4b0617..ca39a35 100644
--- a/Rscripts/afc_graph.R
+++ b/Rscripts/afc_graph.R
@@ -1,5 +1,5 @@
 #Author: Pierre Ratinaud
-#Copyright (c) 20010 Pierre Ratinaud
+#Copyright (c) 20010-2013 Pierre Ratinaud
 #Lisense: GNU/GPL
 
 
@@ -184,15 +184,16 @@ if (typegraph == 0) {
 } else {
     library(rgl)
     rn <- vire.nonascii(rownames(table.in))
-    print(rn)
     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('userMatrix' = matrix(c(1,0,0,0, 0,1,0,0,0,0,1,0,0,0,0,1), ncol=4, nrow = 4))
     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")