X-Git-Url: http://www.iramuteq.org/git?a=blobdiff_plain;f=Rscripts%2Fsimi.R;fp=Rscripts%2Fsimi.R;h=bf42008f7baa3f9910f750b7de3376fb7ce037f8;hb=e6f6318b1ab077a97c10559b3323ccf158ae6203;hp=2a4c8b7f58562da49a8901aa0d16387162cc613a;hpb=971de797b3c5602affd200633161ba87576b93f5;p=iramuteq

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index 2a4c8b7..bf42008 100755
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -376,7 +376,7 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, communities =
             require(tcltk)
             ReturnVal <- tkmessageBox(title="RGL 3 D",message="Cliquez pour commencer le film",icon="info",type="ok")
 
-            movie3d(spin3d(axis=c(0,1,0),rpm=6), movie = 'film_graph', frames = "tmpfilm", duration=10, clean=TRUE, top = TRUE, dir = movie)
+            movie3d(spin3d(axis=c(0,0,1),rpm=6), movie = 'film_graph', frames = "tmpfilm", duration=10, clean=TRUE, top = TRUE, dir = movie)
             ReturnVal <- tkmessageBox(title="RGL 3 D",message="Film fini !",icon="info",type="ok")
         }
         #play3d(spin3d(axis=c(0,1,0),rpm=6))