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)]
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)