X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;h=98bacf7a50c3db6ac68d39a006704ed139f5a4e1;hp=e738a80835185fdf4b02e9e28a9f96beea4bd4e3;hb=1f82fb8e9ed83b8524b00039f1a8c51c2b12a8be;hpb=8fa853a25a9d62b1446e1bc543e5a3a4d0e03dcf

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index e738a80..98bacf7 100644
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -239,7 +239,8 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, vertex.col =
             par(mar=c(2,2,1,0))
         }
         par(pch=' ')
-        plot(g.toplot,vertex.label='', edge.width=we.width, vertex.size=vertex.size, vertex.color=vertex.col, vertex.label.color='white', edge.label=we.label, edge.label.cex=cex, edge.color=edge.col, vertex.label.cex = 0, layout=lo)
+        plot(g.toplot,vertex.label='', edge.width=we.width, vertex.size=vertex.size, vertex.color=vertex.col, vertex.label.color='white', edge.label=we.label, edge.label.cex=cex, edge.color=edge.col, vertex.label.cex = 0, layout=lo)#, rescale = FALSE)
+        #txt.layout <- lo
         txt.layout <- layout.norm(lo, -1, 1, -1, 1, -1, 1)
         #txt.layout <- txt.layout[order(label.cex),]
         #vertex.label.color <- vertex.label.color[order(label.cex)]
@@ -268,6 +269,8 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, vertex.col =
 	
 	if (p.type == 'rgl') {
 		library('rgl')
+        #rgl.open()
+        #par3d(cex=0.8)
 		rglplot(g.toplot,vertex.label= vire.nonascii(v.label), edge.width=we.width/10, vertex.size=0.01, vertex.color=vertex.col, vertex.label.color="black", edge.color = edge.col, layout=lo)
         los <- layout.norm(lo, -1, 1, -1, 1, -1, 1)
         rgl.spheres(los, col = vertex.col, radius = vertex.size/100, alpha = alpha)